From 2c9c6a8f7e6e36f42671d047e27c7f1de1be061b Mon Sep 17 00:00:00 2001 From: David Odin Date: Tue, 12 Jun 2001 12:45:57 +0000 Subject: ui for drakproxy almost done --- perl-install/standalone/drakproxy | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakproxy b/perl-install/standalone/drakproxy index de0c51710..6a10e9a41 100755 --- a/perl-install/standalone/drakproxy +++ b/perl-install/standalone/drakproxy @@ -34,7 +34,7 @@ $::Wizard_title = _("Proxy handling"); my $in = interactive::vnew('su', 'default'); -if ($::isEmbedded && ref($in) =~ /gtk/) { +if ($::isWizard || ($::isEmbedded && ref($in) =~ /gtk/)) { proxy::main('', $in, sub { $in->standalone::pkgs_install(@_) }); $in->exit(0); } @@ -54,7 +54,7 @@ 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(_("Configure")), clicked => sub { system ("/usr/sbin/drakproxy --wizard") }), gtksignal_connect(new Gtk::Button(_("Cancel")), clicked => sub { kill(USR1, $::CCPID) }), ) ) @@ -67,6 +67,9 @@ Gtk->exit(0); #------------------------------------------------- #- $Log$ +#- Revision 1.5 2001/06/12 12:45:57 odin +#- ui for drakproxy almost done +#- #- Revision 1.4 2001/06/11 16:34:49 damien #- corrected CVS: ---------------------------------------------------------------------- #- -- cgit v1.2.1