From 0f77c30620bf10511cbd49b1a96c6191be491eed Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 19 Mar 2021 10:39:18 -0700 Subject: [PATCH] ui.tools.listener.completion: display glyph for CHAR: completions. --- basis/ui/tools/listener/completion/completion.factor | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor index 6f7bb8420c..4d0e3d4959 100644 --- a/basis/ui/tools/listener/completion/completion.factor +++ b/basis/ui/tools/listener/completion/completion.factor @@ -4,13 +4,13 @@ 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 tools.completion ui.commands -ui.gadgets ui.gadgets.editors ui.gadgets.glass +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 vocabs words ; +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 @@ -70,6 +70,9 @@ M: history-completion completion-banner drop "Input history" ; ! Completion modes also implement the row renderer protocol M: listener-completion row-columns drop present 1array ; +M: char-completion row-columns + drop [ name-map at 1string ] [ 2array ] bi ; + M: definition-completion prototype-row drop \ + definition-icon "" 2array ; -- 2.34.1