diff options
| author | damien <damien@mandriva.com> | 2001-03-28 00:28:32 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-03-28 00:28:32 +0000 |
| commit | 4637b38e9e10b6e4547edaef23db43b33a39a774 (patch) | |
| tree | fce2febecde07da94e64f2de542d9142608a4c94 /perl-install/bootlook.pm | |
| parent | 432fe7397631556e355dbd9f459e145d2aa34b19 (diff) | |
| download | drakx-4637b38e9e10b6e4547edaef23db43b33a39a774.tar drakx-4637b38e9e10b6e4547edaef23db43b33a39a774.tar.gz drakx-4637b38e9e10b6e4547edaef23db43b33a39a774.tar.bz2 drakx-4637b38e9e10b6e4547edaef23db43b33a39a774.tar.xz drakx-4637b38e9e10b6e4547edaef23db43b33a39a774.zip | |
cute button box
Diffstat (limited to 'perl-install/bootlook.pm')
| -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); |