--- a/AbstractLauncherApplication.st	Fri Aug 30 10:44:02 2019 +0200
+++ b/AbstractLauncherApplication.st	Fri Aug 30 10:44:17 2019 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -7473,17 +7475,17 @@
 
     root := MyHierarchicalItem new.
     root icon:folderIcon.
-    root label:((resources string:'[Compiled Packages]') allItalic withColor:Color grey).
+    root label:((resources string:'[Compiled Packages]') allItalic allGray).
     root type:#compiledPackagesRoot.
     masterRoot add:root.
 
     monticelloRoot := MyHierarchicalItem new.
-    monticelloLabel := ((resources string:'[Monticello Packages]') allItalic withColor:Color grey).
+    monticelloLabel := ((resources string:'[Monticello Packages]') allItalic allGray).
     monticelloRoot type:#monticelloRoot.
 
     (MCRepositoryGroup isNil or:[MCRepositoryGroup isLoaded not]) ifTrue:[
         monticelloRoot icon:greyFolderIcon.
-        monticelloRoot label:monticelloLabel, (' (Monticello Support not Loaded)' withColor:Color grey).
+        monticelloRoot label:monticelloLabel, (' (Monticello Support not Loaded)' allGray).
     ] ifFalse:[
         monticelloRoot icon:folderIcon.
         monticelloRoot label:monticelloLabel.
@@ -7585,7 +7587,7 @@
 
     isAlreadyLoaded := isBroken := false.
     Error handle:[:ex |
-        item label:(item label , (' ERROR - please rebuild!!' withColor:Color red)).
+        item label:(item label , (' ERROR - please rebuild!!' allRed)).
     ] do:[    
         isAlreadyLoaded := 
             (defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
@@ -7609,7 +7611,7 @@
     (isApplication or:[ item icon isNil or:[item icon == folderIcon or:[item icon == greyFolderIcon]]]) ifTrue:[
         isBroken ifTrue:[
             item icon:(ToolbarIconLibrary packageDefectOpen24x24Icon2).
-            item label:(item label , (' (broken: folder no longer present)' withColor:Color red)).
+            item label:(item label , (' (broken: folder no longer present)' allRed)).
         ] ifFalse:[    
             isAlreadyLoaded ifTrue:[
                 item icon:(isApplication ifTrue:[greyApplicationIcon] ifFalse:[greyPackageIcon]). 
@@ -7652,7 +7654,7 @@
                 |lbl|
                 lbl := (item label copy allNonBold withoutAnyColorEmphasis).
                 item isBroken ifTrue:[
-                    lbl := lbl withColor:Color red.
+                    lbl := lbl allRed.
                 ].
                 item label:lbl.
             ].
@@ -7692,7 +7694,7 @@
             
             lbl := item label copy allNonBold withoutAnyColorEmphasis.
             item isBroken ifTrue:[
-                lbl := lbl withColor:Color red.
+                lbl := lbl allRed.
             ].
             item label:lbl.
         ].
@@ -7704,9 +7706,9 @@
             
             (newMatchingItems includes:item) ifFalse:[
                 item collapse.
-                lbl := (item label copy asText allNonBold withColor:Color grey).
+                lbl := (item label copy asText allNonBold allGray).
                 item isBroken ifTrue:[
-                    lbl := lbl withColor:Color red.
+                    lbl := lbl allRed.
                 ].
                 item label:lbl.
             ]
@@ -7716,7 +7718,7 @@
             |lbl|
             lbl := (item label copy allBold withoutAnyColorEmphasis).
             item isBroken ifTrue:[
-                lbl := lbl withColor:Color red.
+                lbl := lbl allRed.
             ].
             item label:lbl.
             item makeVisible.
@@ -7772,7 +7774,7 @@
 
                 reposItem := MyHierarchicalItem new.
                 reposItem icon:folderIcon.
-                reposItem label:each displayString , ((resources string:' [MC Repository]') allItalic withColor:Color grey).
+                reposItem label:each displayString , ((resources string:' [MC Repository]') allItalic allGray).
                 reposItem type:#monticelloRepository.
                 reposItem info:each.
                 monticelloRoot add:reposItem.
@@ -8002,7 +8004,7 @@
                             folderRoot isNil ifTrue:[
                                 folderRoot := MyHierarchicalItem new.
                                 folderRoot icon:folderIcon.
-                                folderRoot label:((resources string:'[%1]' with:eachDirName) allItalic withColor:Color grey).
+                                folderRoot label:((resources string:'[%1]' with:eachDirName) allItalic allGray).
                                 folderRoot type:#compiledPackagesRoot.
                             ].    
                             self 
@@ -8123,7 +8125,7 @@
      
     packageDirPath := Smalltalk getSystemFileName:'packages'.
     packageDirPath isNil ifTrue:[
-        root label:root label,((resources string:' (no "packages" folder found)') withColor:Color red).
+        root label:root label,((resources string:' (no "packages" folder found)') allRed).
     ] ifFalse:[
         packageDirPath asFilename directoryContentsAsFilenames sort do:[:fn |
             |item base nm path parentPath parent isLibrary isApplication isAlreadyLoaded 
@@ -8168,7 +8170,7 @@
 
                 isAlreadyLoaded := false.
                 Error handle:[:ex |
-                    item label:(item label , (' ERROR - please rebuild!!' withColor:Color red)).
+                    item label:(item label , (' ERROR - please rebuild!!' allRed)).
                 ] do:[    
                     isAlreadyLoaded := 
                         (defClass := ProjectDefinition definitionClassForPackage:packageID) notNil
@@ -8320,7 +8322,7 @@
         ].
         info := comment asString.
     ] ifFalse:[ 
-        info := info withColor:Color red.
+        info := info allRed.
         (projectDir notNil and:[ (readMeFile := projectDir / 'README') exists]) ifTrue:[
             info := info , '\\The README file there says:\\' withCRs , (readMeFile contents asString).
         ].