Tcl/Tk in a Nutshell

Name

while

.sp −1p while test body

A loop construct that repeatedly evaluates expression test; if it returns a true value, it executes body.

Example

set i 1
while {$i <= 10} {
     puts $i
     incr i
}