equal
deleted
inserted
replaced
264 postBuildWith: aBuilder |
264 postBuildWith: aBuilder |
265 |
265 |
266 super postBuildWith: aBuilder. |
266 super postBuildWith: aBuilder. |
267 listView := self builder componentAt:#HierarchicalItemListView. |
267 listView := self builder componentAt:#HierarchicalItemListView. |
268 selectionHolder notNil |
268 selectionHolder notNil |
269 ifTrue:[listView model:selectionHolder] |
269 ifTrue:[listView model:selectionHolder]. |
270 ! |
|
271 |
|
272 postOpenWith: aBuilder |
|
273 |
|
274 |
|
275 super postOpenWith: aBuilder. |
|
276 self itemList expand. |
|
277 ! |
270 ! |
278 |
271 |
279 release |
272 release |
280 |
273 |
281 self stopRevisionTask. |
274 self stopRevisionTask. |
328 theClassItem := self classItemClass new. |
321 theClassItem := self classItemClass new. |
329 theClass := Smalltalk resolveName:eachClass inClass:Smalltalk. |
322 theClass := Smalltalk resolveName:eachClass inClass:Smalltalk. |
330 theClassItem myClass:theClass. |
323 theClassItem myClass:theClass. |
331 theClassItem]. |
324 theClassItem]. |
332 root addAll: theClassItemColl. |
325 root addAll: theClassItemColl. |
333 ]. |
326 ]. |
334 self listModel root:root. |
327 self listModel root:root. |
335 ! |
328 ! |
336 |
329 |
337 startRevisionTask |
330 startRevisionTask |
338 |
331 |
436 ! ! |
429 ! ! |
437 |
430 |
438 !ClassRevisionTree class methodsFor:'documentation'! |
431 !ClassRevisionTree class methodsFor:'documentation'! |
439 |
432 |
440 version |
433 version |
441 ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.3 2000-01-14 10:51:09 ps Exp $' |
434 ^ '$Header: /cvs/stx/stx/libtool/ClassRevisionTree.st,v 1.4 2000-01-14 15:04:56 ps Exp $' |
442 ! ! |
435 ! ! |