From 0dd38b4ef4038511d0b1842ff6d3f666b279c919 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 19 Oct 2005 11:00:28 +0000
Subject: Added < and > to rotate the label around the current position.

---
 demos/simpleInteractionTrack.tcl | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'demos/simpleInteractionTrack.tcl')

diff --git a/demos/simpleInteractionTrack.tcl b/demos/simpleInteractionTrack.tcl
index e5136b0..66e39ed 100644
--- a/demos/simpleInteractionTrack.tcl
+++ b/demos/simpleInteractionTrack.tcl
@@ -154,7 +154,15 @@ of a flight track item.
 	::simpleInteractionTrack::moveOn %x %y
     }
 
-
+    bind $w.zinc <greater> {
+      %W itemconfigure $::simpleInteractionTrack::track -labelangle \
+          [expr 10 + [%W itemcget $::simpleInteractionTrack::track -labelangle]]
+    }
+    bind $w.zinc <less> {
+      %W itemconfigure $::simpleInteractionTrack::track -labelangle \
+          [expr 10 - [%W itemcget $::simpleInteractionTrack::track -labelangle]]
+    }
+    focus $w.zinc
 
     #"moveOn" state#
     proc moveOn {x y} {
-- 
cgit v1.1