ui.tools.operations: making "See" an operation on words.

diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor
index fa5c2e04190a6960452ca4124e0741433098bf33..5738baafb47e6abd42e2fec8e438b47ab25589af 100644 (file)
--- a/basis/ui/tools/operations/operations.factor
+++ b/basis/ui/tools/operations/operations.factor
@@ -3,7 +3,7 @@
 USING: accessors combinators.short-circuit compiler.errors
 compiler.units continuations definitions destructors editors
 help.topics io.pathnames io.styles kernel libc.private
-macros.expander models parser prettyprint quotations
+macros.expander models parser prettyprint quotations see
 source-files.errors stack-checker threads tools.annotations
 tools.crossref tools.test tools.time tools.walker ui.commands
 ui.gestures ui.operations ui.tools.browser ui.tools.deploy
@@ -120,6 +120,10 @@ IN: ui.tools.operations
 
 [ word? ] \ breakpoint H{ } define-operation
 
+[ word? ] \ see H{
+    { +listener+ t }
+} define-operation
+
 GENERIC: com-stack-effect ( obj -- )
 
 M: quotation com-stack-effect infer. ;