From 5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 15 Feb 2005 18:15:20 +0000
Subject: add quit button

---
 perl-install/standalone/drakids | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

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

diff --git a/perl-install/standalone/drakids b/perl-install/standalone/drakids
index 03819d619..4b3d74172 100644
--- a/perl-install/standalone/drakids
+++ b/perl-install/standalone/drakids
@@ -35,9 +35,13 @@ my $w = ugtk2->new(N("Active Firewall : Blacklist"));
 gtkpack($w->{window},
         gtknew('VBox', spacing => 5, children => [
             1, gtknew('ScrolledWindow', width => 600, height => 400, child => $blacklist),
-            0, gtknew('HBox', children_tight => [
-                gtknew('Button', text => N("Remove from blacklist"),
-                       clicked => \&unblacklist)
+            0, gtknew('HBox', children_loose => [
+                   gtknew('HButtonBox', layout => 'start', children_loose => [
+                       gtknew('Button', text => N("Remove from blacklist"), clicked => \&unblacklist)
+                   ]),
+                   gtknew('HButtonBox', layout => 'end', children_loose => [
+                       gtknew('Button', text => N("Quit"), clicked => sub { Gtk2->main_quit })
+                   ])
             ]),
         ]));
 init_blacklist();
-- 
cgit v1.2.1