summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-03-06 01:57:50 +0000
committerdamien <damien@mandriva.com>2001-03-06 01:57:50 +0000
commit6b2dfe5b978f10d4c47dbf3f386419a4624718ca (patch)
tree1971387792b248f542d3b677a0d8ab2a56b85a2e /perl-install
parentdda6c299a8619968a7501be5ec97222460049764 (diff)
downloaddrakx-6b2dfe5b978f10d4c47dbf3f386419a4624718ca.tar
drakx-6b2dfe5b978f10d4c47dbf3f386419a4624718ca.tar.gz
drakx-6b2dfe5b978f10d4c47dbf3f386419a4624718ca.tar.bz2
drakx-6b2dfe5b978f10d4c47dbf3f386419a4624718ca.tar.xz
drakx-6b2dfe5b978f10d4c47dbf3f386419a4624718ca.zip
added enable/disable networking button.
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/draknet17
1 files changed, 10 insertions, 7 deletions
diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 252b73aa6..051b20e24 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -31,10 +31,6 @@ use c;
my $xpm_path="/usr/share/libDrakX/pixmaps";
$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
$::isWizard = "@ARGV" =~ /--wizard/;
-print "EMBED\n" if $::isEmbedded;
-print "XID : $::XID\n";
-print "CCPID : $::CCPID\n";
-print "wiz : $::isWizard\n";
local $_ = join '', @ARGV;
@@ -428,8 +424,16 @@ sub configure_lan {
$notebook->append_page($vbox_local, $hbox_local);
}
my $bbox1 = new Gtk::HButtonBox;
- $vbox1->pack_start($bbox1,0,0,0);
+ $vbox1->pack_start($bbox1,0,0,10);
$bbox1->set_layout(-end);
+ my $old_networking = $netc->{NETWORKING};
+ my $button_able = new Gtk::Button $netc->{NETWORKING} eq "yes" ? _("Disable") : _("Enable");
+ $button_able->signal_connect ( clicked => sub {
+ $netc->{NETWORKING} eq "yes" ? ($netc->{NETWORKING} = "no") : ($netc->{NETWORKING} = "yes");
+ $notebook->set_sensitive($netc->{NETWORKING} eq "yes");
+ $button_able->child->set($netc->{NETWORKING} eq "yes" ? _("Disable") : _("Enable"));
+ } );
+ $bbox1->add($button_able);
my $button_ok = new Gtk::Button "OK";
$button_ok->signal_connect ( clicked => sub {
my $i=0;
@@ -443,7 +447,7 @@ sub configure_lan {
});
$bbox1->add($button_ok);
my $button_cancel = new Gtk::Button "Cancel";
- $button_cancel->signal_connect ( clicked => sub { $window->destroy(); Gtk->main_quit });
+ $button_cancel->signal_connect ( clicked => sub { $netc->{NETWORKING}=$old_networking; $window->destroy(); Gtk->main_quit });
$bbox1->add($button_cancel);
$window->set_modal(1);
@@ -539,7 +543,6 @@ sub configure_net {
@mask=(0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0) if ($netcnx->{type}eq'modem'||$netcnx->{type} eq 'isdn_external');
@mask=(0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0) if $netcnx->{type} =~ 'adsl';
@mask=(0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1) if $netcnx->{type} eq 'cable';
-# @mask=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0) if $netcnx->{type} eq '' && $cnx->{card_type} eq 'isa';
$vbox1->pack_start(new Gtk::HSeparator,0,0,5);