Tcl Source Code

Artifact d033c35c6cbeb25302af8182db9d24c27e4edb8c:

Attachment "selectbomb1.tcl" to ticket [3486554fff] added by ferrieux 2012-02-10 21:56:18.

---

# Program 1, the server:
socket -server acceptit 12345
proc acceptit {chan ca cp} {
  after 100 "sendit $chan"
}
proc sendit {chan} {
  puts $chan hi!
  close $chan
}
vwait forever