Update old accessors from 'ui.traverse'

diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 0fca412d1f682f5c1465af036fb18edb96ed567e..7f00084104366f64b0cde9dbe767a01c6e447e9c 100755 (executable)
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -60,10 +60,10 @@ M: gadget draw-selection ( loc gadget -- )
     swap offset-rect [ rect-extent gl-fill-rect ] if-fits ;
 
 M: node draw-selection ( loc node -- )
-    2dup node-value swap offset-rect [
+    2dup value>> swap offset-rect [
         drop 2dup
-        [ node-value rect-loc v+ ] keep
-        node-children [ draw-selection ] with each
+        [ value>> rect-loc v+ ] keep
+        children>> [ draw-selection ] with each
     ] if-fits 2drop ;
 
 M: pane draw-gadget*

diff --git a/basis/ui/traverse/traverse.factor b/basis/ui/traverse/traverse.factor
index 791bad4e0ff958a082689b3f903d1bb674b73294..440f6487c2c62ddecb263cf95d84b3ac16b0a608 100644 (file)
--- a/basis/ui/traverse/traverse.factor
+++ b/basis/ui/traverse/traverse.factor
@@ -77,7 +77,7 @@ DEFER: (gadget-subtree)
     [ (gadget-subtree) ] { } make ;
 
 M: node gadget-text*
-    dup node-children swap node-value gadget-seq-text ;
+    dup children>> swap value>> gadget-seq-text ;
 
 : gadget-text-range ( frompath topath gadget -- str )
     gadget-subtree gadget-text ;