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