aboutsummaryrefslogtreecommitdiff
path: root/demos
diff options
context:
space:
mode:
Diffstat (limited to 'demos')
-rw-r--r--demos/simpleInteractionTrack.tcl10
1 files changed, 9 insertions, 1 deletions
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} {