1 " |
|
2 COPYRIGHT (c) 1995 by Claus Gittinger |
|
3 All Rights Reserved |
|
4 |
|
5 This software is furnished under a license and may be used |
|
6 only in accordance with the terms of that license and with the |
|
7 inclusion of the above copyright notice. This software may not |
|
8 be provided or otherwise made available to, or used by, any |
|
9 other person. No title to or ownership of the software is |
|
10 hereby transferred. |
|
11 " |
|
12 |
|
13 |
|
14 |
|
15 ApplicationModel subclass:#UIPainterTreeView |
|
16 instanceVariableNames:'listHolder' |
|
17 classVariableNames:'' |
|
18 poolDictionaries:'' |
|
19 category:'Interface-UIPainter' |
|
20 ! |
|
21 |
|
22 !UIPainterTreeView class methodsFor:'documentation'! |
|
23 |
|
24 copyright |
|
25 " |
|
26 COPYRIGHT (c) 1995 by Claus Gittinger |
|
27 All Rights Reserved |
|
28 |
|
29 This software is furnished under a license and may be used |
|
30 only in accordance with the terms of that license and with the |
|
31 inclusion of the above copyright notice. This software may not |
|
32 be provided or otherwise made available to, or used by, any |
|
33 other person. No title to or ownership of the software is |
|
34 hereby transferred. |
|
35 " |
|
36 |
|
37 |
|
38 ! |
|
39 |
|
40 documentation |
|
41 " |
|
42 not yet finished, not yet published, not yet released. |
|
43 " |
|
44 |
|
45 ! ! |
|
46 |
|
47 !UIPainterTreeView class methodsFor:'instance creation'! |
|
48 |
|
49 listHolder:aListHolder |
|
50 |appl| |
|
51 |
|
52 appl := UIPainterTreeView new. |
|
53 appl listHolder:aListHolder. |
|
54 appl openInterface:#windowSpec. |
|
55 ^ appl |
|
56 |
|
57 ! ! |
|
58 |
|
59 !UIPainterTreeView class methodsFor:'interface specs'! |
|
60 |
|
61 windowSpec |
|
62 "this window spec was automatically generated by the ST/X UIPainter" |
|
63 |
|
64 "do not manually edit this - the painter/builder may not be able to |
|
65 handle the specification if its corrupted." |
|
66 |
|
67 " |
|
68 UIPainter new openOnClass:UIPainterTreeView andSelector:#windowSpec |
|
69 UIPainterTreeView new openInterface:#windowSpec |
|
70 " |
|
71 |
|
72 <resource: #canvas> |
|
73 |
|
74 ^ |
|
75 |
|
76 #(#FullSpec |
|
77 #'window:' |
|
78 #(#WindowSpec |
|
79 #'name:' 'treeView' |
|
80 #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
81 #'label:' 'Tree-View' |
|
82 #'bounds:' #(#Rectangle 0 0 192 479) |
|
83 ) |
|
84 #'component:' |
|
85 #(#SpecCollection |
|
86 #'collection:' |
|
87 #( |
|
88 #(#SequenceViewSpec |
|
89 #'name:' 'selectionInList' |
|
90 #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0) |
|
91 #'menu:' #listMenu |
|
92 #'model:' #listHolder |
|
93 #'callbacksSpec:' |
|
94 #(#UIEventCallbackSubSpec |
|
95 #'doubleClickSelector:' #doubleClick |
|
96 ) |
|
97 #'hasHorizontalScrollBar:' true |
|
98 #'hasVerticalScrollBar:' true |
|
99 #'miniScrollerHorizontal:' false |
|
100 #'miniScrollerVertical:' false |
|
101 #'isMultiSelect:' true |
|
102 ) |
|
103 ) |
|
104 ) |
|
105 ) |
|
106 ! ! |
|
107 |
|
108 !UIPainterTreeView methodsFor:'aspects'! |
|
109 |
|
110 doubleClick |
|
111 listHolder selectGroup |
|
112 ! |
|
113 |
|
114 listHolder |
|
115 ^ listHolder |
|
116 |
|
117 ! |
|
118 |
|
119 listHolder:aListHolder |
|
120 listHolder := aListHolder |
|
121 ! |
|
122 |
|
123 listMenu |
|
124 "returns a block which returns the menu |
|
125 " |
|
126 ^ [listHolder painter menu] |
|
127 ! ! |
|
128 |
|
129 !UIPainterTreeView class methodsFor:'documentation'! |
|
130 |
|
131 version |
|
132 ^ '$Header$' |
|
133 |
|
134 ! ! |
|