summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakconnect
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/standalone/drakconnect')
-rwxr-xr-xperl-install/standalone/drakconnect14
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 },