From ee62f7a141ebffe2f16d964a25540bb91bb78915 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 1 Aug 2002 17:43:04 +0000 Subject: perl_checker fixes --- perl-install/standalone/tinyfirewall | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/standalone/tinyfirewall') 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); -- cgit v1.2.1