Re: [TCLCORE] TIP #245: Discover User Inactivity Time

[Mark G. S. <mar...@ya...>]

Kevin Kenny wrote:
> mar...@ya... said:
> 
>>Could a programmer set a callback so that an event could be triggered
>>after, say, 5 minutes of inactivity? Or would the application have to
>>keep polling [tk inactive]? Or set an after event to check [tk
>>inactive]  after 5 minutes?
> 
> What I'd do, if I wanted to be triggered on 5 minutes of inactivity, is
> to set an [after] handler for 300000-[tk inactive] ms.  When the [after]
> fires, check [tk inactive] again, and either reschedule for another
> 300000-[tk inactive] ms, or make the appropriate callback.

So something like:

proc ssaver {delay} {
   set inactive [tk inactive]
   if { $inactive < $delay } {
     # reschedule
     after [expr {$delay-$inactive}] [list ssaver $delay]
   } else {
     # do something here, like display screen-saver
   }
}
ssaver 300000

This should work, ok, shouldn't it?

Mark /

-- 
Mark G. Saye
markgsaye @ yahoo.com