# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1567154644 -7200
# Node ID e2c2e797ab212637761b62d25b1730b42abc0fe5
# Parent  0cccc4bffe670d13aceefcd07a8cf00464e7abe3
#OTHER by exept
use allRed and allGray

diff -r 0cccc4bffe67 -r e2c2e797ab21 WorkspaceCompletionSupport.st
--- a/WorkspaceCompletionSupport.st	Tue Aug 27 11:14:19 2019 +0200
+++ b/WorkspaceCompletionSupport.st	Fri Aug 30 10:44:04 2019 +0200
@@ -126,7 +126,7 @@
         numSkipped := suggestions size-numShown.
 
         suggestions := (suggestions copyTo:numShown-numLast) 
-                        , { ('<< %1 more skipped >>' bindWith:numSkipped) withColor:Color grey }  
+                        , { ('<< %1 more skipped >>' bindWith:numSkipped) allGray }  
                         , (suggestions copyLast:numLast).
         implementations isSequenceable ifTrue:[ 
             implementations := (implementations copyTo:numShown-numLast),#(nil),(implementations copyLast:numLast).
@@ -177,7 +177,7 @@
                     suggestions isEmpty ifFalse:[ suggestions := suggestions copyWith: '-' ]. 
                     suggestions := suggestions copyWith: ( '%1 %2'
                                             bindWith:(sniplet asStringCollection first "contractTo:25")
-                                            with: ( ('("',abbrev,'" snippet)') withColor:Color gray)).
+                                            with: ( ('("',abbrev,'" snippet)') allGray)).
                     indexOfSnippet := suggestions size.
 
                     "/ change below, when reversing the order in above code (i.e. when snippets come first)