1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
# copyright (C) 1997-2005 Jean-Luc Fontaine (mailto:jfontain@free.fr)
# this program is free software: please read the COPYRIGHT file enclosed in this package or use the Help Copyright menu
# $Id: repeater.tcl,v 1.4 2005/01/02 00:45:07 jfontain Exp $
class repeater {
proc repeater {this milliSeconds command} {
set ($this,period) $milliSeconds
set ($this,command) $command
}
proc ~repeater {this} {
stop $this
}
proc start {this} {
stop $this
uplevel #0 $($this,command)
set ($this,event) [after $($this,period) "repeater::start $this"]
}
proc stop {this} {
catch {after cancel $($this,event)}
}
}
|
