diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-02-15 18:15:20 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-02-15 18:15:20 +0000 |
| commit | 5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d (patch) | |
| tree | 46b5e787b32e8eed646aaec5d99daa392261ac1e | |
| parent | 7d441200d60ee35444b1de886829fdc4851f3a7c (diff) | |
| download | drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar.gz drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar.bz2 drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.tar.xz drakx-5f06b4f421c2ae1d0db1358d2bd435c90ef5b13d.zip | |
add quit button
| -rw-r--r-- | perl-install/standalone/drakids | 10 |
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(); |