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

ui.gadgets.buttons: fix incorrect parameter order in <radio-controls>

release
Slava Pestov 2010-03-29 15:08:15 -04:00
parent 99771eb689
commit d130f24248
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

@ -220,8 +220,8 @@ TUPLE: radio-control < button value ;
M: radio-control model-changed M: radio-control model-changed
2dup [ value>> ] bi@ = >>selected? relayout-1 drop ; 2dup [ value>> ] bi@ = >>selected? relayout-1 drop ;
:: <radio-controls> ( parent model assoc quot: ( value model label -- gadget ) -- parent ) :: <radio-controls> ( model assoc parent quot: ( value model label -- gadget ) -- parent )
assoc model [ parent swap quot call add-gadget ] assoc-each ; inline parent assoc [ model swap quot call add-gadget ] assoc-each ; inline
PRIVATE> PRIVATE>