summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/drakproxy30
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