home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Practical Programming in Tcl & Tk (4th Edition)
/
TCLBOOK4.BIN
/
pc
/
exsource
/
4_3.tcl
< prev
next >
Wrap
Text File
|
2003-04-16
|
91b
|
11 lines
#
# Example 4-3
# Comparing strings with eq.
#
if {$s1 eq $s2} {
# strings are equal
}