Commit adcb223e authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent bb6640b3
......@@ -7,6 +7,7 @@ Revision history for Gimp-Perl extension.
- dropped a few prefixes (PROC_ from RUN_INTERACTIVE etc.. where
the new names would have a GIMP_ prefix).
- updated to new commandline options.
- updated enums.pl (And therefore, enumerations).
1.201 Thu Aug 24 23:44:43 CEST 2000
** LAST VERSION THAT WORKS WITH 1.0 **
......
......@@ -10,7 +10,7 @@ use vars qw($VERSION @ISA @EXPORT @EXPORT_OK $AUTOLOAD %EXPORT_TAGS @EXPORT_FAIL
use subs qw(init end lock unlock canonicalize_color);
BEGIN {
$VERSION = 1.2;
$VERSION = 1.201;
eval {
require XSLoader;
XSLoader::load Gimp $VERSION;
......@@ -22,40 +22,41 @@ BEGIN {
}
my @_param = qw(
PARAM_BOUNDARY PARAM_CHANNEL PARAM_COLOR PARAM_DISPLAY PARAM_DRAWABLE
PARAM_END PARAM_FLOAT PARAM_IMAGE PARAM_INT32 PARAM_FLOATARRAY
PARAM_INT16 PARAM_PARASITE PARAM_STRING PARAM_PATH PARAM_INT16ARRAY
PARAM_INT8 PARAM_INT8ARRAY PARAM_LAYER PARAM_REGION PARAM_STRINGARRAY
PARAM_SELECTION PARAM_STATUS PARAM_INT32ARRAY
PDB_BOUNDARY PDB_CHANNEL PDB_COLOR PDB_DISPLAY PDB_DRAWABLE
w
PDB_END PDB_FLOAT PDB_IMAGE PDB_INT32 PDB_FLOATARRAY
PDB_INT16 PDB_PARASITE PDB_STRING PDB_PATH PDB_INT16ARRAY
PDB_INT8 PDB_INT8ARRAY PDB_LAYER PDB_REGION PDB_STRINGARRAY
PDB_SELECTION PDB_STATUS PDB_INT32ARRAY
);
# constants that, in some earlier version, were autoloaded
my @_consts = (@_param,
#ENUM_NAME#
'NORMAL_CONVOL', 'NEGATIVE_CONVOL', 'ABSOLUTE_CONVOL', 'VALUE_MODE', 'COLOR_MODE', 'SCREEN_MODE', 'MULTIPLY_MODE',
'HUE_MODE', 'OVERLAY_MODE', 'SUBTRACT_MODE', 'NORMAL_MODE', 'DISSOLVE_MODE', 'SATURATION_MODE', 'BEHIND_MODE',
'DIFFERENCE_MODE', 'ADDITION_MODE', 'LIGHTEN_ONLY_MODE', 'DIVIDE_MODE', 'DARKEN_ONLY_MODE', 'SHADOWS', 'HIGHLIGHTS',
'MIDTONES', 'FG_BUCKET_FILL', 'PATTERN_BUCKET_FILL', 'BG_BUCKET_FILL', 'FG_TRANS', 'FG_BG_HSV', 'FG_BG_RGB',
'CUSTOM', 'LINEAR_INTERPOLATION','CUBIC_INTERPOLATION', 'NEAREST_NEIGHBOR_INTERPOLATION','INDEXED', 'GRAY', 'RGB',
'ONCE_END_COLOR', 'ONCE_FORWARD', 'LOOP_SAWTOOTH', 'ONCE_BACKWARDS', 'LOOP_TRIANGLE', 'FLATTEN_IMAGE', 'CLIP_TO_BOTTOM_LAYER',
'CLIP_TO_IMAGE', 'EXPAND_AS_NECESSARY', 'CUSTOM_PALETTE', 'REUSE_PALETTE', 'WEB_PALETTE', 'MAKE_PALETTE', 'MONO_PALETTE',
'IMAGE_CLONE', 'PATTERN_CLONE', 'PDB_CALLING_ERROR', 'PDB_EXECUTION_ERROR', 'PDB_PASS_THROUGH', 'PDB_SUCCESS', 'RUN_WITH_LAST_VALS',
'RUN_INTERACTIVE', 'RUN_NONINTERACTIVE', 'DODGE', 'BURN', 'POINTS', 'PIXELS', 'DODGEBURN_SHADOWS',
'DODGEBURN_MIDTONES', 'DODGEBURN_HIGHLIGHTS','OFFSET_TRANSPARENT', 'OFFSET_BACKGROUND', 'FS_DITHER', 'NODESTRUCT_DITHER', 'NO_DITHER',
'FSLOWBLEED_DITHER', 'FIXED_DITHER', 'CONSOLE', 'ERROR_CONSOLE', 'MESSAGE_BOX', 'REPEAT_NONE', 'REPEAT_TRIANGULAR',
'REPEAT_SAWTOOTH', 'INTERSECT', 'ADD', 'SUB', 'REPLACE', 'TEMPORARY', 'EXTENSION',
'INTERNAL', 'PLUGIN', 'BLUR_CONVOLVE', 'SHARPEN_CONVOLVE', 'CUSTOM_CONVOLVE', 'UNKNOWN', 'VERTICAL',
'HORIZONTAL', 'YELLOW_HUES', 'MAGENTA_HUES', 'BLUE_HUES', 'GREEN_HUES', 'ALL_HUES', 'CYAN_HUES',
'RED_HUES', 'SQUARE', 'CONICAL_SYMMETRIC', 'CONICAL_ASYMMETRIC', 'BILINEAR', 'SPIRAL_ANTICLOCKWISE','SHAPEBURST_ANGULAR',
'LINEAR', 'SHAPEBURST_SPHERICAL','RADIAL', 'SPIRAL_CLOCKWISE', 'SHAPEBURST_DIMPLED', 'VALUE_LUT', 'ALPHA_LUT',
'BLUE_LUT', 'GREEN_LUT', 'RED_LUT', 'INDEXED_IMAGE', 'INDEXEDA_IMAGE', 'GRAY_IMAGE', 'RGB_IMAGE',
'GRAYA_IMAGE', 'RGBA_IMAGE', 'INCREMENTAL', 'CONTINUOUS', 'TRANS_IMAGE_FILL', 'FG_IMAGE_FILL', 'NO_IMAGE_FILL',
'BG_IMAGE_FILL', 'WHITE_IMAGE_FILL', 'BLACK_MASK', 'ALPHA_MASK', 'WHITE_MASK', 'DISCARD', 'APPLY',
'BLUE_CHANNEL', 'INDEXED_CHANNEL', 'GREEN_CHANNEL', 'AUXILLARY_CHANNEL', 'GRAY_CHANNEL', 'RED_CHANNEL', 'PRESSURE',
'SOFT', 'HARD',
'PRESSURE', 'SOFT', 'HARD', 'RGBA_IMAGE', 'INDEXED_IMAGE', 'GRAYA_IMAGE', 'RGB_IMAGE',
'INDEXEDA_IMAGE', 'GRAY_IMAGE', 'CUSTOM', 'FG_BG_HSV', 'FG_TRANS', 'FG_BG_RGB', 'BLUE_CHANNEL',
'GREEN_CHANNEL', 'GRAY_CHANNEL', 'AUXILLARY_CHANNEL', 'INDEXED_CHANNEL', 'RED_CHANNEL', 'CONTINUOUS', 'INCREMENTAL',
'APPLY', 'DISCARD', 'UNKNOWN', 'VERTICAL', 'HORIZONTAL', 'DODGEBURN_HIGHLIGHTS','DODGEBURN_SHADOWS',
'DODGEBURN_MIDTONES', 'CUBIC_INTERPOLATION', 'LINEAR_INTERPOLATION','NEAREST_NEIGHBOR_INTERPOLATION','ALPHA_LUT', 'GREEN_LUT', 'BLUE_LUT',
'VALUE_LUT', 'RED_LUT', 'OFFSET_BACKGROUND', 'OFFSET_TRANSPARENT', 'BG_BUCKET_FILL', 'FG_BUCKET_FILL', 'PATTERN_BUCKET_FILL',
'FSLOWBLEED_DITHER', 'NODESTRUCT_DITHER', 'FS_DITHER', 'NO_DITHER', 'FIXED_DITHER', 'PDB_CANCEL', 'PDB_SUCCESS',
'PDB_CALLING_ERROR', 'PDB_EXECUTION_ERROR', 'PDB_PASS_THROUGH', 'WHITE_IMAGE_FILL', 'FG_IMAGE_FILL', 'TRANS_IMAGE_FILL', 'BG_IMAGE_FILL',
'NO_IMAGE_FILL', 'LOOP_SAWTOOTH', 'ONCE_BACKWARDS', 'ONCE_FORWARD', 'ONCE_END_COLOR', 'LOOP_TRIANGLE', 'MONO_PALETTE',
'WEB_PALETTE', 'MAKE_PALETTE', 'REUSE_PALETTE', 'CUSTOM_PALETTE', 'BURN', 'DODGE', 'CYAN_HUES',
'RED_HUES', 'GREEN_HUES', 'YELLOW_HUES', 'ALL_HUES', 'MAGENTA_HUES', 'BLUE_HUES', 'POINTS',
'PIXELS', 'DIVIDE_MODE', 'SUBTRACT_MODE', 'SATURATION_MODE', 'ADDITION_MODE', 'SCREEN_MODE', 'BEHIND_MODE',
'MULTIPLY_MODE', 'DARKEN_ONLY_MODE', 'DIFFERENCE_MODE', 'DISSOLVE_MODE', 'VALUE_MODE', 'LIGHTEN_ONLY_MODE', 'COLOR_MODE',
'NORMAL_MODE', 'HUE_MODE', 'OVERLAY_MODE', 'NEGATIVE_CONVOL', 'NORMAL_CONVOL', 'ABSOLUTE_CONVOL', 'BLUR_CONVOLVE',
'CUSTOM_CONVOLVE', 'SHARPEN_CONVOLVE', 'REPLACE', 'SUB', 'ADD', 'INTERSECT', 'SHADOWS',
'MIDTONES', 'HIGHLIGHTS', 'IMAGE_CLONE', 'PATTERN_CLONE', 'INDEXED', 'RGB', 'GRAY',
'BLACK_MASK', 'WHITE_MASK', 'ALPHA_MASK', 'BILINEAR', 'SPIRAL_CLOCKWISE', 'SQUARE', 'RADIAL',
'CONICAL_SYMMETRIC', 'SHAPEBURST_DIMPLED', 'CONICAL_ASYMMETRIC', 'LINEAR', 'SPIRAL_ANTICLOCKWISE','SHAPEBURST_ANGULAR', 'SHAPEBURST_SPHERICAL',
'PLUGIN', 'EXTENSION', 'TEMPORARY', 'INTERNAL', 'MESSAGE_BOX', 'ERROR_CONSOLE', 'CONSOLE',
'STACK_TRACE_ALWAYS', 'STACK_TRACE_QUERY', 'STACK_TRACE_NEVER', 'EXPAND_AS_NECESSARY', 'CLIP_TO_BOTTOM_LAYER','CLIP_TO_IMAGE', 'FLATTEN_IMAGE',
'RUN_INTERACTIVE', 'RUN_WITH_LAST_VALS', 'RUN_NONINTERACTIVE', 'REPEAT_NONE', 'REPEAT_SAWTOOTH', 'REPEAT_TRIANGULAR',
#ENUM_NAME#
'STATUS_CALLING_ERROR', 'STATUS_EXECUTION_ERROR', 'STATUS_PASS_THROUGH',
'STATUS_SUCCESS', 'PARASITE_PERSISTENT', 'PARASITE_ATTACH_PARENT',
'PDB_CALLING_ERROR', 'PDB_EXECUTION_ERROR', 'PDB_PASS_THROUGH',
'PDB_SUCCESS', 'PARASITE_PERSISTENT', 'PARASITE_ATTACH_PARENT',
'PARASITE_PARENT_PERSISTENT', 'PARASITE_ATTACH_GRANDPARENT', 'PARASITE_GRANDPARENT_PERSISTENT',
'PARASITE_UNDOABLE', 'PARASITE_PARENT_UNDOABLE', 'PARASITE_GRANDPARENT_UNDOABLE',
'TRACE_NONE', 'TRACE_CALL', 'TRACE_TYPE', 'TRACE_NAME', 'TRACE_DESC', 'TRACE_ALL',
......@@ -63,11 +64,10 @@ my @_consts = (@_param,
'WRAP', 'SMEAR', 'BLACK',
'ADD_BLACK_MASK', 'ADD_WHITE_MASK', 'ADD_ALPHA_MASK',
'ORIENTATION_HORIZONTAL', 'ORIENTATION_VERTICAL', 'ORIENTATION_UNKNOWN',
'CAN_HANDLE_RGB', 'CAN_HANDLE_GRAY', 'CAN_HANDLE_INDEXED',
'CAN_HANDLE_ALPHA', 'CAN_HANDLE_LAYERS', 'CAN_HANDLE_LAYERS_AS_ANIMATION',
'NEEDS_ALPHA',
'EXPORT_CAN_HANDLE_RGB', 'EXPORT_CAN_HANDLE_GRAY', 'EXPORT_CAN_HANDLE_INDEXED',
'EXPORT_CAN_HANDLE_ALPHA ', 'EXPORT_CAN_HANDLE_LAYERS', 'EXPORT_CAN_HANDLE_LAYERS_AS_ANIMATION',
'EXPORT_NEEDS_ALPHA',
'EXPORT_CANCEL', 'EXPORT_IGNORE', 'EXPORT_EXPORT',
);
......@@ -75,40 +75,37 @@ sub ADD_WHITE_MASK () { &WHITE_MASK }
sub ADD_BLACK_MASK () { &BLACK_MASK }
sub ADD_ALPHA_MASK () { &ALPHA_MASK }
sub ORIENTATION_HORIZONTAL () { &HORIZONTAL }
sub ORIENTATION_VERTICAL () { &VERTICAL }
sub ORIENTATION_UNKNOWN () { &UNKNOWN }
#ENUM_DEFS#
sub NORMAL_CONVOL (){ 0} sub NEGATIVE_CONVOL (){ 2} sub ABSOLUTE_CONVOL (){ 1} sub VALUE_MODE (){14} sub COLOR_MODE (){13}
sub SCREEN_MODE (){ 4} sub MULTIPLY_MODE (){ 3} sub HUE_MODE (){11} sub OVERLAY_MODE (){ 5} sub SUBTRACT_MODE (){ 8}
sub NORMAL_MODE (){ 0} sub DISSOLVE_MODE (){ 1} sub SATURATION_MODE (){12} sub BEHIND_MODE (){ 2} sub DIFFERENCE_MODE (){ 6}
sub ADDITION_MODE (){ 7} sub LIGHTEN_ONLY_MODE (){10} sub DIVIDE_MODE (){15} sub DARKEN_ONLY_MODE (){ 9} sub SHADOWS (){ 0}
sub HIGHLIGHTS (){ 2} sub MIDTONES (){ 1} sub FG_BUCKET_FILL (){ 0} sub PATTERN_BUCKET_FILL (){ 2} sub BG_BUCKET_FILL (){ 1}
sub FG_TRANS (){ 2} sub FG_BG_HSV (){ 1} sub FG_BG_RGB (){ 0} sub CUSTOM (){ 3} sub LINEAR_INTERPOLATION(){ 0}
sub CUBIC_INTERPOLATION (){ 1} sub NEAREST_NEIGHBOR_INTERPOLATION(){ 2} sub INDEXED (){ 2} sub GRAY (){ 1} sub RGB (){ 0}
sub ONCE_END_COLOR (){ 4} sub ONCE_FORWARD (){ 0} sub LOOP_SAWTOOTH (){ 2} sub ONCE_BACKWARDS (){ 1} sub LOOP_TRIANGLE (){ 3}
sub FLATTEN_IMAGE (){ 3} sub CLIP_TO_BOTTOM_LAYER(){ 2} sub CLIP_TO_IMAGE (){ 1} sub EXPAND_AS_NECESSARY (){ 0} sub CUSTOM_PALETTE (){ 4}
sub REUSE_PALETTE (){ 1} sub WEB_PALETTE (){ 2} sub MAKE_PALETTE (){ 0} sub MONO_PALETTE (){ 3} sub IMAGE_CLONE (){ 0}
sub PATTERN_CLONE (){ 1} sub PDB_CALLING_ERROR (){ 1} sub PDB_EXECUTION_ERROR (){ 0} sub PDB_PASS_THROUGH (){ 2} sub PDB_SUCCESS (){ 3}
sub RUN_WITH_LAST_VALS (){bless \(my $x=2),'Gimp::run_mode'} sub RUN_INTERACTIVE (){bless \(my $x=0),'Gimp::run_mode'} sub RUN_NONINTERACTIVE (){bless \(my $x=1),'Gimp::run_mode'} sub DODGE (){ 0} sub BURN (){ 1}
sub POINTS (){ 1} sub PIXELS (){ 0} sub DODGEBURN_SHADOWS (){ 2} sub DODGEBURN_MIDTONES (){ 1} sub DODGEBURN_HIGHLIGHTS(){ 0}
sub OFFSET_TRANSPARENT (){ 1} sub OFFSET_BACKGROUND (){ 0} sub FS_DITHER (){ 1} sub NODESTRUCT_DITHER (){ 4} sub NO_DITHER (){ 0}
sub FSLOWBLEED_DITHER (){ 2} sub FIXED_DITHER (){ 3} sub CONSOLE (){ 1} sub ERROR_CONSOLE (){ 2} sub MESSAGE_BOX (){ 0}
sub REPEAT_NONE (){ 0} sub REPEAT_TRIANGULAR (){ 2} sub REPEAT_SAWTOOTH (){ 1} sub INTERSECT (){ 3} sub ADD (){ 0}
sub SUB (){ 1} sub REPLACE (){ 2} sub TEMPORARY (){ 3} sub EXTENSION (){ 2} sub INTERNAL (){ 0}
sub PLUGIN (){ 1} sub BLUR_CONVOLVE (){ 0} sub SHARPEN_CONVOLVE (){ 1} sub CUSTOM_CONVOLVE (){ 2} sub UNKNOWN (){ 2}
sub VERTICAL (){ 1} sub HORIZONTAL (){ 0} sub YELLOW_HUES (){ 2} sub MAGENTA_HUES (){ 6} sub BLUE_HUES (){ 5}
sub GREEN_HUES (){ 3} sub ALL_HUES (){ 0} sub CYAN_HUES (){ 4} sub RED_HUES (){ 1} sub SQUARE (){ 3}
sub CONICAL_SYMMETRIC (){ 4} sub CONICAL_ASYMMETRIC (){ 5} sub BILINEAR (){ 1} sub SPIRAL_ANTICLOCKWISE(){10} sub SHAPEBURST_ANGULAR (){ 6}
sub LINEAR (){ 0} sub SHAPEBURST_SPHERICAL(){ 7} sub RADIAL (){ 2} sub SPIRAL_CLOCKWISE (){ 9} sub SHAPEBURST_DIMPLED (){ 8}
sub VALUE_LUT (){ 0} sub ALPHA_LUT (){ 4} sub BLUE_LUT (){ 3} sub GREEN_LUT (){ 2} sub RED_LUT (){ 1}
sub INDEXED_IMAGE (){ 4} sub INDEXEDA_IMAGE (){ 5} sub GRAY_IMAGE (){ 2} sub RGB_IMAGE (){ 0} sub GRAYA_IMAGE (){ 3}
sub RGBA_IMAGE (){ 1} sub INCREMENTAL (){ 1} sub CONTINUOUS (){ 0} sub TRANS_IMAGE_FILL (){ 3} sub FG_IMAGE_FILL (){ 0}
sub NO_IMAGE_FILL (){ 4} sub BG_IMAGE_FILL (){ 1} sub WHITE_IMAGE_FILL (){ 2} sub BLACK_MASK (){ 1} sub ALPHA_MASK (){ 2}
sub WHITE_MASK (){ 0} sub DISCARD (){ 1} sub APPLY (){ 0} sub BLUE_CHANNEL (){ 2} sub INDEXED_CHANNEL (){ 4}
sub GREEN_CHANNEL (){ 1} sub AUXILLARY_CHANNEL (){ 5} sub GRAY_CHANNEL (){ 3} sub RED_CHANNEL (){ 0} sub PRESSURE (){ 2}
sub SOFT (){ 1} sub HARD (){ 0}
sub PRESSURE (){ 2} sub SOFT (){ 1} sub HARD (){ 0} sub RGBA_IMAGE (){ 1} sub INDEXED_IMAGE (){ 4}
sub GRAYA_IMAGE (){ 3} sub RGB_IMAGE (){ 0} sub INDEXEDA_IMAGE (){ 5} sub GRAY_IMAGE (){ 2} sub CUSTOM (){ 3}
sub FG_BG_HSV (){ 1} sub FG_TRANS (){ 2} sub FG_BG_RGB (){ 0} sub BLUE_CHANNEL (){ 2} sub GREEN_CHANNEL (){ 1}
sub GRAY_CHANNEL (){ 3} sub AUXILLARY_CHANNEL (){ 5} sub INDEXED_CHANNEL (){ 4} sub RED_CHANNEL (){ 0} sub CONTINUOUS (){ 0}
sub INCREMENTAL (){ 1} sub APPLY (){ 0} sub DISCARD (){ 1} sub UNKNOWN (){ 2} sub VERTICAL (){ 1}
sub HORIZONTAL (){ 0} sub DODGEBURN_HIGHLIGHTS(){ 0} sub DODGEBURN_SHADOWS (){ 2} sub DODGEBURN_MIDTONES (){ 1} sub CUBIC_INTERPOLATION (){ 1}
sub LINEAR_INTERPOLATION(){ 0} sub NEAREST_NEIGHBOR_INTERPOLATION(){ 2} sub ALPHA_LUT (){ 4} sub GREEN_LUT (){ 2} sub BLUE_LUT (){ 3}
sub VALUE_LUT (){ 0} sub RED_LUT (){ 1} sub OFFSET_BACKGROUND (){ 0} sub OFFSET_TRANSPARENT (){ 1} sub BG_BUCKET_FILL (){ 1}
sub FG_BUCKET_FILL (){ 0} sub PATTERN_BUCKET_FILL (){ 2} sub FSLOWBLEED_DITHER (){ 2} sub NODESTRUCT_DITHER (){ 4} sub FS_DITHER (){ 1}
sub NO_DITHER (){ 0} sub FIXED_DITHER (){ 3} sub PDB_CANCEL (){ 4} sub PDB_SUCCESS (){ 3} sub PDB_CALLING_ERROR (){ 1}
sub PDB_EXECUTION_ERROR (){ 0} sub PDB_PASS_THROUGH (){ 2} sub WHITE_IMAGE_FILL (){ 2} sub FG_IMAGE_FILL (){ 0} sub TRANS_IMAGE_FILL (){ 3}
sub BG_IMAGE_FILL (){ 1} sub NO_IMAGE_FILL (){ 4} sub LOOP_SAWTOOTH (){ 2} sub ONCE_BACKWARDS (){ 1} sub ONCE_FORWARD (){ 0}
sub ONCE_END_COLOR (){ 4} sub LOOP_TRIANGLE (){ 3} sub MONO_PALETTE (){ 3} sub WEB_PALETTE (){ 2} sub MAKE_PALETTE (){ 0}
sub REUSE_PALETTE (){ 1} sub CUSTOM_PALETTE (){ 4} sub BURN (){ 1} sub DODGE (){ 0} sub CYAN_HUES (){ 4}
sub RED_HUES (){ 1} sub GREEN_HUES (){ 3} sub YELLOW_HUES (){ 2} sub ALL_HUES (){ 0} sub MAGENTA_HUES (){ 6}
sub BLUE_HUES (){ 5} sub POINTS (){ 1} sub PIXELS (){ 0} sub DIVIDE_MODE (){15} sub SUBTRACT_MODE (){ 8}
sub SATURATION_MODE (){12} sub ADDITION_MODE (){ 7} sub SCREEN_MODE (){ 4} sub BEHIND_MODE (){ 2} sub MULTIPLY_MODE (){ 3}
sub DARKEN_ONLY_MODE (){ 9} sub DIFFERENCE_MODE (){ 6} sub DISSOLVE_MODE (){ 1} sub VALUE_MODE (){14} sub LIGHTEN_ONLY_MODE (){10}
sub COLOR_MODE (){13} sub NORMAL_MODE (){ 0} sub HUE_MODE (){11} sub OVERLAY_MODE (){ 5} sub NEGATIVE_CONVOL (){ 2}
sub NORMAL_CONVOL (){ 0} sub ABSOLUTE_CONVOL (){ 1} sub BLUR_CONVOLVE (){ 0} sub CUSTOM_CONVOLVE (){ 2} sub SHARPEN_CONVOLVE (){ 1}
sub REPLACE (){ 2} sub SUB (){ 1} sub ADD (){ 0} sub INTERSECT (){ 3} sub SHADOWS (){ 0}
sub MIDTONES (){ 1} sub HIGHLIGHTS (){ 2} sub IMAGE_CLONE (){ 0} sub PATTERN_CLONE (){ 1} sub INDEXED (){ 2}
sub RGB (){ 0} sub GRAY (){ 1} sub BLACK_MASK (){ 1} sub WHITE_MASK (){ 0} sub ALPHA_MASK (){ 2}
sub BILINEAR (){ 1} sub SPIRAL_CLOCKWISE (){ 9} sub SQUARE (){ 3} sub RADIAL (){ 2} sub CONICAL_SYMMETRIC (){ 4}
sub SHAPEBURST_DIMPLED (){ 8} sub CONICAL_ASYMMETRIC (){ 5} sub LINEAR (){ 0} sub SPIRAL_ANTICLOCKWISE(){10} sub SHAPEBURST_ANGULAR (){ 6}
sub SHAPEBURST_SPHERICAL(){ 7} sub PLUGIN (){ 1} sub EXTENSION (){ 2} sub TEMPORARY (){ 3} sub INTERNAL (){ 0}
sub MESSAGE_BOX (){ 0} sub ERROR_CONSOLE (){ 2} sub CONSOLE (){ 1} sub STACK_TRACE_ALWAYS (){ 2} sub STACK_TRACE_QUERY (){ 1}
sub STACK_TRACE_NEVER (){ 0} sub EXPAND_AS_NECESSARY (){ 0} sub CLIP_TO_BOTTOM_LAYER(){ 2} sub CLIP_TO_IMAGE (){ 1} sub FLATTEN_IMAGE (){ 3}
sub RUN_INTERACTIVE (){bless \(my $x=0),'Gimp::run_mode'} sub RUN_WITH_LAST_VALS (){bless \(my $x=2),'Gimp::run_mode'} sub RUN_NONINTERACTIVE (){bless \(my $x=1),'Gimp::run_mode'} sub REPEAT_NONE (){ 0} sub REPEAT_SAWTOOTH (){ 1}
sub REPEAT_TRIANGULAR (){ 2}
#ENUM_DEFS#
sub WRAP (){ 0 }
......@@ -567,10 +564,10 @@ _pseudoclass qw(Gradients gimp_gradients_);
_pseudoclass qw(Edit gimp_edit_);
_pseudoclass qw(Progress gimp_progress_);
_pseudoclass qw(Region );
_pseudoclass qw(Parasite );
_pseudoclass qw(GimpParasite );
# "C"-Classes
_pseudoclass qw(GDrawable gimp_gdrawable_ gimp_drawable_);
_pseudoclass qw(GimpDrawable gimp_drawable_);
_pseudoclass qw(PixelRgn gimp_pixel_rgn_);
_pseudoclass qw(Tile gimp_tile_);
......@@ -594,7 +591,7 @@ sub new($$$$$$$$) {
init Gimp::PixelRgn(@_);
}
package Gimp::Parasite;
package Gimp::GimpParasite;
sub is_type($$) { $_[0]->[0] eq $_[1] }
sub is_persistent($) { $_[0]->[1] & &Gimp::PARASITE_PERSISTENT }
......@@ -668,11 +665,11 @@ This will overwrite your AUTOLOAD function, if you have one!
=item :param
Import PARAM_* constants (PARAM_INT32, PARAM_STRING etc.) only.
Import PARAM_* constants (PDB_INT32, PDB_STRING etc.) only.
=item :consts
All constants from gimpenums.h (BG_IMAGE_FILL, RUN_NONINTERACTIVE, NORMAL_MODE, PARAM_INT32 etc.).
All constants from gimpenums.h (BG_IMAGE_FILL, RUN_NONINTERACTIVE, NORMAL_MODE, PDB_INT32 etc.).
=item spawn_options=I<options>
......@@ -979,7 +976,7 @@ at runtime.
These functions return what you would expect: an array of images, layers or
channels. The reason why this is documented is that the usual way to return
C<PARAM_INT32ARRAY>'s would be to return a B<reference> to an B<array of
C<PDB_INT32ARRAY>'s would be to return a B<reference> to an B<array of
integers>, rather than blessed objects.
=item gimp_drawable_bounds drawable/gdrawable
......
......@@ -97,52 +97,43 @@ BOOT:
{
HV *stash = gv_stashpvn("Gimp", 4, TRUE);
newCONSTSUB(stash,"PARAM_BOUNDARY",newSViv(PARAM_BOUNDARY));
newCONSTSUB(stash,"PARAM_CHANNEL",newSViv(PARAM_CHANNEL));
newCONSTSUB(stash,"PARAM_COLOR",newSViv(PARAM_COLOR));
newCONSTSUB(stash,"PARAM_DISPLAY",newSViv(PARAM_DISPLAY));
newCONSTSUB(stash,"PARAM_DRAWABLE",newSViv(PARAM_DRAWABLE));
newCONSTSUB(stash,"PARAM_END",newSViv(PARAM_END));
newCONSTSUB(stash,"PARAM_FLOAT",newSViv(PARAM_FLOAT));
newCONSTSUB(stash,"PARAM_FLOATARRAY",newSViv(PARAM_FLOATARRAY));
newCONSTSUB(stash,"PARAM_IMAGE",newSViv(PARAM_IMAGE));
newCONSTSUB(stash,"PARAM_INT16",newSViv(PARAM_INT16));
newCONSTSUB(stash,"PARAM_INT16ARRAY",newSViv(PARAM_INT16ARRAY));
newCONSTSUB(stash,"PARAM_INT32",newSViv(PARAM_INT32));
newCONSTSUB(stash,"PARAM_INT32ARRAY",newSViv(PARAM_INT32ARRAY));
newCONSTSUB(stash,"PARAM_INT8",newSViv(PARAM_INT8));
newCONSTSUB(stash,"PARAM_INT8ARRAY",newSViv(PARAM_INT8ARRAY));
newCONSTSUB(stash,"PARAM_LAYER",newSViv(PARAM_LAYER));
newCONSTSUB(stash,"PARAM_PATH",newSViv(PARAM_PATH));
newCONSTSUB(stash,"PARAM_REGION",newSViv(PARAM_REGION));
newCONSTSUB(stash,"PARAM_SELECTION",newSViv(PARAM_SELECTION));
newCONSTSUB(stash,"PARAM_STATUS",newSViv(PARAM_STATUS));
newCONSTSUB(stash,"PARAM_STRING",newSViv(PARAM_STRING));
newCONSTSUB(stash,"PARAM_STRINGARRAY",newSViv(PARAM_STRINGARRAY));
newCONSTSUB(stash,"PDB_BOUNDARY",newSViv(GIMP_PDB_BOUNDARY));
newCONSTSUB(stash,"PDB_CHANNEL",newSViv(GIMP_PDB_CHANNEL));
newCONSTSUB(stash,"PDB_COLOR",newSViv(GIMP_PDB_COLOR));
newCONSTSUB(stash,"PDB_DISPLAY",newSViv(GIMP_PDB_DISPLAY));
newCONSTSUB(stash,"PDB_DRAWABLE",newSViv(GIMP_PDB_DRAWABLE));
newCONSTSUB(stash,"PDB_END",newSViv(GIMP_PDB_END));
newCONSTSUB(stash,"PDB_FLOAT",newSViv(GIMP_PDB_FLOAT));
newCONSTSUB(stash,"PDB_FLOATARRAY",newSViv(GIMP_PDB_FLOATARRAY));
newCONSTSUB(stash,"PDB_IMAGE",newSViv(GIMP_PDB_IMAGE));
newCONSTSUB(stash,"PDB_INT16",newSViv(GIMP_PDB_INT16));
newCONSTSUB(stash,"PDB_INT16ARRAY",newSViv(GIMP_PDB_INT16ARRAY));
newCONSTSUB(stash,"PDB_INT32",newSViv(GIMP_PDB_INT32));
newCONSTSUB(stash,"PDB_INT32ARRAY",newSViv(GIMP_PDB_INT32ARRAY));
newCONSTSUB(stash,"PDB_INT8",newSViv(GIMP_PDB_INT8));
newCONSTSUB(stash,"PDB_INT8ARRAY",newSViv(GIMP_PDB_INT8ARRAY));
newCONSTSUB(stash,"PDB_LAYER",newSViv(GIMP_PDB_LAYER));
newCONSTSUB(stash,"PDB_PATH",newSViv(GIMP_PDB_PATH));
newCONSTSUB(stash,"PDB_REGION",newSViv(GIMP_PDB_REGION));
newCONSTSUB(stash,"PDB_SELECTION",newSViv(GIMP_PDB_SELECTION));
newCONSTSUB(stash,"PDB_STATUS",newSViv(GIMP_PDB_STATUS));
newCONSTSUB(stash,"PDB_STRING",newSViv(GIMP_PDB_STRING));
newCONSTSUB(stash,"PDB_STRINGARRAY",newSViv(GIMP_PDB_STRINGARRAY));
#if GIMP_PARASITE
newCONSTSUB(stash,"PARAM_PARASITE",newSViv(PARAM_PARASITE));
newCONSTSUB(stash,"PDB_PARASITE",newSViv(GIMP_PDB_PARASITE));
newCONSTSUB(stash,"PARASITE_PERSISTENT",newSViv(PARASITE_PERSISTENT));
newCONSTSUB(stash,"PARASITE_UNDOABLE",newSViv(PARASITE_UNDOABLE));
newCONSTSUB(stash,"PARASITE_PERSISTENT",newSViv(GIMP_PARASITE_PERSISTENT));
newCONSTSUB(stash,"PARASITE_UNDOABLE",newSViv(GIMP_PARASITE_UNDOABLE));
newCONSTSUB(stash,"PARASITE_ATTACH_PARENT",newSViv(PARASITE_ATTACH_PARENT));
newCONSTSUB(stash,"PARASITE_PARENT_PERSISTENT",newSViv(PARASITE_PARENT_PERSISTENT));
newCONSTSUB(stash,"PARASITE_PARENT_UNDOABLE",newSViv(PARASITE_PARENT_UNDOABLE));
newCONSTSUB(stash,"PARASITE_ATTACH_PARENT",newSViv(GIMP_PARASITE_ATTACH_PARENT));
newCONSTSUB(stash,"PARASITE_PARENT_PERSISTENT",newSViv(GIMP_PARASITE_PARENT_PERSISTENT));
newCONSTSUB(stash,"PARASITE_PARENT_UNDOABLE",newSViv(GIMP_PARASITE_PARENT_UNDOABLE));
newCONSTSUB(stash,"PARASITE_ATTACH_GRANDPARENT",newSViv(PARASITE_ATTACH_GRANDPARENT));
newCONSTSUB(stash,"PARASITE_GRANDPARENT_PERSISTENT",newSViv(PARASITE_GRANDPARENT_PERSISTENT));
newCONSTSUB(stash,"PARASITE_GRANDPARENT_UNDOABLE",newSViv(PARASITE_GRANDPARENT_UNDOABLE));
newCONSTSUB(stash,"PARASITE_ATTACH_GRANDPARENT",newSViv(GIMP_PARASITE_ATTACH_GRANDPARENT));
newCONSTSUB(stash,"PARASITE_GRANDPARENT_PERSISTENT",newSViv(GIMP_PARASITE_GRANDPARENT_PERSISTENT));
newCONSTSUB(stash,"PARASITE_GRANDPARENT_UNDOABLE",newSViv(GIMP_PARASITE_GRANDPARENT_UNDOABLE));
#endif
newCONSTSUB(stash,"PROC_EXTENSION",newSViv(PROC_EXTENSION));
newCONSTSUB(stash,"PROC_PLUG_IN",newSViv(PROC_PLUG_IN));
newCONSTSUB(stash,"PROC_TEMPORARY",newSViv(PROC_TEMPORARY));
newCONSTSUB(stash,"STATUS_CALLING_ERROR",newSViv(STATUS_CALLING_ERROR));
newCONSTSUB(stash,"STATUS_EXECUTION_ERROR",newSViv(STATUS_EXECUTION_ERROR));
newCONSTSUB(stash,"STATUS_PASS_THROUGH",newSViv(STATUS_PASS_THROUGH));
newCONSTSUB(stash,"STATUS_SUCCESS",newSViv(STATUS_SUCCESS));
newCONSTSUB(stash,"TRACE_NONE",newSViv(TRACE_NONE));
newCONSTSUB(stash,"TRACE_CALL",newSViv(TRACE_CALL));
newCONSTSUB(stash,"TRACE_TYPE",newSViv(TRACE_TYPE));
......@@ -151,20 +142,20 @@ BOOT:
newCONSTSUB(stash,"TRACE_ALL" ,newSViv(TRACE_ALL ));
/**/
#if HAVE_DIVIDE_MODE || IN_GIMP
/*newCONSTSUB(stash,"DIVIDE_MODE",newSViv(DIVIDE_MODE));*/
/*newCONSTSUB(stash,"GIMP_DIVIDE_MODE",newSViv(GIMP_DIVIDE_MODE));*/
#endif
#ifdef GIMP_HAVE_EXPORT
newCONSTSUB(stash,"CAN_HANDLE_RGB", newSViv(CAN_HANDLE_RGB));
newCONSTSUB(stash,"CAN_HANDLE_GRAY", newSViv(CAN_HANDLE_GRAY));
newCONSTSUB(stash,"CAN_HANDLE_INDEXED", newSViv(CAN_HANDLE_INDEXED));
newCONSTSUB(stash,"CAN_HANDLE_ALPHA", newSViv(CAN_HANDLE_ALPHA));
newCONSTSUB(stash,"CAN_HANDLE_LAYERS", newSViv(CAN_HANDLE_LAYERS));
newCONSTSUB(stash,"CAN_HANDLE_LAYERS_AS_ANIMATION", newSViv(CAN_HANDLE_LAYERS_AS_ANIMATION));
newCONSTSUB(stash,"NEEDS_ALPHA", newSViv(NEEDS_ALPHA));
newCONSTSUB(stash,"EXPORT_CANCEL", newSViv(EXPORT_CANCEL));
newCONSTSUB(stash,"EXPORT_IGNORE", newSViv(EXPORT_CANCEL));
newCONSTSUB(stash,"EXPORT_EXPORT", newSViv(EXPORT_EXPORT));
newCONSTSUB(stash,"EXPORT_CAN_HANDLE_RGB", newSViv(GIMP_EXPORT_CAN_HANDLE_RGB));
newCONSTSUB(stash,"EXPORT_CAN_HANDLE_GRAY", newSViv(GIMP_EXPORT_CAN_HANDLE_GRAY));
newCONSTSUB(stash,"EXPORT_CAN_HANDLE_INDEXED", newSViv(GIMP_EXPORT_CAN_HANDLE_INDEXED));
newCONSTSUB(stash,"EXPORT_CAN_HANDLE_ALPHA ", newSViv(GIMP_EXPORT_CAN_HANDLE_ALPHA ));
newCONSTSUB(stash,"EXPORT_CAN_HANDLE_LAYERS", newSViv(GIMP_EXPORT_CAN_HANDLE_LAYERS));
newCONSTSUB(stash,"EXPORT_CAN_HANDLE_LAYERS_AS_ANIMATION", newSViv(GIMP_EXPORT_CAN_HANDLE_LAYERS_AS_ANIMATION));
newCONSTSUB(stash,"EXPORT_NEEDS_ALPHA", newSViv(GIMP_EXPORT_NEEDS_ALPHA));
newCONSTSUB(stash,"EXPORT_CANCEL", newSViv(GIMP_EXPORT_CANCEL));
newCONSTSUB(stash,"EXPORT_IGNORE", newSViv(GIMP_EXPORT_CANCEL));
newCONSTSUB(stash,"EXPORT_EXPORT", newSViv(GIMP_EXPORT_EXPORT));
#endif
}
......
......@@ -43,7 +43,7 @@ Gimp-Perl extension (contact him to include new functions) is Marc Lehmann
package Gimp::Compat;
$VERSION=1.2;
$VERSION=1.201;
use Gimp ('croak', '__');
......
......@@ -49,30 +49,30 @@ starting point for your experiments)
=cut
sub PF_INT8 () { Gimp::PARAM_INT8 };
sub PF_INT16 () { Gimp::PARAM_INT16 };
sub PF_INT32 () { Gimp::PARAM_INT32 };
sub PF_FLOAT () { Gimp::PARAM_FLOAT };
sub PF_STRING () { Gimp::PARAM_STRING };
sub PF_COLOR () { Gimp::PARAM_COLOR };
sub PF_COLOUR () { Gimp::PARAM_COLOR };
sub PF_IMAGE () { Gimp::PARAM_IMAGE };
sub PF_LAYER () { Gimp::PARAM_LAYER };
sub PF_CHANNEL () { Gimp::PARAM_CHANNEL};
sub PF_DRAWABLE () { Gimp::PARAM_DRAWABLE};
sub PF_TOGGLE () { Gimp::PARAM_END+1 };
sub PF_SLIDER () { Gimp::PARAM_END+2 };
sub PF_FONT () { Gimp::PARAM_END+3 };
sub PF_SPINNER () { Gimp::PARAM_END+4 };
sub PF_ADJUSTMENT(){ Gimp::PARAM_END+5 }; # compatibility fix for script-fu _ONLY_
sub PF_BRUSH () { Gimp::PARAM_END+6 };
sub PF_PATTERN () { Gimp::PARAM_END+7 };
sub PF_GRADIENT () { Gimp::PARAM_END+8 };
sub PF_RADIO () { Gimp::PARAM_END+9 };
sub PF_CUSTOM () { Gimp::PARAM_END+10 };
sub PF_FILE () { Gimp::PARAM_END+11 };
sub PF_TEXT () { Gimp::PARAM_END+12 };
sub PF_INT8 () { Gimp::PDB_INT8 };
sub PF_INT16 () { Gimp::PDB_INT16 };
sub PF_INT32 () { Gimp::PDB_INT32 };
sub PF_FLOAT () { Gimp::PDB_FLOAT };
sub PF_STRING () { Gimp::PDB_STRING };
sub PF_COLOR () { Gimp::PDB_COLOR };
sub PF_COLOUR () { Gimp::PDB_COLOR };
sub PF_IMAGE () { Gimp::PDB_IMAGE };
sub PF_LAYER () { Gimp::PDB_LAYER };
sub PF_CHANNEL () { Gimp::PDB_CHANNEL };
sub PF_DRAWABLE () { Gimp::PDB_DRAWABLE };
sub PF_TOGGLE () { Gimp::PDB_END+1 };
sub PF_SLIDER () { Gimp::PDB_END+2 };
sub PF_FONT () { Gimp::PDB_END+3 };
sub PF_SPINNER () { Gimp::PDB_END+4 };
sub PF_ADJUSTMENT(){ Gimp::PDB_END+5 }; # compatibility fix for script-fu _ONLY_
sub PF_BRUSH () { Gimp::PDB_END+6 };
sub PF_PATTERN () { Gimp::PDB_END+7 };
sub PF_GRADIENT () { Gimp::PDB_END+8 };
sub PF_RADIO () { Gimp::PDB_END+9 };
sub PF_CUSTOM () { Gimp::PDB_END+10 };
sub PF_FILE () { Gimp::PDB_END+11 };
sub PF_TEXT () { Gimp::PDB_END+12 };
sub PF_BOOL () { PF_TOGGLE };
sub PF_INT () { PF_INT32 };
......@@ -133,17 +133,17 @@ sub carp {
}
# Some Standard Arguments
my @image_params = ([&Gimp::PARAM_IMAGE , "image", "The image to work on"],
[&Gimp::PARAM_DRAWABLE , "drawable", "The drawable to work on"]);
my @image_params = ([&Gimp::PDB_IMAGE , "image", "The image to work on"],
[&Gimp::PDB_DRAWABLE , "drawable", "The drawable to work on"]);
my @load_params = ([&Gimp::PARAM_STRING , "filename", "The name of the file"],
[&Gimp::PARAM_STRING , "raw_filename","The name of the file"]);
my @load_params = ([&Gimp::PDB_STRING , "filename", "The name of the file"],
[&Gimp::PDB_STRING , "raw_filename","The name of the file"]);
my @save_params = (@image_params, @load_params);
my @load_retvals = ([&Gimp::PARAM_IMAGE , "image", "Output image"]);
my @load_retvals = ([&Gimp::PDB_IMAGE , "image", "Output image"]);
my $image_retval = [&Gimp::PARAM_IMAGE , "image", "The resulting image"];
my $image_retval = [&Gimp::PDB_IMAGE , "image", "The resulting image"];
# expand all the pod directives in string (currently they are only removed)
sub expand_podsections() {
......@@ -319,7 +319,7 @@ Gimp::on_query {
for (@$results) {
next if ref $_;
if ($_ == &Gimp::PARAM_IMAGE) {
if ($_ == &Gimp::PDB_IMAGE) {
$_ = $image_retval;
}
}
......@@ -331,24 +331,24 @@ Gimp::on_query {
# guess the datatype. yeah!
sub datatype(@) {
for(@_) {
return Gimp::PARAM_STRING unless /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/; # perlfaq4
return Gimp::PARAM_FLOAT unless /^[+-]?\d+$/; # again
return Gimp::PDB_STRING unless /^([+-]?)(?=\d|\.\d)\d*(\.\d*)?([Ee]([+-]?\d+))?$/; # perlfaq4
return Gimp::PDB_FLOAT unless /^[+-]?\d+$/; # again
}
return Gimp::PARAM_INT32;
return Gimp::PDB_INT32;
}
sub odd_values(@) {
my %x = @_; values %x;
}
for(@$params) {
$_->[0]=Gimp::PARAM_INT32 if $_->[0] == PF_TOGGLE;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_FONT;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_BRUSH;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_PATTERN;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_GRADIENT;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_CUSTOM;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_FILE;
$_->[0]=Gimp::PARAM_STRING if $_->[0] == PF_TEXT;
$_->[0]=Gimp::PDB_INT32 if $_->[0] == PF_TOGGLE;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_FONT;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_BRUSH;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_PATTERN;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_GRADIENT;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_CUSTOM;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_FILE;
$_->[0]=Gimp::PDB_STRING if $_->[0] == PF_TEXT;
$_->[0]=datatype(odd_values(@{$_->[4]})) if $_->[0] == PF_RADIO;
$_->[0]=datatype($_->[3],@{$_->[4]}) if $_->[0] == PF_SLIDER;
$_->[0]=datatype($_->[3],@{$_->[4]}) if $_->[0] == PF_SPINNER;
......@@ -363,7 +363,7 @@ Gimp::on_query {
Gimp->gimp_install_procedure($function,$blurb,$help,$author,$copyright,$date,
$menupath,$imagetypes,$type,
[[Gimp::PARAM_INT32,"run_mode","Interactive, [non-interactive]"],
[[Gimp::PDB_INT32,"run_mode","Interactive, [non-interactive]"],
@$params],
$results);
......@@ -627,23 +627,23 @@ sub register($$$$$$$$$;@) {
for($menupath) {
if (/^<Image>\//) {
$type = &Gimp::PROC_PLUG_IN;
$type = &Gimp::PLUGIN;
unshift @$params, @image_params;
$defargs = @image_params;
} elsif (/^<Load>\//) {
$type = &Gimp::PROC_PLUG_IN;
$type = &Gimp::PLUGIN;
unshift @$params, @load_params;
unshift @$results, @load_retvals;
$defargs = @load_params;
} elsif (/^<Save>\//) {
$type = &Gimp::PROC_PLUG_IN;
$type = &Gimp::PLUGIN;
unshift @$params, @save_params;
$defargs = @save_params;
} elsif (/^<Toolbox>\//) {
$type = &Gimp::PROC_EXTENSION;
$type = &Gimp::EXTENSION;
$defargs = 0;
} elsif (/^<None>/) {
$type = &Gimp::PROC_EXTENSION;
$type = &Gimp::EXTENSION;
$defargs = 0;
} else {
die __"menupath _must_ start with <Image>, <Toolbox>, <Load>, <Save> or <None>!";
......
......@@ -4,7 +4,7 @@ use strict;
use vars qw($VERSION @ISA);
BEGIN {
$VERSION = 1.2;
$VERSION = 1.201;
eval {
require XSLoader;
XSLoader::load Gimp::Lib $VERSION;
......@@ -43,15 +43,15 @@ sub import {}
# does not work.
sub gimp_image_list {
map _autobless($_,&Gimp::PARAM_IMAGE),gimp_call_procedure "gimp_image_list";
map _autobless($_,&Gimp::GIMP_PDB_IMAGE),gimp_call_procedure "gimp_image_list";
}
sub gimp_image_get_layers {
map _autobless($_,&Gimp::PARAM_LAYER),gimp_call_procedure "gimp_image_get_layers",@_;
map _autobless($_,&Gimp::GIMP_PDB_LAYER),gimp_call_procedure "gimp_image_get_layers",@_;
}
sub gimp_image_get_channels {
map _autobless($_,&Gimp::PARAM_CHANNEL),gimp_call_procedure "gimp_image_get_channels",@_;
map _autobless($_,&Gimp::GIMP_PDB_CHANNEL),gimp_call_procedure "gimp_image_get_channels",@_;
}
# "server-side" perl code evaluation
......
This diff is collapsed.
......@@ -19,7 +19,7 @@ package Gimp::Module;
use base qw(DynaLoader);
require DynaLoader;
$VERSION=1.2;
$VERSION=1.201;
bootstrap Gimp::Module;
......
......@@ -11,7 +11,7 @@ plug-in. If you bug me enough I'll rewrite this document.
use Gimp;
use PDL; # to make sensible things with the pixels
# Gimp::GDrawable - The GDrawable structure
# Gimp::GimpDrawable - The GimpDrawable structure
# Gimp::Tile - The Tile family of functions.
# Gimp::PixelRgn - The PixelRgn family of functions.
......@@ -19,7 +19,7 @@ plug-in. If you bug me enough I'll rewrite this document.
You can access the pixels in a drawable through tiles or pixel
regions. This manpage explains how this is done in perl. All classes
(Gimp::GDrawable, C<Gimp::Tile>, C<Gimp::PixelRgn>) are available with and
(Gimp::GimpDrawable, C<Gimp::Tile>, C<Gimp::PixelRgn>) are available with and