| Tcl |
| Hello World | Michael Neumann |
puts "Hello World" |
| Prints "Hello World" onto the
screen. |
| Squares | Michael Neumann |
set i 1
while {$i <= 10} {puts [expr $i*$i];set i [expr $i+1]}
|
| Outputs the squares from 1 to
10. |
| Substitution | Michael Neumann |
set a 3 set b 5 puts "$a + $b = [expr $a + $b]" |
Prints 3 + 5 = 8 onto
the screen. |
| Hello World | Tcl/Tk | Michael Neumann |
button .hello -text "Hello World" -command {destroy .}
pack .hello
|
| Prints "Hello World" onto the
screen. |