summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-07-17 18:00:38 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-07-17 18:00:38 +0000
commit346c27514bbb20b6a9b54fc8e46377add6a4daa6 (patch)
tree128ceb155b24af807ac77bfcb9c188f7a9453fc0 /perl-install
parent96ca621d062fd1cc68e3faca20ad625d3088507c (diff)
downloaddrakx-346c27514bbb20b6a9b54fc8e46377add6a4daa6.tar
drakx-346c27514bbb20b6a9b54fc8e46377add6a4daa6.tar.gz
drakx-346c27514bbb20b6a9b54fc8e46377add6a4daa6.tar.bz2
drakx-346c27514bbb20b6a9b54fc8e46377add6a4daa6.tar.xz
drakx-346c27514bbb20b6a9b54fc8e46377add6a4daa6.zip
center_always is unuser-friendly
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect7
-rw-r--r--perl-install/ugtk2.pm3
2 files changed, 4 insertions, 6 deletions
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);
}