From 742aa5ced7099a205c6f23d156377aeec7df4770 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 18 Feb 2009 21:01:19 -0600
Subject: [PATCH] Rename com-follow to com-browse

---
 basis/ui/tools/browser/browser.factor       | 6 +++---
 basis/ui/tools/deploy/deploy.factor         | 2 +-
 basis/ui/tools/inspector/inspector.factor   | 2 +-
 basis/ui/tools/operations/operations.factor | 2 +-
 basis/ui/tools/profiler/profiler.factor     | 2 +-
 basis/ui/tools/walker/walker.factor         | 2 +-
 6 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index e8ead0afa6..8fcd14c95f 100644
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -81,12 +81,12 @@ M: browser-gadget focusable-child* search-field>> ;
 
 \ browser-window H{ { +nullary+ t } } define-command
 
-: com-follow ( link -- )
+: com-browse ( link -- )
     [ browser-gadget? ] find-window
     [ [ raise-window ] [ gadget-child show-help ] bi ]
     [ (browser-window) ] if* ;
 
-: show-browser ( -- ) "handbook" com-follow ;
+: show-browser ( -- ) "handbook" com-browse ;
 
 \ show-browser H{ { +nullary+ t } } define-command
 
@@ -96,7 +96,7 @@ M: browser-gadget focusable-child* search-field>> ;
 
 : com-documentation ( browser -- ) "handbook" swap show-help ;
 
-: browser-help ( -- ) "ui-browser" com-follow ;
+: browser-help ( -- ) "ui-browser" com-browse ;
 
 \ browser-help H{ { +nullary+ t } } define-command
 
diff --git a/basis/ui/tools/deploy/deploy.factor b/basis/ui/tools/deploy/deploy.factor
index fc5502223d..6a8322ac02 100644
--- a/basis/ui/tools/deploy/deploy.factor
+++ b/basis/ui/tools/deploy/deploy.factor
@@ -83,7 +83,7 @@ TUPLE: deploy-gadget < pack vocab settings ;
     tri ;
 
 : com-help ( -- )
-    "ui.tools.deploy" com-follow ;
+    "ui.tools.deploy" com-browse ;
 
 \ com-help H{
     { +nullary+ t }
diff --git a/basis/ui/tools/inspector/inspector.factor b/basis/ui/tools/inspector/inspector.factor
index 0154251f35..a7810153a8 100644
--- a/basis/ui/tools/inspector/inspector.factor
+++ b/basis/ui/tools/inspector/inspector.factor
@@ -103,7 +103,7 @@ M: inspector-gadget focusable-child*
         slot-editor-window
     ] [ 2drop 2drop ] if ;
 
-: inspector-help ( -- ) "ui-inspector" com-follow ;
+: inspector-help ( -- ) "ui-inspector" com-browse ;
 
 \ inspector-help H{ { +nullary+ t } } define-command
 
diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor
index ac95ebfef7..6d6cda1dba 100644
--- a/basis/ui/tools/operations/operations.factor
+++ b/basis/ui/tools/operations/operations.factor
@@ -93,7 +93,7 @@ UNION: definition word method-spec link vocab vocab-link ;
 
 [ definition? ] \ com-forget H{ } define-operation
 
-[ topic? ] \ com-follow H{
+[ topic? ] \ com-browse H{
     { +keyboard+ T{ key-down f { C+ } "h" } }
     { +primary+ t }
 } define-operation
diff --git a/basis/ui/tools/profiler/profiler.factor b/basis/ui/tools/profiler/profiler.factor
index 4eb5833ed0..6e86cde0a5 100644
--- a/basis/ui/tools/profiler/profiler.factor
+++ b/basis/ui/tools/profiler/profiler.factor
@@ -197,7 +197,7 @@ M: method-renderer column-titles drop { "" "Method" "Count" } ;
             over <methods-tab> "Methods" add-tab
         1 track-add ;
 
-: profiler-help ( -- ) "ui-profiler" com-follow ;
+: profiler-help ( -- ) "ui-profiler" com-browse ;
 
 \ profiler-help H{ { +nullary+ t } } define-command
 
diff --git a/basis/ui/tools/walker/walker.factor b/basis/ui/tools/walker/walker.factor
index 32cd324030..63426f86bf 100644
--- a/basis/ui/tools/walker/walker.factor
+++ b/basis/ui/tools/walker/walker.factor
@@ -66,7 +66,7 @@ M: walker-gadget focusable-child*
         dup status>> self <thread-status> f track-add
         dup traceback>> 1 track-add ;
     
-: walker-help ( -- ) "ui-walker" com-follow ;
+: walker-help ( -- ) "ui-walker" com-browse ;
 
 \ walker-help H{ { +nullary+ t } } define-command