From 79cbd949e3b45fd7b4ca6bdf521d12eddc49a41a Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 26 Aug 2003 13:13:15 +0000 Subject: (sensitive_buttons) fix it --- perl-install/standalone/drakconnect | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone') diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 3dfdf55bd..e9d0ba4f4 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -60,7 +60,7 @@ MDK::Common::Globals::init( connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg" ); -#$::isEmbedded && ref($in) =~ /gtk/ or goto dd; +$::isEmbedded && ref($in) =~ /gtk/ or goto dd; require ugtk2; ugtk2->import(qw(:helpers :wrappers :create)); @@ -274,7 +274,8 @@ $combo1->signal_connect(realize => sub { }); sub sensitive_buttons { - $_->set_sensitive(0) foreach $lan_button, $wiz_button, $int_button; + my ($state) = @_; + $_->set_sensitive($state) foreach $lan_button, $wiz_button, $int_button; } -- cgit v1.2.1