basis/models/filter/filter.factor

   1 ! Copyright (C) 2008 Slava Pestov.\r
   2 ! See http://factorcode.org/license.txt for BSD license.\r
   3 USING: accessors models kernel ;\r
   4 IN: models.filter\r
   5 \r
   6 TUPLE: filter < model model quot ;\r
   7 \r
   8 : <filter> ( model quot -- filter )\r
   9     f filter new-model\r
  10         swap >>quot\r
  11         over >>model\r
  12         [ add-dependency ] keep ;\r
  13 \r
  14 M: filter model-changed\r
  15     [ [ value>> ] [ quot>> ] bi* call ] [ nip ] 2bi set-model ;\r
  16 \r
  17 M: filter model-activated [ model>> ] keep model-changed ;\r