From 09716088390276db3fc8d2d51ea035dadcf6fb62 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 8 Sep 2008 16:15:05 +0000
Subject: (get_action_box_size) create it out of add_kind2notebook() (needed
 for next commit)

---
 perl-install/diskdrake/hd_gtk.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/diskdrake')

diff --git a/perl-install/diskdrake/hd_gtk.pm b/perl-install/diskdrake/hd_gtk.pm
index ce7163bbe..a68c3a2ba 100644
--- a/perl-install/diskdrake/hd_gtk.pm
+++ b/perl-install/diskdrake/hd_gtk.pm
@@ -130,6 +130,10 @@ sub try_ {
     Gtk2->main_quit if $v && member($name, 'Done');
 }
 
+sub get_action_box_size() {
+    $::isStandalone ? 200 : 150, $::isEmbedded ? 150 : 180;
+}
+
 ################################################################################
 # generic: helpers
 ################################################################################
@@ -138,7 +142,7 @@ sub add_kind2notebook {
     die if $kind->{main_box};
 
     $kind->{display_box} = gtkset_size_request(Gtk2::HBox->new(0,0), $width, $height);
-    $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(), $::isStandalone ? 200 : 150, $::isEmbedded ? 150 : 180);
+    $kind->{action_box} = gtkset_size_request(Gtk2::VBox->new(), get_action_box_size());
     $kind->{info_box} = Gtk2::VBox->new(0,0);
     my $box =
       gtkpack_(Gtk2::VBox->new(0,7),
-- 
cgit v1.2.1