summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-15 21:52:22 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-15 21:52:22 +0000
commit3887aab112e438e7cbd269041be66a4789a9840e (patch)
tree1125c71d1e44cf18792b08e843fc0bd1bf7c769e /perl-install
parent34538a4e612ca5f1bb8a6c745bbdd68572b41e7a (diff)
downloaddrakx-backup-do-not-use-3887aab112e438e7cbd269041be66a4789a9840e.tar
drakx-backup-do-not-use-3887aab112e438e7cbd269041be66a4789a9840e.tar.gz
drakx-backup-do-not-use-3887aab112e438e7cbd269041be66a4789a9840e.tar.bz2
drakx-backup-do-not-use-3887aab112e438e7cbd269041be66a4789a9840e.tar.xz
drakx-backup-do-not-use-3887aab112e438e7cbd269041be66a4789a9840e.zip
reuse create_okcancel() in ordet to get some std button layout
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakups19
1 files changed, 10 insertions, 9 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index 7a264b32f..23a850083 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -304,15 +304,16 @@ if (!$::isEmbedded) {
$w->{window}->add(gtkpack_(Gtk2::VBox->new,
0, Gtk2::Label->new(N("Welcome to the UPS configuration tools")),
1, my $nb = Gtk2::Notebook->new,
- 0, Gtk2::HSeparator->new,
- 0, gtkpack(Gtk2::HButtonBox->new,
- gtksignal_connect(Gtk2::Button->new(N("Ok")), clicked => sub {
- #$_->{save}->() foreach @pages;
- writeconf();
- $w->exit;
- }),
- gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { $w->exit }),
- ),
+ 0, create_okcancel( my $oc =
+ {
+ ok_clicked => sub {
+ #$_->{save}->() foreach @pages;
+ writeconf();
+ $w->exit;
+ },
+ cancel_clicked => sub { $w->exit },
+ },
+ ),
),
);