1 ! Copyright (C) 2008 Slava Pestov
\r
2 ! See http://factorcode.org/license.txt for BSD license.
\r
3 USING: calendar namespaces models threads kernel init ;
\r
8 : (time-thread) ( -- )
\r
9 now time get set-model
\r
10 1 seconds sleep (time-thread) ;
\r
12 : time-thread ( -- )
\r
16 ] "Time model update" spawn drop ;
\r
18 f <model> time set-global
\r
19 [ time-thread ] "calendar.model" add-init-hook
\r