home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Practical Programming in Tcl & Tk (4th Edition)
/
TCLBOOK4.BIN
/
mac
/
exsource.old
/
6_14.tcl
< prev
next >
Wrap
Text File
|
2003-04-15
|
181b
|
13 lines
#
# Example 6-14
# A standard catch phrase.
#
if {[catch { command arg1 arg2 ... } result]} {
puts stderr $result
} else {
# command was ok, result contains the return value
}