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

see plug-ins/perl/Changes

Browse Source
This commit is contained in:
Marc Lehmann
1999-03-15 00:38:16 +00:00
parent e6396833f1
commit d07ad24dca
5 changed files with 57 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
plug-ins/perl/Gimp/Lib.pm
View File

@ -39,6 +39,7 @@ bootstrap Gimp::Lib $VERSION;
sub gimp_progress_init {
push @_,-1 if @_<2;
print "proggress_init yeah @_\n";
eval { gimp_call_procedure "gimp_progress_init",@_ };
gimp_call_procedure "gimp_progress_init",shift if $@;
}
@ -80,6 +81,13 @@ sub gimp_tile_bpp { $_[0]->{_bpp} }
sub gimp_tile_shadow { $_[0]->{_shadow} }
sub gimp_tile_gdrawable { $_[0]->{_gdrawable} }
# "server-side" perl code evaluation
sub server_eval {
my @res = eval shift;
die $@ if $@;
@res;
}
# be careful not to require AUTOLOAD here
sub Gimp::PixelRgn::DESTROY {
my $self = shift;