Commit 6db3c6d8 authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent fe1cc678
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.
......
......@@ -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;
});
......
......@@ -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",
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment