Hi,
I am trying to run a script I used with gimp 1.2 under the new Gimp 2.0 (which
I love, by the way), and it stops with the following error:
Error while executing
(script-fu-menu-items "/home/rabbit/hv/design/menu_items/"
"-b&h-lucida-medium-r-normal-*-*-140-*-*-p-*-iso8859-1" TRUE TRUE)
ERROR: unbound variable (errobj for-each)
The error message gives me the impression that the for-each construct is
somehow not supported anymore in Script-fu/scheme. Can anyone confirm this?
If so, what is the alternative?
I'm using Debian unstable on linux-x86.
Thanks in advance,
Frans
The function in which the error occurs (slightly trimmed) follows. I added the
"Here x" messages to try to narrow down the location of the error, but now I
get the following behavior:
1) error message
2) message "Here 2"
3) message "Here 1"
This order makes no sense to me at all. Can anyone shed some light on this?
(define (script-fu-menu-items path font normal hi)
(gimp-message "Here 1")
(let* (
(items (list
'("Home" "home_en" 0)
; ... and a whole lot more of these
))
(i 0)
)
(gimp-message "Here 2")
(for-each
(lambda (x)
(if (= normal TRUE)
(let ((img (script-fu-menu-item (car x) font FALSE
(caddr x) FALSE)))
; save as (string-append path (cadr x) ".gif")
(file-gif-save 1 img (car
(gimp-image-get-active-layer img))
(string-append path (cadr x) ".gif") (string-append (cadr x) ".gif") 0 0 0 0)
(gimp-image-delete img)
(set! i (+ i 1))
)
())
(if (= hi TRUE)
(let ((img (script-fu-menu-item (car x) font TRUE
(caddr x) FALSE)))
; save as (string-append path (cadr x)
"_hi.gif")
(file-gif-save 1 img (car
(gimp-image-get-active-layer img))
(string-append path (cadr x) "_hi.gif") (string-append (cadr x) ".gif") 0 0 0
0)
(gimp-image-delete img)
(set! i (+ i 1))
)
())
)
items
)
(gimp-message "Here 3")
(gimp-message (string-append (number->string i) " menu items created
and
saved to `" path "'."))
)
)
_______________________________________________
Gimp-user mailing list
[EMAIL PROTECTED]
http://lists.xcf.berkeley.edu/mailman/listinfo/gimp-user
