From 42413f50c0f38c17ac8a3390231133824b2e050b Mon Sep 17 00:00:00 2001 From: Sven Neumann Date: Tue, 6 Jun 2000 11:45:27 +0000 Subject: [PATCH] applied gimp-quinet-000531-0.patch to change the help blurb. 2000-06-05 Sven Neumann * 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. --- ChangeLog | 14 ++++++++++++++ plug-ins/script-fu/scripts/clothify.scm | 2 +- plug-ins/script-fu/scripts/drop-shadow.scm | 4 ++-- plug-ins/script-fu/scripts/erase-rows.scm | 4 ++-- plug-ins/script-fu/scripts/perspective-shadow.scm | 4 ++-- plug-ins/script-fu/scripts/predator.scm | 4 ++-- plug-ins/script-fu/scripts/xach-effect.scm | 4 ++-- 7 files changed, 25 insertions(+), 11 deletions(-) diff --git a/ChangeLog b/ChangeLog index f578ab5a4c..7c860b0b74 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,17 @@ +2000-06-05 Sven Neumann + + * 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 * Makefile.am diff --git a/plug-ins/script-fu/scripts/clothify.scm b/plug-ins/script-fu/scripts/clothify.scm index 2521ae7b67..64baa7a8b4 100644 --- a/plug-ins/script-fu/scripts/clothify.scm +++ b/plug-ins/script-fu/scripts/clothify.scm @@ -41,7 +41,7 @@ (script-fu-register "script-fu-clothify" _"/Script-Fu/Alchemy/Clothify..." - "Render the specified text along the perimeter of a circle" + "Gives the current layer a cloth-like texture" "Tim Newsome " "Tim Newsome" "4/11/97" diff --git a/plug-ins/script-fu/scripts/drop-shadow.scm b/plug-ins/script-fu/scripts/drop-shadow.scm index 3e486ce387..6440b91617 100644 --- a/plug-ins/script-fu/scripts/drop-shadow.scm +++ b/plug-ins/script-fu/scripts/drop-shadow.scm @@ -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" diff --git a/plug-ins/script-fu/scripts/erase-rows.scm b/plug-ins/script-fu/scripts/erase-rows.scm index b41d6bd848..7e2c40a67d 100644 --- a/plug-ins/script-fu/scripts/erase-rows.scm +++ b/plug-ins/script-fu/scripts/erase-rows.scm @@ -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" diff --git a/plug-ins/script-fu/scripts/perspective-shadow.scm b/plug-ins/script-fu/scripts/perspective-shadow.scm index 6c405d3c15..216e79105a 100644 --- a/plug-ins/script-fu/scripts/perspective-shadow.scm +++ b/plug-ins/script-fu/scripts/perspective-shadow.scm @@ -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" diff --git a/plug-ins/script-fu/scripts/predator.scm b/plug-ins/script-fu/scripts/predator.scm index f37f364f71..be12a438f9 100644 --- a/plug-ins/script-fu/scripts/predator.scm +++ b/plug-ins/script-fu/scripts/predator.scm @@ -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))) diff --git a/plug-ins/script-fu/scripts/xach-effect.scm b/plug-ins/script-fu/scripts/xach-effect.scm index b1823c38ba..b6cc623083 100644 --- a/plug-ins/script-fu/scripts/xach-effect.scm +++ b/plug-ins/script-fu/scripts/xach-effect.scm @@ -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"