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

models: adding ?set-model.

db4
John Benediktsson 2012-05-14 15:40:55 -07:00
parent 07b0d52f55
commit cceb085d60
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/models/models-docs.factor
View File

@ -64,6 +64,10 @@ HELP: set-model
{ $values { "value" object } { "model" model } } { $values { "value" object } { "model" model } }
{ $description "Changes the value of a model and calls " { $link model-changed } " on all observers registered with " { $link add-connection } "." } ; { $description "Changes the value of a model and calls " { $link model-changed } " on all observers registered with " { $link add-connection } "." } ;
HELP: ?set-model
{ $values { "value" object } { "model" model } }
{ $description "Similar to " { $link set-model } ", but only sets the value if the new value is different." } ;
{ set-model change-model change-model* (change-model) push-model pop-model } related-words { set-model change-model change-model* (change-model) push-model pop-model } related-words
HELP: change-model HELP: change-model

3
basis/models/models.factor
View File

@ -87,6 +87,9 @@ M: model update-model drop ;
] with-locked-model ] with-locked-model
] if ; ] if ;
: ?set-model ( value model -- )
2dup value>> = [ 2drop ] [ set-model ] if ;
: ((change-model)) ( model quot -- newvalue model ) : ((change-model)) ( model quot -- newvalue model )
over [ [ value>> ] dip call ] dip ; inline over [ [ value>> ] dip call ] dip ; inline