callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

applied gimp-quinet-000531-0.patch to change the help blurb.

Browse Source 
2000-06-05  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/clothify.scm: applied
	gimp-quinet-000531-0.patch to change the help blurb.

	* plug-ins/script-fu/scripts/drop-shadow.scm
	* plug-ins/script-fu/scripts/erase-rows.scm
	* plug-ins/script-fu/scripts/perspective-shadow.scm
	* plug-ins/script-fu/scripts/predator.scm
	* plug-ins/script-fu/scripts/xach-effect.scm: applied
	gimp-quinet-000531-0.patch to replace all calls to
        gimp-image-undo-disable by gimp-undo-push-group-start,
	and gimp-image-undo-enable by gimp-undo-push-group-end.
This commit is contained in:
Sven Neumann
2000-06-06 11:45:27 +00:00
committed by Sven Neumann
parent 2d46163152
commit 42413f50c0
7 changed files with 25 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
ChangeLog
View File

@ -1,3 +1,17 @@
2000-06-05 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/clothify.scm: applied
gimp-quinet-000531-0.patch to change the help blurb.
* plug-ins/script-fu/scripts/drop-shadow.scm
* plug-ins/script-fu/scripts/erase-rows.scm
* plug-ins/script-fu/scripts/perspective-shadow.scm
* plug-ins/script-fu/scripts/predator.scm
* plug-ins/script-fu/scripts/xach-effect.scm: applied
gimp-quinet-000531-0.patch to replace all calls to
gimp-image-undo-disable by gimp-undo-push-group-start,
and gimp-image-undo-enable by gimp-undo-push-group-end.
2000-06-06 Michael Natterer <mitch@gimp.org>
* Makefile.am

2
plug-ins/script-fu/scripts/clothify.scm
View File

@ -41,7 +41,7 @@
(script-fu-register "script-fu-clothify"
_"<Image>/Script-Fu/Alchemy/Clothify..."
"Render the specified text along the perimeter of a circle"
"Gives the current layer a cloth-like texture"
"Tim Newsome <drz@froody.bloke.com>"
"Tim Newsome"
"4/11/97"

4
plug-ins/script-fu/scripts/drop-shadow.scm
View File

@ -54,7 +54,7 @@
(active-selection 0)
(shadow-layer 0))
(gimp-image-undo-disable image)
(gimp-undo-push-group-start image)
(gimp-layer-add-alpha drawable)
(if (= (car (gimp-selection-is-empty image)) TRUE)
@ -152,7 +152,7 @@
(gimp-image-set-active-layer image drawable)
(gimp-palette-set-background old-bg)
(gimp-image-undo-enable image)
(gimp-undo-push-group-end image)
(gimp-displays-flush)))
(script-fu-register "script-fu-drop-shadow"

4
plug-ins/script-fu/scripts/erase-rows.scm
View File

@ -1,7 +1,7 @@
(define (script-fu-erase-rows img drawable orientation which)
(let* ((width (car (gimp-drawable-width drawable)))
(height (car (gimp-drawable-height drawable))))
(gimp-image-undo-disable img)
(gimp-undo-push-group-start img)
(letrec ((loop (lambda (i max)
(if (< i max)
(begin
@ -17,7 +17,7 @@
height
width)))
(gimp-selection-none img)
(gimp-image-undo-enable img)
(gimp-undo-push-group-end img)
(gimp-displays-flush)))
(script-fu-register "script-fu-erase-rows"

4
plug-ins/script-fu/scripts/perspective-shadow.scm
View File

@ -57,7 +57,7 @@
(if (= rel-distance 0) (set! rel-distance 999999))
(gimp-image-undo-disable image)
(gimp-undo-push-group-start image)
(gimp-layer-add-alpha drawable)
(if (= (car (gimp-selection-is-empty image)) TRUE)
@ -174,7 +174,7 @@
(gimp-image-set-active-layer image drawable)
(gimp-palette-set-background old-bg)
(gimp-image-undo-enable image)
(gimp-undo-push-group-end image)
(gimp-displays-flush)))
(script-fu-register "script-fu-perspective-shadow"

4
plug-ins/script-fu/scripts/predator.scm
View File

@ -36,7 +36,7 @@
(image-width (car (gimp-image-width image)))
(image-height (car (gimp-image-height image))))
(gimp-image-undo-disable image)
(gimp-undo-push-group-start image)
(gimp-layer-add-alpha drawable)
(if (= (car (gimp-selection-is-empty image)) TRUE)
@ -90,7 +90,7 @@
(if (= keep-selection FALSE)
(gimp-selection-none image))
(gimp-image-undo-enable image)
(gimp-undo-push-group-end image)
(gimp-image-set-active-layer image drawable)
(gimp-image-remove-channel image active-selection)
(gimp-displays-flush)))

4
plug-ins/script-fu/scripts/xach-effect.scm
View File

@ -46,7 +46,7 @@
(image-height (car (gimp-image-height image)))
(old-bg (car (gimp-palette-get-background))))
(gimp-image-undo-disable image)
(gimp-undo-push-group-start image)
(gimp-layer-add-alpha drawable)
@ -107,7 +107,7 @@
(gimp-image-set-active-layer image drawable)
(gimp-image-remove-channel image active-selection)
(gimp-image-undo-enable image)
(gimp-undo-push-group-end image)
(gimp-displays-flush)))
(script-fu-register "script-fu-xach-effect"