blob: 94c9b826b0c9c1490efc0e7bb5fbd13cc134b8ca (
plain)
1
2
3
4
5
6
7
8
|
if [doCmd {set tcl_version} errorCode=NONE \
return=[list [list 1 8.0]] V] {
# code when failure:
# variable tcl_version does not exists or
# does not return 8.0
} else {
# variable V will contain 8.0
}
|