From dd2e9e28eed4e2fc7f7be92627ebb8d1d63e0cef Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 20 Aug 2014 17:10:14 +0200
Subject: port from FileSelection to FileChooser

FileSelection no more exists in Gtk3...
---
 drakpxelinux.pl | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'drakpxelinux.pl')

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index 12a4167..9d832ca 100755
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -483,10 +483,15 @@ sub edit_box_item {
 	chdir($network::pxe::pxelinux_client_root . "/pxelinux.cfg/profiles/");
       } else { chdir($network::pxe::pxelinux_client_root);
 	     }
-      my $fd = new Gtk3::FileSelection(N("Selection"));
-      $fd->set_modal(1);
+      my $fd = gtknew('FileChooserDialog', title => N("Selection"), action => 'save', modal => 1);
       $fd->signal_connect("destroy", sub { $fd->hide });
-      $fd->ok_button->signal_connect(clicked => sub {
+      $fd->signal_connect(response => sub {
+				       my (undef, $response) = @_;
+				       if (member($response, qw(cancel delete_event))) {
+				          $fd->hide;
+				          return;
+				       }
+				       return if !member($response, qw(apply ok yes));
 				       my $file = $fd->get_filename;
 				       if ($test eq "dir") {
 					 -d $file or err_dialog(N("Error!"), N("Should be a directory.")) and return;
@@ -521,7 +526,6 @@ sub edit_box_item {
 				       }
 					 $fd->hide;
 				     }, $fd);
-      $fd->cancel_button->signal_connect(clicked => sub { $fd->hide });
       return $fd;
     };
 
-- 
cgit v1.2.1