31 lines
809 B
Scheme
31 lines
809 B
Scheme
#!/usr/bin/env pika-script-fu-interpreter-3.0
|
|
|
|
; A script that always fails
|
|
;
|
|
; Setup: copy this file w/ executable permission, and its parent dir to /plug-ins
|
|
; Example: to ~/.pika-2.99/plug-ins/always-fail/always-fail.scm
|
|
|
|
; Expect "Test>Always fail" in the menus
|
|
; Expect when chosen, message on PIKA message bar "Failing"
|
|
; Expect a dialog in PIKA app that requires an OK
|
|
|
|
(define (script-fu-always-fail)
|
|
(begin
|
|
(pika-message "Failing")
|
|
; since last expression, the result, and should mean error
|
|
#f
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-always-fail"
|
|
"Always fail"
|
|
"Expect error dialog in Gimp, or PDB execution error when called by another"
|
|
"lkk"
|
|
"lkk"
|
|
"2022"
|
|
"" ; requires no image
|
|
; no arguments or dialog
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-always-fail" "<Image>/Test")
|
