Changeset 1176 for branches/sandbox


Ignore:
Timestamp:
Oct 25, 2011 9:46:11 AM (9 years ago)
Author:
toby
Message:

fix missing scale factor record

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/sandbox/readexp.tcl

    r1173 r1176  
    14611461            }
    14621462            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                }
    14631472                return [string trim [string range [readexp ${key}HSCALE] 0 14]]
    14641473            }
Note: See TracChangeset for help on using the changeset viewer.