Skip to content

Instantly share code, notes, and snippets.

@rebolek

rebolek/timer.r3

Created June 18, 2013 20:44
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rebolek/5809176 to your computer and use it in GitHub Desktop.
Save rebolek/5809176 to your computer and use it in GitHub Desktop.
Download ZIP
Timer example
Raw
timer.r3
REBOL[]
n: now/time/precise
i: 0
view [
b: button "test" on-init [
do-actor/style face 'on-init arg 'button
set-timer/repeat [
++ i
if (now/time/precise - n) >= 0:0:1 [
set-face b i
show-now b
set 'i 0
set 'n now/time/precise
]
] 0
]
]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment