fix "Internet Connection Configuration" dialog does not show up its

contents

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 },