source: trunk/example_localconfig

Last change on this file was 931, checked in by toby, 11 years ago

include rest of files

File size: 466 bytes
RevLine 
[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}
8if {[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.