From 289b366d40497760226395d3de6bcc225f03eb87 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Mon, 1 Sep 2008 18:24:26 -0500
Subject: [PATCH] Update old accessors from 'ui.traverse'
---
basis/ui/gadgets/panes/panes.factor | 6 +++---
basis/ui/traverse/traverse.factor | 2 +-
2 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index 0fca412d1f..7f00084104 100755
--- 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 791bad4e0f..440f6487c2 100644
--- 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 ;