diff options
| author | etienne | 2004-11-04 10:35:59 +0000 |
|---|---|---|
| committer | etienne | 2004-11-04 10:35:59 +0000 |
| commit | 5c56710909de9dbb9029dab7af4f58744bcf1d3a (patch) | |
| tree | 609f0eb332cde13a3312e1bba68af7128011a014 | |
| parent | f301c3f5d2275cfa4a3ea4678db0525eeb250a9d (diff) | |
| download | tkzinc-5c56710909de9dbb9029dab7af4f58744bcf1d3a.zip tkzinc-5c56710909de9dbb9029dab7af4f58744bcf1d3a.tar.gz tkzinc-5c56710909de9dbb9029dab7af4f58744bcf1d3a.tar.bz2 tkzinc-5c56710909de9dbb9029dab7af4f58744bcf1d3a.tar.xz | |
Window size bug fix
| -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 |