Tcl Library Source Code

Artifact 4ad8a0b1f5e43999342c448c4926d67374753c68:

• File modules/uev/uevent_onidle.tcl — part of check-in [e422a0038c] at 2008-11-04 19:04:25 on branch trunk — Removed meta data of old, this is generated from the documentation for packages in tcllib. (user: andreas_kupries size: 1038)

## -*- 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