Changeset 563

Timestamp:

Dec 4, 2009 5:08:16 PM (14 years ago)

Author:

toby

Message:

# on 2002/02/11 19:32:02, toby did:
add cursor display (livecursor) -- requested by Lachlan

File:

• trunk/liveplot (modified) (3 diffs, 3 props)

trunk/liveplot

@@ -1806 +1806 @@
 }
 
+# define a binding to show the cursor location
+proc ToggleLiveCursor {} {
+    global box graph
+    if {[bind $box <Any-Motion>] == ""} {
+        .a.options.menu entryconfig $graph(CursorLabel) -label "Hide Cursor Position"
+        pack [frame .bot -bd 2 -relief sunken] -side bottom -fill x
+        pack [label .bot.val1 -textvariable graph(position)] -side left
+        pack [button .bot.close -command ToggleLiveCursor -text "Close cursor display"] -side right
+        bind $box <Any-Motion> {FormatLiveCursor %x %y}
+    } else {
+        .a.options.menu entryconfig $graph(CursorLabel) -label "Show Cursor Position"
+        destroy .bot
+        bind $box <Any-Motion> {}
+    }
+}
+proc FormatLiveCursor {x y} {
+    global graph
+    set graph(position) \
+            "x=[format %.3f [$graph(blt) xaxis invtransform $x]] y=[format %.3f [$graph(blt) yaxis invtransform $y]]"
+}
+#-------------------------------------------------------------------------
+
+
 # override options with locally defined values
 if [file exists [file join $expgui(scriptdir) localconfig]] {
@@ -2016 +2039 @@
         -variable graph(legend) \
         -command {setlegend $box $graph(legend)}
+.a.options.menu add command -label "Show Cursor Position" \
+        -command ToggleLiveCursor
+set graph(CursorLabel) [.a.options.menu index "Show Cursor Position"]
 .a.options.menu add command -label "Set PS output" -command setpostscriptout
 .a.options.menu add cascade -menu  .a.options.menu.font \
@@ -2205 +2231 @@
     set cycle [getcycle];readdata .g
 }
+bind . <Key-l> {ToggleLiveCursor}
+bind . <Key-L> {ToggleLiveCursor}
 updateifnew
 donewaitmsg