From 180b6575f94e7357982a1e717fb6a42ed0deb647 Mon Sep 17 00:00:00 2001 From: Damien Chaumette Date: Thu, 22 Jan 2004 13:33:53 +0000 Subject: factorise gui set_text --- perl-install/standalone/drakconnect | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'perl-install') 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); } -- cgit v1.2.1