Changeset 792

Timestamp:

Dec 4, 2009 5:12:06 PM (14 years ago)

Author:

toby

Message:

# on 2004/05/04 17:36:44, toby did:
fix diffrence from EXPEDT; change kratio=0 to 0.5

File:

• trunk/readexp.tcl (modified) (1 diff, 3 props)

trunk/readexp.tcl

@@ -1343 +1343 @@
             }
             kratio-get {
-                return [string trim [string range [readexp "${key} ICONS"] 55 64]]
+                set val [string trim [string range [readexp "${key} ICONS"] 55 64]]
+                if {$val == ""} {set val 0}
+                # N.B. this code is used w/CW, where Kratio may not be 0.0
+                set lam2 [string trim [string range [readexp "${key} ICONS"] 10 19]]
+                if {$lam2 == ""} {set lam2 0}
+                # Change kratio & flag the change (this is rather kludged)
+                if {$val == 0 && $lam2 != 0} {
+                    set val 0.5
+                    validreal val 10 5
+                    setexp "${key} ICONS" $val 56 10
+                    catch {incr ::expgui(changed)}
+                }
+                return $val
             }
             kratio-set {