From 4cece7d7fc7b2735e7920dbbd7f5e8f1d2a03f93 Mon Sep 17 00:00:00 2001 From: damien Date: Mon, 11 Jun 2001 16:17:21 +0000 Subject: updated --- perl-install/standalone/drakproxy | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy index 127edaf67..e9cd3f241 100755 --- a/perl-install/standalone/drakproxy +++ b/perl-install/standalone/drakproxy @@ -15,12 +15,11 @@ use lib qw(/usr/lib/libDrakX); -use common qw(:common :system :file); use interactive; use standalone; -use log; -use c; use proxy; + +use my_gtk qw(:helpers :wrappers); # use detect_devices; $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; @@ -52,7 +51,7 @@ gtkadd($window1, 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") }), @@ -68,6 +67,9 @@ Gtk->exit(0); #------------------------------------------------- #- $Log$ +#- Revision 1.3 2001/06/11 16:17:21 damien +#- updated +#- #- Revision 1.2 2001/06/11 16:03:10 damien #- perlised #- -- cgit v1.2.1