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