--- a/ClassInspectorView.st	Thu Mar 07 11:10:05 2013 +0000
+++ b/ClassInspectorView.st	Wed Mar 13 01:04:29 2013 +0000
@@ -46,6 +46,7 @@
 "
 ! !
 
+
 !ClassInspectorView methodsFor:'accessing'!
 
 fieldList
@@ -70,12 +71,40 @@
         ]
     ].
     ^ aList
+!
+
+valueAtLine:lineNr
+    "return a list of names to show in the selectionList"
+
+    |list idx0|
+
+    list := super fieldList.
+    lineNr <= list size ifTrue:[ ^ super valueAtLine:lineNr ].
+
+    "/
+    "/ a class variable
+    "/
+    idx0 := list size + 1.
+    inspectedObject class withAllSuperclasses reverse do:[:aClass |
+        |varNames varName|
+
+        varNames := aClass classVarNames.
+        varNames notEmpty ifTrue:[
+            (lineNr between:idx0+1 and:(idx0 + 1 + varNames size - 1)) ifTrue:[
+                varName := varNames at:lineNr-idx0.
+                ^ aClass classVarAt:varName.
+            ].
+            idx0 := idx0 + varNames size + 1.
+        ]
+    ].
+    ^ nil
 ! !
 
+
 !ClassInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.11 2001/09/25 13:04:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ClassInspectorView.st,v 1.12 2013-03-09 12:49:15 cg Exp $'
 !
 
 version_HG