steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

calendar.model, tools.errors.model: re-initialize models on startup

db4
Slava Pestov 2010-05-31 20:14:26 -04:00
parent f78bbb865e
commit 2ba7c8c639
2 changed files with 13 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/calendar/model/model.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2008 Slava Pestov ! Copyright (C) 2008, 2010 Slava Pestov
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: calendar namespaces models threads kernel init ; USING: calendar namespaces models threads kernel init ;
IN: calendar.model IN: calendar.model
@ -15,5 +15,7 @@ SYMBOL: time
(time-thread) (time-thread)
] "Time model update" spawn drop ; ] "Time model update" spawn drop ;
f <model> time set-global [
[ time-thread ] "calendar.model" add-startup-hook f <model> time set-global
time-thread
] "calendar.model" add-startup-hook

15
basis/tools/errors/model/model.factor
View File

@ -1,4 +1,4 @@
! Copyright (C) 2009 Slava Pestov. ! Copyright (C) 2009, 2010 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: models source-files.errors namespaces models.delay init USING: models source-files.errors namespaces models.delay init
kernel calendar ; kernel calendar ;
@ -6,13 +6,14 @@ IN: tools.errors.model
SYMBOLS: (error-list-model) error-list-model ; SYMBOLS: (error-list-model) error-list-model ;
(error-list-model) [ f <model> ] initialize
error-list-model [ (error-list-model) get-global 100 milliseconds <delay> ] initialize
SINGLETON: updater SINGLETON: updater
M: updater errors-changed drop f (error-list-model) get-global set-model ; M: updater errors-changed
drop f (error-list-model) get-global set-model ;
[ updater add-error-observer ] "ui.tools.error-list" add-startup-hook [
f <model> (error-list-model) set-global
(error-list-model) get-global 100 milliseconds <delay> error-list-model set-global
updater add-error-observer
] "ui.tools.error-list" add-startup-hook