--- 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 $'
! !