From 346c27514bbb20b6a9b54fc8e46377add6a4daa6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 17 Jul 2003 18:00:38 +0000
Subject: center_always is unuser-friendly

---
 perl-install/standalone/drakconnect | 7 +++----
 perl-install/ugtk2.pm               | 3 +--
 2 files changed, 4 insertions(+), 6 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 711714476..bb504b962 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -221,7 +221,7 @@ $window1->{window}->add(
                                                                               }),
                                            gtksignal_connect(Gtk2::Button->new(N("Launch the wizard")),
                                                              clicked => sub {
-                                                                 system("drakconnect");
+                                                                 system("drakconnect&");
 								 #- reload everything...
 								 $netcnx = {}; $netc = {}; $intf = {};
 								 network::netconnect::read_net_conf('', $netcnx, $netc);
@@ -413,10 +413,10 @@ Configure them first by clicking on 'Configure'")),1,1,0);
 			);
 	my $i = 0;
 	foreach my $j (@conf_data) {
-	    $infos[2*$i] = new Gtk2::HBox(0,0);
 	    my $l = new Gtk2::Label($j->[0]);
 	    $l->set_justify('left');
-	    $infos[2*$i]->pack_start($l,1,1,0);
+	    $infos[2*$i] = gtkpack_(Gtk2::HBox->new,
+                                 1);
 	    $vbox_local->pack_start($infos[2*$i],0,0,0);
 	    if (defined $j->[2]) {
 		my $c = new Gtk2::OptionMenu;
@@ -479,7 +479,6 @@ Configure them first by clicking on 'Configure'")),1,1,0);
 	my @infos = @{$card_tab[2*$_]};
 	$intf->{"eth$_"}{BOOTPROTO} eq "dhcp" or $infos[8]->hide;
     }
-    $window->set_position('center_always');
     $window->run;
 }
 
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index 13ae2a97a..470b0a1a6 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -781,7 +781,6 @@ sub new {
     $o->_create_window($title);
     while (my $e = shift @tempory::objects) { $e->destroy }
     push @interactive::objects, $o if !$opts{no_interactive_objects};
-#    $o->{rwindow}->set_position('center-always') if $::isStandalone;
     $o->{rwindow}->set_modal(1) if ($grab || $o->{grab} || $o->{modal}) && !$::isInstall;
     $o->{rwindow}->set_transient_for($o->{transient}) if $o->{transient};
 
@@ -843,7 +842,7 @@ sub new {
 					   }
 				       });
 
-		$::WizardWindow->set_position('center_always');
+		$::WizardWindow->set_position('center_always') if !$::isStandalone;
 		$::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
 		$::WizardTable->set_size_request(540,420);
 	    }
-- 
cgit v1.2.1