limit rate a procedure is called
Posted to
tcl
by kbk at Sun Apr 01 01:15:00 GMT 2012
view raw
proc
something {} {
variable
tooSoon
if
{[
info
exists tooSoon]} {
return
}
set
tooSoon [
after
5000 cleanup]
# ... do something ...
}
proc
cleanup {} {
variable
tooSoon
unset
tooSoon
}
Recent Posts
tcl by oldlaptop
2 days ago
tcl by mookie
8 days ago
tcl by dandyn
15 days ago
tcl by Bradipo
15 days ago
tcl by Bradipo
15 days ago
tcl by oldlaptop
39 days ago
tcl by oldlaptop
40 days ago
tcl by mookie
45 days ago
tcl by mookie
45 days ago
tcl by georgtree
46 days ago
Submit
New paste
Documentation
From Jabber