| <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> |
| <html> |
| <head> |
| <title>Examples</title> |
| <link rel="stylesheet" href="style.css"> |
| </head> |
| |
| <body> |
| <? prevnext "<h1>Examples</h1>" ?> |
| |
| <pre> |
| set seconds [clock seconds] |
| puts "The time is [clock format $seconds]" |
| |
| proc greeting {lang} { |
| switch $lang { |
| en { |
| return "Hello, how is it going?" |
| } |
| it { |
| return "Buon giorno, come va?" |
| } |
| fr { |
| return "Bonjour, .......?" |
| } |
| de { |
| return "Guten Tag, wie gehts?" |
| } |
| zt { |
| return "Grüezi, wi gaat's?" |
| } |
| } |
| } |
| </pre> |
| |
| <?footer?> |
| </body> |
| </html> |