|event% : class?|
|(new event% [[time-stamp time-stamp]]) → (is-a?/c event%)|
|time-stamp : (and/c exact? integer?) = 0|
See get-time-stamp for information about time-stamp.
|(send an-event get-time-stamp) → (and/c exact? integer?)|
Returns the time, in milliseconds, when the event occurred. This time is compatible with times reported by MzScheme’s current-milliseconds procedure.
|(send an-event set-time-stamp time) → void?|
|time : (and/c exact? integer?)|
Set the time, in milliseconds, when the event occurred. See also MzScheme’s current-milliseconds.
If the supplied value is outside the platform-specific range of time values, an exn:fail:contract exception is raised.