diff options
| author | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-06 18:15:22 +0100 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2013-11-24 23:28:14 +0100 |
| commit | 5bbec3f3d0ed92818c34af72b3544bcef1be8cff (patch) | |
| tree | aadf30ac72f71e2623c03334c64d4ad095d703bf /perl-install | |
| parent | 163c56d3ed7ca7eedd58e5da313740e4ae1afd93 (diff) | |
| download | drakx-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.pm | 10 |
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; |