summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakboot
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2012-08-01 17:16:09 +0200
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 21:28:33 +0100
commit504f6c89db28716c7038153fb7838565b4ba0583 (patch)
treeca6e1c843dfb368d34f5c6b89f962d61415525ee /perl-install/standalone/drakboot
parent3252bfe856428c0a38ba7edb0f0ad6245537df6e (diff)
downloaddrakx-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-xperl-install/standalone/drakboot18
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;