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

renamed PDB function gimp_image_active_drawable() to

Browse Source 
2003-12-08  Michael Natterer  <mitch@gimp.org>

	* tools/pdbgen/pdb/image.pdb: renamed PDB function
	gimp_image_active_drawable() to gimp_image_get_active_drawable()
	so it's consistent with all other drawable getters.

	* app/pdb/procedural_db.c
	* libgimp/gimpcompat.h: added compat stuff.

	* app/pdb/image_cmds.c
	* libgimp/gimpimage_pdb.[ch]: regenerated.

	* plug-ins/pygimp/pygimp-image.c
	* plug-ins/script-fu/scripts/add-bevel.scm
	* plug-ins/script-fu/scripts/carved-logo.scm
	* plug-ins/script-fu/scripts/chrome-it.scm
	* plug-ins/script-fu/scripts/crystal-logo.scm
	* plug-ins/script-fu/scripts/round-corners.scm
	* plug-ins/script-fu/scripts/slide.scm
	* plug-ins/script-fu/scripts/sota-chrome-logo.scm: changed accordingly.

2003-12-08  Michael Natterer  <mitch@gimp.org>

	* libgimp/libgimp-sections.txt
	* libgimp/tmpl/gimpimage.sgml: updated.
This commit is contained in:
Michael Natterer
2003-12-08 18:30:54 +00:00
committed by Michael Natterer
parent ed6fe48b09
commit a046969687
21 changed files with 375 additions and 342 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/script-fu/scripts/add-bevel.scm
View File

@ -76,7 +76,7 @@
(thickness (abs thickness))
(type (car (gimp-drawable-type-with-alpha drawable)))
(image (if (= work-on-copy TRUE) (car (gimp-image-duplicate img)) img))
(pic-layer (car (gimp-image-active-drawable image)))
(pic-layer (car (gimp-image-get-active-drawable image)))
(width (car (gimp-drawable-width pic-layer)))
(height (car (gimp-drawable-height pic-layer)))
(old-bg (car (gimp-palette-get-background)))

2
plug-ins/script-fu/scripts/carved-logo.scm
View File

@ -30,7 +30,7 @@
(feather (carve-scale size 0.3))
(brush-size (carve-scale size 0.3))
(b-size (+ (carve-scale size 0.5) padding))
(layer1 (car (gimp-image-active-drawable img)))
(layer1 (car (gimp-image-get-active-drawable img)))
(mask-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
(width (car (gimp-drawable-width mask-layer)))
(height (car (gimp-drawable-height mask-layer)))

2
plug-ins/script-fu/scripts/chrome-it.scm
View File

@ -64,7 +64,7 @@
(define (script-fu-sota-chrome-it mask-img mask-drawable chrome-saturation
chrome-lightness chrome-factor env-map hc cc carve-white)
(let* ((banding-img (car (gimp-file-load 1 env-map env-map)))
(banding-layer (car (gimp-image-active-drawable banding-img)))
(banding-layer (car (gimp-image-get-active-drawable banding-img)))
(banding-height (car (gimp-drawable-height banding-layer)))
(banding-width (car (gimp-drawable-width banding-layer)))
(banding-type (car (gimp-drawable-type banding-layer)))

4
plug-ins/script-fu/scripts/crystal-logo.scm
View File

@ -62,9 +62,9 @@
(define (script-fu-crystal-logo chrome-factor text size font bg-img env-map)
(let* ((img (car (gimp-image-new 256 256 GRAY)))
(back-img (car (gimp-file-load 1 bg-img bg-img)))
(back-layer (car (gimp-image-active-drawable back-img)))
(back-layer (car (gimp-image-get-active-drawable back-img)))
(banding-img (car (gimp-file-load 1 env-map env-map)))
(banding-layer (car (gimp-image-active-drawable banding-img)))
(banding-layer (car (gimp-image-get-active-drawable banding-img)))
(banding-height (car (gimp-drawable-height banding-layer)))
(banding-width (car (gimp-drawable-width banding-layer)))
(banding-type (car (gimp-drawable-type banding-layer)))

2
plug-ins/script-fu/scripts/round-corners.scm
View File

@ -57,7 +57,7 @@
(car (gimp-image-duplicate img)))
((= work-on-copy FALSE)
img)))
(pic-layer (car (gimp-image-active-drawable image))))
(pic-layer (car (gimp-image-get-active-drawable image))))
(gimp-image-undo-disable image)

2
plug-ins/script-fu/scripts/slide.scm
View File

@ -88,7 +88,7 @@
"Background"
100
NORMAL-MODE)))
(pic-layer (car (gimp-image-active-drawable image)))
(pic-layer (car (gimp-image-get-active-drawable image)))
(numbera (string-append number "A")))

2
plug-ins/script-fu/scripts/sota-chrome-logo.scm
View File

@ -65,7 +65,7 @@
text size fontname env-map hc cc)
(let* ((img (car (gimp-image-new 256 256 GRAY)))
(banding-img (car (gimp-file-load 1 env-map env-map)))
(banding-layer (car (gimp-image-active-drawable banding-img)))
(banding-layer (car (gimp-image-get-active-drawable banding-img)))
(banding-height (car (gimp-drawable-height banding-layer)))
(banding-width (car (gimp-drawable-width banding-layer)))
(banding-type (car (gimp-drawable-type banding-layer)))