diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/bootlook.pm | 15 |
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); |