dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

plug-ins: script-fu-paste-as-new-pattern, adjusted call to (file-pat-export)

This commit is contained in:
Mark Sweeney 2024-07-20 17:57:55 +01:00 committed by Alx Sa
parent 44a87140d5
commit fa70b794e2
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
plug-ins/script-fu/scripts/paste-as-pattern.scm
View File

@ -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)