# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1526127916 -7200
# Node ID d124916e2e4d5818d6e843cc149f842ca0bd2c7c
# Parent  5513f508bcf2244bf7497256cc63f37667e296dc
#DOCUMENTATION by cg
class: UIPainterView
comment/format in: #treeView:

diff -r 5513f508bcf2 -r d124916e2e4d 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"