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

plug-ins/script-fu/scripts/paste-as-brush.scm Some variables were not

Browse Source 
2006-10-28  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scripts/paste-as-brush.scm
	* plug-ins/script-fu/scripts/paste-as-pattern.scm: Some variables
	were not being declared before first use. Spotted by Saul Goode.
This commit is contained in:
Kevin Cozens
2006-10-29 05:18:44 +00:00
committed by Kevin Cozens
parent 1fb934b9f8
commit 3e691c6999
3 changed files with 24 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
plug-ins/script-fu/scripts/paste-as-pattern.scm
View File

@ -20,24 +20,25 @@
(define (script-fu-paste-as-pattern name filename)
(set! pattern-image (car (gimp-edit-paste-as-new)))
(set! pattern-draw (car (gimp-image-get-active-drawable pattern-image)))
(set! path (string-append gimp-directory
(let* (
(pattern-image (car (gimp-edit-paste-as-new)))
(pattern-draw (car (gimp-image-get-active-drawable pattern-image)))
(path (string-append gimp-directory
"/patterns/"
filename
(number->string pattern-image)
".pat"))
)
(file-pat-save RUN-NONINTERACTIVE
pattern-image pattern-draw path path
name)
(file-pat-save RUN-NONINTERACTIVE
pattern-image pattern-draw path path
name)
(gimp-image-delete pattern-image)
(gimp-image-delete pattern-image)
(gimp-patterns-refresh)
(gimp-context-set-pattern name)
(gimp-patterns-refresh)
(gimp-context-set-pattern name)
)
)
(script-fu-register "script-fu-paste-as-pattern"