equal
deleted
inserted
replaced
251 !SelectionInTree methodsFor:'private'! |
251 !SelectionInTree methodsFor:'private'! |
252 |
252 |
253 recomputeList |
253 recomputeList |
254 "Travers the tree and build a new list." |
254 "Travers the tree and build a new list." |
255 |
255 |
256 self updateList. |
|
257 self changed:#list. |
|
258 ! |
|
259 |
|
260 updateList |
|
261 "Travers the tree and build a new list.; no notification raised" |
|
262 |
|
263 list := OrderedCollection new. |
256 list := OrderedCollection new. |
264 |
257 |
265 root notNil ifTrue:[ |
258 root notNil ifTrue:[ |
266 showRoot ifTrue:[ |
259 showRoot ifTrue:[ |
267 list add:root |
260 list add:root |
268 ]. |
261 ]. |
269 root recomputeList:list |
262 root recomputeList:list |
270 ]. |
263 ]. |
|
264 self changed:#list. |
271 ! ! |
265 ! ! |
272 |
266 |
273 !SelectionInTree methodsFor:'selection'! |
267 !SelectionInTree methodsFor:'selection'! |
274 |
268 |
275 selection |
269 selection |
297 |
291 |
298 oldSel := selection. |
292 oldSel := selection. |
299 self setSelectionIndex:indexesOrNil. |
293 self setSelectionIndex:indexesOrNil. |
300 |
294 |
301 oldSel = selection ifFalse:[ |
295 oldSel = selection ifFalse:[ |
302 self changed:#selection |
296 self changed:#selectionIndex |
303 ] |
297 ] |
304 ! |
298 ! |
305 |
299 |
306 setSelection:indexesOrNil |
300 setSelection:indexesOrNil |
307 "set the selection without raising a notification |
301 "set the selection without raising a notification |
326 ! ! |
320 ! ! |
327 |
321 |
328 !SelectionInTree class methodsFor:'documentation'! |
322 !SelectionInTree class methodsFor:'documentation'! |
329 |
323 |
330 version |
324 version |
331 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.6 1997-09-04 12:17:32 ca Exp $' |
325 ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTree.st,v 1.7 1997-10-29 08:25:29 ca Exp $' |
332 ! ! |
326 ! ! |