From 8d2bcb434da75988d804fef1f8fc593c7e738588 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 17 Jul 2003 18:55:40 +0000 Subject: correctly align fields in "lan configuration" dialog --- perl-install/standalone/drakconnect | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index a8e44f50a..7aa2f7579 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -412,21 +412,25 @@ Configure them first by clicking on 'Configure'")),1,1,0); [N("DHCP client"), \$netcnx->{dhcp_client}] ); my $i = 0; + my $size_group = Gtk2::SizeGroup->new('horizontal'); + foreach my $j (@conf_data) { my $l = new Gtk2::Label($j->[0]); $l->set_justify('left'); $infos[2*$i] = gtkpack_(Gtk2::HBox->new, - 1); - $vbox_local->pack_start($infos[2*$i],0,0,0); + 1, $l); + $vbox_local->pack_start($infos[2*$i], 1, 1, 0); + my $c; if (defined $j->[2]) { - my $c = new Gtk2::OptionMenu; + $c = new Gtk2::OptionMenu; $c->set_popdown_strings(@{$j->[2]}); $infos[2*$i+1] = $c->entry; $infos[2*$i]->pack_start($c,0,0,0); } else { - $infos[2*$i+1] = new Gtk2::Entry(); + $infos[2*$i+1] = ($c = Gtk2::Entry->new); $infos[2*$i]->pack_start($infos[2*$i+1],0,0,0); } + $size_group->add_widget($c); $infos[2*$i+1]->set_text(${$j->[1]}); $i++; } -- cgit v1.2.1