From 5d8a5663900537c6695f08692920d666f5ec9213 Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Tue, 24 Jul 2001 08:05:05 +0000 Subject: better runlevel handling -> persistent level choice --- perl-install/bootlook.pm | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm index 11bf3cba9..a8c5f693c 100644 --- a/perl-install/bootlook.pm +++ b/perl-install/bootlook.pm @@ -213,18 +213,18 @@ $global_vbox->pack_start ($x_main_frame, 1, 1, 0); #deush : hability to choose the runlevel. my $runl_hbox = new Gtk::HBox; -my $runl_button5 = new Gtk::RadioButton ("5"); -my $runl_button1 = new Gtk::RadioButton ("1"), $runl_button5; -$runl_hbox->pack_start($runl_button1, 0, 0, 0); -my $runl_button2 = new Gtk::RadioButton ("2"), $runl_button5; -$runl_hbox->pack_start($runl_button2, 0, 0, 0); -my $runl_button3 = new Gtk::RadioButton ("3"), $runl_button5; -$runl_hbox->pack_start($runl_button3, 0, 0, 0); -my $runl_button4 = new Gtk::RadioButton ("4"), $runl_button5; -$runl_hbox->pack_start($runl_button4, 0, 0, 0); - -$runl_hbox->pack_start($runl_button5, 0, 0, 0); - +my $runl_button5 = new Gtk::RadioButton ("level 5"); +my $runl_button1 = new Gtk::RadioButton ("level 1", $runl_button5); +$runl_hbox->add($runl_button1); +my $runl_button2 = new Gtk::RadioButton ("level 2", $runl_button5); +$runl_hbox->add($runl_button2); +my $runl_button3 = new Gtk::RadioButton ("level 3", $runl_button5); +$runl_hbox->add($runl_button3); +my $runl_button4 = new Gtk::RadioButton ("level 4", $runl_button5); +$runl_hbox->add($runl_button4); + +$runl_hbox->add($runl_button5); +#$runl_hbox->set_sensitive($x_mode); my $runlevel_frame = new Gtk::Frame _("Default Runlevel"); $runlevel_frame->add($runl_hbox); $global_vbox->pack_start ($runlevel_frame, 0, 0, 0); -- cgit v1.2.1