From fa70b794e234a109280ebef9c8cfe4aca8cf98df Mon Sep 17 00:00:00 2001 From: Mark Sweeney Date: Sat, 20 Jul 2024 17:57:55 +0100 Subject: [PATCH] plug-ins: script-fu-paste-as-new-pattern, adjusted call to (file-pat-export) --- plug-ins/script-fu/scripts/paste-as-pattern.scm | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/plug-ins/script-fu/scripts/paste-as-pattern.scm b/plug-ins/script-fu/scripts/paste-as-pattern.scm index 327d484552..38014f48c2 100644 --- a/plug-ins/script-fu/scripts/paste-as-pattern.scm +++ b/plug-ins/script-fu/scripts/paste-as-pattern.scm @@ -20,12 +20,10 @@ (define (script-fu-paste-as-pattern name filename) (let* ((pattern-image (car (gimp-edit-paste-as-new-image))) - (pattern-draw 0) (path 0)) - (if (= TRUE (car (gimp-image-is-valid pattern-image))) + (if (= TRUE (car (gimp-image-id-is-valid pattern-image))) (begin - (set! pattern-draw (aref (cadr (gimp-image-get-selected-drawables pattern-image)) 0)) (set! path (string-append gimp-directory "/patterns/" filename @@ -34,7 +32,6 @@ (file-pat-export RUN-NONINTERACTIVE pattern-image - 1 (vector pattern-draw) path name)