diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-08-19 20:56:00 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-08-19 20:56:00 +0000 |
| commit | 2391fd61ff2208990b383fa7e4d0490937c13798 (patch) | |
| tree | 1220c8ad2832c79a7663172df949ba744e1f83a1 /perl-install/interactive | |
| parent | b1013047af876ec8de2e1b59b5817907111d1053 (diff) | |
| download | drakx-backup-do-not-use-2391fd61ff2208990b383fa7e4d0490937c13798.tar drakx-backup-do-not-use-2391fd61ff2208990b383fa7e4d0490937c13798.tar.gz drakx-backup-do-not-use-2391fd61ff2208990b383fa7e4d0490937c13798.tar.bz2 drakx-backup-do-not-use-2391fd61ff2208990b383fa7e4d0490937c13798.tar.xz drakx-backup-do-not-use-2391fd61ff2208990b383fa7e4d0490937c13798.zip | |
use my_gtk {isWizard} and {isEmbedded} which are more accurate than
$::isWizard && !$my_gtk::pop_it and $::isEmbedded && !$my_gtk::pop_it, since
when the Plug is full, the window is not embedded.
Diffstat (limited to 'perl-install/interactive')
| -rw-r--r-- | perl-install/interactive/gtk.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/interactive/gtk.pm b/perl-install/interactive/gtk.pm index 2e2caf92b..106df7706 100644 --- a/perl-install/interactive/gtk.pm +++ b/perl-install/interactive/gtk.pm @@ -500,10 +500,8 @@ sub ask_fromW { my ($totalheight, $totalwidth) = ($mainw->{box_size}, 0); my $set_default_size = sub { - if (!$::isEmbedded && !$::isWizard || $my_gtk::pop_it) { - if ($has_scroll || $has_horiz_scroll) { - $mainw->{rwindow}->set_default_size($totalwidth+6+$my_gtk::shape_width, $has_scroll ? $totalheight+6+3+$my_gtk::shape_width : 0); - } + if (($has_scroll || $has_horiz_scroll) && !$mainw->{isEmbedded} && !$mainw->{isWizard}) { + $mainw->{rwindow}->set_default_size($totalwidth+6+$my_gtk::shape_width, $has_scroll ? $totalheight+6+3+$my_gtk::shape_width : 0); } }; @@ -529,7 +527,7 @@ sub ask_fromW { $size && $total_size or return $w; #- do not bother computing stupid/bad things my $ratio = max($size / $total_size, 0.2); - my ($possibleheight, $possiblewidth) = $::isEmbedded && !$my_gtk::pop_it ? (450, 380) : ($::windowheight * 0.8, $::windowwidth * 0.8); + my ($possibleheight, $possiblewidth) = $mainw->{isEmbedded} ? (450, 380) : ($::windowheight * 0.8, $::windowwidth * 0.8); $possibleheight -= $mainw->{box_size}; my $wantedwidth = max(250, $max_width * 5); @@ -598,7 +596,7 @@ sub wait_messageW($$$) { $box->pack_start($_, 1, 1, 4) foreach my @l = map { new Gtk::Label(scalar warp_text($_)) } @$messages; ($w->{wait_messageW} = $l[$#l])->signal_connect(expose_event => sub { $w->{displayed} = 1 }); - $w->{rwindow}->set_position('center') if ($::isStandalone && (!$::isEmbedded && !$::isWizard || $my_gtk::pop_it)); + $w->{rwindow}->set_position('center') if $::isStandalone && !$w->{isEmbedded} && !$w->{isWizard}; $w->{window}->show_all; $w->sync until $w->{displayed}; $w; |