home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 4_2.tcl < prev    next >
Text File  |  2003-04-15  |  113b  |  11 lines
  1. #
  2. # Example 4-2
  3. # Comparing strings with string equal.
  4. #
  5.  
  6. if {[string equal $s1 $s2]} {
  7.     # strings are equal
  8. }
  9.  
  10.  
  11.