summaryrefslogtreecommitdiffstats
path: root/perl-install/diskdrake
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2008-09-08 16:15:05 +0000
committerThierry Vignaud <tv@mandriva.org>2008-09-08 16:15:05 +0000
commit09716088390276db3fc8d2d51ea035dadcf6fb62 (patch)
tree6d3c20aca9ee031b907e9f84f5b40b2810ae6d76 /perl-install/diskdrake
parent06438826d645957bdb6e85702bfbd63eaf839e67 (diff)
downloaddrakx-09716088390276db3fc8d2d51ea035dadcf6fb62.tar
drakx-09716088390276db3fc8d2d51ea035dadcf6fb62.tar.gz
drakx-09716088390276db3fc8d2d51ea035dadcf6fb62.tar.bz2
drakx-09716088390276db3fc8d2d51ea035dadcf6fb62.tar.xz
drakx-09716088390276db3fc8d2d51ea035dadcf6fb62.zip
(get_action_box_size) create it out of add_kind2notebook() (needed for next commit)
Diffstat (limited to 'perl-install/diskdrake')
-rw-r--r--perl-install/diskdrake/hd_gtk.pm6
1 files changed, 5 insertions, 1 deletions
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),