new accessors

2008-09-01 22:44:10 -05:00 · 2008-09-01 22:44:10 -05:00 · e060a103b2
parent 04d2f95536
commit e060a103b2
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/labels/labels.factor
+++ b/basis/ui/gadgets/labels/labels.factor
@ -43,7 +43,7 @@ M: label gadget-text* label-string % ;
 TUPLE: label-control < label ;

 M: label-control model-changed
-    swap model-value over set-label-string relayout ;
+    swap value>> over set-label-string relayout ;

 : <label-control> ( model -- gadget )
    "" label-control new-label