Posted to tcl by Stu at Thu Dec 10 18:37:01 GMT 2009view raw

  1. proc log {msg} { .t insert end $msg\n; .t see end }
  2. proc a {s t} { log "I'm proc a!"; nextStep $s $t }
  3. proc b {s t} { log "I'm proc b!"; nextStep $s $t }
  4. proc c {s t} { log "I'm proc c!"; nextStep $s $t }
  5. proc d {s t} { log "I'm proc d!"; nextStep $s $t }
  6. proc nextStep {s t} {
  7. if {[llength $s] == 0} { return }
  8. after $t [list [lindex $s 0] [lrange $s 1 end] $t]
  9. }
  10. grid [text .t]
  11. nextStep {c a d b} 1500