summaryrefslogtreecommitdiffstats
path: root/perl-install/bootlook.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-28 00:28:32 +0000
committerdamien <damien@mandriva.com>2001-03-28 00:28:32 +0000
commit4637b38e9e10b6e4547edaef23db43b33a39a774 (patch)
treefce2febecde07da94e64f2de542d9142608a4c94 /perl-install/bootlook.pm
parent432fe7397631556e355dbd9f459e145d2aa34b19 (diff)
downloaddrakx-backup-do-not-use-4637b38e9e10b6e4547edaef23db43b33a39a774.tar
drakx-backup-do-not-use-4637b38e9e10b6e4547edaef23db43b33a39a774.tar.gz
drakx-backup-do-not-use-4637b38e9e10b6e4547edaef23db43b33a39a774.tar.bz2
drakx-backup-do-not-use-4637b38e9e10b6e4547edaef23db43b33a39a774.tar.xz
drakx-backup-do-not-use-4637b38e9e10b6e4547edaef23db43b33a39a774.zip
cute button box
Diffstat (limited to 'perl-install/bootlook.pm')
-rw-r--r--perl-install/bootlook.pm15
1 files changed, 10 insertions, 5 deletions
diff --git a/perl-install/bootlook.pm b/perl-install/bootlook.pm
index 1b3100ea9..a15c9089f 100644
--- a/perl-install/bootlook.pm
+++ b/perl-install/bootlook.pm
@@ -194,14 +194,19 @@ $x_main_frame->add($x_dedans);
$global_vbox->pack_start ($x_main_frame, 1, 1, 0);
### final buttons
+my $bbox = new Gtk::HButtonBox;
+$global_vbox->pack_start($bbox, 0, 0, 0);
+$bbox->set_layout(-end);
my $build_button = new Gtk::Button _("OK");
-my $cancel_button = new Gtk::Button _("Quit");
+$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();});
-$fin_hbox->pack_end($cancel_button, 0, 0, 0);
-$fin_hbox->pack_end($build_button, 0, 0, 10);
-$global_vbox->pack_start($fin_hbox, 0, 0, 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(); });
### back to window
$window->add($global_vbox);