--- a/EditTextView.st Mon Oct 03 13:47:16 2016 +0100
+++ b/EditTextView.st Sun Oct 09 22:59:20 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -1184,13 +1182,13 @@
which want to automatically generate additional lines lazily,
but which cannot afford to generate the whole text in advance
(eg: who wants to disassemble gigabytes?).
- If set, this hook is called whenever the cursor is about to be moved below the
+ If set, this hook is called whenever the cursor is about to be moved below the
last line, getting the new lineNr (i.e > contents size) as argument.
It may generate more text (by setting my contents) and return a new cursor line
- number, into which the cursor should be moved
- (eg. if 10 additional lines are generated, it may want to return oldSize+1,
+ number, into which the cursor should be moved
+ (eg. if 10 additional lines are generated, it may want to return oldSize+1,
to make the cursor end in the last line which was inserted)"
-
+
self setAttribute:#generateTextAfterEndHook to:aBlock
!
@@ -1201,13 +1199,13 @@
which want to automatically generate additional lines lazily,
but which cannot afford to generate the whole text in advance
(eg: who wants to disassemble gigabytes?).
- If set, this hook is called whenever the cursor is about to be moved above the
+ If set, this hook is called whenever the cursor is about to be moved above the
top, getting the new lineNr (i.e < 1) as argument.
It may generate more text (by setting my contents) and return a new cursor line
- number, into which the cursor should be moved
- (eg. if 10 additional lines are generated, it may want to return 10, to make the
+ number, into which the cursor should be moved
+ (eg. if 10 additional lines are generated, it may want to return 10, to make the
cursor end in the last line which was inserted)"
-
+
self setAttribute:#generateTextBeforeStartHook to:aBlock
!
@@ -1812,7 +1810,7 @@
].
inLastLine := (nL == list size).
-
+
inLastLine ifTrue:[
|generateTextAfterEndHook|
@@ -1823,7 +1821,7 @@
self setValidatedCursorLine:nL col:cursorColBefore.
self makeCursorVisibleAndShowCursor:wasOn.
^ self.
- ].
+ ].
].
self st80EditMode ifTrue:[
@@ -2265,11 +2263,11 @@
nl := cursorLine - n.
nl < 1 ifTrue:[
|generateTextBeforeStartHook|
-
+
cursorColBefore := cursorCol.
(generateTextBeforeStartHook := self getAttribute:#generateTextBeforeStartHook) notNil ifTrue:[
nl := generateTextBeforeStartHook value:nl
- ].
+ ].
nl := nl max:1
].
@@ -5985,7 +5983,7 @@
"/ on windows, an activate:false event is first sent to my textView,
"/ then an activate is sent to the completion popup.
"/ this is done BEFORE the buttonPress event is delivered.
- "/ therefore, allow for the activate of the completionMenu and it's button event to be processed.
+ "/ therefore, allow for the activate of the completionMenu and its button event to be processed.
"/ before forcing it to be closed...
completionSupport startTimeoutForEditViewLostFocus.
].