basis/tools/errors/model/model.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: models source-files.errors namespaces models.delay init
   4 kernel calendar ;
   5 IN: tools.errors.model
   6
   7 SYMBOLS: (error-list-model) error-list-model ;
   8
   9 (error-list-model) [ f <model> ] initialize
  10
  11 error-list-model [ (error-list-model) get-global 100 milliseconds <delay> ] initialize
  12
  13 SINGLETON: updater
  14
  15 M: updater errors-changed drop f (error-list-model) get-global set-model ;
  16
  17 [ updater add-error-observer ] "ui.tools.error-list" add-startup-hook
  18