diff options
Diffstat (limited to 'ds9/library/command.tcl')
| -rw-r--r-- | ds9/library/command.tcl | 23 |
1 files changed, 19 insertions, 4 deletions
diff --git a/ds9/library/command.tcl b/ds9/library/command.tcl index 6fd1e53..adaad7b 100644 --- a/ds9/library/command.tcl +++ b/ds9/library/command.tcl @@ -14,7 +14,6 @@ proc BadVisualError {} { proc ProcessCommandLineFirst {} { global argc global argv - global icolorbar global ds9 global pds9 @@ -23,10 +22,26 @@ proc ProcessCommandLineFirst {} { set item [lindex $argv $i] switch -- $item { - -help { - puts "For more information, use --help" - QuitDS9 + -prefs { + incr i + ProcessPrefsFirstCmd argv i } + } + incr i + } +} + +proc ProcessCommandLineSecond {} { + global argc + global argv + global ds9 + global pds9 + + set i 0 + while {$i < $argc} { + set item [lindex $argv $i] + + switch -- $item { -debug { incr i ProcessDebugTclCmd argv i |