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

new accessors

db4
Doug Coleman 2008-09-01 22:47:07 -05:00
parent 0e80ac5460
commit 52acaa47e7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/models/compose/compose.factor
View File

@ -18,12 +18,12 @@ TUPLE: compose < model ;
M: compose model-changed M: compose model-changed
nip nip
[ [ model-value ] composed-value ] keep set-model ; [ [ value>> ] composed-value ] keep set-model ;
M: compose model-activated dup model-changed ; M: compose model-activated dup model-changed ;
M: compose update-model M: compose update-model
dup model-value swap [ set-model ] set-composed-value ; dup value>> swap [ set-model ] set-composed-value ;
M: compose range-value M: compose range-value
[ range-value ] composed-value ; [ range-value ] composed-value ;