From 1a21cac00c1449a159d6ff5bb0d87a305d44b7d2 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 14 Jul 2003 19:21:04 +0000
Subject: sanitize button layouts: - use stock items everywhere - use
 ButtonBoxes everywhere - pack buttons always in the same order and places

---
 perl-install/standalone/draksec | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install/standalone/draksec')

diff --git a/perl-install/standalone/draksec b/perl-install/standalone/draksec
index b049eddf4..39431f6bf 100755
--- a/perl-install/standalone/draksec
+++ b/perl-install/standalone/draksec
@@ -186,7 +186,7 @@ $notebook->append_page(gtkshow(create_scrolled_window(gtkpack_(new Gtk2::VBox(0,
 
 
 ####################### OK CANCEL BUTTONS ##################################
-my $bok = gtksignal_connect(new Gtk2::Button(N("Ok")),
+my $bok = gtksignal_connect(Gtk2::Button->new_from_stock('gtk-ok'),
                             'clicked' => sub {
                                 my $seclevel_value = $seclevel_entry->entry->get_text;
                                 my $secadmin_check_value = $secadmin_check->get_active;
@@ -237,9 +237,11 @@ my $bcancel = gtksignal_connect(Gtk2::Button->new_from_stock('gtk-cancel'),
                                 'clicked' => sub { ugtk2->exit(0) });
 gtkpack_($vbox,
          1, gtkshow($notebook),
-         0, gtkadd(gtkadd(gtkshow(new Gtk2::HBox(0, 0)),
-                          $bok),
-                   $bcancel));
+         0, gtkpack(Gtk2::HButtonBox->new,
+                    $bcancel,
+                    $bok,
+                   ),
+        );
 $bcancel->can_default(1);
 $bcancel->grab_default;
 
-- 
cgit v1.2.1