diff options
| -rw-r--r-- | demos/simpleInteractionTrack.tcl | 10 |
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} { |