diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-15 16:51:23 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-15 16:51:23 +0000 |
| commit | cf38b5b6fc6b667f10b405a41952b790cd761b88 (patch) | |
| tree | 55219d5f36cc5823ea17c3ec46a512bcd9bea15e /perl-install/mygtk2.pm | |
| parent | 548ea2cdcdb1f3704b92a41663ed9baefb92089c (diff) | |
| download | drakx-cf38b5b6fc6b667f10b405a41952b790cd761b88.tar drakx-cf38b5b6fc6b667f10b405a41952b790cd761b88.tar.gz drakx-cf38b5b6fc6b667f10b405a41952b790cd761b88.tar.bz2 drakx-cf38b5b6fc6b667f10b405a41952b790cd761b88.tar.xz drakx-cf38b5b6fc6b667f10b405a41952b790cd761b88.zip | |
- move set_main_window_size() from ugtk2 to mygtk2
- call it in MagicWindow creation
Diffstat (limited to 'perl-install/mygtk2.pm')
| -rw-r--r-- | perl-install/mygtk2.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index 3f6897899..fe6a0c629 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -481,6 +481,9 @@ sub _gtk__MagicWindow { %$opts = (); } + set_main_window_size($::WizardWindow); + $sub_child->set_border_width(10); + $w = $::WizardWindow; gtkadd($::WizardTable, children_loose => [ $sub_child ]); } @@ -788,6 +791,11 @@ sub _text_insert { $textview; } +sub set_main_window_size { + my ($window) = @_; + my ($width, $height) = $::isInstall ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400); + $window->set_size_request($width, $height); +} my @icon_paths; sub add_icon_path { push @icon_paths, @_ } |