#DOCUMENTATION by cg draft
authorClaus Gittinger <cg@exept.de>
Sat, 12 May 2018 14:25:16 +0200
changeset 3557 d124916e2e4d
parent 3556 5513f508bcf2
child 3558 6609ee3ba154
#DOCUMENTATION by cg class: UIPainterView comment/format in: #treeView:
UIPainterView.st
--- 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"