handle non-string collections as contents (virtualArray)
authorClaus Gittinger <cg@exept.de>
Mon, 27 Feb 2012 22:11:55 +0100
changeset 11284 ebb519afb53d
parent 11283 90d952b08262
child 11285 897d1aa1246a
handle non-string collections as contents (virtualArray)
FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Mon Feb 27 21:54:53 2012 +0100
+++ b/FileApplicationNoteBook.st	Mon Feb 27 22:11:55 2012 +0100
@@ -5078,7 +5078,7 @@
     self hasMD5 ifFalse:[^ nil].
 
     hashStream := MD5Stream new.
-    contents isStringCollection ifTrue:[
+    (contents isCollection and:[ contents isString not ]) ifTrue:[
         contents do:[:eachLine |
             eachLine notNil ifTrue:[
                 hashStream nextPutAll:(eachLine string withTabs).
@@ -5089,6 +5089,8 @@
         hashStream nextPutAll:(contents string).
     ].
     ^ hashStream hashValue.
+
+    "Modified: / 27-02-2012 / 22:10:18 / cg"
 !
 
 openDiffView
@@ -6707,9 +6709,9 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.264 2012-01-12 01:22:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.265 2012-02-27 21:11:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.264 2012-01-12 01:22:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.265 2012-02-27 21:11:55 cg Exp $'
 ! !