diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2005-02-07 12:23:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2005-02-07 12:23:05 +0000 |
| commit | f6c52940d1155e414f2e44938106161459fc2ca3 (patch) | |
| tree | dfd296e95ebcf91aad0cffd047c812f65be4bf83 /perl-install | |
| parent | 112102e7de20f5c01dc9b8f2cebf8f23dfff6304 (diff) | |
| download | drakx-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')
| -rw-r--r-- | perl-install/mygtk2.pm | 1 |
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) |