# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1370338783 -7200
# Node ID acf268d95fd0e219eb71cbfc37b7c0ea840ab603
# Parent  a8f551219f4e54fdfa9425b33f6b434a5f29b8ca
class: DataSetColumn
changed:
        #extractColFromRow:rowNr:
        #storeCol:inRow:

diff -r a8f551219f4e -r acf268d95fd0 DataSetColumn.st
--- 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 $'
 ! !
+