Changeset 9 for trunk/gui/scripts/spectrum.tcl
- Timestamp:
- Apr 19, 2005, 8:06:13 PM (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/spectrum.tcl
r1 r9 150 150 while {[llength $args] > 0} { 151 151 set first [lindex $args 0] 152 if {[ string index $first 0] == "-"} {152 if {[regexp {^-[a-zA-Z]} $first]} { 153 153 set what $first 154 154 set args [lrange $args 1 end]
Note: See TracChangeset
for help on using the changeset viewer.