summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-09-01 13:19:33 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-09-01 13:19:33 +0000
commit1705f21f0459dbc03d8d5654c79aded954d8f94d (patch)
tree3c32386912cd87d19f4e2c6be55c8a9da8238347 /perl-install
parent5c7169359fe5f970ee128acf0184f03eae58ad7e (diff)
downloaddrakx-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar
drakx-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar.gz
drakx-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar.bz2
drakx-1705f21f0459dbc03d8d5654c79aded954d8f94d.tar.xz
drakx-1705f21f0459dbc03d8d5654c79aded954d8f94d.zip
fix return value (thanks to blino for finding the pb)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/mygtk2.pm11
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 {