diff options
| -rw-r--r-- | perl-install/mygtk3.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/perl-install/mygtk3.pm b/perl-install/mygtk3.pm index 3f75d4cc6..ff27ecbe1 100644 --- a/perl-install/mygtk3.pm +++ b/perl-install/mygtk3.pm @@ -1333,7 +1333,7 @@ sub _create_Window { my ($wi, $he); $w->signal_connect(size_allocate => sub { my (undef, $event) = @_; - my @w_size = @$event{qw(height width)}; + my @w_size = @$event{qw(width height)}; # ignore bogus sizing events: return if $w_size[2] < 5; |