colors: merge colors.constants and colors.hex.

[factor.git] / basis / ui / tools / listener / completion / completion.factor

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index f3a423e6d955c8f9182d5557806a32df8d108005..e3fbbcf966c7267208bd2fc35ff584a53cb95cb8 100644 (file)
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -1,16 +1,18 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs calendar colors colors.constants
-combinators combinators.short-circuit definitions.icons
-documents documents.elements fonts fry generic help.vocabs
-kernel math math.vectors models.arrow models.delay parser
-present sequences sets splitting strings tools.completion
-ui.commands ui.gadgets ui.gadgets.editors ui.gadgets.glass
-ui.gadgets.labeled ui.gadgets.scrollers ui.gadgets.tables
-ui.gadgets.tracks ui.gadgets.worlds ui.gadgets.wrappers
-ui.gestures ui.images ui.operations ui.pens.solid ui.theme
-ui.theme.images ui.tools.common ui.tools.listener.history
+
+USING: accessors arrays assocs calendar colors combinators
+combinators.short-circuit definitions.icons documents
+documents.elements fonts generic help.vocabs kernel math
+math.vectors models.arrow models.delay parser present sequences
+sets splitting strings tools.completion ui.commands ui.gadgets
+ui.gadgets.editors ui.gadgets.glass ui.gadgets.labeled
+ui.gadgets.scrollers ui.gadgets.tables ui.gadgets.tracks
+ui.gadgets.worlds ui.gadgets.wrappers ui.gestures ui.images
+ui.operations ui.pens.solid ui.theme ui.theme.images
+ui.tools.common ui.tools.listener.history
 ui.tools.listener.popups unicode.data vocabs words ;
+
 IN: ui.tools.listener.completion
 
 ! We don't directly depend on the listener tool but we use a few slots
@@ -96,7 +98,7 @@ M: vocab-completion row-color
     ] [ drop COLOR: dark-gray ] if ;
 
 M: color-completion row-color
-    drop second lookup-color ;
+    drop second named-color ;
 
 : up-to-caret ( caret document -- string )
     [ { 0 0 } ] 2dip doc-range ;