summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-15 18:15:20 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-15 18:15:20 +0000
commit5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d (patch)
tree46b5e787b32e8eed646aaec5d99daa392261ac1e /perl-install/standalone
parent7d441200d60ee35444b1de886829fdc4851f3a7c (diff)
downloaddrakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar
drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar.gz
drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar.bz2
drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar.xz
drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.zip
add quit button
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/drakids10
1 files changed, 7 insertions, 3 deletions
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();