hg/stx-libtool2: comparison ProjectBrowser.st

equal deleted inserted replaced

-:f05c8a02553a
+:30bd57bbe9ce
 ToolApplicationModel subclass:#ProjectBrowser
-	instanceVariableNames:'projectTree modifiedChannel'
+	instanceVariableNames:'projectTree modifiedChannel selectedTreeNodeHolder'
 	classVariableNames:'AlreadCheckedExistingModulesAndPackages'
 	poolDictionaries:''
 	category:'Interface-Smalltalk'
 !
 !
 selectedTreeNodeHolder
 "automatically generated by UIPainter ..."
-|holder|
+selectedTreeNodeHolder isNil ifTrue:[
+selectedTreeNodeHolder :=  ValueHolder new.
-(holder := builder bindingAt:#selectedTreeNodeHolder) isNil ifTrue:[
+].
-builder aspectAt:#selectedTreeNodeHolder put:(holder :=  ValueHolder new).
+^ selectedTreeNodeHolder.
-].
-^ holder.
 !
 showWhat
 |holder|
 "Created: / 23.3.1999 / 14:16:12 / cg"
 "Modified: / 23.3.1999 / 14:18:38 / cg"
 !
 updateProjectTree
-|tree root showWhat|
+|tree moduleRoots root showWhat|
 showWhat := self showWhat value.
+moduleRoots := Dictionary new.
 tree := SelectionInTree new.
-tree root:(root := TreeItem name:'invisibleRoot').
+tree root:(root := ProjectTreeItem name:'invisibleRoot').
 root hide:false.
 showWhat == #current ifTrue:[
 root add:(self nodeFor:Project current).
 ] ifFalse:[
 (Project knownProjects asOrderedCollection
 sort:[:a :b | a packageName < b packageName])
 do:[:aProject |
-|doShow|
+|newNode nodeToAdd doShow childNode path|
 (doShow := showWhat == #all) ifFalse:[
 doShow := (aProject package startsWith:'stx:') not
 ].
 doShow ifTrue:[
-root add:(self nodeFor:aProject).
+newNode := self nodeFor:aProject.
+"/ insert into tree ...
+nodeToAdd := root.
+path := aProject package asCollectionOfSubstringsSeparatedByAny:'/\:'.
+path from:1 to:path size-1 do:[:part |
+childNode := nodeToAdd children detect:[:child | child name = part] ifNone:nil.
+childNode isNil ifTrue:[
+nodeToAdd add:(childNode := ProjectTreeItem new name:part).
+].
+nodeToAdd := childNode.
+].
+newNode name:(path last).
+nodeToAdd add:newNode.
 ]
 ].
 ].
 projectTree := root.

changeset 1210	30bd57bbe9ce
parent 1207	9a14f97ee279
child 1218	8e2fa160357f