equal
deleted
inserted
replaced
61 |
61 |
62 "/ |
62 "/ |
63 "/ add class variables (always sorted) |
63 "/ add class variables (always sorted) |
64 "/ |
64 "/ |
65 inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass | |
65 inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass | |
66 |varNames headLine| |
66 |varNames headLine classNameAsShown| |
67 |
67 |
68 varNames := aClass classVarNames. |
68 varNames := aClass classVarNames. |
69 varNames notEmpty ifTrue:[ |
69 varNames notEmpty ifTrue:[ |
70 varNames sort. |
70 varNames sort. |
71 aClass isSharedPool ifTrue:[ |
71 classNameAsShown := aClass name allBold. |
72 headLine := resources string:'pool variables in %1' with:aClass name allBold. |
72 headLine := resources |
73 ] ifFalse:[ |
73 string:(aClass isSharedPool |
74 headLine := resources string:'class variables from %1' with:aClass name allBold. |
74 ifTrue:['pool variables in %1'] |
75 ]. |
75 ifFalse:['class variables from %1'] |
76 aList add:('--- ',headLine,' ---'). |
76 ) |
|
77 with:classNameAsShown. |
|
78 aList add:('----- ',headLine,' -----'). |
77 varNames do:[:classVarName | |
79 varNames do:[:classVarName | |
78 aList add:classVarName |
80 |value| |
|
81 |
|
82 value := aClass classVarAt:classVarName. |
|
83 aList add:(self listEntryForName:classVarName value:value). |
|
84 "/ aList add:classVarName |
79 ] |
85 ] |
80 ] |
86 ] |
81 ]. |
87 ]. |
82 ^ aList |
88 ^ aList |
83 |
89 |