--- a/UIPainterView.st Mon May 07 14:40:56 2018 +0200
+++ b/UIPainterView.st Sat May 12 14:25:16 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG
All Rights Reserved
@@ -2047,19 +2049,20 @@
treeView:aTreeView
treeView := aTreeView.
+ "I want to see the events of the treeView"
treeView delegate:(
- "/
- "/ I want to handle everything typed
- "/ in the treeView, except for Return and Cursor-keys
- "/
- KeyboardForwarder
- toView:self
- condition:nil
- filter:[:k | (k isSymbol
- and:[k ~~ #Return
- and:[k ~~ #Tab
- and:[(k startsWith:#Cursor) not]]])
- ]
+ "/
+ "/ I want to handle everything typed
+ "/ in the treeView, except for Return and Cursor-keys
+ "/
+ KeyboardForwarder
+ toView:self
+ condition:nil
+ filter:[:k | (k isSymbol
+ and:[k ~~ #Return
+ and:[k ~~ #Tab
+ and:[(k startsWith:#Cursor) not]]])
+ ]
)
"Modified: / 31.10.1997 / 20:22:09 / cg"