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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
## -*- tcl -*-
# ### ### ### ######### ######### #########
# ### ### ### ######### ######### #########
## Requisites
package require Tcl 8.4 ; #
package require snit ; #
# ### ### ### ######### ######### #########
##
snit::type uevent::onidle {
# ### ### ### ######### ######### #########
## API
constructor {cmd} {
set mycmd $cmd
return
}
method request {} {
if {$myhasrequest} return
after idle [mymethod RunAction]
set myhasrequest 1
return
}
# ### ### ### ######### ######### #########
## Internal commands
method RunAction {} {
set myhasrequest 0
uplevel \#0 $mycmd
return
}
# ### ### ### ######### ######### #########
## State
variable mycmd {} ; # Command prefix of the action to perform
variable myhasrequest 0 ; # Boolean flag, set when the action has
# ; # been requested
# ### ### ### ######### ######### #########
}
# ### ### ### ######### ######### #########
## Ready
package provide uevent::onidle 0.1
|
