[gimp-perl] Finish Gtk2::FileChooserDialog changeover.

[Ed J <edj src gnome org>]

commit 31c8621e7a93e0492f379f1d264e97fabdb5beac
Author: Ed J <edj src gnome org>
Date:   Thu May 8 05:20:30 2014 +0100

    Finish Gtk2::FileChooserDialog changeover.

 UI/UI.pm |   41 +++++++++++++++++++++++++----------------
 1 files changed, 25 insertions(+), 16 deletions(-)
---
diff --git a/UI/UI.pm b/UI/UI.pm
index 3a561a4..0ced28e 100644
--- a/UI/UI.pm
+++ b/UI/UI.pm
@@ -398,10 +398,17 @@ my %PF2INFO = (
     $a->add ($s);
     my $b = new Gtk2::Button __"Browse";
     $a->add ($b);
-    my $f = new Gtk2::FileSelection $desc;
-    $b->signal_connect(clicked => sub { $f->set_filename ($s->get_text); $f->show_all });
-    $f->ok_button->signal_connect(clicked => sub { $f->hide; $s->set_text($f->get_filename) });
-    $f->cancel_button->signal_connect(clicked => sub { $f->hide });
+    $b->signal_connect(clicked => sub {
+      my $f = new Gtk2::FileChooserDialog
+       sprintf(__"Choose %s", $name),
+       undef, 'save', 'gtk-cancel' => 'cancel', 'gtk-ok' => 'ok';
+      $f->set_filename('.');
+      $f->set_current_name($s->get_text);
+      $f->show_all;
+      $s->set_text($f->get_filename) if $f->run eq 'ok';
+      $f->destroy;
+      1;
+    });
     ($a, $set, $get);
   },
   &PF_ADJUSTMENT => sub {
@@ -570,23 +577,25 @@ my %PF2INFO = (
       system 'gedit', $tmp;
       $sv->(io($tmp)->utf8->all);
     });
-    my $f = new Gtk2::FileSelection sprintf __"Fileselector for %s", $name;
-    $f->set_filename ('.');
-    $f->cancel_button->signal_connect (clicked => sub { $f->hide });
-    my $lf = sub { $f->hide; $sv->(io($f->get_filename)->utf8->all); };
-    my $sf = sub { $f->hide; io($f->get_filename)->utf8->print(&$gv); };
-    my $lshandle;
     $load->signal_connect (clicked => sub {
-      $f->set_title(sprintf __"Load %s", $name);
-      $f->ok_button->signal_handler_disconnect($lshandle) if $lshandle;
-      $lshandle=$f->ok_button->signal_connect (clicked => $lf);
+      my $f = new Gtk2::FileChooserDialog
+       sprintf(__"Load %s", $name),
+       undef, 'open', 'gtk-cancel' => 'cancel', 'gtk-open' => 'ok';
+      $f->set_filename ('.');
       $f->show_all;
+      $sv->(io($f->get_filename)->utf8->all) if $f->run eq 'ok';
+      $f->destroy;
+      1;
     });
     $save->signal_connect (clicked => sub {
-      $f->set_title(sprintf __"Save %s", $name);
-      $f->ok_button->signal_handler_disconnect($lshandle) if $lshandle;
-      $lshandle=$f->ok_button->signal_connect (clicked => $sf);
+      my $f = new Gtk2::FileChooserDialog
+       sprintf(__"Save %s", $name),
+       undef, 'save', 'gtk-cancel' => 'cancel', 'gtk-save' => 'ok';
+      $f->set_filename ('.');
       $f->show_all;
+      io($f->get_filename)->utf8->print(&$gv) if $f->run eq 'ok';
+      $f->destroy;
+      1;
     });
     ($a, $sv, $gv);
   },