diff options
Diffstat (limited to 'ds9/library/crop.tcl')
| -rw-r--r-- | ds9/library/crop.tcl | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/ds9/library/crop.tcl b/ds9/library/crop.tcl index f2e0fbc..6c71d91 100644 --- a/ds9/library/crop.tcl +++ b/ds9/library/crop.tcl @@ -388,6 +388,19 @@ proc CropBackupRGB {ch which} { proc ProcessCropCmd {varname iname} { upvar $varname var + upvar $iname ii + + # we need to be realized + ProcessRealizeDS9 + + crop::YY_FLUSH_BUFFER + crop::yy_scan_string [lrange $var $ii end] + crop::yyparse + incr ii [expr $crop::yycnt-1] +} + +proc oProcessCropCmd {varname iname} { + upvar $varname var upvar $iname i # we need to be realized |