diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-01-26 09:54:37 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-01-26 09:54:37 +0000 |
| commit | 564d7aafd371541c042772fbc0aa16ca204005b5 (patch) | |
| tree | 94afaea43ef2ed5ab58b8e327c4b6a5d6d679ef1 /perl-install | |
| parent | 5dafb7f993d94cf570d5f8e7de99d55a67361a3b (diff) | |
| download | drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar.gz drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar.bz2 drakx-564d7aafd371541c042772fbc0aa16ca204005b5.tar.xz drakx-564d7aafd371541c042772fbc0aa16ca204005b5.zip | |
fix return value of method calls on MagicWindow
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/mygtk2.pm | 5 |
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 { |