home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 18_18.tml < prev    next >
Text File  |  2003-04-15  |  268b  |  20 lines
  1. #
  2. # Example 18-18
  3. # Generating a table with html::foreach.
  4. #
  5.  
  6. <TABLE BORDER=1>
  7. [html::foreach {product price} {
  8.     T-Shirt            $10.00
  9.     YoYo            $7.50
  10.     Footbag            $15.00
  11. } {
  12.     <TR>
  13.         <TD>$product</TD>
  14.         <TD ALIGN=RIGHT><FONT FACE=courier>$price</FONT></TD>
  15.     </TR>
  16. }
  17. </TABLE>
  18.  
  19.  
  20.