SmalltalkInspectorView.st
changeset 8404 d44520bb049b
parent 6509 bcaae26df254
child 9377 0f4ac22d542c
--- a/SmalltalkInspectorView.st	Wed Nov 05 15:07:15 2008 +0100
+++ b/SmalltalkInspectorView.st	Wed Nov 05 15:07:17 2008 +0100
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libtool' }"
 
 DictionaryInspectorView subclass:#SmalltalkInspectorView
@@ -44,23 +43,32 @@
 "
 ! !
 
+!SmalltalkInspectorView methodsFor:'initialization & release'!
+
+initialize
+    super initialize.
+
+    hideNilValues := true.
+! !
+
 !SmalltalkInspectorView methodsFor:'private'!
 
 indexList
     "redefined to not show class variables"
 
-    keys := OrderedCollection new.
-    inspectedObject keysDo:[:k |
-                                (Smalltalk keyIsClassVariableNameKey:k) ifFalse:[
-                                    keys add:k
-                                ]
-                           ].
-    keys := keys asSortedCollection:[:a :b | a displayString < b displayString].
-    ^ keys
+^ super indexList.
+"/    keys := OrderedCollection new.
+"/    inspectedObject keysDo:[:k |
+"/                                (Smalltalk keyIsClassVariableNameKey:k) ifFalse:[
+"/                                    keys add:k
+"/                                ]
+"/                           ].
+"/    keys := keys asSortedCollection:[:a :b | a displayString < b displayString].
+"/    ^ keys
 ! !
 
 !SmalltalkInspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkInspectorView.st,v 1.2 2006-01-30 18:17:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SmalltalkInspectorView.st,v 1.3 2008-11-05 14:07:17 cg Exp $'
 ! !