tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / ui / gadgets / controls / controls.factor

diff --git a/unmaintained/ui/gadgets/controls/controls.factor b/unmaintained/ui/gadgets/controls/controls.factor
index 5de6da87102089f720591b0b246f8019e3ea755f..ebdb3bedc168473e3117a2edf23a8b2e468e106b 100644 (file)
--- a/unmaintained/ui/gadgets/controls/controls.factor
+++ b/unmaintained/ui/gadgets/controls/controls.factor
@@ -12,7 +12,7 @@ TUPLE: model-btn < button hook value ;
 : <model-btn> ( gadget -- button ) [
       [ dup hook>> [ call( button -- ) ] [ drop ] if* ]
       [ [ [ value>> ] [ ] bi or ] keep set-control-value ]
-      [ model>> f swap (>>value) ] tri
+      [ model>> f swap value<< ] tri
    ] model-btn new-button f <basic> >>model ;
 : <model-border-btn> ( text -- button ) <model-btn> border-button-theme ;