class: DSVColumnView expecco_2_4_0 expecco_2_4_1
authorStefan Vogel <sv@exept.de>
Wed, 27 Feb 2013 13:54:07 +0100
changeset 4176 915f6fa47e09
parent 4175 d169a9e82ddc
child 4177 bc837fdacd46
class: DSVColumnView comment/format in: #characterPress:x:y: changed: #keyPress:x:y: #openEditorOnSelection Handle #BackTab and Shift-#Tab correctly
DSVColumnView.st
--- 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 $'
 ! !