summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-21 12:25:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-21 12:25:16 +0000
commit53b3e8ca12644cf0ac9568097263e791a3e83da3 (patch)
tree59df1700dd95db43e80e16d64a09590c0d83147e /perl-install/ugtk2.pm
parent28a5c7354505dd2e77bf929d83e5b230c701d58e (diff)
downloaddrakx-53b3e8ca12644cf0ac9568097263e791a3e83da3.tar
drakx-53b3e8ca12644cf0ac9568097263e791a3e83da3.tar.gz
drakx-53b3e8ca12644cf0ac9568097263e791a3e83da3.tar.bz2
drakx-53b3e8ca12644cf0ac9568097263e791a3e83da3.tar.xz
drakx-53b3e8ca12644cf0ac9568097263e791a3e83da3.zip
- fix sizing main window
- always use a scrolled window when non pop_it (so that the buttons are at the bottom)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm11
1 files changed, 9 insertions, 2 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index d5e680a82..c7665b4a4 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -873,6 +873,7 @@ sub new {
$o->{window} = Gtk2::VBox->new(0,0);
$o->{window}->set_border_width($::Wizard_splash ? 0 : 10);
$o->{rwindow} = $o->{window};
+ set_main_window_size($o);
if (!defined($::WizardWindow) && !$::isEmbedded) {
$::WizardWindow = Gtk2::Window->new('toplevel');
$::WizardWindow->signal_connect(delete_event => sub { die 'wizcancel' });
@@ -882,7 +883,6 @@ sub new {
$::WizardWindow->add(gtkadd(gtkset_shadow_type(Gtk2::Frame->new, 'out'), $::WizardTable));
if ($::isInstall) {
- $::WizardTable->set_size_request($::windowwidth * 0.90, $::windowheight * ($::logoheight ? 0.73 : 0.9));
$::WizardWindow->set_uposition($::stepswidth + $::windowwidth * 0.04 + ($::move && 50), $::logoheight + $::windowheight * ($::logoheight ? 0.12 : 0.05));
$::WizardWindow->signal_connect(key_press_event => sub {
my (undef, $event) = @_;
@@ -924,7 +924,6 @@ sub new {
$::WizardWindow->set_position('center_always') if !$::isStandalone;
$::WizardTable->attach($draw1, 0, 2, 0, 1, 'fill', 'fill', 0, 0);
- $::WizardTable->set_size_request(540,460);
}
$::WizardWindow->show_all;
flush();
@@ -949,6 +948,14 @@ sub new {
$o;
}
+sub set_main_window_size {
+ my ($o) = @_;
+ my ($width, $height) =
+ $::isInstall ? ($::windowwidth * 0.90, $::windowheight * ($::logoheight ? 0.73 : 0.9)) :
+ $o->{isWizard} ? (540, 360) : (600, 400);
+ $o->{window}->set_size_request($width, $height);
+}
+
sub main {
my ($o, $o_completed, $o_canceled) = @_;
gtkset_mousecursor_normal();