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

Made all the functions defined in the file local instead of global to 

2007-09-28  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scripts/addborder.scm: Made all the functions
	defined in the file local instead of global to avoid possible
	conflicts with other scripts.

svn path=/trunk/; revision=23684
This commit is contained in:
Kevin Cozens 2007-09-28 16:13:58 +00:00 committed by Kevin Cozens
parent 4d77d9a2d1
commit 14eb770a4c
2 changed files with 79 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2007-09-28 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/scripts/addborder.scm: Made all the functions
defined in the file local instead of global to avoid possible
conflicts with other scripts.
2007-09-28 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scheme-wrapper.c: plugged memory leaks.

3
plug-ins/script-fu/scripts/addborder.scm
View File

@ -24,6 +24,8 @@
; If > 255 set to 255
; Return the new value
(define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
(define (deltacolour col delta)
(let* ((newcol (+ col delta)))
(if (< newcol 0) (set! newcol 0))
@ -96,7 +98,6 @@
n_array)
)
(define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
(let* ((img (car (gimp-drawable-get-image adraw)))
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))