Changeset 1177 for trunk/readexp.tcl

Timestamp:

Oct 25, 2011 9:46:19 AM (9 years ago)

Author:

toby

Message:

fix missing scale factor record

File:

• trunk/readexp.tcl (modified) (1 diff)

trunk/readexp.tcl

@@ -1461 +1461 @@
             }
             scale-get {
+                if {![existsexp ${key}HSCALE]} {
+                    # fix missing scale factor record
+                    makeexprec ${key}HSCALE
+                    set value 1.0
+                    validreal value 15 6
+                    setexp ${key}HSCALE $value 1 15
+                    catch {incr ::expgui(changed)}
+                    setexp ${key}HSCALE "N" 20 1
+                }
                 return [string trim [string range [readexp ${key}HSCALE] 0 14]]
             }