class: DSVColumnView
comment/format in: #characterPress:x:y:
changed:
#keyPress:x:y:
#openEditorOnSelection
Handle #BackTab and Shift-#Tab correctly
--- a/DSVColumnView.st Fri Feb 22 13:31:10 2013 +0100
+++ b/DSVColumnView.st Wed Feb 27 13:54:07 2013 +0100
@@ -2564,7 +2564,7 @@
!
characterPress:aChar x:x y:y
- "search row in column at x/y starting its printable label with cahracter."
+ "search row in column at x/y starting its printable label with character."
|colNr rowNr lsize found column|
@@ -2829,7 +2829,7 @@
].
(aKey includesString:'Tab') ifTrue:[
- key := (self sensor shiftDown or:[aKey includesString:'Left'])
+ key := (aKey = #BackTab or:[self sensor shiftDown or:[aKey includesString:'Left']])
ifTrue:[#CursorLeft]
ifFalse:[#CursorRight]
] ifFalse:[
@@ -4248,18 +4248,18 @@
editorAndModel editorNeedsCursorKeys ifTrue:[
editorAndModel editorNeedsReturnKey ifTrue:[
"/ only steal TAB from the editor
- filter := [:aKey | aKey == #Tab ]
+ filter := [:aKey | #( #Tab #NonInsertingTab #BackTab ) includes:aKey ]
] ifFalse:[
"/ steal TAB and RETURN from the editor
- filter := [:aKey | #( #Tab #Return ) includes:aKey ]
+ filter := [:aKey | #( #Tab #NonInsertingTab #BackTab #Return ) includes:aKey ]
].
] ifFalse:[
editorAndModel editorNeedsReturnKey ifTrue:[
"/ only steal TAB and Curosr Keys from the editor
- filter := [:aKey | #( #Tab #CursorUp #CursorDown ) includes:aKey ]
+ filter := [:aKey | #( #Tab #NonInsertingTab #BackTab #CursorUp #CursorDown ) includes:aKey ]
] ifFalse:[
"/ steal TAB, RETURN and Curosr Keys from the editor
- filter := [:aKey | #( #Tab #CursorUp #CursorDown #Return ) includes:aKey ]
+ filter := [:aKey | #( #Tab #NonInsertingTab #BackTab #CursorUp #CursorDown #Return ) includes:aKey ]
].
].
keyBrdFwd := KeyboardForwarder
@@ -4725,10 +4725,10 @@
!DSVColumnView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.281 2013-01-11 10:45:31 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.282 2013-02-27 12:54:07 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.281 2013-01-11 10:45:31 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.282 2013-02-27 12:54:07 stefan Exp $'
! !