Retardo.tcl

# UN SIMPLE SLEEP
frame .f \
   -background green
button .f.a \
   -width 20 -height 2 \
   -textvariable texto \
   -borderwidth 2 \
   -relief sunken \
   -bg green \
   -command { automatico }

pack .f .f.a -side left

proc automatico {} {
   global texto
   set k 1
   while { $k < 5 } {
     set texto 1111
     retardo
     set texto 2222
     retardo
  }
}

proc retardo {} {
   set velocidad 100
   while { $velocidad < 101 } {
      incr velocidad
   }
}