summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk3.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/mygtk3.pm')
-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;