diff options
author | lecoanet | 2005-10-19 11:00:28 +0000 |
---|---|---|
committer | lecoanet | 2005-10-19 11:00:28 +0000 |
commit | 0dd38b4ef4038511d0b1842ff6d3f666b279c919 (patch) | |
tree | 1a4279f4956240137239adcc8d4987d548bc62d6 | |
parent | 418a729b9bdd7c899c444a889b0064fbc998f2a2 (diff) | |
download | tkzinc-0dd38b4ef4038511d0b1842ff6d3f666b279c919.zip tkzinc-0dd38b4ef4038511d0b1842ff6d3f666b279c919.tar.gz tkzinc-0dd38b4ef4038511d0b1842ff6d3f666b279c919.tar.bz2 tkzinc-0dd38b4ef4038511d0b1842ff6d3f666b279c919.tar.xz |
Added < and > to rotate the label around the current position.
-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} { |