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

new accessors

db4
Doug Coleman 2008-09-01 22:43:23 -05:00
parent 99a0f0f135
commit 191a8b3206
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/ui/gadgets/buttons/buttons.factor
View File

@ -148,7 +148,7 @@ TUPLE: checkbox < button ;
align-left ; align-left ;
M: checkbox model-changed M: checkbox model-changed
swap model-value over (>>selected?) relayout-1 ; swap value>> over (>>selected?) relayout-1 ;
TUPLE: radio-paint color ; TUPLE: radio-paint color ;
@ -187,7 +187,7 @@ TUPLE: radio-control < button value ;
align-left ; inline align-left ; inline
M: radio-control model-changed M: radio-control model-changed
swap model-value swap value>>
over value>> = over value>> =
over (>>selected?) over (>>selected?)
relayout-1 ; relayout-1 ;