2010-05-31 20:14:26 -04:00
|
|
|
! Copyright (C) 2009, 2010 Slava Pestov.
|
2009-04-23 23:36:34 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: models source-files.errors namespaces models.delay init
|
|
|
|
|
kernel calendar ;
|
|
|
|
|
IN: tools.errors.model
|
|
|
|
|
|
|
|
|
|
SYMBOLS: (error-list-model) error-list-model ;
|
|
|
|
|
|
|
|
|
|
SINGLETON: updater
|
|
|
|
|
|
2010-05-31 20:14:26 -04:00
|
|
|
M: updater errors-changed
|
|
|
|
|
drop f (error-list-model) get-global set-model ;
|
2009-04-23 23:36:34 -04:00
|
|
|
|
2010-05-31 20:14:26 -04:00
|
|
|
[
|
|
|
|
|
f <model> (error-list-model) set-global
|
|
|
|
|
(error-list-model) get-global 100 milliseconds <delay> error-list-model set-global
|
|
|
|
|
updater add-error-observer
|
2010-06-18 22:02:55 -04:00
|
|
|
] "tools.errors.model" add-startup-hook
|
