Rev | Line | |
---|
[931] | 1 | # this is an example for Branton Campbell |
---|
| 2 | # it adds a binding so that control-shift-left-mouse writes the |
---|
| 3 | # current mouse coordinates to a file |
---|
| 4 | # |
---|
| 5 | # To be inserted in localconfig or ~/.gsas_config (C:\gsas.config) |
---|
| 6 | # |
---|
| 7 | #catch {console show} |
---|
| 8 | if {[string tolower [file tail $argv0]] == "liveplot"} { |
---|
| 9 | bind .g <Control-Shift-Button-1> { |
---|
| 10 | set fp [open $expnam.poslist a] |
---|
| 11 | puts $fp "i\n [%W xaxis invtransform %x] \ |
---|
| 12 | [%W yaxis invtransform %y]" |
---|
| 13 | close $fp |
---|
| 14 | bell |
---|
| 15 | } |
---|
| 16 | } |
---|
Note: See
TracBrowser
for help on using the repository browser.