diff options
| -rwxr-xr-x | perl-install/standalone/drakconnect | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index dc8e343e1..d42909f4c 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -622,26 +622,24 @@ Create one first by clicking on 'Configure'"))); next; } $infos[2*$i] = Gtk2::HBox->new(0,0); - my $l = Gtk2::Label->new($_->[0]); - $l->set_justify('left'); - $infos[2*$i]->pack_start($l, 0, 0, 0); - $vbox2->pack_start($infos[2*$i], 0, 0, 0); + gtkpack($infos[2*$i], gtkset_justify(Gtk2::Label->new($_->[0]), 'left')); + gtkpack($vbox2, $infos[2*$i]); if (defined $_->[2]) { my $c = Gtk2::Combo->new; $c->set_popdown_strings(@{$_->[2]}); $infos[2*$i+1] = $c->entry; - $infos[2*$i]->pack_start($c,0 , 0, 0); + gtkpack($infos[2*$i], $c); } else { $infos[2*$i+1] = Gtk2::Entry->new; - $infos[2*$i]->pack_start($infos[2*$i+1], 0, 0, 0); + gtkpack($infos[2*$i], $infos[2*$i+1]); #hide password if Entry Password - if ($_->[0] eq N("Account Password") || $_->[0] eq N("Password")) { $infos[2*$i+1]->set_visibility(0) }; + $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(Gtk2::VBox->new(0, 0), + gtkpack($dialog->vbox, Gtk2::Label->new(N("Internet Connection Configuration")), Gtk2::HSeparator->new, create_packtable({ col_spacings => 5, row_spacings => 5, homogenous => 1 }, |