diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-09-01 13:19:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-09-01 13:19:33 +0000 |
| commit | 1705f21f0459dbc03d8d5654c79aded954d8f94d (patch) | |
| tree | 3c32386912cd87d19f4e2c6be55c8a9da8238347 | |
| parent | 5c7169359fe5f970ee128acf0184f03eae58ad7e (diff) | |
| download | drakx-backup-do-not-use-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar drakx-backup-do-not-use-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar.gz drakx-backup-do-not-use-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar.bz2 drakx-backup-do-not-use-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar.xz drakx-backup-do-not-use-1705f21f0459dbc03d8d5654c79aded954d8f94d.zip | |
fix return value (thanks to blino for finding the pb)
| -rw-r--r-- | perl-install/mygtk2.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm index da360de16..ece5dbaea 100644 --- a/perl-install/mygtk2.pm +++ b/perl-install/mygtk2.pm @@ -716,19 +716,20 @@ sub mygtk2::MagicWindow::AUTOLOAD { my ($meth) = $mygtk2::MagicWindow::AUTOLOAD =~ /mygtk2::MagicWindow::(.*)/; - my @l = $meth eq 'show' - ? ('banner', 'child', 'real_window') : + my ($s1, @s2) = $meth eq 'show' + ? ('real_window', 'banner', 'child') : $meth eq 'destroy' || $meth eq 'hide' ? - ($w->{pop_it} ? 'real_window' : ('banner', 'child')) : + ($w->{pop_it} ? 'real_window' : ('child', 'banner')) : $meth eq 'get' && $args[0] eq 'window-position' || $for_real_window{$meth} || !$w->{child}->can($meth) ? 'real_window' : 'child'; -#- warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on @l (@args)\n"; +#- warn "mygtk2::MagicWindow::$meth", first($w =~ /HASH(.*)/), " on $s1 @s2 (@args)\n"; - $w->{$_} && $w->{$_}->$meth(@args) foreach @l; + $w->{$_} && $w->{$_}->$meth(@args) foreach @s2; + $w->{$s1}->$meth(@args); } sub _create_Window { |