Changeset 3800 for branches/1.3/gui/scripts/histogramresult.tcl
- Timestamp:
- Jul 15, 2013, 9:29:39 AM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/1.3/gui/scripts/histogramresult.tcl
r3765 r3800 286 286 -param "" 287 287 } 288 foreach {opt val} $settings { 289 if {![info exists params($opt)]} { 290 error "bad setting \"$opt\": should be [join [lsort [array names params]] {, }]" 291 } 292 set params($opt) $val 293 } 288 array set params $settings 294 289 295 290 # if the color is "auto", then select a color from -autocolors
Note: See TracChangeset
for help on using the changeset viewer.