equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1994 by Claus Gittinger |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
61 |
59 |
62 "/ |
60 "/ |
63 "/ add class variables (always sorted) |
61 "/ add class variables (always sorted) |
64 "/ |
62 "/ |
65 inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass | |
63 inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass | |
66 |varNames| |
64 |varNames headLine| |
67 |
65 |
68 varNames := aClass classVarNames. |
66 varNames := aClass classVarNames. |
69 varNames notEmpty ifTrue:[ |
67 varNames notEmpty ifTrue:[ |
70 varNames sort. |
68 varNames sort. |
71 aList add:('--- classvariables from ' , aClass name allBold, ' ---'). |
69 aClass isSharedPool ifTrue:[ |
|
70 headLine := resources string:'pool variables in %1' with:aClass name allBold. |
|
71 ] ifFalse:[ |
|
72 headLine := resources string:'class variables from %1' with:aClass name allBold. |
|
73 ]. |
|
74 aList add:('--- ',headLine,' ---'). |
72 varNames do:[:classVarName | |
75 varNames do:[:classVarName | |
73 aList add:classVarName |
76 aList add:classVarName |
74 ] |
77 ] |
75 ] |
78 ] |
76 ]. |
79 ]. |
77 ^ aList |
80 ^ aList |
|
81 |
|
82 "Modified: / 12-02-2017 / 11:03:47 / cg" |
78 ! |
83 ! |
79 |
84 |
80 valueAtLine:lineNr |
85 valueAtLine:lineNr |
81 "return a list of names to show in the selectionList" |
86 "return a list of names to show in the selectionList" |
82 |
87 |