hg/stx-libtool2: comparison ProjectBrowser.st

equal deleted inserted replaced

-:10adcd590f2a
+:8414736f8846
 #name: 'HTMLBrowser1'
 #layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
 #model: #htmlDocumentURLHolder
 #hasHorizontalScrollBar: true
 #hasVerticalScrollBar: true
+)
+)
+)
+)
+!
+rightCanvasSpecForPatchesList
+"This resource specification was automatically generated
+by the UIPainter of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the UIPainter may not be able to read the specification."
+"
+UIPainter new openOnClass:ProjectBrowser andSelector:#rightCanvasSpecForPatchesList
+ProjectBrowser new openInterface:#rightCanvasSpecForPatchesList
+"
+<resource: #canvas>
+^
+#(#FullSpec
+#window:
+#(#WindowSpec
+#name: 'NewApplication'
+#layout: #(#LayoutFrame 216 0 173 0 515 0 472 0)
+#level: 0
+#label: 'NewApplication'
+#min: #(#Point 10 10)
+#max: #(#Point 1280 1024)
+#bounds: #(#Rectangle 216 173 516 473)
+#usePreferredExtent: false
+)
+#component:
+#(#SpecCollection
+#collection:
+#(
+#(#DataSetSpec
+#name: 'patchesTable'
+#layout: #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+#hasHorizontalScrollBar: true
+#hasVerticalScrollBar: true
+#dataList: #patchesList
+#has3Dsepartors: false
+#columnHolder: #patchesTableColumns
+#columnAdaptor: #classTableAdaptor
 )
 )
 )
 )
 !
 #labelAlignment: #left
 #minWidth: 200
 #model: #classFilenameFromClassInfo:
 )
 )
+!
+patchesTableColumns
+"This resource specification was automatically generated
+by the DataSetBuilder of ST/X."
+"Do not manually edit this!! If it is corrupted,
+the DataSetBuilder may not be able to read the specification."
+"
+DataSetBuilder new openOnClass:ProjectBrowser andSelector:#patchesTableColumns
+"
+<resource: #tableColumns>
+^ #(
+#(#DataSetColumnSpec
+#label: 'Class'
+#id: 'classColumn'
+#labelAlignment: #left
+#model: #classNameFromPatchesInfo:
+)
+#(#DataSetColumnSpec
+#label: 'Selector'
+#id: 'selectorColumn'
+#labelAlignment: #left
+#model: #selectorFromPatchesInfo:
+)
+)
 ! !
 !ProjectBrowser methodsFor:'aspects'!
 classList
 |holder|
 (holder := builder bindingAt:#htmlDocumentURLHolder) isNil ifTrue:[
 builder aspectAt:#htmlDocumentURLHolder put:(holder :=  ValueHolder new).
+].
+^ holder.
+!
+patchesList
+"automatically generated by UIPainter ..."
+"*** the code below creates a default model when invoked."
+"*** (which may not be the one you wanted)"
+"*** Please change as required and accept in the browser."
+|holder|
+(holder := builder bindingAt:#patchesList) isNil ifTrue:[
+builder aspectAt:#patchesList put:(holder :=  List new).
 ].
 ^ holder.
 !
 projectTreeHolder
 nodeFor:aProject
 "generate and return a treeNode for some project"
 |projectName pNode
-propertiesNode docNode classesNode subprojectsNode filesNode
+propertiesNode docNode classesNode patchesNode subprojectsNode filesNode
-commentNode prerequisitesNode|
+commentNode prerequisitesNode analysisNode designNode codeNode
+userDocNode userOverViewNode userGuideNode userRefManNode|
 projectName := aProject name.
 pNode := ProjectNode name:projectName.
 pNode contents:aProject.
 pNode add:(commentNode := ProjectTreeItem name:'Comment').
 pNode add:(docNode := ProjectTreeItem name:'Documentation').
 pNode add:(propertiesNode := ProjectTreeItem name:'Properties').
-pNode add:(classesNode := ProjectTreeItem name:'Classes').
 pNode add:(prerequisitesNode := ProjectTreeItem name:'Prerequisites').
 pNode add:(subprojectsNode := ProjectTreeItem name:'SubProjects').
+pNode add:(classesNode := ProjectTreeItem name:'Classes').
+pNode add:(patchesNode := ProjectTreeItem name:'Patches').
 pNode add:(filesNode := ProjectTreeItem name:'Files').
 aProject subProjects do:[:aSubProject |
 subprojectsNode add:(self nodeFor:aSubProject)
 ].
 commentNode contents:#comment.
 docNode contents:#documentation.
 docNode action:[:item | self showDocumentationFor:item].
+docNode add:(analysisNode := ProjectTreeItem name:'Analysis').
+docNode add:(designNode := ProjectTreeItem name:'Design').
+docNode add:(codeNode := ProjectTreeItem name:'Code').
+docNode add:(userDocNode := ProjectTreeItem name:'User Documentation').
+userDocNode add:(userOverViewNode := ProjectTreeItem name:'Overview').
+userDocNode add:(userGuideNode := ProjectTreeItem name:'Guide').
+userDocNode add:(userRefManNode := ProjectTreeItem name:'Reference').
+docNode add:(userDocNode := ProjectTreeItem name:'Error Reports').
+docNode add:(userDocNode := ProjectTreeItem name:'Other').
+prerequisitesNode contents:#prerequisites.
 classesNode contents:#classes.
+((aProject classes ? #()) copy sort:[:a :b | a name < b name])
+do:[:aClass |
+|cNode|
+cNode := ProjectTreeItem name:aClass name.
+classesNode add:cNode.
+].
 propertiesNode contents:#properties.
-prerequisitesNode contents:#prerequisites.
 subprojectsNode contents:#subprojects.
 filesNode contents:#files.
+patchesNode contents:#patches.
 ^ pNode
 !
 selectedNode contents == #classes ifTrue:[
 self showClassListOf:selectedNode.
 ^ self.
 ].
+selectedNode contents == #patches ifTrue:[
+self showPatchesListOf:selectedNode.
+^ self.
+].
 self currentCanvasHolder value:(self class emptyRightCanvasSpec).
 self rightCanvasTextHolder value:''.
 ! !
 ^ cInfo conditionForInclusion
 !
 classNameFromClassInfo:cInfo
 ^ cInfo className
+!
+classNameFromPatchesInfo:pInfo
+^ pInfo methodClass name
+!
+selectorFromPatchesInfo:pInfo
+^ pInfo methodSelector
 ! !
 !ProjectBrowser methodsFor:'user actions'!
 itemSelected:index
 self currentCanvasHolder value:(self class rightCanvasSpecForHTMLText).
 self htmlDocumentURLHolder value:project documentationURL.
 !
+showPatchesListOf:anItem
+|projectItem project patches l|
+projectItem := anItem parent.
+project := projectItem contents.
+patches := project individualMethods.
+patches := patches collect:[:m | m who].
+patches := patches sort:[:w1 :w2 |
+w1 methodClass name < w2 methodClass name ifTrue:[
+true
+] ifFalse:[
+w1 methodClass name = w2 methodClass name ifFalse:[
+false
+] ifTrue:[
+w1 methodSelector < w2 methodSelector
+]
+]
+].
+l := self patchesList.
+l removeAll.
+l addAll:patches.
+self currentCanvasHolder value:(self class rightCanvasSpecForPatchesList).
+!
 showReadOnlyText:someText
 self currentCanvasHolder value:(self class rightCanvasSpecForReadOnlyText).
 self rightCanvasTextHolder value:someText.
 !

changeset 1043	8414736f8846
parent 1038	41da0e38af84
child 1052	2b65eda2938e