--- 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