diff options
| author | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-22 13:33:53 +0000 |
|---|---|---|
| committer | Damien Chaumette <dchaumette@mandriva.com> | 2004-01-22 13:33:53 +0000 |
| commit | 180b6575f94e7357982a1e717fb6a42ed0deb647 (patch) | |
| tree | 78fe24ffa55ca9eb11f7c6e76c9d559aa676a5d9 /perl-install | |
| parent | 8b1f3e5498ad31f9ea9854d1d4d6f76435e4cd6f (diff) | |
| download | drakx-backup-do-not-use-180b6575f94e7357982a1e717fb6a42ed0deb647.tar drakx-backup-do-not-use-180b6575f94e7357982a1e717fb6a42ed0deb647.tar.gz drakx-backup-do-not-use-180b6575f94e7357982a1e717fb6a42ed0deb647.tar.bz2 drakx-backup-do-not-use-180b6575f94e7357982a1e717fb6a42ed0deb647.tar.xz drakx-backup-do-not-use-180b6575f94e7357982a1e717fb6a42ed0deb647.zip | |
factorise gui set_text
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index 7b2ec1a95..2d0146ef1 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -332,7 +332,6 @@ sub build_notebook { $gui->{intf}{BOOTPROTO} and $gui->{intf}{BOOTPROTO}->set_popdown_strings(N_("static"), N_("dhcp")); $interface !~ /eth/ and $_->set_sensitive(0) foreach $gui->{intf}{IPADDR}, $gui->{intf}{NETMASK}; !$intf->{IPADDR} and ($intf->{IPADDR}, $gui->{active}, $intf->{NETMASK}) = get_intf_ip($interface); - $gui->{intf}{$_}->set_text($intf->{$_}) foreach keys %{$gui->{intf}}; $gui->{netc}{$_}->set_text($netc->{$_}) foreach keys %{$gui->{netc}}; } @@ -368,7 +367,6 @@ sub build_notebook { ), ), ); - $gui->{intf}{$_}->set_text($intf->{$_}) foreach keys %{$gui->{intf}}; } if ($intf->{pages}{Options}) { @@ -437,7 +435,6 @@ sub build_notebook { $gui->{intf}{passwd}->set_visibility(0); #/^user\s+"([^"]+)"/ and $intf->{login} = $1 foreach cat_("/etc/ppp/peers/adsl"); #$_->{login} eq $intf->{login} and $intf->{passwd} = $_->{passwd} foreach @{read_secret_backend()}; - $gui->{intf}{$_}->set_text($intf->{$_}) foreach keys %{$gui->{intf}}; } if ($intf->{pages}{Modem}) { @@ -486,7 +483,8 @@ sub build_notebook { ), ); } - + + $gui->{intf}{$_}->set_text($intf->{$_}) foreach keys %{$gui->{intf}}; $gui->{notebook} = Gtk2::Notebook->new; populate_notebook($gui->{notebook}, $gui); } |