diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-28 22:28:33 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-28 22:28:33 (GMT) |
commit | 56ad365bc8fd33689420ab6c8a75844a847ac5e0 (patch) | |
tree | 73fa6c76d4677555d4522927d13b8c46618bc2c4 /ds9/library/panzoom.tcl | |
parent | 86b28ca3e06fb4e2da993e29583abf8140dc187e (diff) | |
download | blt-56ad365bc8fd33689420ab6c8a75844a847ac5e0.zip blt-56ad365bc8fd33689420ab6c8a75844a847ac5e0.tar.gz blt-56ad365bc8fd33689420ab6c8a75844a847ac5e0.tar.bz2 |
add ds9 pan parser
Diffstat (limited to 'ds9/library/panzoom.tcl')
-rw-r--r-- | ds9/library/panzoom.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ds9/library/panzoom.tcl b/ds9/library/panzoom.tcl index 9fa7a89..0dceff2 100644 --- a/ds9/library/panzoom.tcl +++ b/ds9/library/panzoom.tcl @@ -673,6 +673,19 @@ proc ProcessPanCmd {varname iname} { # we need to be realized ProcessRealizeDS9 + pan::YY_FLUSH_BUFFER + pan::yy_scan_string [lrange $var $i end] + pan::yyparse + incr i [expr $pan::yycnt-1] +} + +proc oProcessPanCmd {varname iname} { + upvar $varname var + upvar $iname i + + # we need to be realized + ProcessRealizeDS9 + switch -- [string tolower [lindex $var $i]] { open {PanZoomDialog} close {PanZoomDestroyDialog} |