--- a/InspectorView.st Tue Sep 18 11:39:12 2012 +0100
+++ b/InspectorView.st Thu Sep 27 21:08:20 2012 +0100
@@ -2220,28 +2220,7 @@
(value isNumber or:[value isBoolean]) ifTrue:[
^ self basicDisplayStringForValue:value "value printString"
].
- (value isSymbol) ifTrue:[
- ^ value storeString
- ].
- (value isCharacter) ifTrue:[
- (value codePoint <= 16r7f) ifTrue:[
- ^ value storeString,(' "16r%1 %2"' bindWith:(value codePoint hexPrintString) with:value codePoint)
- ].
- ^ value storeString,(' "%1"' bindWith:(value codePoint))
- ].
- value isString ifTrue:[
- ^ value storeString contractTo:30.
- ].
- value isColor ifTrue:[
- ^ value htmlPrintString
- ].
- value isNil ifTrue:[
- ^ 'nil'
- ].
- (value isClass and:[value name notEmptyOrNil]) ifTrue:[
- ^ value name
- ].
- ^ value classNameWithArticle "nil"
+ ^ value inspectorValueStringInListFor:self
"Created: / 13-06-2012 / 12:50:26 / cg"
!
@@ -2621,12 +2600,19 @@
^ list
keysAndValuesCollect:[:idx :nm |
- self listEntryForName:nm value:(self indexedValueAtIndex: idx)
+ | val |
+
+ [
+ val := self indexedValueAtIndex: idx
+ ] on:Error do:[
+ val := '** ERROR **'
+ ].
+ self listEntryForName:nm value:val
].
- ^ list.
-
- "Modified: / 22-08-2012 / 19:19:05 / cg"
+"/ ^ list.
+
+ "Modified: / 21-09-2012 / 11:18:28 / cg"
"Modified: / 06-07-2012 / 10:37:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -3334,13 +3320,13 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Id: InspectorView.st 8050 2012-09-07 19:27:32Z vranyj1 $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.280 2012/09/24 10:34:43 cg Exp $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.278 2012/08/23 11:45:48 cg Exp §'
+ ^ 'Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.280 2012/09/24 10:34:43 cg Exp '
!
version_SVN
- ^ '$Id: InspectorView.st 8050 2012-09-07 19:27:32Z vranyj1 $'
+ ^ '$Id: InspectorView.st 8059 2012-09-27 20:08:20Z vranyj1 $'
! !