| <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> |
| <html> |
| <head> |
| <title>Example Tcl Code</title> |
| <link rel="stylesheet" href="style.css"> |
| <script language="javascript" type="text/javascript"> |
| function MouseOn(el) { |
| el.OldBG = el.style.getPropertyValue("background-color"); |
| el.OldColor = el.style.getPropertyValue("color"); |
| el.style.setProperty("background-color", '#ffffff', ""); |
| el.style.setProperty("color", '#000000', ""); |
| } |
| function MouseOff(el) { |
| el.style.setProperty("color", el.OldColor, ""); |
| el.style.setProperty("background-color", el.OldBG, ""); |
| } |
| </script> |
| </head> |
| |
| <body> |
| <? prevnext "<h1>Example Tcl Code</h1>" ?> |
| |
| <? |
| |
| proc dospan {txt} { |
| return [format {<span onmouseover="MouseOn(this)" onmouseout="MouseOff(this)">%s</span>} $txt] |
| } |
| |
| proc pdospan {txt} { |
| puts -nonewline [dospan $txt] |
| } |
| |
| set Code { |
| if { [var exists customerid] } { |
| array set customer [get_customer_info $customerid] |
| puts "Welcome, Mr. $customer(Surname)" |
| } else { |
| puts "Hi, would you like to register a new account?" |
| } |
| } |
| |
| puts "<hr>" |
| foreach el $Code { |
| if {[llength $el] > 1} { |
| set el [string map {\n <br> " " } $el] |
| puts [dospan "{ $el }"] |
| } else { |
| puts "[dospan $el]" |
| } |
| } |
| puts "<hr>" |
| |
| ?> |
| |
| |
| So, Dave, show us the code... |
| |
| <b> |
| |
| <pre> |
| <? pdospan {if { [var exists customerid] }} ?> { |
| array set customer <? pdospan {[get_customer_info $customerid]} ?> |
| puts "Welcome, Mr. <? pdospan {$customer(Surname)} ?>" |
| } else { |
| puts "Hi, would you like to register a new account?" |
| } |
| </pre> |
| </b> |
| |
| Simple enough! |
| |
| |
| <?footer?> |
| </body> |
| </html> |
