#BUGFIX by cg
class: EditTextView
changed: #cursorRight
no crsr-return for input fields.
--- a/EditTextView.st Wed Sep 27 15:48:34 2017 +0200
+++ b/EditTextView.st Wed Sep 27 15:49:52 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -2141,17 +2139,19 @@
|l|
self st80EditMode ifTrue:[
- l := (self listAt:cursorLine).
- cursorCol >= (l size + 1) ifTrue:[
- cursorLine <= list size ifTrue:[
- self cursorReturn:false. "/ no autoindent
- ].
- ^ self
- ]
+ self isInputField ifFalse:[
+ l := (self listAt:cursorLine).
+ cursorCol >= (l size + 1) ifTrue:[
+ cursorLine <= list size ifTrue:[
+ self cursorReturn:false. "/ no autoindent
+ ].
+ ^ self
+ ]
+ ].
].
self cursorCol:(cursorCol + 1)
- "Modified: / 20.6.1998 / 18:19:07 / cg"
+ "Modified: / 27-09-2017 / 15:38:26 / cg"
!
cursorRight:n