# this is an example for Branton Campbell
# it adds a binding so that control-shift-left-mouse writes the 
# current coordinates to a file
#
# this requires cmpr.tcl v1.3 or later (1998/11/24 22:26:17) to be used 
# as ~/.cmpr_init (c:\.cmpr_init for Windows). For older versions, just add
# this to the end of cmpr.tcl
#
bind $graph(blt) <Control-Shift-Button-1> {
    set fp [open positions.list a]
    puts $fp "i\n [%W xaxis invtransform %x] [%W yaxis invtransform %y]"
    close $fp
    bell
}
