diff options
Diffstat (limited to 'ds9/library/panzoom.tcl')
-rw-r--r-- | ds9/library/panzoom.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/ds9/library/panzoom.tcl b/ds9/library/panzoom.tcl index 9d9f77d..1a1d84b 100644 --- a/ds9/library/panzoom.tcl +++ b/ds9/library/panzoom.tcl @@ -508,9 +508,8 @@ proc PanZoomDestroyDialog {} { if {[winfo exists $ipanzoom(top)]} { destroy $ipanzoom(top) destroy $ipanzoom(mb) + unset dpanzoom } - - unset dpanzoom } proc UpdatePanZoomMenu {} { @@ -680,15 +679,16 @@ proc PanZoomBackup {ch which} { proc ProcessPanCmd {varname iname} { upvar $varname var - upvar $iname i + upvar $iname ii # 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] + pan::yy_scan_string [lrange $var $ii end] + set rr [pan::yyparse] + incr ii [expr $pan::yycnt-1] + return $rr } proc oProcessPanCmd {varname iname} { |