diff options
author | William Joye <wjoye@cfa.harvard.edu> | 2018-02-21 20:06:07 (GMT) |
---|---|---|
committer | William Joye <wjoye@cfa.harvard.edu> | 2018-02-21 20:06:07 (GMT) |
commit | 7521ef7312a93f34af0f5ee261cc4436478b4c5b (patch) | |
tree | 2e1c802fe52b748ea2af36bbbba3c6698fac0d89 /ds9/library/command.tcl | |
parent | 65ee41b9166635ea57f2ee22618bc5e86b6df003 (diff) | |
download | blt-7521ef7312a93f34af0f5ee261cc4436478b4c5b.zip blt-7521ef7312a93f34af0f5ee261cc4436478b4c5b.tar.gz blt-7521ef7312a93f34af0f5ee261cc4436478b4c5b.tar.bz2 |
add namespace
Diffstat (limited to 'ds9/library/command.tcl')
-rw-r--r-- | ds9/library/command.tcl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 71462dd..d728953 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -97,15 +97,11 @@ proc ProcessCommand {argv argc} { set item [lindex $argv $i] switch -- $item { -foo { - YY_FLUSH_BUFFER - yy_scan_string $argv + yy::YY_FLUSH_BUFFER + yy::yy_scan_string $argv yyparse set argc 0 } -# YY_FLUSH_BUFFER -# yy_scan_string $argv -# yyparse - -- {set noopts 1} -? - -help - @@ -175,7 +171,7 @@ proc ProcessCommand {argv argc} { -geometry { # already processed } -p -gif {set file(type) gif} + -gif {set file(type) gif} -green {set current(rgb) green; RGBChannel} -grid {incr i; ProcessGridCmd argv i} -nogrid {set grid(view) 0; GridUpdateCurrent} |