;; Test: show all input box script  for GIMP 1.2
;; v0.2: changed menu entry 

(define (script-fu-all-input-box
                adjustment0 adjustment1 brush color drawable filename
                font gradient image option pattern string toggle value)

  (gimp-message (string-append 
    "Adjust0 is "  (number->string adjustment0) "\n"
    "Adjust1 is "  (number->string adjustment1) "\n"
    "Brush is "    "'(" "\"" (nth 0 brush) "\" "
                        (number->string (nth 1 brush)) " "
                        (number->string (nth 2 brush)) " "
                        (number->string (nth 3 brush)) ")\n"
    "Color is "    "'(" (number->string (car color)) " "
                        (number->string (cadr color)) " "
                        (number->string (caddr color)) ")\n"
    "Drawable is " (number->string drawable) "\n"
    "Filename is " "\"" filename "\"\n"
    "Font is "     "\"" font "\"\n"
    "Gradient is " "\"" gradient "\"\n"
    "Image is "    (number->string image) "\n"
    "Option is "   (number->string option) "\n"
    "Pattern is "  "\"" pattern "\"" "\n"
    "String is "   "\"" string "\"\n"
    "Toggle is "   (if (equal? toggle TRUE) "TRUE\n" "FALSE\n")
    "Value is "    (number->string value)  ))
)

(script-fu-register
  "script-fu-all-input-box"
  "<Toolbox>/Xtns/Script-Fu/Test/All Input Box..."
  "Show all imput boxes"
  "Iccii <iccii@hotmail.com>"
  "Iccii"
  "Jun, 2001"
  ""
  SF-ADJUSTMENT "SF-ADJUSTMENT (Slider)"  '(256 1 1024 1 10 0 0)
  SF-ADJUSTMENT "SF-ADJUSTMENT (Spinbox)" '(256 1 1024 1 10 0 1)
  SF-BRUSH      "SF-BRUSH"                '("Circle (15)" 1.0 20 0)
  SF-COLOR      "SF-COLOR"                '(255 255 255)
  SF-DRAWABLE   "SF-DRAWABLE"             0
  SF-FILENAME   "SF-FILENAME"             "/FILENAME"
  SF-FONT       "SF-FONT"                 "-*-Eras-*-r-*-*-24-*-*-*-p-*-*-*"
  SF-GRADIENT   "SF-GRADIENT"             "Blue_Green"
  SF-IMAGE      "SF-IMAGE"                0
  SF-OPTION     "SF-OPTION"               '("Option1" "Option2" "Option3")
  SF-PATTERN    "SF-PATTERN"              "Parque #1"
  SF-STRING     "SF-STRING"               "The Gimp"
  SF-TOGGLE     "SF-TOGGLE"               FALSE
  SF-VALUE      "SF-VALUE"                "10"
)