--- a/Tools__DiffCodeView2.st	Fri Sep 07 12:37:19 2012 +0100
+++ b/Tools__DiffCodeView2.st	Fri Sep 07 18:28:09 2012 +0100
@@ -91,6 +91,12 @@
     "Created: / 19-07-2011 / 12:55:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+codeAspect:aSymbol
+    textViews do:[:each|each codeAspect:aSymbol].
+
+    "Created: / 27-07-2012 / 23:24:46 / cg"
+!
+
 languageHolder: aValueModel
 
     textViews do:[:each|each languageHolder: aValueModel].
@@ -281,28 +287,33 @@
 createArray:text1
     "cg: isn't that an obfuscated variation of #asCollectionOfLines ?"
 
-    ^ text1 asStringCollection. "/ yes, it looks like !! 
-"/    | array src line c |
-"/
-"/    array := StringCollection new.
-"/    src := text1 readStream.
-"/    line := (String new: 80) writeStream.
-"/    [ src atEnd ] whileFalse:[
-"/        c := src next.
-"/        line nextPut: c.
-"/        c == Character cr ifTrue:[
-"/            array add: line contents.
-"/            line reset.
-"/        ]        
-"/    ].
-"/    line position ~~ 0 ifTrue:[
-"/        array add: line contents
-"/    ].
-"/    ^array
+    "/ ^ text1 asStringCollection. "/ yes, it looks like !! 
+
+    "/ JV@2012-07-26: Yes, looks like but it is not!! This version
+    "/ keeps CRs in lines. Do not change it back - if you do, DoffCodeView2 
+    "/ will show whole source in a single line.
+
+    | array src line c |
+
+    array := StringCollection new.
+    src := text1 readStream.
+    line := (String new: 80) writeStream.
+    [ src atEnd ] whileFalse:[
+        c := src next.
+        line nextPut: c.
+        c == Character cr ifTrue:[
+            array add: line contents.
+            line reset.
+        ]        
+    ].
+    line position ~~ 0 ifTrue:[
+        array add: line contents
+    ].
+    ^array
 
     "Created: / 22-03-2010 / 14:48:27 / Jakub <zelenja7@fel.cvut.cz>"
-    "Modified (comment): / 19-07-2011 / 11:14:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 17-07-2012 / 18:55:21 / cg"
+    "Modified (comment): / 26-07-2012 / 21:45:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !DiffCodeView2::DiffData methodsFor:'accessing'!
@@ -354,9 +365,9 @@
 !DiffCodeView2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/Tools__DiffCodeView2.st,v 1.4 2012/07/17 17:03:25 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/Tools__DiffCodeView2.st,v 1.6 2012/07/27 22:05:42 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: Tools__DiffCodeView2.st 8027 2012-07-26 18:46:57Z vranyj1 $'
+    ^ '$Id: Tools__DiffCodeView2.st 8048 2012-09-07 17:28:09Z vranyj1 $'
 ! !