diff --git a/plug-ins/perl/Gimp/Feature.pm b/plug-ins/perl/Gimp/Feature.pm index 4122876a5c..cb43e9ffef 100644 --- a/plug-ins/perl/Gimp/Feature.pm +++ b/plug-ins/perl/Gimp/Feature.pm @@ -160,6 +160,11 @@ checks for the presence of the Gnome-Perl module. checks for the presence of the Gtk::XmHTML module. +=item C + +checks wether the script runs on a unix-like operating system. At the +moment, this is every system except windows, macos, os2 and vms. + =back The following features can only be checked B Cmain> has been diff --git a/plug-ins/perl/Makefile.PL b/plug-ins/perl/Makefile.PL index aa5aeb00d6..98e8638f3a 100644 --- a/plug-ins/perl/Makefile.PL +++ b/plug-ins/perl/Makefile.PL @@ -9,7 +9,7 @@ $|=1; qw(windy.pl prep4gif.pl webify.pl PDB alpha2color.pl tex-to-float ditherize.pl border.pl view3d.pl feedback.pl xachlego.pl xachshadow.pl parasite-editor scratches.pl blowinout.pl terral_text xachvision.pl gimpmagick perlcc - sethspin.pl animate_cells image_tile yinyang stamps font_map + sethspin.pl animate_cells image_tile yinyang stamps font_table ); @shebang = (map("examples/$_",@examples), qw(Perl-Server examples/example-net.pl examples/homepage-logo.pl diff --git a/plug-ins/perl/examples/parasite-editor b/plug-ins/perl/examples/parasite-editor index a4161a3380..46967b1185 100755 --- a/plug-ins/perl/examples/parasite-editor +++ b/plug-ins/perl/examples/parasite-editor @@ -11,6 +11,8 @@ Gtk->init; $gtk_10 = Gtk->major_version==1 && Gtk->minor_version==0; +$VERSION=0.2; + #Gimp::set_trace(TRACE_ALL); my $window; # the main window @@ -80,7 +82,7 @@ sub create_main { $window = $w; $w->set_usize (500,220); - $w->set_title('Parasite Editor'); + $w->set_title("Parasite Editor - version $VERSION alpha"); $w->signal_connect("destroy",sub {main_quit Gtk}); $b = new Gtk::Button "Close"; @@ -182,7 +184,7 @@ register "extension_parasite_editor", "This plug-in can be used to view (and in a future version edit) existing parasites", "Marc Lehmann", "Marc Lehmann", - "0.1.1", + $VERSION, "/Xtns/Parasite Editor", "", [],