From 9b3bb3ae9d72c60f0078a6a22bad2c83bddce182 Mon Sep 17 00:00:00 2001
From: etienne
Date: Fri, 5 Mar 2004 14:54:23 +0000
Subject: *** empty log message ***

---
 Perl/demos/Tk/demos/zinc_contrib_lib/TripleRotatingWheel.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'Perl/demos/Tk')

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;
-- 
cgit v1.1