home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource / 18_9.tcl < prev    next >
Text File  |  2003-04-16  |  471b  |  25 lines
  1. #
  2. # Example 18-9
  3. # SitePage template procedure, version 1.
  4. #
  5.  
  6. proc SitePage {title} {
  7.     global site
  8.     set html "<html><head><title>$title</title></head>\n"
  9.     append html "<body bgcolor=white text=black>\n"
  10.     append html "<h1>$title</h1>\n"
  11.     set sep ""
  12.     foreach {label url} $site(pages) {
  13.         append html $sep
  14.         if {[string compare $label $title] == 0} {
  15.             append html "$label"
  16.         } else {
  17.             append html "<a href=\" $url\" >$label</a>"
  18.         }
  19.         set sep " | "
  20.     }
  21.     return $html
  22. }
  23.  
  24.  
  25.