From 5c56710909de9dbb9029dab7af4f58744bcf1d3a Mon Sep 17 00:00:00 2001
From: etienne
Date: Thu, 4 Nov 2004 10:35:59 +0000
Subject: Window size bug fix

---
 Perl/Zinc/Debug.pm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/Perl/Zinc/Debug.pm b/Perl/Zinc/Debug.pm
index e5608f9..6d4758c 100644
--- a/Perl/Zinc/Debug.pm
+++ b/Perl/Zinc/Debug.pm
@@ -2663,12 +2663,9 @@ EOF
 sub getsize {
     
     my $zinc = shift;
-    unless (defined $wwidth{$zinc} and $wwidth{$zinc} > 1) {
-        $zinc->update;
-	my $geom = $zinc->geometry =~ /(\d+)x(\d+)+/=~ /(\d+)x(\d+)+/;
-	($wwidth{$zinc}, $wheight{$zinc}) = ($1, $2);
-    }
-    
+    $wwidth{$zinc} = $zinc->cget(-width);
+    $wheight{$zinc} = $zinc->cget(-height);
+        
 } # end getsize
 
 
-- 
cgit v1.1