new accessors

2008-08-31 16:21:18 -05:00 · 2008-08-31 16:21:18 -05:00 · 24bf9e3f9c
parent ab83333b51
commit 24bf9e3f9c
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/gadgets.factor
+++ b/basis/ui/gadgets/gadgets.factor
@ -50,7 +50,7 @@ M: gadget model-changed 2drop ;
    dup model>> dup [ 2dup remove-connection ] when 2drop ;

 : control-value ( control -- value )
-    model>> model-value ;
+    model>> value>> ;

 : set-control-value ( value control -- )
    model>> set-model ;