33<Class name =" UMLExplorer.ClassView" >
44<Description >
55Class contains methods that return structured class data.</Description >
6- <TimeChanged >63670,70761.169478 </TimeChanged >
6+ <TimeChanged >63670,72515.130814 </TimeChanged >
77<TimeCreated >63653,67019.989197</TimeCreated >
88
99<Method name =" getClassTree" >
@@ -70,8 +70,8 @@ return structured data about class</Description>
7070 do oProp.%DispatchSetProperty("private", p.Private)
7171 do oProp.%DispatchSetProperty("readOnly", p.ReadOnly)
7272 do oProp.%DispatchSetProperty("type", p.Type)
73- do ..collectAggregation(oData, classDefinition.Name, p.Type)
74- do ..collectAggregation(oData, classDefinition.Name, basePack _ "." _ p.Type)
73+ do ..collectAggregation(oData, classDefinition.Name, p.Type, p.Private )
74+ do ..collectAggregation(oData, classDefinition.Name, basePack _ "." _ p.Type, p.Private )
7575 }
7676
7777 set oMethods = ##class(%ZEN.proxyObject).%New()
@@ -143,15 +143,16 @@ return structured data about class</Description>
143143
144144<Method name =" collectAggregation" >
145145<ClassMethod >1</ClassMethod >
146- <FormalSpec >oData:%ZEN.proxyObject,className:%String,type:%String</FormalSpec >
146+ <FormalSpec >oData:%ZEN.proxyObject,className:%String,type:%String,private:%String </FormalSpec >
147147<ReturnType >%Status</ReturnType >
148148<Implementation ><![CDATA[
149149 set classDef = ##class(%Dictionary.ClassDefinition).%OpenId(type)
150150 if (classDef '= "") {
151- set oAgg = oData.aggregation.%DispatchGetProperty(className)
151+ if (private) { set t = "composition" } else { set t = "aggregation" }
152+ set oAgg = oData.%DispatchGetProperty(t).%DispatchGetProperty(className)
152153 if (oAgg = "") {
153154 set oAgg = ##class(%ZEN.proxyObject).%New()
154- do oData.aggregation .%DispatchSetProperty(className, oAgg)
155+ do oData.%DispatchGetProperty(t) .%DispatchSetProperty(className, oAgg)
155156 }
156157 } else { quit $$$OK }
157158
@@ -198,6 +199,7 @@ return structured data about class</Description>
198199 set oData.classes = ##class(%ZEN.proxyObject).%New()
199200 set oData.inheritance = ##class(%ZEN.proxyObject).%New()
200201 set oData.aggregation = ##class(%ZEN.proxyObject).%New()
202+ set oData.composition = ##class(%ZEN.proxyObject).%New()
201203
202204 set classes = ##class(%ResultSet).%New("%Dictionary.ClassDefinition:Summary")
203205 do classes.Execute()
@@ -218,7 +220,7 @@ return structured data about class</Description>
218220</Class >
219221
220222
221- <Project name =" UMLExplorer" LastModified =" 2015-04-28 19:17:47.344256 " >
223+ <Project name =" UMLExplorer" LastModified =" 2015-04-28 19:55:49.450783 " >
222224 <Items >
223225 <ProjectItem name =" UMLExplorer.ClassView" type =" CLS" ></ProjectItem >
224226 <ProjectItem name =" UMLExplorer.Router" type =" CLS" ></ProjectItem >
0 commit comments