diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-12 09:58:12 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-03-12 09:58:12 +0000 |
| commit | b18e46c959705ef7cbdba365dff9b056c74cd645 (patch) | |
| tree | 42d7299b54d7049928d34a31935e454ad9f76cbb /perl-install | |
| parent | 4a970463a32f53406347462f50a1f8b7d6cae632 (diff) | |
| download | drakx-backup-do-not-use-b18e46c959705ef7cbdba365dff9b056c74cd645.tar drakx-backup-do-not-use-b18e46c959705ef7cbdba365dff9b056c74cd645.tar.gz drakx-backup-do-not-use-b18e46c959705ef7cbdba365dff9b056c74cd645.tar.bz2 drakx-backup-do-not-use-b18e46c959705ef7cbdba365dff9b056c74cd645.tar.xz drakx-backup-do-not-use-b18e46c959705ef7cbdba365dff9b056c74cd645.zip | |
(configure_net) fix layout by using a table
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 35 |
1 files changed, 17 insertions, 18 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index de93979d6..f3f48175e 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -915,24 +915,23 @@ Please run \"Internet access\" in control center.")); [ N("Second DNS Server (optional)"), \$netc->{dnsServer2} ], #\$cnx->{dns2} ); my @infos; - foreach (@conf_data) { - $infos[2*$i] = Gtk2::HBox->new(0,0); - gtkpack($infos[2*$i], gtkset_justify(Gtk2::Label->new($_->[0]), 'left')); - gtkpack($param_vbox, $infos[2*$i]); - if (defined $_->[2]) { - my $c = Gtk2::Combo->new; - $c->set_popdown_strings(@{$_->[2]}); - $infos[2*$i+1] = $c->entry; - gtkpack($infos[2*$i], $c); - } else { - $infos[2*$i+1] = Gtk2::Entry->new; - gtkpack($infos[2*$i], $infos[2*$i+1]); - #hide password if Entry Password - $infos[2*$i+1]->set_visibility(0) if $_->[0] eq N("Account Password") || $_->[0] eq N("Password"); - } - $infos[2*$i+1]->set_text(${$_->[1]}); - $i++; - } + gtkpack($param_vbox, + create_packtable({}, + map { + my $c; + if (defined $_->[2]) { + $c = Gtk2::Combo->new; + $c->set_popdown_strings(@{$_->[2]}); + $infos[2*$i+1] = $c->entry; + } else { + $c = $infos[2*$i+1] = Gtk2::Entry->new; + } + $infos[2*$i+1]->set_text(${$_->[1]}); + $i++; + [ $_->[0], $c ]; + } @conf_data + ) + ); $dialog->{rwindow}->add(gtkpack_(Gtk2::VBox->new, 0, Gtk2::Label->new(N("Internet Connection Configuration")), |