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

View File

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