From 191a8b3206a0ee071222742dae26a4ff22c723fe Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Mon, 1 Sep 2008 22:43:23 -0500 Subject: [PATCH] new accessors --- basis/ui/gadgets/buttons/buttons.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/ui/gadgets/buttons/buttons.factor b/basis/ui/gadgets/buttons/buttons.factor index a079781d69..e04e385a23 100755 --- 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 ;