Tools__CodeView2.st
changeset 10788 14e0e02da097
parent 10785 4bf3e024a256
child 10791 a12cd2d06fe3
equal deleted inserted replaced
10787:637d7e03d602 10788:14e0e02da097
  2884     ].
  2884     ].
  2885     changedSource := changedSource asString.
  2885     changedSource := changedSource asString.
  2886 
  2886 
  2887         originalSource := listOriginal "self model value ? ''".
  2887         originalSource := listOriginal "self model value ? ''".
  2888 
  2888 
  2889         originalSource := originalSource asStringCollection.
  2889         originalSource := (originalSource ? '') asStringCollection.
  2890         originalSource := originalSource 
  2890         originalSource := originalSource 
  2891                 collect:[:lineOrNil |
  2891                 collect:[:lineOrNil |
  2892                     |newLine|
  2892                     |newLine|
  2893 
  2893 
  2894                     (newLine := lineOrNil) notNil ifTrue:[
  2894                     (newLine := lineOrNil) notNil ifTrue:[
  2907 
  2907 
  2908     reallyModifiedChannel value: modified
  2908     reallyModifiedChannel value: modified
  2909 
  2909 
  2910     "Created: / 07-10-2011 / 19:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2910     "Created: / 07-10-2011 / 19:16:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2911     "Modified: / 08-10-2011 / 11:10:01 / cg"
  2911     "Modified: / 08-10-2011 / 11:10:01 / cg"
  2912     "Modified: / 08-10-2011 / 12:15:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2912     "Modified: / 08-10-2011 / 18:48:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
  2913 ! !
  2913 ! !
  2914 
  2914 
  2915 !CodeView2::TextView methodsFor:'scrolling'!
  2915 !CodeView2::TextView methodsFor:'scrolling'!
  2916 
  2916 
  2917 basicScrollDown:nLines 
  2917 basicScrollDown:nLines 
  3059 ! !
  3059 ! !
  3060 
  3060 
  3061 !CodeView2 class methodsFor:'documentation'!
  3061 !CodeView2 class methodsFor:'documentation'!
  3062 
  3062 
  3063 version
  3063 version
  3064     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.33 2011-10-08 11:53:45 vrany Exp $'
  3064     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.34 2011-10-08 17:49:54 vrany Exp $'
  3065 !
  3065 !
  3066 
  3066 
  3067 version_CVS
  3067 version_CVS
  3068     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.33 2011-10-08 11:53:45 vrany Exp $'
  3068     ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.34 2011-10-08 17:49:54 vrany Exp $'
  3069 !
  3069 !
  3070 
  3070 
  3071 version_SVN
  3071 version_SVN
  3072     ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §'
  3072     ^ '§Id: Tools__CodeView2.st 7797 2011-06-28 07:45:06Z vranyj1 §'
  3073 ! !
  3073 ! !