summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
authorDamien Chaumette <dchaumette@mandriva.com>2004-01-22 13:33:53 +0000
committerDamien Chaumette <dchaumette@mandriva.com>2004-01-22 13:33:53 +0000
commit180b6575f94e7357982a1e717fb6a42ed0deb647 (patch)
tree78fe24ffa55ca9eb11f7c6e76c9d559aa676a5d9 /perl-install/standalone/drakconnect
parent8b1f3e5498ad31f9ea9854d1d4d6f76435e4cd6f (diff)
downloaddrakx-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/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect6
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);
}