Changeset 792 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:12:06 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 2003/05/24 20:55:52 to 2004/05/04 17:36:44
    • Property rcs:lines changed from +13 -2 to +15 -3
    • Property rcs:rev changed from 1.40 to 1.41
    r712 r792  
    13431343            }
    13441344            kratio-get {
    1345                 return [string trim [string range [readexp "${key} ICONS"] 55 64]]
     1345                set val [string trim [string range [readexp "${key} ICONS"] 55 64]]
     1346                if {$val == ""} {set val 0}
     1347                # N.B. this code is used w/CW, where Kratio may not be 0.0
     1348                set lam2 [string trim [string range [readexp "${key} ICONS"] 10 19]]
     1349                if {$lam2 == ""} {set lam2 0}
     1350                # Change kratio & flag the change (this is rather kludged)
     1351                if {$val == 0 && $lam2 != 0} {
     1352                    set val 0.5
     1353                    validreal val 10 5
     1354                    setexp "${key} ICONS" $val 56 10
     1355                    catch {incr ::expgui(changed)}
     1356                }
     1357                return $val
    13461358            }
    13471359            kratio-set {
Note: See TracChangeset for help on using the changeset viewer.