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

Fixed to allow use of script on original layer. (bug #155358) Fixed 

2004-10-14  Kevin Cozens  <kcozens@cvs.gimp.org>

	* plug-ins/script-fu/scripts/circuit.scm: Fixed to allow use of
	script on original layer.  (bug #155358)  Fixed spelling error.
This commit is contained in:
Kevin Cozens 2004-10-14 06:22:31 +00:00 committed by Kevin Cozens
parent 5cda4a7c74
commit 5307a10af7
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,3 +1,8 @@
2004-10-14 Kevin Cozens <kcozens@cvs.gimp.org>
* plug-ins/script-fu/scripts/circuit.scm: Fixed to allow use of
script on original layer. (bug #155358) Fixed spelling error.
2004-10-13 Manish Singh <yosh@gimp.org> 2004-10-13 Manish Singh <yosh@gimp.org>
* tools/pdbgen/Makefile.am: Remove stamp files during * tools/pdbgen/Makefile.am: Remove stamp files during

12
plug-ins/script-fu/scripts/circuit.scm
View File

@ -35,7 +35,7 @@
seed seed
remove-bg remove-bg
keep-selection keep-selection
seperate-layer) separate-layer)
(let* ( (let* (
(type (car (gimp-drawable-type-with-alpha drawable))) (type (car (gimp-drawable-type-with-alpha drawable)))
(image-width (car (gimp-image-width image))) (image-width (car (gimp-image-width image)))
@ -63,7 +63,7 @@
(set! select-width (- (cadr (cddr selection-bounds)) select-offset-x)) (set! select-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! select-height (- (caddr (cddr selection-bounds)) select-offset-y)) (set! select-height (- (caddr (cddr selection-bounds)) select-offset-y))
(if (= seperate-layer TRUE) (if (= separate-layer TRUE)
(begin (begin
(set! effect-layer (car (gimp-layer-new image (set! effect-layer (car (gimp-layer-new image
select-width select-width
@ -83,8 +83,10 @@
(let ((floating-sel (car (gimp-edit-paste effect-layer FALSE)))) (let ((floating-sel (car (gimp-edit-paste effect-layer FALSE))))
(gimp-floating-sel-anchor floating-sel) (gimp-floating-sel-anchor floating-sel)
) )
(gimp-image-set-active-layer image effect-layer ))) (gimp-image-set-active-layer image effect-layer ))
(set! active-layer (car (gimp-image-get-active-layer image))) (set! effect-layer drawable)
)
(set! active-layer effect-layer)
(if (= remove-bg TRUE) (if (= remove-bg TRUE)
(gimp-context-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
@ -98,7 +100,7 @@
(if (and (if (and
(= remove-bg TRUE) (= remove-bg TRUE)
(= seperate-layer TRUE)) (= separate-layer TRUE))
(begin (begin
(gimp-by-color-select (gimp-by-color-select
active-layer active-layer