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

added a missing call to gimp-drawable-fill for the RGB case. Fixed 

2003-06-17  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/select-to-brush.scm: added a missing
	call to gimp-drawable-fill for the RGB case. Fixed description,
	restore selection and delete the temporary channel. Fixes bug
	#115350.
This commit is contained in:
Sven Neumann 2003-06-17 14:25:36 +00:00 committed by Sven Neumann
parent f92033d724
commit 3aae9ed61a
2 changed files with 14 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ChangeLog
View File

@ -1,6 +1,9 @@
2003-06-17 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/select-to-brush.scm: fixed description.
* plug-ins/script-fu/scripts/select-to-brush.scm: added a missing
call to gimp-drawable-fill for the RGB case. Fixed description,
restore selection and delete the temporary channel. Fixes bug
#115350.
2003-06-17 Sven Neumann <sven@gimp.org>

16
plug-ins/script-fu/scripts/select-to-brush.scm
View File

@ -35,9 +35,9 @@
(old-bg (car (gimp-palette-get-background))))
(set! selection-bounds (gimp-selection-bounds image))
(set! select-offset-x (cadr selection-bounds))
(set! select-offset-y (caddr selection-bounds))
(set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! select-offset-x (cadr selection-bounds))
(set! select-offset-y (caddr selection-bounds))
(set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
(set! selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
(gimp-image-undo-disable image)
@ -45,7 +45,6 @@
(if (= (car (gimp-selection-is-empty image)) TRUE)
(begin
(gimp-selection-layer-alpha drawable)
(set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE))
(begin
(set! from-selection TRUE)
@ -83,12 +82,12 @@
(if (= type GRAYA_IMAGE)
(begin
(gimp-palette-set-background '(255 255 255))
(gimp-drawable-fill brush-draw BG-IMAGE-FILL)))
(gimp-drawable-fill brush-draw BACKGROUND-FILL))
(gimp-drawable-fill brush-draw TRANSPARENT-FILL))
(let ((floating-sel (car (gimp-edit-paste brush-draw FALSE))))
(gimp-floating-sel-anchor floating-sel))
(set! data-dir (car (gimp-gimprc-query "gimp_dir")))
(set! filename2 (string-append data-dir
"/brushes/"
@ -100,6 +99,11 @@
(gimp-brushes-refresh)
(gimp-brushes-set-brush desc)
(if (= from-selection TRUE)
(begin
(gimp-selection-load active-selection)
(gimp-image-remove-channel image active-selection)))
(gimp-palette-set-background old-bg)
(gimp-image-undo-enable image)