--- a/Tools__DiffCodeView2.st Thu Jul 26 20:54:28 2012 +0200
+++ b/Tools__DiffCodeView2.st Thu Jul 26 22:45:37 2012 +0200
@@ -274,28 +274,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'!
@@ -347,7 +352,7 @@
!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.5 2012-07-26 20:45:37 vrany Exp $'
!
version_SVN