procyberian/gimp
2
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp.git synced 2025-07-04 09:53:25 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity Actions

plug-ins: fix select-to-brush script.

Browse source 
The following calls needed to be updated:
gimp-image-set-selected-layers, gimp-edit-copy, gimp-edit-paste and
file-gbr-save.
This commit is contained in:
Jehan 2021-06-20 12:22:32 +02:00
parent 9dd6c1c467
commit 708f3228d9
1 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

12
plug-ins/script-fu/scripts/select-to-brush.scm
View file

@ -62,7 +62,7 @@
) )
) )
(gimp-edit-copy drawable) (gimp-edit-copy 1 (make-vector 1 drawable))
(set! brush-draw-type (set! brush-draw-type
(if (= type GRAYA-IMAGE) (if (= type GRAYA-IMAGE)
@ -98,7 +98,11 @@
(gimp-drawable-fill brush-draw FILL-TRANSPARENT) (gimp-drawable-fill brush-draw FILL-TRANSPARENT)
) )
(let ((floating-sel (car (gimp-edit-paste brush-draw FALSE)))) (let* (
(pasted (gimp-edit-paste brush-draw FALSE))
(num-pasted (car pasted))
(floating-sel (aref (cadr pasted) (- num-pasted 1)))
)
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
@ -108,7 +112,7 @@
(number->string image) (number->string image)
".gbr")) ".gbr"))
(file-gbr-save 1 brush-image brush-draw filename2 "" spacing name) (file-gbr-save 1 brush-image 1 (make-vector 1 brush-draw) filename2 spacing name)
(if (= from-selection TRUE) (if (= from-selection TRUE)
(begin (begin
@ -118,7 +122,7 @@
) )
(gimp-image-undo-enable image) (gimp-image-undo-enable image)
(gimp-image-set-active-layer image drawable) (gimp-image-set-selected-layers image 1 (make-vector 1 drawable))
(gimp-image-delete brush-image) (gimp-image-delete brush-image)
(gimp-displays-flush) (gimp-displays-flush)