summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakups
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakups')
-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 },
+ },
+ ),
),
);