summaryrefslogtreecommitdiffstats
path: root/perl-install/mygtk2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2005-02-07 12:23:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2005-02-07 12:23:05 +0000
commitf6c52940d1155e414f2e44938106161459fc2ca3 (patch)
treedfd296e95ebcf91aad0cffd047c812f65be4bf83 /perl-install/mygtk2.pm
parent112102e7de20f5c01dc9b8f2cebf8f23dfff6304 (diff)
downloaddrakx-f6c52940d1155e414f2e44938106161459fc2ca3.tar
drakx-f6c52940d1155e414f2e44938106161459fc2ca3.tar.gz
drakx-f6c52940d1155e414f2e44938106161459fc2ca3.tar.bz2
drakx-f6c52940d1155e414f2e44938106161459fc2ca3.tar.xz
drakx-f6c52940d1155e414f2e44938106161459fc2ca3.zip
->get('window-position') should be done on real_window
Diffstat (limited to 'perl-install/mygtk2.pm')
-rw-r--r--perl-install/mygtk2.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/mygtk2.pm b/perl-install/mygtk2.pm
index 7d399a4f3..4fd53b3f4 100644
--- a/perl-install/mygtk2.pm
+++ b/perl-install/mygtk2.pm
@@ -624,6 +624,7 @@ sub mygtk2::MagicWindow::AUTOLOAD {
my ($s1, $s2) = $meth eq 'show'
? ('real_window', 'child') :
+ $meth eq 'get' && $args[0] eq 'window-position' ||
$w->{pop_it} && ($meth eq 'destroy' || $meth eq 'hide') ||
$for_real_window{$meth} ||
!$w->{child}->can($meth)