catch error while printing
authorClaus Gittinger <cg@exept.de>
Mon, 27 Feb 2012 13:55:17 +0100
changeset 11280 3910183325f0
parent 11279 f4584d352191
child 11281 1064ace6fbfa
catch error while printing
Tools__Inspector2.st
--- a/Tools__Inspector2.st	Mon Feb 27 13:52:39 2012 +0100
+++ b/Tools__Inspector2.st	Mon Feb 27 13:55:17 2012 +0100
@@ -1017,7 +1017,7 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.27 2012-02-13 15:54:07 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.28 2012-02-27 12:55:17 cg Exp $'
 !
 
 version_SVN
@@ -1122,13 +1122,17 @@
 displayString
 
     displayString isNil ifTrue:[
-        displayString := theObject printString contractAtEndTo:15.
+        Error handle:[:ex |
+            displayString := '*ERROR*'
+        ] do:[
+            displayString := theObject printString contractAtEndTo:15.
+        ].
         displayString := displayString , ' [', theObject class name , ']'
     ].
     ^ displayString
 
     "Created: / 21-02-2008 / 19:53:07 / janfrog"
-    "Modified: / 25-07-2011 / 10:50:52 / cg"
+    "Modified: / 17-02-2012 / 14:12:49 / cg"
 ! !
 
 !Inspector2::NavigationState methodsFor:'initialization'!
@@ -1219,11 +1223,11 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.27 2012-02-13 15:54:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.28 2012-02-27 12:55:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.27 2012-02-13 15:54:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.28 2012-02-27 12:55:17 cg Exp $'
 !
 
 version_CVS_jvrany