summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2013-11-06 18:15:22 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2013-11-24 23:28:14 +0100
commit5bbec3f3d0ed92818c34af72b3544bcef1be8cff (patch)
treeaadf30ac72f71e2623c03334c64d4ad095d703bf /perl-install
parent163c56d3ed7ca7eedd58e5da313740e4ae1afd93 (diff)
downloaddrakx-5bbec3f3d0ed92818c34af72b3544bcef1be8cff.tar
drakx-5bbec3f3d0ed92818c34af72b3544bcef1be8cff.tar.gz
drakx-5bbec3f3d0ed92818c34af72b3544bcef1be8cff.tar.bz2
drakx-5bbec3f3d0ed92818c34af72b3544bcef1be8cff.tar.xz
drakx-5bbec3f3d0ed92818c34af72b3544bcef1be8cff.zip
fix computing parent_window/root_window height
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk3.pm10
1 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm
index 6fcc192de..ac7c09f78 100644
--- a/perl-install/mygtk3.pm
+++ b/perl-install/mygtk3.pm
@@ -736,8 +736,14 @@ sub _gtk__MDV_Notebook {
import_style_ressources();
my ($layout, $selection_arrow, $selection_bar);
- my $parent_window = delete $opts->{parent_window} || root_window();
- my $root_height = first($parent_window->get_size);
+ my @size;
+ if ($opts->{parent_window}) {
+ my $pw = delete $opts->{parent_window};
+ @size = $pw->get_allocated_width;
+ } else {
+ @size = root_window_size();
+ }
+ my $root_height = first(@size);
my $suffix = $root_height == 800 && !$::isStandalone ? '_600' : '_768';
# the white square is a little bit above the actual left sidepanel:
my $offset = 20;