--- a/InspectorView.st Fri Apr 11 13:40:19 2014 +0200
+++ b/InspectorView.st Fri Apr 11 16:12:51 2014 +0200
@@ -2438,70 +2438,71 @@
!
iconForValue: anObject
- |value|
-
+ |value cls|
+
+ cls := self class.
anObject isNil ifTrue:[
- ^ self class imageFor_nil
+ ^ cls imageFor_nil
].
anObject isLazyValue ifTrue:[
- ^ self class imageFor_others
+ ^ cls imageFor_others
].
anObject isNumber ifTrue:[
anObject isInteger ifTrue:[
- ^ self class imageFor_integers
+ ^ cls imageFor_integers
].
anObject isFloat ifTrue:[
- ^ self class imageFor_floats
+ ^ cls imageFor_floats
].
anObject isFraction ifTrue:[
- ^ self class imageFor_fractions
+ ^ cls imageFor_fractions
].
].
anObject isCollection ifTrue:[
anObject isString ifTrue:[
anObject isSymbol ifTrue:[
- ^ self class imageFor_symbols
+ ^ cls imageFor_symbols
].
- ^ self class imageFor_strings
+ ^ cls imageFor_strings
].
(anObject isDictionary) ifTrue:[
- ^ self class imageFor_dictionaries
+ ^ cls imageFor_dictionaries
].
(anObject isArray) ifTrue:[
- ^ self class imageFor_arrays
+ ^ cls imageFor_arrays
].
(anObject isSequenceable) ifTrue:[
- ^ self class imageFor_sequenceableCollections
+ ^ cls imageFor_sequenceableCollections
].
- ^ self class imageFor_collections
+ ^ cls imageFor_collections
].
anObject == true ifTrue:[
- ^ self class imageFor_true
+ ^ cls imageFor_true
].
anObject == false ifTrue:[
- ^ self class imageFor_false
+ ^ cls imageFor_false
].
anObject isCharacter ifTrue:[
- ^ self class imageFor_characters
+ ^ cls imageFor_characters
].
anObject isBehavior ifTrue:[
- ^ self class imageFor_classes
+ ^ cls imageFor_classes
].
anObject isColor ifTrue:[
- ^ self class imageFor_colors
+ ^ cls imageFor_colors
].
anObject isValueModel ifTrue:[
Error handle:[:ex |
] do:[
value := anObject value.
- value == true ifTrue:[^ self class imageFor_trueHolder].
- value == false ifTrue:[^ self class imageFor_falseHolder].
- value == nil ifTrue:[^ self class imageFor_nilHolder].
- ^ self class imageFor_othersHolder
+ value == true ifTrue:[^ cls imageFor_trueHolder].
+ value == false ifTrue:[^ cls imageFor_falseHolder].
+ value == nil ifTrue:[^ cls imageFor_nilHolder].
+ ^ cls imageFor_othersHolder
].
].
- ^ self class imageFor_others
+ ^ cls imageFor_others
"Created: / 16-05-2012 / 17:58:20 / cg"
!
@@ -3696,10 +3697,10 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.329 2014-04-08 17:23:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.330 2014-04-11 14:12:51 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.329 2014-04-08 17:23:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.330 2014-04-11 14:12:51 cg Exp $'
! !