From 748c943c61ed8cdb6e5e6f428e1e6657d48e0e41 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Thu, 28 Nov 2013 16:31:29 +0100
Subject: use (my|u)gtk3 instead of *tk2

---
 drakpxelinux.pl | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'drakpxelinux.pl')

diff --git a/drakpxelinux.pl b/drakpxelinux.pl
index 2587dbe..c4a3bd5 100755
--- a/drakpxelinux.pl
+++ b/drakpxelinux.pl
@@ -35,8 +35,8 @@ use network::pxe;
 use network::tools;
 use interactive;
 # must come *after* definition of textdomains for proper initialisation
-use ugtk2 qw(:ask :helpers :wrappers :create :dialogs);
-use mygtk2 qw(gtknew);
+use ugtk3 qw(:ask :helpers :wrappers :create :dialogs);
+use mygtk3 qw(gtknew);
 use Gtk2::SimpleList;
 use Gtk2::Helper;
 use run_program;
@@ -106,7 +106,7 @@ sub get_items {
     my @items = (
                  [ "/_File", undef, undef, undef, '<Branch>', ],
         #         [ "/_File/_Write conf", undef, \&write_conf, 1, '<StockItem>', 'gtk-execute' ],
-                 [ "/_File/_Exit", undef, sub { ugtk2->exit }, 1, '<StockItem>', 'gtk-quit' ],
+                 [ "/_File/_Exit", undef, sub { ugtk3->exit }, 1, '<StockItem>', 'gtk-quit' ],
 
                  [ "/_PXE Server", undef, undef, undef, '<Branch>', ],
                  [ "/_PXE Server/_Restart", undef, \&restart_dialog, 1, '<StockItem>', 'gtk-execute' ],
@@ -426,7 +426,7 @@ sub clone_box_item {
     my $path = $model->get_path($iter);
     my $i = ($path->get_indices)[0];
     my $entry = $pxelinux_conf->{entries}[$i];
-    my $w = ugtk2->new(N("Clone %s entry", $entry->{label}));
+    my $w = ugtk3->new(N("Clone %s entry", $entry->{label}));
     my ($entry_box);
     $w->{window}->set_position('center');
     $w->{ok_clicked} = sub {
@@ -1008,14 +1008,14 @@ my ($profiles_combo, $install_button, $menu_combo);
 
 sub refresh_profiles() {
     my @profiles = network::pxe::list_profiles($profiles_conf);
-    mygtk2::gtkset($profiles_combo, list => [ '', @profiles ]);
+    mygtk3::gtkset($profiles_combo, list => [ '', @profiles ]);
     @{$profiles->{data}} = @profiles;
 }
 
 sub refresh_menu() {
   my $pxelinux_conf = get_pxelinux_conf_from_profile();
   my @menu = network::pxe::list_pxelinux_labels($pxelinux_conf);
-  mygtk2::gtkset($menu_combo, list => [ '', @menu ]);
+  mygtk3::gtkset($menu_combo, list => [ '', @menu ]);
   my $defaultlabel = $pxelinux_conf->{default};
   my $c = 1;
   foreach (@menu) {
@@ -1037,7 +1037,7 @@ sub refresh_menu() {
 }
 
 sub add_profile() {
-    my $w = ugtk2->new(N("Add profile"));
+    my $w = ugtk3->new(N("Add profile"));
     my ($entry);
     $w->{window}->set_position('center');
     $w->{ok_clicked} = sub {
@@ -1117,7 +1117,7 @@ sub launch_pxe_server() {
 # disable wizard
 $::isWizard = 0;
 
-my $w = ugtk2->new(N("Drakpxelinux"));
+my $w = ugtk3->new(N("Drakpxelinux"));
 $treeview->set_rules_hint(1);
 $treeview->get_selection->set_mode('single');
 add_columns($treeview);
@@ -1141,12 +1141,12 @@ $factory->create_items('menu', @items);
 my $menu = $factory->get_widget('<main>');
 
 my $okcancel = create_okcancel({
-				cancel_clicked => sub { ugtk2->exit },
+				cancel_clicked => sub { ugtk3->exit },
 				ok_clicked => sub {
 				  my $pxe_conf = get_pxelinux_conf_from_profile();
 				  $pxe_conf and write_conf($pxe_conf, $treeview);
 				  write_profile_conf();
-				  ugtk2->exit },
+				  ugtk3->exit },
 			       },
 			      );
 
-- 
cgit v1.2.1