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

new accessors

db4
Doug Coleman 2008-08-31 16:21:18 -05:00
parent ab83333b51
commit 24bf9e3f9c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/gadgets/gadgets.factor
View File

@ -50,7 +50,7 @@ M: gadget model-changed 2drop ;
dup model>> dup [ 2dup remove-connection ] when 2drop ; dup model>> dup [ 2dup remove-connection ] when 2drop ;
: control-value ( control -- value ) : control-value ( control -- value )
model>> model-value ; model>> value>> ;
: set-control-value ( value control -- ) : set-control-value ( value control -- )
model>> set-model ; model>> set-model ;