class: DataSetColumn
changed:
#extractColFromRow:rowNr:
#storeCol:inRow:
--- a/DataSetColumn.st Wed May 29 13:52:52 2013 +0200
+++ b/DataSetColumn.st Tue Jun 04 11:39:43 2013 +0200
@@ -1032,8 +1032,7 @@
].
aRow isNil ifTrue:[^ nil].
- ((aRow isMemberOf:Dictionary)
- or:[ aRow isMemberOf:IdentityDictionary]) ifTrue:[
+ (aRow isDictionary) ifTrue:[
col := aRow at:readSelector
] ifFalse:[
col := aRow perform:readSelector withOptionalArgument:columnNumber and:rowNr and:dataSet.
@@ -1079,8 +1078,7 @@
^ self
].
- ((aRow isMemberOf:Dictionary)
- or:[ aRow isMemberOf:IdentityDictionary]) ifTrue:[
+ (aRow isDictionary) ifTrue:[
aRow at:writeSelector put:newValue
] ifFalse:[
numArgs == 1 ifTrue:[
@@ -1350,9 +1348,10 @@
!DataSetColumn class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.136 2012-11-22 21:51:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.137 2013-06-04 09:39:43 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.136 2012-11-22 21:51:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DataSetColumn.st,v 1.137 2013-06-04 09:39:43 cg Exp $'
! !
+