# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1201449849 -3600
# Node ID f12034f5b24ae9265c029a84a075c279150851a8
# Parent  50d6071ecb8d7946ac8f77893864e8f13c0e12fe
*** empty log message ***

diff -r 50d6071ecb8d -r f12034f5b24a DictionaryInspectorView.st
--- 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 $'
 ! !