summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/bootlook.pm17
1 files changed, 13 insertions, 4 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 6a29c4e30..151fd260c 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -109,6 +109,18 @@ my $menubar = get_main_menu( $window );
my $global_vbox = new Gtk::VBox();
#$global_vbox->pack_start (new Gtk::Label(_("Boot style configuration")), 0, 0, 0);
+
+# lilo/grub
+my $lilo_dedans = new Gtk::VBox(0, 10);
+$lilo_dedans->border_width (5);
+my $lilo_vbox = new Gtk::VBox(0, 0);
+$lilo_vbox->border_width (10);
+my $lilo_frame = new Gtk::Frame _("Lilo/grub mode");
+$lilo_frame->add($lilo_vbox);
+$global_vbox->pack_start ($lilo_frame, 0, 0, 0);
+
+
+
######## aurora part
my $a_dedans = new Gtk::VBox(0, 5);
$a_dedans->border_width(5);
@@ -203,14 +215,11 @@ $global_vbox->pack_start($bbox, 0, 0, 0);
$bbox->set_layout(-end);
my $build_button = new Gtk::Button _("OK");
$bbox->add($build_button);
-my $apply_button = new Gtk::Button _("Apply");
-$bbox->add($apply_button);
my $cancel_button = new Gtk::Button $::isEmbedded ? _("Cancel") : _("Quit");
$bbox->add($cancel_button);
my $fin_hbox = new Gtk::HBox( 0, 0 );
$cancel_button->signal_connect(clicked => sub {$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)});
-$build_button->signal_connect(clicked => sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1, $::CCPID) : Gtk->exit(0)});
-$apply_button->signal_connect(clicked => sub{updateInit();updateAutologin();updateAurora(); });
+$build_button->signal_connect(clicked=>sub{updateInit();updateAutologin();updateAurora();$::isEmbedded ? kill(USR1,$::CCPID) : Gtk->exit(0)});
### back to window
$window->add($global_vbox);