From 4b10c6011989c1fd1aacb033ec5e2f08f0103eab Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 27 Aug 2008 17:49:25 +0000 Subject: (get_main_window_size) split it out of set_main_window_size() --- perl-install/mygtk2.pm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'perl-install/mygtk2.pm') diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index ccd22522e..0031f3ef6 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -1198,13 +1198,18 @@ sub _allow_scroll_TextView_to_bottom { }; } + +sub get_main_window_size() { + my ($width, $height) = $::real_windowwidth ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400); +} + sub get_label_width() { first(mygtk2::get_main_window_size()) - 50; } sub set_main_window_size { my ($window) = @_; - my ($width, $height) = $::real_windowwidth ? ($::real_windowwidth, $::real_windowheight) : $::isWizard ? (540, 360) : (600, 400); + my ($width, $height) = get_main_window_size(); $window->set_size_request($width, $height); } -- cgit v1.2.1