diff options
Diffstat (limited to 'ds9/library/command.tcl')
| -rw-r--r-- | ds9/library/command.tcl | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 221ea12..71462dd 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -96,6 +96,16 @@ proc ProcessCommand {argv argc} { while {$i < $argc} { set item [lindex $argv $i] switch -- $item { + -foo { + YY_FLUSH_BUFFER + yy_scan_string $argv + yyparse + set argc 0 + } +# YY_FLUSH_BUFFER +# yy_scan_string $argv +# yyparse + -- {set noopts 1} -? - -help - @@ -165,7 +175,7 @@ proc ProcessCommand {argv argc} { -geometry { # already processed } - -gif {set file(type) gif} +p -gif {set file(type) gif} -green {set current(rgb) green; RGBChannel} -grid {incr i; ProcessGridCmd argv i} -nogrid {set grid(view) 0; GridUpdateCurrent} |