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