Changeset 49


Ignore:
Timestamp:
Dec 4, 2009 4:59:32 PM (11 years ago)
Author:
toby
Message:

# on 1999/02/02 17:28:44, toby did:
add label-set

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 1999/01/06 04:06:41 to 1999/02/02 17:28:44
    • Property rcs:lines changed from +37 -10 to +4 -1
    • Property rcs:rev changed from 1.4 to 1.5
    r19 r49  
    506506            label-get {
    507507                return [string trim [string range [readexp ${key}A] 50 57] ]
     508            }
     509            label-set {
     510                setexp ${key}A $value 51 8
    508511            }
    509512            temptype-get {
Note: See TracChangeset for help on using the changeset viewer.