view timer.ur @ 16:2e397d373289

Add RemotePager.
author Karn Kallio <kkallio@eka>
date Thu, 18 Aug 2011 12:53:17 -0430
parents 37eefd0a2ed4
children
line wrap: on
line source
type t = source bool

fun create r =
    b <- source False;
    spawn (sleep r.Milliseconds;
           b <- get b;
           if b then
               return ()
           else
               r.Action);
    return b

fun cancel b = set b True