steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tools.completion: matching names.

db4
John Benediktsson 2013-03-20 16:51:09 -07:00
parent ef98b7af53
commit a440b2a909
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/tools/completion/completion.factor
View File

@ -165,8 +165,8 @@ PRIVATE>
PRIVATE>
: complete-CHAR:? ( tokens -- ? ) "CHAR:" complete-token? ;
: complete-char? ( tokens -- ? ) "CHAR:" complete-token? ;
: complete-COLOR:? ( tokens -- ? ) "COLOR:" complete-token? ;
: complete-color? ( tokens -- ? ) "COLOR:" complete-token? ;
: complete-pathname? ( tokens -- ? ) "P\"" complete-token? ;

4
basis/ui/tools/listener/completion/completion.factor
View File

@ -93,8 +93,8 @@ M: color-completion row-color
[ manifest>> ] [ editor-caret ] [ model>> ] tri up-to-caret " \r\n" split
{
{ [ dup complete-vocab? ] [ 2drop vocab-completion ] }
{ [ dup complete-CHAR:? ] [ 2drop char-completion ] }
{ [ dup complete-COLOR:? ] [ 2drop color-completion ] }
{ [ dup complete-char? ] [ 2drop char-completion ] }
{ [ dup complete-color? ] [ 2drop color-completion ] }
{ [ dup complete-pathname? ] [ 2drop path-completion ] }
[ drop <word-completion> ]
} cond ;