diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2008-09-08 16:15:05 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2008-09-08 16:15:05 +0000 |
| commit | 09716088390276db3fc8d2d51ea035dadcf6fb62 (patch) | |
| tree | 6d3c20aca9ee031b907e9f84f5b40b2810ae6d76 /perl-install/diskdrake | |
| parent | 06438826d645957bdb6e85702bfbd63eaf839e67 (diff) | |
| download | drakx-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.pm | 6 |
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), |