Practical Programming in Tcl & Tk (4th Edition)/TCLBOOK4.BIN/mac/exsource.old/29_1.tcl

Text File | 2003-04-15 | 197b | 13 lines

#
# Example 29-1
# Reading an option database file.
#

if [file exists $appdefaults] {
    if [catch {option readfile $appdefaults startup} err] {
        puts stderr " error in $appdefaults: $err"
    }
}