catch errors in context-printing
authorClaus Gittinger <cg@exept.de>
Mon, 18 Dec 2000 15:34:22 +0100
changeset 2914 f2607017f709
parent 2913 0971f4e7e8b2
child 2915 fb32f75bbe31
catch errors in context-printing
DebugView.st
--- a/DebugView.st	Mon Dec 18 10:21:52 2000 +0100
+++ b/DebugView.st	Mon Dec 18 15:34:22 2000 +0100
@@ -3193,7 +3193,7 @@
                     (MoreDebuggingDetail == true) ifTrue:[
                         nm := (((ObjectMemory addressOf:con) printStringRadix:16) , ' ' , con printString).
                     ] ifFalse:[
-                        nm := con printString.
+                        Error handle:[:ex | nm := '???' ] do:[nm := con printString].
                     ].
                     text add:nm.
                     count := count + 1.
@@ -4345,6 +4345,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.267 2000-10-07 11:58:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.268 2000-12-18 14:34:22 cg Exp $'
 ! !
 DebugView initialize!