equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
4 COPYRIGHT (c) 1995 by Claus Gittinger / eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
2045 ! |
2047 ! |
2046 |
2048 |
2047 treeView:aTreeView |
2049 treeView:aTreeView |
2048 treeView := aTreeView. |
2050 treeView := aTreeView. |
2049 |
2051 |
|
2052 "I want to see the events of the treeView" |
2050 treeView delegate:( |
2053 treeView delegate:( |
2051 "/ |
2054 "/ |
2052 "/ I want to handle everything typed |
2055 "/ I want to handle everything typed |
2053 "/ in the treeView, except for Return and Cursor-keys |
2056 "/ in the treeView, except for Return and Cursor-keys |
2054 "/ |
2057 "/ |
2055 KeyboardForwarder |
2058 KeyboardForwarder |
2056 toView:self |
2059 toView:self |
2057 condition:nil |
2060 condition:nil |
2058 filter:[:k | (k isSymbol |
2061 filter:[:k | (k isSymbol |
2059 and:[k ~~ #Return |
2062 and:[k ~~ #Return |
2060 and:[k ~~ #Tab |
2063 and:[k ~~ #Tab |
2061 and:[(k startsWith:#Cursor) not]]]) |
2064 and:[(k startsWith:#Cursor) not]]]) |
2062 ] |
2065 ] |
2063 ) |
2066 ) |
2064 |
2067 |
2065 "Modified: / 31.10.1997 / 20:22:09 / cg" |
2068 "Modified: / 31.10.1997 / 20:22:09 / cg" |
2066 ! ! |
2069 ! ! |
2067 |
2070 |