diff options
author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2012-08-01 17:16:09 +0200 |
---|---|---|
committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 21:28:33 +0100 |
commit | 504f6c89db28716c7038153fb7838565b4ba0583 (patch) | |
tree | ca6e1c843dfb368d34f5c6b89f962d61415525ee /perl-install/standalone/drakboot | |
parent | 3252bfe856428c0a38ba7edb0f0ad6245537df6e (diff) | |
download | drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.gz drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.bz2 drakx-504f6c89db28716c7038153fb7838565b4ba0583.tar.xz drakx-504f6c89db28716c7038153fb7838565b4ba0583.zip |
use (my|u)gtk3 instead of *tk2
Diffstat (limited to 'perl-install/standalone/drakboot')
-rwxr-xr-x | perl-install/standalone/drakboot | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot index fec394ce3..dc2b2267b 100755 --- a/perl-install/standalone/drakboot +++ b/perl-install/standalone/drakboot @@ -66,27 +66,27 @@ if ($is_bootloader_mode) { $in->exit(0); } -require ugtk2; -ugtk2->import(qw(:helpers :wrappers :create)); -require mygtk2; -mygtk2->import(qw(gtknew)); +require ugtk3; +ugtk3->import(qw(:helpers :wrappers :create)); +require mygtk3; +mygtk3->import(qw(gtknew)); autologin_choice(); sub run_boot_window { my ($title, $pack_list, $apply_sub) = @_; - my $w = ugtk2->new($title); + my $w = ugtk3->new($title); my $window = $w->{window}; mygtk3::register_main_window($w->{real_window}); - $window->signal_connect(delete_event => sub { ugtk2->exit(0) }); + $window->signal_connect(delete_event => sub { ugtk3->exit(0) }); unless ($::isEmbedded) { $window->set_border_width(2); ### menus definition # the menus are not shown but they provides shiny shortcut like C-q my @menu_items = ([ N("/_File"), undef, undef, undef, '<Branch>' ], - [ N("/File/_Quit"), N("<control>Q"), sub { ugtk2->exit(0) }, undef, '<Item>' ], + [ N("/File/_Quit"), N("<control>Q"), sub { ugtk3->exit(0) }, undef, '<Item>' ], ); create_factory_menu($w->{rwindow}, @menu_items); ######### menus end @@ -94,10 +94,10 @@ sub run_boot_window { gtkadd($window, gtknew('VBox', children => [ @$pack_list, 0, create_okcancel({ - cancel_clicked => sub { ugtk2->exit(0) }, + cancel_clicked => sub { ugtk3->exit(0) }, ok_clicked => sub { $apply_sub->(); - ugtk2->exit(0); + ugtk3->exit(0); } }) ])); $window->show_all; |