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 |
58 |aList| |
56 |aList| |
59 |
57 |
60 aList := super fieldList. |
58 aList := super fieldList. |
61 |
59 |
62 "/ |
60 "/ |
63 "/ add class variables |
61 "/ add class variables (always sorted) |
64 "/ |
62 "/ |
65 inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass | |
63 inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass | |
66 |varNames| |
64 |varNames| |
67 |
65 |
68 varNames := aClass classVarNames. |
66 varNames := aClass classVarNames. |
69 varNames notEmpty ifTrue:[ |
67 varNames notEmpty ifTrue:[ |
|
68 varNames sort. |
70 aList add:('--- classvariables from ' , aClass name allBold, ' ---'). |
69 aList add:('--- classvariables from ' , aClass name allBold, ' ---'). |
71 varNames do:[:classVarName | |
70 varNames do:[:classVarName | |
72 aList add:classVarName |
71 aList add:classVarName |
73 ] |
72 ] |
74 ] |
73 ] |
104 ! ! |
103 ! ! |
105 |
104 |
106 !ClassInspectorView class methodsFor:'documentation'! |
105 !ClassInspectorView class methodsFor:'documentation'! |
107 |
106 |
108 version |
107 version |
109 ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.15 2015-03-25 14:11:59 cg Exp $' |
108 ^ '$Header$' |
110 ! ! |
109 ! ! |
111 |
110 |