Commit c46c9b53 authored by Maurits Rijk's avatar Maurits Rijk

fix for #114495

parent 17cd9400
2003-06-06 Maurits Rijk <lpeek.mrijk@consunet.nl>
* plug-ins/script-fu/scripts/addborder.scm: fix for #114495 (Script-Fu:
Add Border can't be (complete) undone.)
2003-06-06 Sven Neumann <sven@gimp.org>
* plug-ins/gfig/gfig.c (gfig_save_callbk): fixed broken usage of
......@@ -26,10 +26,8 @@
(define (deltacolour col delta)
(let* ((newcol (+ col delta)))
; (print "Old colour -") (print col)
(if (< newcol 0) (set! newcol 0))
(if (> newcol 255) (set! newcol 255))
; (print "New colour") (print newcol)
newcol)
)
......@@ -107,7 +105,7 @@
(height (+ oheight (* 2 ysize)))
(layer (car (gimp-layer-new img width height RGBA_IMAGE "Border-Layer" 100 NORMAL))))
;Add this for debugging (verbose 4)
(gimp-image-undo-disable img)
(gimp-undo-push-group-start img)
(gimp-drawable-fill layer TRANS-IMAGE-FILL)
(gimp-image-resize img
width
......@@ -154,13 +152,12 @@
(gimp-edit-fill layer BG-IMAGE-FILL)
(gimp-selection-none img)
(gimp-image-add-layer img layer 0)
(gimp-image-undo-enable img)
(gimp-undo-push-group-end img)
(gimp-palette-set-background old-bg)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-addborder"
_"<Image>/Script-Fu/Decor/Add Border..."
"Add a border around an image"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment