From ac91a2948328e2cd86d62b227e3397c016afb789 Mon Sep 17 00:00:00 2001
From: Yves Duret <yduret@mandriva.com>
Date: Thu, 12 Apr 2001 01:36:47 +0000
Subject: added some stuff

---
 perl-install/bootlook.pm | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 576ae5569..f09ac5f89 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -62,6 +62,8 @@ my $a_mode = (-e "/etc/aurora/Monitor") ? 1 : 0;
 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)/;
 
 my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window ("toplevel");
 $window->signal_connect(delete_event => sub { $::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0) });
@@ -111,11 +113,16 @@ my $menubar = get_main_menu( $window );
 ######### menus end
 
 my $global_vbox = new Gtk::VBox();
-#$global_vbox->pack_start (new Gtk::Label(_("Boot style configuration")), 0, 0, 0);
 
-# lilo/grub
+########### lilo/grub
 my $lilo_dedans = new Gtk::HBox(0, 0);
-my $lilo_button = new Gtk::Button _("Lilo/Grub configuration");
+my $lilo_button = new Gtk::Button _("Configure");
+
+my $lilo_label = new Gtk::Label(
+_("You are currently using %s as Boot Manager.
+Click on Configure to launch the setup wizard.", $lilogrub));
+
+$lilo_dedans->pack_start($lilo_label,0,0,0);
 $lilo_dedans->pack_end($lilo_button,0,0,0);
 $lilo_button->signal_connect(clicked => sub { lilo_choice(); });
 
-- 
cgit v1.2.1