summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakboot5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/standalone/drakboot b/perl-install/standalone/drakboot
index c5e219a82..a83bd00c0 100755
--- a/perl-install/standalone/drakboot
+++ b/perl-install/standalone/drakboot
@@ -44,20 +44,19 @@ if (!$in->isa('interactive::gtk')) {
$in->exit(0);
}
require ugtk2;
-import ugtk2 qw(:helpers :wrappers :create);
+ugtk2->import(qw(:helpers :wrappers :create));
my $no_bootsplash;
my $x_mode = Xconfig::various::runlevel() == 5;
my $auto_mode = any::get_autologin();
my $lilogrub = chomp_(`detectloader -q`);
-my $w = ugtk2->new();
+my $w = ugtk2->new(N("Boot Style Configuration"));
my $window = $w->{window};
$::main_window = $w->{rwindow} if !$::isEmbedded;
$window->signal_connect(delete_event => sub { utk2->exit(0) });
unless ($::isEmbedded) {
- $w->{rwindow}->set_title(N("Boot Style Configuration"));
$window->set_border_width(2);
### menus definition