diff options
| author | Yves Duret <yduret@mandriva.com> | 2001-04-12 01:36:47 +0000 |
|---|---|---|
| committer | Yves Duret <yduret@mandriva.com> | 2001-04-12 01:36:47 +0000 |
| commit | ac91a2948328e2cd86d62b227e3397c016afb789 (patch) | |
| tree | 02bae6c844ca4f890514b12da8cd6d8f7d40219f /perl-install/bootlook.pm | |
| parent | b956621f9dfd0999aedb1a3ee5380206cde11404 (diff) | |
| download | drakx-backup-do-not-use-ac91a2948328e2cd86d62b227e3397c016afb789.tar drakx-backup-do-not-use-ac91a2948328e2cd86d62b227e3397c016afb789.tar.gz drakx-backup-do-not-use-ac91a2948328e2cd86d62b227e3397c016afb789.tar.bz2 drakx-backup-do-not-use-ac91a2948328e2cd86d62b227e3397c016afb789.tar.xz drakx-backup-do-not-use-ac91a2948328e2cd86d62b227e3397c016afb789.zip | |
added some stuff
Diffstat (limited to 'perl-install/bootlook.pm')
| -rw-r--r-- | perl-install/bootlook.pm | 13 |
1 files changed, 10 insertions, 3 deletions
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(); }); |