ClassInspectorView.st
branchjv
changeset 16572 ab23beb4bba6
parent 15566 184cea584be5
parent 16548 b8f9c3d05c67
child 16664 ef51c9c52b52
--- a/ClassInspectorView.st	Thu May 12 08:33:55 2016 +0200
+++ b/ClassInspectorView.st	Thu May 12 09:16:06 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$'
 ! !