22 lines
492 B
Factor
22 lines
492 B
Factor
! Copyright (C) 2008, 2010 Slava Pestov
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: calendar namespaces models threads kernel init ;
|
|
IN: calendar.model
|
|
|
|
SYMBOL: time
|
|
|
|
: (time-thread) ( -- )
|
|
now time get set-model
|
|
1 seconds sleep (time-thread) ;
|
|
|
|
: time-thread ( -- )
|
|
[
|
|
init-namespaces
|
|
(time-thread)
|
|
] "Time model update" spawn drop ;
|
|
|
|
[
|
|
f <model> time set-global
|
|
time-thread
|
|
] "calendar.model" add-startup-hook
|