From 504f6c89db28716c7038153fb7838565b4ba0583 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 1 Aug 2012 17:16:09 +0200
Subject: use (my|u)gtk3 instead of *tk2

---
 perl-install/standalone/drakfloppy | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'perl-install/standalone/drakfloppy')

diff --git a/perl-install/standalone/drakfloppy b/perl-install/standalone/drakfloppy
index c7a21b1ed..11597c6aa 100755
--- a/perl-install/standalone/drakfloppy
+++ b/perl-install/standalone/drakfloppy
@@ -29,23 +29,23 @@ use lib qw(/usr/lib/libDrakX);
 
 use standalone; #- warning, standalone must be loaded very first, for 'explanations'
 use common;
-use mygtk2 qw(gtknew);
-use ugtk2 qw(:create :dialogs :helpers :wrappers);
+use mygtk3 qw(gtknew);
+use ugtk3 qw(:create :dialogs :helpers :wrappers);
 use detect_devices;
 
-$ugtk2::wm_icon = "/usr/share/mcc/themes/default/drakfloppy-mdk.png";
+$ugtk3::wm_icon = "/usr/share/mcc/themes/default/drakfloppy-mdk.png";
 require_root_capability();
 
-my $window = ugtk2->new(N("Boot Floppy"));
+my $window = ugtk3->new(N("Boot Floppy"));
 unless ($::isEmbedded) {
-    $window->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
+    $window->{rwindow}->signal_connect(delete_event => sub { ugtk3->exit(0) });
     $window->{rwindow}->set_border_width(5);
     
     ### menus definition
     # the menus are not shown but they provides shiny shortcut like C-q
     create_factory_menu($window->{rwindow}, ( 
                                              { path => N("/_File"), item_type => '<Branch>' },
-                                             { path => N("/File/_Quit"), accelerator => N("<control>Q"), callback => sub { ugtk2->exit(0) } },
+                                             { path => N("/File/_Quit"), accelerator => N("<control>Q"), callback => sub { ugtk3->exit(0) } },
                                             )
                        );
 }
@@ -96,7 +96,7 @@ $window->{window}->add(
                                          ),
                                 1, gtknew('VBox'),
                                 0, create_okcancel({
-                                                    cancel_clicked => sub { ugtk2->exit(0) },
+                                                    cancel_clicked => sub { ugtk3->exit(0) },
                                                     ok_clicked  => \&build_it,
                                                    },
                                                    undef, undef, '',
@@ -108,7 +108,7 @@ $window->{window}->add(
 $window->{rwindow}->show_all;
 
 $window->main;
-ugtk2->exit(0);
+ugtk3->exit(0);
 
 
 my $remove_but;
@@ -301,7 +301,7 @@ sub build_it() {
     my $log = join('', <$STATUS>);
     if (close $STATUS) {
         info_dialog(N("Floppy creation completed"), N("The creation of the boot floppy has been successfully completed \n"));
-        ugtk2->exit;
+        ugtk3->exit;
     } else {
         err_dialog(N("Error"),
                    #-PO: Do not alter the <span ..> and </span> tags
-- 
cgit v1.2.1