button .b1 -width 20 -text "attende 3 secondi" -command {attendi} pack .b1 frame .f text .f.text .f.text insert end "" pack .f.text pack .f proc wait {xtempo} { set inizio [clock clicks -milliseconds] while {[expr [clock clicks -milliseconds] - $inizio] < $xtempo} { } } proc attendi {} { wait 3000 .f.text insert end { fine ! } }

---

tempo.tcl