diff options
author | etienne | 2004-03-05 14:54:23 +0000 |
---|---|---|
committer | etienne | 2004-03-05 14:54:23 +0000 |
commit | 9b3bb3ae9d72c60f0078a6a22bad2c83bddce182 (patch) | |
tree | 540910a2c7ee99d3603328309fd15ca0313082e3 /Perl | |
parent | 57d0219e98c3ccb4b260d58a4264a9e02678e708 (diff) | |
download | tkzinc-9b3bb3ae9d72c60f0078a6a22bad2c83bddce182.zip tkzinc-9b3bb3ae9d72c60f0078a6a22bad2c83bddce182.tar.gz tkzinc-9b3bb3ae9d72c60f0078a6a22bad2c83bddce182.tar.bz2 tkzinc-9b3bb3ae9d72c60f0078a6a22bad2c83bddce182.tar.xz |
*** empty log message ***
Diffstat (limited to 'Perl')
-rw-r--r-- | Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl b/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl index c0c1372..42bb2d1 100644 --- a/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl +++ b/Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl @@ -435,6 +435,11 @@ sub _clipAndTranslate { $x = 0 unless $x; $y = 0 unless $y; $self->{widget}->scale($self->{itemclip}, $shrinkfactor, $shrinkfactor); - $self->{widget}->translate($self->{topgroup}, $x, $y); + if ($Tk::Zinc::VERSION lt "3.297") { + $self->{widget}->translate($self->{topgroup}, $x, $y); + } else { + my ($xc, $yc) = $self->{widget}->coords($self->{topgroup}); + $self->{widget}->coords($self->{topgroup}, [$xc + $x, $yc + $y]); + } } 1; |