diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-07-23 04:14:50 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-07-23 04:14:50 +0000 |
| commit | e0eba36e58055f0dd177e76ace7f38311846a8e4 (patch) | |
| tree | 3327fd0953fd9566aa5fc9f943308fa2506b5bca /perl-install | |
| parent | 4458a8a8985d3c7c66588ff1cf0748178ad23c17 (diff) | |
| download | drakx-backup-do-not-use-e0eba36e58055f0dd177e76ace7f38311846a8e4.tar drakx-backup-do-not-use-e0eba36e58055f0dd177e76ace7f38311846a8e4.tar.gz drakx-backup-do-not-use-e0eba36e58055f0dd177e76ace7f38311846a8e4.tar.bz2 drakx-backup-do-not-use-e0eba36e58055f0dd177e76ace7f38311846a8e4.tar.xz drakx-backup-do-not-use-e0eba36e58055f0dd177e76ace7f38311846a8e4.zip | |
remove useless $lan_button and $host_button in old drakconnect
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index cd56fda1f..cc01cfd34 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -88,7 +88,7 @@ $window1->{rwindow}->set_border_width(10); my $warning_label1; -my ($lan_button, $host_button, $button_apply); +my $button_apply; my $hostname = chomp_(`hostname`); @@ -135,27 +135,27 @@ $window1->{window}->add( 0, gtkpack(Gtk2::HBox->new, Gtk2::Label->new(N("Hostname: ")), $label_host = Gtk2::Label->new($hostname), - $host_button = gtksignal_connect(Gtk2::Button->new(N("Configure hostname...")), - clicked => sub { - local ($::isWizard, $::Wizard_finished) = (1, 1); - eval { # For wizcancel - configureNetworkNet($in, $netc, $intf, map { $_->[0] } @all_cards); - $button_apply->set_sensitive(1); - update(); - }; - if ($@ =~ /wizcancel/) {} - $::WizardWindow->destroy; - undef $::WizardWindow; - } - ), + gtksignal_connect(Gtk2::Button->new(N("Configure hostname...")), + clicked => sub { + local ($::isWizard, $::Wizard_finished) = (1, 1); + eval { # For wizcancel + configureNetworkNet($in, $netc, $intf, map { $_->[0] } @all_cards); + $button_apply->set_sensitive(1); + update(); + }; + if ($@ =~ /wizcancel/) {} + $::WizardWindow->destroy; + undef $::WizardWindow; + } + ), ), 1, gtkadd(gtkcreate_frame(N("LAN configuration")), gtkpack_(gtkset_border_width(Gtk2::VBox->new(0,0), 5), 0, $list, 0, Gtk2::HBox->new(0,0), 0, gtkpack_(Gtk2::HBox->new(0, 0), - 0, $lan_button = gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")), - clicked => \&configure_lan), + 0, gtksignal_connect(Gtk2::Button->new(N("Configure Local Area Network...")), + clicked => \&configure_lan), ), ) ), |