--- a/EditTextView.st Wed Dec 17 15:23:28 2014 +0100
+++ b/EditTextView.st Wed Dec 17 23:50:36 2014 +0100
@@ -5061,7 +5061,11 @@
"
(key == #BeginOfLine) ifTrue:[
- shiftPressed ifTrue: [
+ "/ cg: this is complete rubbish - you have to define a mapping from
+ "/ some shifted key to selectFromBeginOfLine
+ "/ (otherwise, no shifted key could ever be mapped to BegnOfLine)
+ "/ see code below.
+ false "shiftPressed" ifTrue: [
"/ "Original St/X code - now use Ctrl modifier"
"/ self unselect.
"/ self cursorHome.
@@ -5079,8 +5083,17 @@
].
^ self
].
+ (key == #BSelectFromeginOfLine) ifTrue:[
+ self selectFromBeginOfLine.
+ ^ self
+ ].
+
(key == #EndOfLine) ifTrue:[
- shiftPressed ifTrue:[
+ "/ cg: this is complete rubbish - you have to define a mapping from
+ "/ some shifted key to selectFromBeginOfLine
+ "/ (otherwise, no shifted key could ever be mapped to BegnOfLine)
+ "/ see code below.
+ false "shiftPressed" ifTrue:[
"/ "Original St/X code - now use Ctrl modifier"
"/ self unselect.
"/ self cursorToBottom
@@ -5098,6 +5111,12 @@
].
^ self
].
+
+ (key == #SelectToEndOfLine) ifTrue:[
+ self selectToEndOfLine.
+ ^ self
+ ].
+
(key == #NextWord) ifTrue:[self cursorToNextWord. ^self].
(key == #EndOfWord) ifTrue:[self cursorToEndOfWord. ^self].
(key == #PreviousWord) ifTrue:[self cursorToPreviousWord. ^self].
@@ -8698,10 +8717,10 @@
!EditTextView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.628 2014-12-05 13:39:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.629 2014-12-17 22:50:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.628 2014-12-05 13:39:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/EditTextView.st,v 1.629 2014-12-17 22:50:36 cg Exp $'
! !