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

Use 'img' and not 'new-img' in make-thumbnail-size routine. Moved menu 

2007-05-15  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scripts/contactsheet.scm: Use 'img' and not
	'new-img' in make-thumbnail-size routine. Moved menu entry from
	Xtns/Utils to Xtns/Utilities. See bug #132532.

svn path=/trunk/; revision=22497
This commit is contained in:
Kevin Cozens 2007-05-15 18:53:36 +00:00 committed by Kevin Cozens
parent 07e1c088ee
commit 656a6d8639
2 changed files with 16 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ChangeLog
View File

@ -1,3 +1,9 @@
2007-05-15 Kevin Cozens <kcozens@cvs.gnome.org>
* plug-ins/script-fu/scripts/contactsheet.scm: Use 'img' and not
'new-img' in make-thumbnail-size routine. Moved menu entry from
Xtns/Utils to Xtns/Utilities. See bug #132532.
2007-05-15 Michael Natterer <mitch@gimp.org>
* app/paint/gimpheal.c (gimp_heal_motion): convert the source

16
plug-ins/script-fu/scripts/contactsheet.scm
View File

@ -99,7 +99,8 @@
BACKGROUND-FILL)
(gimp-selection-none img)
(set! text-layer (car (gimp-text-fontname img -1 0 0
(string-append _"Sheet " (number->string num)
(string-append _"Contact Sheet "
(number->string num)
_" for directory " dir)
0 TRUE 14 PIXELS title-font)))
(set! text-width (car (gimp-drawable-width text-layer)))
@ -114,7 +115,7 @@
;This routine should preserve the aspect ratio of the original image
(define (make-thumbnail-size img thumb-w thumb-h)
(gimp-image-scale new-img thumb-w thumb-h)
(gimp-image-scale img thumb-w thumb-h)
)
(let* (
@ -123,9 +124,8 @@
(img-count 0)
(pos-x 0)
(pos-y 0)
(sheet-data)
(sheet-img)
(sheet-layer)
(sheet-width)
(sheet-height)
(thumb-w)
@ -136,6 +136,10 @@
(off-y)
(max-x)
(max-y)
(sheet-img)
(sheet-layer)
(new-img)
(file)
(file-path)
@ -180,7 +184,7 @@
(if (and (not (re-match "index.*" file))
(= (file-type file-path) FILE-TYPE-FILE)
)
(catch 'errobj
(catch ()
(set! new-img
(car (gimp-file-load RUN-NONINTERACTIVE file-path file)))
@ -289,4 +293,4 @@
SF-COLOR _"Background color" "black"
)
(script-fu-menu-register "script-fu-contactsheet" "<Toolbox>/Xtns/Utils")
(script-fu-menu-register "script-fu-contactsheet" "<Toolbox>/Xtns/_Utilities")