#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Mon, 09 May 2016 17:55:31 +0200
changeset 16525 714a621cce4d
parent 16524 ecacacdca483
child 16526 1510e5d4c2ad
#QUALITY by cg class: NewLauncher changed: #updateInfo debugcheck
NewLauncher.st
--- a/NewLauncher.st	Mon May 09 11:02:56 2016 +0200
+++ b/NewLauncher.st	Mon May 09 17:55:31 2016 +0200
@@ -3754,9 +3754,12 @@
     ].
 
     makeInfoString := [:title :value |
+            |v|
+            v := value.
+value isString ifFalse:[v := '***' ].
             (resources string:title) allBold
             ,': '
-            ,(value withColor:(Color blue darkened))
+            ,(v withColor:(Color blue darkened))
             ,' '
         ].