diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-03-22 21:30:35 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-03-22 21:30:35 (GMT) |
commit | a62b1b0bb3868e37139c72aafd92ad310635c31c (patch) | |
tree | 5cacc1d10ae9a5b83566136f6d38be01ccd4d881 /ds9/library/crosshair.tcl | |
parent | 6e4991730ba8fd5e33a6e7fd7ecaee9aba17fcaa (diff) | |
download | blt-a62b1b0bb3868e37139c72aafd92ad310635c31c.zip blt-a62b1b0bb3868e37139c72aafd92ad310635c31c.tar.gz blt-a62b1b0bb3868e37139c72aafd92ad310635c31c.tar.bz2 |
add ds9 crosshair parser
Diffstat (limited to 'ds9/library/crosshair.tcl')
-rw-r--r-- | ds9/library/crosshair.tcl | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/ds9/library/crosshair.tcl b/ds9/library/crosshair.tcl index 453bc4d..e737940 100644 --- a/ds9/library/crosshair.tcl +++ b/ds9/library/crosshair.tcl @@ -70,6 +70,7 @@ proc CrosshairTo {x y sys sky} { } } } + UpdateCrosshairDialog } } @@ -262,6 +263,14 @@ proc ProcessCrosshairCmd {varname iname} { # we need to be realized ProcessRealizeDS9 + global debug + if {$debug(tcl,parser)} { + crosshair::YY_FLUSH_BUFFER + crosshair::yy_scan_string [lrange $var $i end] + crosshair::yyparse + incr i [expr $crosshair::yycnt-1] + } else { + switch -- [string tolower [lindex $var $i]] { match { incr i @@ -283,10 +292,16 @@ proc ProcessCrosshairCmd {varname iname} { incr i [FixSpec sys sky format physical fk5 degrees] CrosshairTo $x $y $sys $sky - UpdateCrosshairDialog } } } +} + +proc CrosshairCmdLock {sys} { + global crosshair + set crosshair(lock) $sys + LockCrosshairCurrent +} proc ProcessSendCrosshairCmd {proc id param} { global crosshair |