author | Claus Gittinger <cg@exept.de> |
Sun, 08 May 2016 02:25:46 +0200 | |
changeset 5082 | 87e1ffeceb8a |
parent 3150 | e3a55f15ef7e |
child 4770 | 6634b540fea2 |
child 5160 | c946616ee338 |
permissions | -rw-r--r-- |
254 | 1 |
" |
2 |
COPYRIGHT (c) 1994 by AEG Industry Automation |
|
3 |
COPYRIGHT (c) 1994 by Claus Gittinger |
|
4 |
All Rights Reserved |
|
5 |
||
6 |
This software is furnished under a license and may be used |
|
7 |
only in accordance with the terms of that license and with the |
|
8 |
inclusion of the above copyright notice. This software may not |
|
9 |
be provided or otherwise made available to, or used by, any |
|
10 |
other person. No title to or ownership of the software is |
|
11 |
hereby transferred. |
|
12 |
" |
|
13 |
||
3150 | 14 |
"{ Package: 'stx:libwidg2' }" |
15 |
||
84 | 16 |
SelectionInListView subclass:#SelectionInHierarchyView |
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
17 |
instanceVariableNames:'itemList showConnectingLines itemClass indent itemPrintConverter' |
252 | 18 |
classVariableNames:'' |
19 |
poolDictionaries:'' |
|
1233 | 20 |
category:'Views-Trees' |
84 | 21 |
! |
22 |
||
259 | 23 |
!SelectionInHierarchyView class methodsFor:'documentation'! |
84 | 24 |
|
3150 | 25 |
copyright |
254 | 26 |
" |
27 |
COPYRIGHT (c) 1994 by AEG Industry Automation |
|
28 |
COPYRIGHT (c) 1994 by Claus Gittinger |
|
29 |
All Rights Reserved |
|
30 |
||
31 |
This software is furnished under a license and may be used |
|
32 |
only in accordance with the terms of that license and with the |
|
33 |
inclusion of the above copyright notice. This software may not |
|
34 |
be provided or otherwise made available to, or used by, any |
|
35 |
other person. No title to or ownership of the software is |
|
36 |
hereby transferred. |
|
37 |
" |
|
38 |
! |
|
84 | 39 |
|
40 |
documentation |
|
41 |
" |
|
443 | 42 |
[warning:] |
3150 | 43 |
this class has been more or less obsoleted by |
44 |
the SelectionInTreeView and HierarchicalListView classes. |
|
45 |
SelectionInHierarchyView remains in the system for backward |
|
46 |
compatibility, but will be no longer maintained. |
|
47 |
New applications should use SelectionInTreeView, |
|
48 |
or (even better) HierarchicalListView. |
|
443 | 49 |
|
84 | 50 |
somewhat like a SelectionInListView; but specialized for hierarchical (i.e. tree-like) |
3150 | 51 |
lists and adds the functions to show/hide subtrees. |
84 | 52 |
Requires SelectionInHierarchy as model and HierarchyNode (or compatible) list entries. |
53 |
See examples. |
|
252 | 54 |
|
55 |
[Author:] |
|
3150 | 56 |
W. Olberding AEG Factory Automation |
252 | 57 |
|
58 |
[See also:] |
|
3150 | 59 |
SelectionInTreeView |
60 |
SelectionInHierarchy HierarchyNode |
|
61 |
SelectionInListView |
|
84 | 62 |
" |
63 |
! |
|
64 |
||
65 |
examples |
|
66 |
" |
|
67 |
shows the tree of smalltalk classes: |
|
3150 | 68 |
[exBegin] |
84 | 69 |
|top hierarchy hierarchyV scroller| |
70 |
||
71 |
hierarchy := SelectionInHierarchy new. |
|
72 |
hierarchy root:(HierarchyNode newAsTreeFromSmalltalkClass:Object). |
|
73 |
hierarchy setHideToChildren:true startingAt:hierarchy root. |
|
74 |
||
75 |
top := StandardSystemView new. |
|
76 |
top extent:300@300. |
|
77 |
||
78 |
hierarchyV := SelectionInHierarchyView new. |
|
79 |
hierarchyV model: hierarchy. |
|
184 | 80 |
hierarchyV action:[:nr | Transcript show:'selected:'; showCR:nr]. |
84 | 81 |
|
82 |
top add:(ScrollableView forView:hierarchyV) |
|
3150 | 83 |
in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)). |
84 | 84 |
top open. |
3150 | 85 |
[exEnd] |
84 | 86 |
|
87 |
same, with nice connecting links: |
|
259 | 88 |
(sorry - this works only with some fonts - see comment in #getListFromModel) |
3150 | 89 |
[exBegin] |
84 | 90 |
|top hierarchy hierarchyV scroller| |
91 |
||
92 |
hierarchy := SelectionInHierarchy new. |
|
93 |
hierarchy root:(HierarchyNode newAsTreeFromSmalltalkClass:Object). |
|
94 |
hierarchy setHideToChildren:true startingAt:hierarchy root. |
|
95 |
||
96 |
top := StandardSystemView new. |
|
97 |
top extent:300@300. |
|
98 |
||
99 |
hierarchyV := SelectionInHierarchyView new. |
|
100 |
hierarchyV showConnectingLines:true. |
|
101 |
hierarchyV model: hierarchy. |
|
184 | 102 |
hierarchyV action:[:nr | Transcript show:'selected:'; showCR:nr]. |
84 | 103 |
|
104 |
top add:(ScrollableView forView:hierarchyV) |
|
3150 | 105 |
in:((0.0 @ 0.0 ) corner:( 1.0 @ 1.0)). |
84 | 106 |
top open. |
3150 | 107 |
[exEnd] |
84 | 108 |
" |
109 |
! ! |
|
110 |
||
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
111 |
!SelectionInHierarchyView methodsFor:'accessing - selection'! |
252 | 112 |
|
254 | 113 |
selectElement:anObject |
114 |
"select the element with same printString as the argument, anObject" |
|
115 |
||
116 |
|index| |
|
117 |
||
118 |
index:= 1. |
|
119 |
list notNil ifTrue:[ |
|
3150 | 120 |
list do:[:each| |
121 |
((each withoutSpaces) = (anObject printString)) ifTrue:[ |
|
122 |
self selection:index. |
|
123 |
^ index |
|
124 |
]. |
|
125 |
index:= index + 1. |
|
126 |
]. |
|
254 | 127 |
]. |
128 |
^index |
|
252 | 129 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
130 |
"Modified: 10.10.1994 / 16:13:39 / W.Olberding" |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
131 |
"Modified: 16.4.1997 / 12:40:05 / cg" |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
132 |
! |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
133 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
134 |
selection: anIndex |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
135 |
"Pass the selection along to the model." |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
136 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
137 |
super selection: anIndex. |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
138 |
model selection: anIndex. |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
139 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
140 |
"Modified: 10.10.94 / 16:13:38 / W.Olberding"! |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
141 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
142 |
selectionIndex: anIndex |
3150 | 143 |
"Pass the selection along to the model." |
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
144 |
|
3150 | 145 |
super selection: anIndex. |
146 |
model selection: anIndex. |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
147 |
|
3150 | 148 |
"Modified: 10.10.94 / 16:13:38 / W.Olberding" |
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
149 |
! ! |
252 | 150 |
|
84 | 151 |
!SelectionInHierarchyView methodsFor:'event handling'! |
152 |
||
153 |
buttonPress:button x:x y:y |
|
154 |
|oldSelection listLineNr| |
|
155 |
||
156 |
((button == 1) or:[button == #select]) ifTrue:[ |
|
3150 | 157 |
enabled ifTrue:[ |
158 |
oldSelection := selection. |
|
159 |
listLineNr := self visibleLineToListLine:(self visibleLineOfY:y). |
|
160 |
(selectConditionBlock isNil or:[selectConditionBlock value:listLineNr]) ifTrue:[ |
|
161 |
listLineNr notNil ifTrue: [ |
|
162 |
self selectWithoutScroll:listLineNr |
|
163 |
]. |
|
164 |
((ignoreReselect not and:[selection notNil]) |
|
165 |
or:[selection ~= oldSelection]) ifTrue:[ |
|
166 |
"actionBlock notNil ifTrue:[actionBlock value:selection]." |
|
167 |
"the ST-80 way of doing things" |
|
168 |
model notNil ifTrue:[ |
|
169 |
model perform:#selectionIndex: with:(selection) |
|
170 |
] |
|
171 |
]. |
|
172 |
clickLine := listLineNr |
|
173 |
] |
|
174 |
] |
|
84 | 175 |
] ifFalse:[ |
3150 | 176 |
super buttonPress:button x:x y:y |
84 | 177 |
] |
178 |
||
3150 | 179 |
"Modified: 10.10.94 / 17:13:38 / W.Olberding" |
180 |
"Modified: 08.11.94 / 15:38:43 / R.Sailer" |
|
252 | 181 |
! |
84 | 182 |
|
254 | 183 |
keyPress:key x:x y:y |
184 |
"a key was pressed - handle [-][+][*] here" |
|
84 | 185 |
|
3150 | 186 |
(key == $-) ifTrue: [^ model collapse]. |
187 |
(key == $+) ifTrue: [^ model expand]. |
|
188 |
(key == $*) ifTrue: [^ model expandAll]. |
|
189 |
(key == $.) ifTrue: [^ model collapseAll]. |
|
254 | 190 |
|
191 |
super keyPress:key x:x y:y |
|
84 | 192 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
193 |
"Modified: 10.10.94 / 16:13:38 / W.Olberding"! ! |
252 | 194 |
|
195 |
!SelectionInHierarchyView methodsFor:'initialization'! |
|
196 |
||
254 | 197 |
initialize |
252 | 198 |
|
254 | 199 |
super initialize. |
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
200 |
|
254 | 201 |
showConnectingLines := true. |
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
202 |
indent := 2. |
252 | 203 |
|
3150 | 204 |
self doubleClickAction: |
205 |
[:selection | model doubleClickSelection: selection ]. |
|
206 |
"this will usualy initiate a hide/show operation" |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
207 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
208 |
"Modified: 10.10.1994 / 16:13:39 / W.Olberding" |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
209 |
"Modified: 16.4.1997 / 12:37:38 / cg" |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
210 |
! |
252 | 211 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
212 |
itemPrintConverter:aBlock |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
213 |
"set a converter block, which returns a listEntry |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
214 |
for a passed node. If left undefined, an indented string |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
215 |
based upon the nodes name is generated." |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
216 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
217 |
itemPrintConverter := aBlock |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
218 |
|
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
219 |
"Modified: 16.4.1997 / 13:06:22 / cg" |
252 | 220 |
! |
221 |
||
254 | 222 |
showConnectingLines:aBoolean |
223 |
showConnectingLines := aBoolean |
|
252 | 224 |
! ! |
84 | 225 |
|
226 |
!SelectionInHierarchyView methodsFor:'model access'! |
|
227 |
||
254 | 228 |
getListAttributes |
229 |
"get list attributes (selectable, disabled ...) from model)" |
|
230 |
||
231 |
^Array new: 0. |
|
232 |
||
233 |
"Modified: 10.10.94 / 16:13:38 / W.Olberding"! |
|
234 |
||
235 |
getListFromModel |
|
259 | 236 |
"Get list entries from model. |
237 |
Answer them as idented Text." |
|
254 | 238 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
239 |
|listOfNodes itemList textLine treeLevels isLastOnLevel oldLevel |
259 | 240 |
blockGraphicCharacters| |
254 | 241 |
|
259 | 242 |
listOfNodes := model list. |
243 |
listOfNodes isNil ifTrue:[^ #()]. |
|
254 | 244 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
245 |
itemPrintConverter notNil ifTrue:[ |
3150 | 246 |
"/ externally provided node-to-listentry converter |
247 |
"/ allows hierarchyNodes to be presented in any |
|
248 |
"/ programmer defined way ... |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
249 |
|
3150 | 250 |
itemList := listOfNodes collect:[:aNode | |
251 |
itemPrintConverter value:aNode |
|
252 |
]. |
|
253 |
] ifFalse:[ |
|
254 |
showConnectingLines ifFalse:[ |
|
255 |
itemList := listOfNodes collect: [ :aNode | |
|
256 |
textLine := ReadWriteStream on: String new. |
|
257 |
aNode level timesRepeat: [ |
|
258 |
textLine spaces:indent. |
|
259 |
]. |
|
260 |
textLine nextPutAll: aNode name. |
|
261 |
aNode isExpandable ifTrue: [ |
|
262 |
textLine nextPutAll: ' ...'. |
|
263 |
]. |
|
264 |
textLine contents. |
|
265 |
]. |
|
266 |
] ifTrue:[ |
|
267 |
"/ claus: |
|
268 |
"/ mhmh - the AEG code depends on those blockGraphic |
|
269 |
"/ characters being in the font. |
|
270 |
"/ |
|
271 |
"/ how can we find out what characters there are ? |
|
272 |
"/ (X maps missing chars to a space). |
|
273 |
"/ we should really rewrite this to use a private bitmap font ... |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
274 |
|
3150 | 275 |
blockGraphicCharacters := Array with:$| |
276 |
with:$+ |
|
277 |
with:$+ |
|
278 |
with:$-. |
|
84 | 279 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
280 |
"/ blockGraphicCharacters := Array with:(Character value:25) |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
281 |
"/ with:(Character value:14) |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
282 |
"/ with:(Character value:21) |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
283 |
"/ with:(Character value:18). |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
284 |
|
3150 | 285 |
isLastOnLevel:=Set new. |
286 |
treeLevels:=Set new. |
|
287 |
oldLevel:=0. |
|
259 | 288 |
|
3150 | 289 |
listOfNodes reverseDo: [ :aNode | |
290 |
(treeLevels includes:(aNode level)) ifFalse:[ |
|
291 |
isLastOnLevel add:aNode. |
|
292 |
treeLevels add:(aNode level). |
|
293 |
]. |
|
294 |
aNode level < oldLevel ifTrue:[ |
|
295 |
treeLevels remove:oldLevel. |
|
296 |
]. |
|
297 |
oldLevel:=aNode level. |
|
298 |
]. |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
299 |
|
3150 | 300 |
treeLevels:=Set new. |
301 |
oldLevel:=0. |
|
302 |
itemList := listOfNodes collect: [ :aNode | |
|
303 |
textLine := ReadWriteStream on: String new. |
|
84 | 304 |
|
3150 | 305 |
1 to:((aNode level)-1) do: [ :l | |
306 |
(treeLevels includes:l) ifTrue:[ |
|
307 |
textLine space; nextPut:(blockGraphicCharacters at:1); space. |
|
308 |
]ifFalse:[ |
|
309 |
textLine space; space; space. |
|
310 |
] |
|
311 |
]. |
|
312 |
treeLevels add:(aNode level). |
|
313 |
oldLevel:=aNode level. |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
314 |
|
3150 | 315 |
(aNode = (listOfNodes first)) ifFalse:[ |
316 |
textLine space. |
|
317 |
(isLastOnLevel includes:aNode)ifTrue:[ |
|
318 |
textLine nextPut:(blockGraphicCharacters at:2). |
|
319 |
treeLevels remove:(aNode level). |
|
320 |
] ifFalse:[ |
|
321 |
textLine nextPut:(blockGraphicCharacters at:3). |
|
322 |
]. |
|
323 |
textLine nextPut:(blockGraphicCharacters at:4). |
|
324 |
]. |
|
325 |
aNode isExpandable ifTrue: [ |
|
326 |
textLine nextPutAll: '[+]'. |
|
327 |
] ifFalse:[ |
|
328 |
aNode isCollapsable ifTrue: [ |
|
329 |
textLine nextPutAll: '[-]'. |
|
330 |
] ifFalse:[ |
|
331 |
textLine nextPut:(blockGraphicCharacters at:4). |
|
332 |
]. |
|
333 |
]. |
|
84 | 334 |
|
3150 | 335 |
textLine nextPutAll:' ', aNode name. |
336 |
textLine contents. |
|
337 |
]. |
|
338 |
] |
|
259 | 339 |
]. |
84 | 340 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
341 |
^itemList |
84 | 342 |
|
361
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
343 |
"Modified: 10.10.1994 / 16:13:39 / W.Olberding" |
207e06f3d47e
added an itemConverterBlock, which can generate ListEntries
Claus Gittinger <cg@exept.de>
parents:
259
diff
changeset
|
344 |
"Modified: 16.4.1997 / 12:43:20 / cg" |
84 | 345 |
! |
346 |
||
252 | 347 |
getSelectionFromModel |
348 |
"Get the current list selection from model. " |
|
349 |
||
350 |
^ model selectionIndex |
|
351 |
||
3150 | 352 |
"Modified: 10.10.94 / 16:13:39 / W.Olberding" |
252 | 353 |
! |
354 |
||
254 | 355 |
model:aModel |
356 |
super model:aModel. |
|
357 |
self setNewList |
|
252 | 358 |
! ! |
84 | 359 |
|
252 | 360 |
!SelectionInHierarchyView methodsFor:'private'! |
361 |
||
254 | 362 |
setNewList |
363 |
"Build a completely new hierarchy list." |
|
364 |
||
84 | 365 |
|
254 | 366 |
self setList: (self getListFromModel). |
367 |
"/ self attributes: (self getListAttributes). |
|
368 |
self selection: (self getSelectionFromModel). |
|
252 | 369 |
|
254 | 370 |
"Modified: 10.10.94 / 17:13:38 / W.Olberding" |
371 |
"Modified: 08.11.94 / 15:28:03 / R.Sailer"! ! |
|
84 | 372 |
|
373 |
!SelectionInHierarchyView methodsFor:'updating'! |
|
374 |
||
254 | 375 |
update: aSymbol with:aParameter from:changedObject |
376 |
"Change my apperance according to the occurred change." |
|
84 | 377 |
|
3150 | 378 |
aSymbol==#list |
254 | 379 |
ifTrue: [^self setNewList]. |
3150 | 380 |
aSymbol==#selection |
254 | 381 |
ifTrue: [^self selection: self getSelectionFromModel]. |
3150 | 382 |
aSymbol==#attributes |
254 | 383 |
ifTrue: []. |
84 | 384 |
|
254 | 385 |
"Modified: 10.10.94 / 16:13:38 / W.Olberding"! ! |
84 | 386 |
|
259 | 387 |
!SelectionInHierarchyView class methodsFor:'documentation'! |
84 | 388 |
|
252 | 389 |
version |
3150 | 390 |
^ '$Header: /cvs/stx/stx/libwidg2/SelectionInHierarchyView.st,v 1.12 2006-11-13 16:11:31 cg Exp $' |
84 | 391 |
! ! |