From 6db3c6d801ff4a269d30c2c31356a1dcee6c5639 Mon Sep 17 00:00:00 2001
From: Marc Lehmann <pcg@src.gnome.org>
Date: Wed, 14 Jul 1999 21:07:47 +0000
Subject: [PATCH] see plug-ins/perl/Changes

---
 plug-ins/perl/Changes               |  2 ++
 plug-ins/perl/Gimp/Fu.pm            | 12 +++++++++---
 plug-ins/perl/examples/frame_filter |  2 +-
 3 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/plug-ins/perl/Changes b/plug-ins/perl/Changes
index 44083c63c8..bb74ada3d7 100644
--- a/plug-ins/perl/Changes
+++ b/plug-ins/perl/Changes
@@ -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.
diff --git a/plug-ins/perl/Gimp/Fu.pm b/plug-ins/perl/Gimp/Fu.pm
index 5c59d97987..a4daddb9af 100644
--- a/plug-ins/perl/Gimp/Fu.pm
+++ b/plug-ins/perl/Gimp/Fu.pm
@@ -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;
            });
 
diff --git a/plug-ins/perl/examples/frame_filter b/plug-ins/perl/examples/frame_filter
index 3a1af8b037..c9fdc8b419 100755
--- a/plug-ins/perl/examples/frame_filter
+++ b/plug-ins/perl/examples/frame_filter
@@ -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",