--- a/ClassInspectorView.st Wed May 11 10:47:39 2016 +0200
+++ b/ClassInspectorView.st Wed May 11 10:47:51 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1994 by Claus Gittinger
All Rights Reserved
@@ -60,13 +58,14 @@
aList := super fieldList.
"/
- "/ add class variables
+ "/ add class variables (always sorted)
"/
inspectedObject theNonMetaclass withAllSuperclasses reverseDo:[:aClass |
|varNames|
varNames := aClass classVarNames.
varNames notEmpty ifTrue:[
+ varNames sort.
aList add:('--- classvariables from ' , aClass name allBold, ' ---').
varNames do:[:classVarName |
aList add:classVarName
@@ -106,6 +105,6 @@
!ClassInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.15 2015-03-25 14:11:59 cg Exp $'
+ ^ '$Header$'
! !