Changeset 1177 for trunk/readexp.tcl
- Timestamp:
- Oct 25, 2011 9:46:19 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/readexp.tcl
r1175 r1177 1461 1461 } 1462 1462 scale-get { 1463 if {![existsexp ${key}HSCALE]} { 1464 # fix missing scale factor record 1465 makeexprec ${key}HSCALE 1466 set value 1.0 1467 validreal value 15 6 1468 setexp ${key}HSCALE $value 1 15 1469 catch {incr ::expgui(changed)} 1470 setexp ${key}HSCALE "N" 20 1 1471 } 1463 1472 return [string trim [string range [readexp ${key}HSCALE] 0 14]] 1464 1473 }
Note: See TracChangeset
for help on using the changeset viewer.