# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1138039494 -3600
# Node ID cd30f8cd59f81d727fe24386d91045c1acc02f00
# Parent  65cc475656d3b9dd6825167117834e8274a5dc69
Ctrl-CursorUp/Down in tree

diff -r 65cc475656d3 -r cd30f8cd59f8 UIPainter.st
--- a/UIPainter.st	Fri Jan 20 16:27:10 2006 +0100
+++ b/UIPainter.st	Mon Jan 23 19:04:54 2006 +0100
@@ -2856,6 +2856,44 @@
     ].
     super doesNotUnderstand:aMessage
 
+!
+
+processEvent:anEvent
+    "filter keyboard events.
+     Return true, if I have eaten the event"
+
+    |key|
+
+    anEvent isKeyPressEvent ifTrue:[ 
+
+        anEvent targetView == treeView ifFalse:[^ false].
+        treeView hasFocus ifFalse:[^ false].
+
+        key := anEvent key.
+
+"/        (anEvent rawKey == #Cmdr) ifTrue:[
+"/            self openNameEditorOnTreeSelection.
+"/            ^ true.
+"/        ].
+        (anEvent rawKey == #CtrlCursorUp) ifTrue:[ 
+            self doStepUp.
+            ^ true.
+        ].
+        (anEvent rawKey == #CtrlCursorDown) ifTrue:[ 
+            self doStepDown.
+            ^ true.
+        ].
+        (anEvent rawKey == #CtrlCursorLeft) ifTrue:[ 
+            self doStepOut.
+            ^ true.
+        ].
+        (anEvent rawKey == #CtrlCursorRight) ifTrue:[ 
+            self doStepIn.
+            ^ true.
+        ].
+    ].
+
+    ^ false.
 ! !
 
 !UIPainter methodsFor:'help'!
@@ -3652,9 +3690,13 @@
     "sets the initial selection"
 
     |myWindow canvasWindow canvasOrg galleryWindow 
-     galleryOrg myOrg myCorner|
+     galleryOrg myOrg myCorner windowGroup|
 
     super postOpenWith: aBuilder.
+
+    windowGroup := self topApplication windowGroup.
+    windowGroup addPreEventHook:self.
+
     treeView selection: #(1).
     aBuilder keyboardProcessor menuBar:nil.