steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Rename com-follow to com-browse

db4
Slava Pestov 2009-02-18 21:01:19 -06:00
parent 204777ec3f
commit 742aa5ced7
6 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
basis/ui/tools/browser/browser.factor
View File

@ -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

2
basis/ui/tools/deploy/deploy.factor
View File

@ -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 }

2
basis/ui/tools/inspector/inspector.factor
View File

@ -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

2
basis/ui/tools/operations/operations.factor
View File

@ -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

2
basis/ui/tools/profiler/profiler.factor
View File

@ -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

2
basis/ui/tools/walker/walker.factor
View File

@ -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