ergonomy correction

1 files changed, 6 insertions, 5 deletions

diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 75ac12561..bfc59a775 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -79,7 +79,7 @@ $::isEmbedded or $window1->set_usize(500, 400);
 my $vbox1 = new Gtk::VBox(0,10);
 $window1->add($vbox1);
 my $hbox1 = new Gtk::HBox(0,0);
-$vbox1->pack_start($hbox1,1,1,0);
+$vbox1->pack_start($hbox1,0,0,0);
 $hbox1->pack_start(new Gtk::Label(_("Profile: ")),0,0,0);
 
 my $combo1 = new Gtk::Combo;
@@ -128,7 +128,7 @@ $button_new->signal_connect( clicked => sub {
 				 $dialog->set_position(1);
 				 $dialog->vbox->set_border_width(10);
 				 $dialog->signal_connect ( delete_event => sub { Gtk->main_quit(); });
-				 $dialog->vbox->pack_start(new Gtk::Label(_("Name of the profile to create:")),1,1,0);
+				 $dialog->vbox->pack_start(new Gtk::Label(_("Name of the profile to create (the new profile is created as a copy of the current one) :")),1,1,0);
 				 my $entry_dialog = new Gtk::Entry;
 				 $dialog->vbox->pack_start($entry_dialog,1,1,0);
 				 my $bbox_dialog = new Gtk::HButtonBox;
@@ -153,7 +153,7 @@ $button_new->signal_connect( clicked => sub {
 });
 $hbox1->pack_start($button_new,0,0,5);
 my $hbox2 = new Gtk::HBox(0,0);
-$vbox1->pack_start($hbox2,1,1,0);
+$vbox1->pack_start($hbox2,0,0,0);
 $hbox2->pack_start(new Gtk::Label(_("Hostname: ")),0,0,0);
 my $hostname = chomp_(`hostname`);
 my $label_host = new Gtk::Label($hostname);
@@ -262,7 +262,7 @@ $button3->signal_connect( clicked => [ \&configure_lan, '', $netcnx, $netc, $int
 $hbox3->pack_start($button3, 0, 0, 0);
 $vbox2->pack_start($hbox3, 0, 0, 0);
 
-$vbox1->pack_start(new Gtk::HSeparator,1,1,5);
+#$vbox1->pack_start(new Gtk::HSeparator,0,0,5);
 
 my $bbox0 = new Gtk::HButtonBox;
 $vbox1->pack_start($bbox0,0,0,0);
@@ -281,7 +281,7 @@ $button_wizard->signal_connect( clicked => sub {
 				 });
 $bbox0->add($button_wizard );
 
-$vbox1->pack_start(new Gtk::HSeparator,1,1,5);
+$vbox1->pack_start(new Gtk::HSeparator,0,0,5);
 
 my $bbox1 = new Gtk::HButtonBox;
 $vbox1->pack_start($bbox1,0,0,0);
@@ -327,6 +327,7 @@ $button_ok->signal_connect ( clicked => sub {
 			     });
 $bbox1->add($button_ok);
 $combo1->entry->signal_connect( 'changed', sub {
+#				    connected() and disconnect_backend();
 				    network::netconnect::set_profile($netcnx, $combo1->entry->get_text());
 				    network::netconnect::load_conf($netcnx, $netc, $intf);
 				    $netcnx->{$_}=$netc->{$_} foreach qw(NET_DEVICE NET_INTERFACE);