1 ! Copyright (C) 2008, 2010 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
19 f <model> time set-global
\r
21 ] "calendar.model" add-startup-hook
\r