From cfff066513550bbd32d108b02d2a25cdf33b26f8 Mon Sep 17 00:00:00 2001 From: Yves Duret Date: Sun, 15 Apr 2001 10:48:19 +0000 Subject: fix layout & size --- perl-install/bootlook.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 63d5b8a80..05ea1075f 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -55,12 +55,12 @@ my $l_mode = isAutologin(); my %auto_mode = get_autologin(""); my $inmain = 0; my $lilogrub = `detectloader -q`; -$lilogrub =~ s/GRUB\n/GRUB (GNU GRand Unified Bootloader)/; +chomp $lilogrub; my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel"); $window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) }); $window->set_title(_("Boot Style Configuration") ); -$window->border_width(10); +$window->border_width(2); $window->realize; # drakX mode -- cgit v1.2.1