 
 [ definition? ] \ com-forget H{ } define-operation
 
-! Words
-! [ word? ] \ insert-word H{
-!     { +secondary+ t }
-! } define-operation
-
 [ topic? ] \ com-follow H{
     { +keyboard+ T{ key-down f { C+ } "h" } }
     { +primary+ t }
 } define-operation
 
-! : com-usage ( word -- )
-!     get-workspace swap show-word-usage ;
-
-! [ word? ] \ com-usage H{
-!     { +keyboard+ T{ key-down f { C+ } "U" } }
-! } define-operation
+[ word? ] \ usage. H{
+    { +keyboard+ T{ key-down f { C+ } "u" } }
+} define-operation
 
 [ word? ] \ fix H{
     { +keyboard+ T{ key-down f { C+ } "f" } }

! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: continuations definitions ui.tools.browser
ui.tools.listener ui.tools.listener.completion
ui.tools.profiler ui.tools.inspector ui.tools.traceback
generic help.topics stack-checker
summary io.pathnames io.styles kernel namespaces parser
prettyprint quotations tools.annotations editors
tools.profiler tools.test tools.time tools.walker
ui.commands ui.gadgets.editors ui.gestures
ui.operations ui.tools.deploy vocabs vocabs.loader words
sequences tools.vocabs classes compiler.units accessors
vocabs.parser macros.expander ;
IN: ui.tools.operations

V{ } clone operations set-global

    { +secondary+ t }
} define-operation

! Thread
: com-thread-traceback-window ( thread -- )
    continuation>> dup occupied>>
    [ value>> traceback-window ]
    [ drop beep ]
    if ;

[ thread? ] \ com-thread-traceback-window H{
    { +primary+ t }
    { +secondary+ t }
} define-operation

! Pathnames
: edit-file ( pathname -- ) edit ;

