From 6f03a84148ac2d0aa1e64b7d64c3071d89317492 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 13 May 2003 14:42:46 +0000
Subject: let ugtk2->new manage the title setting

---
 perl-install/standalone/drakboot | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

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
-- 
cgit v1.2.1