new accessors

2008-09-01 22:43:23 -05:00 · 2008-09-01 22:43:23 -05:00 · 191a8b3206
parent 99a0f0f135
commit 191a8b3206
1 changed files with 2 additions and 2 deletions
--- a/basis/ui/gadgets/buttons/buttons.factor
+++ b/basis/ui/gadgets/buttons/buttons.factor
@ -148,7 +148,7 @@ TUPLE: checkbox < button ;
        align-left ;

 M: checkbox model-changed
-    swap model-value over (>>selected?) relayout-1 ;
+    swap value>> over (>>selected?) relayout-1 ;

 TUPLE: radio-paint color ;

@ -187,7 +187,7 @@ TUPLE: radio-control < button value ;
        align-left ; inline

 M: radio-control model-changed
-    swap model-value
+    swap value>>
    over value>> =
    over (>>selected?)
    relayout-1 ;