#BUGFIX by cg
authorClaus Gittinger <cg@exept.de>
Tue, 12 Mar 2019 22:36:41 +0100
changeset 23881 6a516cb11eba
parent 23880 f366fd5a51b5
child 23882 4ff5dd3eda16
#BUGFIX by cg class: MiniDebugger changed: #printDot
MiniDebugger.st
--- a/MiniDebugger.st	Tue Mar 12 22:17:03 2019 +0100
+++ b/MiniDebugger.st	Tue Mar 12 22:36:41 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -559,9 +561,15 @@
     
     '  vars: ' _errorPrintCR.
     dot vars keysAndValuesDo:[:idx :eachVar |
-        '    ' _errorPrint. 
+        |varName|
+
         varNames notNil ifTrue:[
-            (varNames at:idx) _errorPrint.
+            varName := varNames at:idx ifAbsent:nil
+        ].
+        
+        '    ' _errorPrint. 
+        varName notNil ifTrue:[
+            varName _errorPrint.
         ] ifFalse:[    
             'var' _errorPrint. idx _errorPrint. 
         ].
@@ -569,6 +577,8 @@
     ].
     
     '' _errorPrintCR.
+
+    "Modified: / 12-03-2019 / 22:36:26 / Claus Gittinger"
 !
 
 printDotsMethodSource