diff options
-rw-r--r-- | Perl/Zinc/Debug.pm | 9 |
1 files 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 |