graphics/gimp
graphics/gimp
1
0
Fork 0
mirror of https://gitlab.gnome.org/GNOME/gimp synced 2024-10-20 19:43:01 +00:00
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse source
This commit is contained in:
Marc Lehmann 1999-08-19 20:31:37 +00:00
parent 311c83b0a4
commit a86617d581
4 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
plug-ins/perl/Changes
View file

@ -1,9 +1,9 @@
Revision history for Gimp-Perl extension. Revision history for Gimp-Perl extension.
1.11 Tue Aug 3 03:23:23 CEST 1999 1.11 Tue Aug 3 03:23:23 CEST 1999
NOTYET - EXPERIMENTALLY re-enabled the return path from main. It works - EXPERIMENTALLY re-enabled the return path from main. It works
NOTYET with perl 5.005_58, but I remember problems with other versions. with perl 5.005_60, but I remember problems with other versions.
NOTYET This re-enables END handlers etc. This re-enables END handlers etc.
- updated seths scripts, added remove_guides... - updated seths scripts, added remove_guides...
- examples/glowing_steel was missing from the MANIFEST!! - examples/glowing_steel was missing from the MANIFEST!!
- data types for RADIO, SPINNER etc.. are guessed better now. - data types for RADIO, SPINNER etc.. are guessed better now.

5
plug-ins/perl/Gimp.pm
View file

@ -401,10 +401,7 @@ sub on_net (&) { register_callback "net" , $_[0] }
sub main { sub main {
$caller=caller; $caller=caller;
#d# #D# # BIG BUG LURKING SOMEWHERE &{"$interface_pkg\::gimp_main"};
# just calling exit() will be too much for bigexitbug.pl
#&{"$interface_pkg\::gimp_main"};
xs_exit(&{"$interface_pkg\::gimp_main"});
} }
# same as main, but callbacks are ignored # same as main, but callbacks are ignored

4
plug-ins/perl/Gimp/Fu.pm
View file

@ -855,7 +855,7 @@ sub print_switches {
} }
sub main { sub main {
$old_trace = Gimp::set_trace (0);#d# $old_trace = Gimp::set_trace (0);
if ($Gimp::help) { if ($Gimp::help) {
my $this=this_script; my $this=this_script;
print <<EOF; print <<EOF;
@ -868,7 +868,7 @@ EOF
} else { } else {
Gimp::main; Gimp::main;
} }
}; }
1; 1;
__END__ __END__

2
plug-ins/perl/Makefile.PL
View file

@ -12,7 +12,7 @@ $|=1;
perlotine randomblends innerbevel fit-text guidegrid roundrectsel perlotine randomblends innerbevel fit-text guidegrid roundrectsel
repdup centerguide stampify goldenmean triangle billboard mirrorsplit repdup centerguide stampify goldenmean triangle billboard mirrorsplit
oneliners randomart1 pixelmap glowing_steel frame_reshuffle frame_filter oneliners randomart1 pixelmap glowing_steel frame_reshuffle frame_filter
logulator miff magick guide_remove guides_to_selection burst map_to_gradient logulator miff gimpmagick guide_remove guides_to_selection burst map_to_gradient
fire povray fire povray
); );
@shebang = (map("examples/$_",@examples), @shebang = (map("examples/$_",@examples),