diff options
| -rwxr-xr-x | perl-install/standalone/drakproxy | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy index e9cd3f241..de0c51710 100755 --- a/perl-install/standalone/drakproxy +++ b/perl-install/standalone/drakproxy @@ -45,21 +45,21 @@ $window1->signal_connect ( delete_event => sub { Gtk->exit(0); }); $window1->set_position(1); $window1->set_title(_("Proxy configuration")); $window1->border_width(10); -gtkadd($window1, - gtkpack_(new Gtk::VBox(0,0), - 1, gtkpack(new Gtk::HBox(0,0), - new Gtk::Label _("Welcome to the Proxy Connection utility +gtkshow(gtkadd($window1, + gtkpack_(new Gtk::VBox(0,0), + 1, gtkpack(new Gtk::HBox(0,0), + new Gtk::Label _("Welcome to the Proxy Connection utility Click on Configure to launch the setup wizard."), - ), - 1, gtkpack(my $hbox2 = new Gtk::HBox(0,0),), - 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end), - gtksignal_connect(new Gtk::Button _("Configure"), clicked => sub { system ("/usr/sbin/drakgw --wizard") }), - gtksignal_connect(new Gtk::Button _("Cancel"), clicked => sub { kill(USR1, $::CCPID) }), - ) - ) - ); - + ), + 1, gtkpack(my $hbox2 = new Gtk::HBox(0,0),), + 0, gtkadd(gtkset_layout(new Gtk::HButtonBox, -end), + gtksignal_connect(new Gtk::Button(_("Configure")), clicked => sub { system ("/usr/sbin/drakgw --wizard") }), + gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { kill(USR1, $::CCPID) }), + ) + ) + ) + ); Gtk->main_iteration while Gtk->events_pending; $::isEmbedded and kill USR2, $::CCPID; Gtk->main; @@ -67,8 +67,8 @@ Gtk->exit(0); #------------------------------------------------- #- $Log$ -#- Revision 1.3 2001/06/11 16:17:21 damien -#- updated +#- Revision 1.4 2001/06/11 16:34:49 damien +#- corrected CVS: ---------------------------------------------------------------------- #- #- Revision 1.2 2001/06/11 16:03:10 damien #- perlised |