From 39685724cca245ad27b61473fe6b37a7d0663b97 Mon Sep 17 00:00:00 2001 From: Slava Pestov <slava@shill.local> Date: Sat, 11 Apr 2009 15:11:40 -0500 Subject: [PATCH] Generalize operation --- basis/ui/tools/operations/operations.factor | 22 ++++++++++----------- 1 file changed, 11 insertions(+), 11 deletions(-) diff --git a/basis/ui/tools/operations/operations.factor b/basis/ui/tools/operations/operations.factor index 5da6402c8e..3c16011897 100644 --- a/basis/ui/tools/operations/operations.factor +++ b/basis/ui/tools/operations/operations.factor @@ -1,15 +1,15 @@ ! Copyright (C) 2006, 2009 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: continuations definitions generic help.topics threads -stack-checker summary io.pathnames io.styles kernel namespaces -parser prettyprint quotations tools.crossref tools.annotations -editors tools.profiler tools.test tools.time tools.walker vocabs -vocabs.loader words sequences tools.vocabs classes -compiler.errors compiler.units accessors vocabs.parser macros.expander ui -ui.tools.browser ui.tools.listener ui.tools.listener.completion -ui.tools.profiler ui.tools.inspector ui.tools.traceback -ui.commands ui.gadgets.editors ui.gestures ui.operations -ui.tools.deploy models help.tips ; +stack-checker summary io.pathnames io.styles kernel namespaces parser +prettyprint quotations tools.crossref tools.annotations editors +tools.profiler tools.test tools.time tools.walker vocabs vocabs.loader +words sequences tools.vocabs classes compiler.errors compiler.units +accessors vocabs.parser macros.expander ui ui.tools.browser +ui.tools.listener ui.tools.listener.completion ui.tools.profiler +ui.tools.inspector ui.tools.traceback ui.commands ui.gadgets.editors +ui.gestures ui.operations ui.tools.deploy models help.tips +source-files.errors ; IN: ui.tools.operations ! Objects @@ -86,8 +86,8 @@ IN: ui.tools.operations { +listener+ t } } define-operation -! Compiler errors -[ compiler-error? ] \ edit-error H{ +! Source file error +[ source-file-error? ] \ edit-error H{ { +primary+ t } { +secondary+ t } { +listener+ t }