summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 761998b98..a081ff6a0 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -622,7 +622,7 @@ sub mygtk2::MagicWindow::AUTOLOAD {
my ($meth) = $mygtk2::MagicWindow::AUTOLOAD =~ /mygtk2::MagicWindow::(.*)/;
- my @s = $meth eq 'show'
+ my ($s1, $s2) = $meth eq 'show'
? ('real_window', 'child') :
$w->{pop_it} && ($meth eq 'destroy' || $meth eq 'hide') ||
$for_real_window{$meth} ||
@@ -632,7 +632,8 @@ sub mygtk2::MagicWindow::AUTOLOAD {
#- warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on $s (@args)\n";
- $w->{$_}->$meth(@args) foreach @s;
+ $w->{$s2}->$meth(@args) if $s2;
+ $w->{$s1}->$meth(@args);
}
sub _create_Window {