#REFACTORING by cg
class: TextCollector
scroll actions refactored/cleaned up
to not mix line scrolling (textViews)
with pixel scrolling (wheel + drag and drop)
changed: #endEntry (send #scrollDownLines: instead of #scrollDown:)
--- a/TextCollector.st Wed Jun 13 23:00:17 2018 +0200
+++ b/TextCollector.st Wed Jun 13 23:00:39 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1407,7 +1405,7 @@
(cursorLine >= (firstLineShown + nFullLinesShown)) ifTrue:[
scrollLocked ifFalse:[
self withCursorOffDo:[
- self scrollDown:nLines
+ self scrollDownLines:nLines
]
].
].
@@ -1437,7 +1435,8 @@
"/ ]
].
- "Modified: / 9.11.1998 / 21:17:56 / cg"
+ "Modified: / 09-11-1998 / 21:17:56 / cg"
+ "Modified: / 13-06-2018 / 22:00:27 / Claus Gittinger"
!
flash