Changeset 471 for trunk/readexp.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:06:43 PM (13 years ago)
Author:
toby
Message:

# on 2001/10/19 19:27:09, toby did:
remove string replace for 8.0 compatibility

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/readexp.tcl

    • Property rcs:date changed from 2001/10/18 23:27:12 to 2001/10/19 19:27:09
    • Property rcs:lines changed from +5 -12 to +3 -3
    • Property rcs:rev changed from 1.31 to 1.32
    r468 r471  
    149149            if {[existsexp $key]} {
    150150                set expmap(htype_$ihist) \
    151                         [string replace $expmap(htype_$ihist) 3 3 D]
     151                        [string range $expmap(htype_$ihist) 0 2]D
    152152            }
    153153            lappend expmap(powderlist) $ihist
Note: See TracChangeset for help on using the changeset viewer.