From f6c52940d1155e414f2e44938106161459fc2ca3 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 7 Feb 2005 12:23:05 +0000
Subject: ->get('window-position') should be done on real_window

---
 perl-install/mygtk2.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install/mygtk2.pm')

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)
-- 
cgit v1.2.1