diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 17:43:04 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-01 17:43:04 +0000 |
commit | ee62f7a141ebffe2f16d964a25540bb91bb78915 (patch) | |
tree | 13d4751e68eea5d52ec2ad84bf34fac6711a8e59 /perl-install/standalone/tinyfirewall | |
parent | ef5777d10dfe5c23f47876c8c638777ae14ac40b (diff) | |
download | drakx-backup-do-not-use-ee62f7a141ebffe2f16d964a25540bb91bb78915.tar drakx-backup-do-not-use-ee62f7a141ebffe2f16d964a25540bb91bb78915.tar.gz drakx-backup-do-not-use-ee62f7a141ebffe2f16d964a25540bb91bb78915.tar.bz2 drakx-backup-do-not-use-ee62f7a141ebffe2f16d964a25540bb91bb78915.tar.xz drakx-backup-do-not-use-ee62f7a141ebffe2f16d964a25540bb91bb78915.zip |
perl_checker fixes
Diffstat (limited to 'perl-install/standalone/tinyfirewall')
-rwxr-xr-x | perl-install/standalone/tinyfirewall | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/tinyfirewall b/perl-install/standalone/tinyfirewall index b924d2419..ae3d11dd0 100755 --- a/perl-install/standalone/tinyfirewall +++ b/perl-install/standalone/tinyfirewall @@ -38,7 +38,7 @@ require Gtk; init Gtk; my $window1 = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk::Window -toplevel; -$window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); +$window1->signal_connect (delete_event => sub { Gtk->exit(0) }); $window1->set_position(1); $window1->set_title(_("Firewalling configuration")); $window1->border_width(10); @@ -56,13 +56,13 @@ my $bbox1 = new Gtk::HButtonBox; $vbox1->pack_start($bbox1,0,0,0); $bbox1->set_layout(-end); my $button_conf = new Gtk::Button _("Configure"); -$button_conf->signal_connect ( clicked => sub { +$button_conf->signal_connect (clicked => sub { system("/usr/sbin/tinyfirewall --wizard"); update(); }); $bbox1->add($button_conf); my $button_ok = new Gtk::Button _("Cancel"); -$button_ok->signal_connect ( clicked => sub { +$button_ok->signal_connect (clicked => sub { quit_global(); }); $bbox1->add($button_ok); |