dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 1999-07-14 21:07:47 +00:00
parent fe1cc678c1
commit 6db3c6d801
3 changed files with 12 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
plug-ins/perl/Changes
View File

@ -1,5 +1,6 @@
Revision history for Gimp-Perl extension.
1.097 Wed Jul 14 22:55:24 CEST 1999
- updated perlotine.
- updated pixelmap with stub documentation.
- redim_pdl calls affine_new directly rather than via the
@ -8,6 +9,7 @@ Revision history for Gimp-Perl extension.
trust it will work elsewhere.
- improved yinyang for the perl calendar ;)
- added perl_fu_ as prefix for Image, Drawables and Channels.
- fixed Load/Save of PF_TEXT.
1.096 Thu Jul 8 21:36:36 CEST 1999
- fix around PDL-2.002 exporting its own ppport.h.

12
plug-ins/perl/Gimp/Fu.pm
View File

@ -499,7 +499,10 @@ sub interact($$$$@) {
my $editor = $ENV{EDITOR} || "vi";
my $tmp = Gimp->temp_name("txt");
open TMP,">$tmp" or die "FATAL: unable to create $tmp: $!\n"; print TMP &$gv; close TMP;
$w->hide;
main_iteration Gtk;
system ('xterm','-T',"$editor: $name",'-e',$editor,$tmp);
$w->show;
if (open TMP,"<$tmp") {
local $/; &$sv(scalar<TMP>); close TMP;
} else {
@ -509,7 +512,7 @@ sub interact($$$$@) {
my $filename = ($e{prefix} || eval { Gimp->directory } || ".") . "/";
my $f = new Gtk::FileSelection "FilexSelector for $name";
my $f = new Gtk::FileSelection "Fileselector for $name";
$f->set_filename($filename);
$f->cancel_button->signal_connect (clicked => sub { $f->hide });
my $lf =sub {
@ -532,14 +535,17 @@ sub interact($$$$@) {
Gimp->message("unable to create '$fn': $!");
}
};
my $lshandle;
$load->signal_connect (clicked => sub {
$f->set_title("Load $name");
$f->ok_button->signal_connect (clicked => $lf);
$f->ok_button->signal_disconnect($lshandle) if $lshandle;
$lshandle=$f->ok_button->signal_connect (clicked => $lf);
$f->show_all;
});
$save->signal_connect (clicked => sub {
$f->set_title("Save $name");
$f->ok_button->signal_connect (clicked => $sf);
$f->ok_button->signal_disconnect($lshandle) if $lshandle;
$lshandle=$f->ok_button->signal_connect (clicked => $sf);
$f->show_all;
});

2
plug-ins/perl/examples/frame_filter
View File

@ -9,7 +9,7 @@ register "layer_apply",
"Marc Lehmann <pcg\@goof.com>",
"Marc Lehmann <pcg\@goof.com>",
"19990708",
"<Image>/Filters/Animation/Apply Expression",
"<Image>/Filters/Animation/Apply Perl Expression",
"*",
[
[PF_TEXT, "expr", "the perl expression to run for each layer",