UIPainterView.st
changeset 361 6624bb5d9a1a
parent 352 088174fc1e71
child 376 3023fc08ee35
--- a/UIPainterView.st	Wed Oct 29 17:43:19 1997 +0100
+++ b/UIPainterView.st	Wed Oct 29 17:44:55 1997 +0100
@@ -385,6 +385,20 @@
                 ifFalse:[self select:oldSel]
 ! !
 
+!UIPainterView methodsFor:'event handling'!
+
+keyPress:key x:x y:y view:aView
+    self keyPress:key x:x y:y
+
+
+!
+
+keyRelease:key x:x y:y view:aView
+    self keyRelease:key x:x y:y
+
+
+! !
+
 !UIPainterView methodsFor:'generating output'!
 
 aspectMethods
@@ -794,7 +808,14 @@
 !
 
 treeView:aTreeView
-    treeView := aTreeView
+    treeView := aTreeView.
+
+    treeView delegate:(
+        KeyboardForwarder toView:self
+                       condition:nil
+                          filter:[:k|(k isSymbol and:[k ~~ #Return and:[(k startsWith:#Cursor) not]])]
+    )
+
 ! !
 
 !UIPainterView methodsFor:'menus'!