--- a/DictionaryInspectorView.st Fri Jan 25 11:42:09 2008 +0100
+++ b/DictionaryInspectorView.st Sun Jan 27 17:04:09 2008 +0100
@@ -12,7 +12,8 @@
"{ Package: 'stx:libtool' }"
InspectorView subclass:#DictionaryInspectorView
- instanceVariableNames:'keys hideClassVars hideClasses hideAliases'
+ instanceVariableNames:'keys hideClassVars hideClasses hideAliases hideNilValues
+ hideLiteralValues'
classVariableNames:''
poolDictionaries:''
category:'Interface-Inspector'
@@ -59,6 +60,7 @@
('BasicInspect' doBasicInspect )
('Inspect Hierarchical' doNewInspect )
('-')
+ ('Owners' showOwners )
('Ref Chains' showReferences )
('References to Global' showKeyReferences )
('-')
@@ -95,7 +97,25 @@
items := items , #(
('Hide Aliases' doHideAliases )
).
- ]
+ ].
+ hideLiteralValues == true ifTrue:[
+ items := items , #(
+ ('Show Literal Values' doShowLiteralValues )
+ ).
+ ] ifFalse:[
+ items := items , #(
+ ('Hide Literal Values' doHideLiteralValues )
+ ).
+ ].
+ hideNilValues == true ifTrue:[
+ items := items , #(
+ ('Show Nil Values' doShowNilValues )
+ ).
+ ] ifFalse:[
+ items := items , #(
+ ('Hide Nil Values' doHideNilValues )
+ ).
+ ].
] ifFalse:[
items := #(
('Copy Key' doCopyKey )
@@ -105,6 +125,7 @@
('BasicInspect' doBasicInspect )
('Inspect Hierarchical' doNewInspect )
('-')
+ ('Owners' showOwners )
('Ref Chains' showReferences )
('-')
('Browse' browse )
@@ -148,6 +169,9 @@
m disableAll:#(doInspectKey doRemoveKey doCopyKey)
]
].
+ hideLiteralValues == true ifTrue:[
+ m disableAll:#( doShowNilValues doHideNilValues )
+ ].
^ m.
@@ -205,6 +229,16 @@
self reinspect
!
+doHideLiteralValues
+ hideLiteralValues := true.
+ self reinspect
+!
+
+doHideNilValues
+ hideNilValues := true.
+ self reinspect
+!
+
doInspectKey
"inspect selected items key"
@@ -252,6 +286,16 @@
self reinspect
!
+doShowLiteralValues
+ hideLiteralValues := false.
+ self reinspect
+!
+
+doShowNilValues
+ hideNilValues := false.
+ self reinspect
+!
+
showKeyReferences
"show users of selected key (i.e. global).
Only useful when inspecting smalltalk"
@@ -351,6 +395,19 @@
].
].
].
+ (hidden not and:[hideLiteralValues == true]) ifTrue:[
+ o := inspectedObject at:k ifAbsent:nil.
+ (o isLiteral) ifTrue:[
+ hidden := true
+ ].
+ ].
+ (hidden not and:[hideNilValues == true]) ifTrue:[
+ o := inspectedObject at:k ifAbsent:nil.
+ o isNil ifTrue:[
+ hidden := true
+ ].
+ ].
+
hidden ifFalse:[keys add:k]
].
] ifFalse:[
@@ -457,5 +514,5 @@
!DictionaryInspectorView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.61 2008-01-25 10:28:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.62 2008-01-27 16:04:09 cg Exp $'
! !