--- a/InspectorView.st Tue Jun 04 03:26:52 2013 +0000
+++ b/InspectorView.st Tue Jun 04 11:40:40 2013 +0200
@@ -2288,7 +2288,7 @@
].
^ self class imageFor_strings
].
- (anObject isKindOf:Dictionary) ifTrue:[
+ (anObject isDictionary) ifTrue:[
^ self class imageFor_dictionaries
].
(anObject isArray) ifTrue:[
@@ -2506,7 +2506,7 @@
|d actionItems valueItems otherItems|
d := self derivedFields.
- (d isKindOf:Dictionary) ifTrue:[
+ (d isDictionary) ifTrue:[
actionItems := d keys select:[:k | k startsWith:'!!'] as:OrderedCollection .
valueItems := d keys select:[:k | k startsWith:'-'] as:OrderedCollection.
otherItems := d keys select:[:k | (k startsWithAnyOf:#('!!' '-')) not] as:OrderedCollection.
@@ -3161,7 +3161,7 @@
idx ~~ 0 ifTrue:[
"a lot of backward compatibility crab which has to go away..."
fields := self derivedFields.
- (fields isKindOf:Dictionary) ifTrue:[
+ (fields isDictionary) ifTrue:[
fieldEntry := fields associationAt:line string "idx".
] ifFalse:[
fieldEntry := fields associationAt:idx.
@@ -3508,10 +3508,10 @@
!InspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.310 2013-06-03 10:39:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.311 2013-06-04 09:40:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.310 2013-06-03 10:39:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.311 2013-06-04 09:40:40 cg Exp $'
! !