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

|-products work correctly

db4
Sam Anklesaria 2009-05-24 10:05:17 -05:00
parent 27b745dcc8
commit 22c071778a
1 changed files with 6 additions and 4 deletions
extra/ui/frp/signals

10
extra/ui/frp/signals/signals.factor
View File

@ -66,16 +66,18 @@ M: action (model-changed) [ [ value>> ] [ quot>> ] bi* call( a -- b ) ] keep val
TUPLE: | < multi-model ;
: <|> ( models -- product ) | <multi-model> ;
GENERIC: models-changed ( product -- )
M: | models-changed drop ;
M: | model-changed
nip
dup dependencies>> [ value>> ] all?
[ dup [ value>> ] product-value >>value notify-connections
] [ drop ] if ;
[ [ dup [ value>> ] product-value >>value notify-connections ] keep models-changed ]
[ drop ] if ;
M: | update-model
dup value>> swap [ set-model ] set-product-value ;
M: | model-activated dup model-changed ;
! Only when everything's true does he make it false
TUPLE: & < | ;
: <&> ( models -- product ) & <multi-model> ;
M: & model-changed [ call-next-method ] keep
[ dependencies>> [ f swap set-model ] each ] with-locked-model ;
M: & models-changed dependencies>> [ f swap (>>value) ] each ;