Changeset 13


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

# on 1998/12/28 02:34:29, toby did:
fix bug -- set print option as 0 for missing entry.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/readexp.tcl

    • Property rcs:date changed from 1998/12/26 22:03:38 to 1998/12/28 02:34:29
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +4 -2
    r11 r13  
    226226        }
    227227        print-get {
    228             return [string trim [cdatget PRNT]]
     228            set print [string trim [cdatget PRNT]]
     229            if {$print != ""} {return $print}
     230            return 0
    229231        }
    230232        print-set {
Note: See TracChangeset for help on using the changeset viewer.