"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libtool' }"

"{ NameSpace: Smalltalk }"

InspectorView subclass:#DictionaryInspectorView

	instanceVariableNames:'keys hideClassVars hideClasses hideUnloadedClasses hideAliases

		hideNilValues hideLiteralValues hideColorsAndImages

		hideSignalInstances hideEmptyCollections hideFreeSemaphores

		hideCollectionsHoldingOnlyLiterals hideNonRefObjectReferences'

	classVariableNames:''

	poolDictionaries:''

	category:'Interface-Inspector'

!

!DictionaryInspectorView class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1993 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    a modified Inspector for Dictionaries

    Notice the filters: these are to inspect Smalltalk,

    to get to interesting references more quickly 

    (typically to find class variables which still refer to object,

     keeping them from being collected)

    Try:

        Smalltalk inspect

    then enable some filter(s)

    [author:]

        Claus Gittinger

"

! !

!DictionaryInspectorView methodsFor:'event handling'!

keyPress:key x:x y:y

    "handle special keys"

    <resource: #keyboard (#Delete #BackSpace #Insert)>

    (key == #Delete or:[key == #BackSpace]) ifTrue:[

        self doRemoveKey.

        ^ self.

    ].

    (key == #Insert) ifTrue:[

        self doAddKey.

        ^ self.

    ].

    super keyPress:key x:x y:y

! !

!DictionaryInspectorView methodsFor:'initialization & release'!

initialize

    super initialize.

    listView multipleSelectOk:true.

    hideClassVars := false.

    hideClasses := false.

    hideUnloadedClasses := false.

    hideAliases := false.

    hideLiteralValues := false.

    hideNilValues := false.

    hideColorsAndImages := false.

    hideSignalInstances := false.

    hideEmptyCollections := false.

    hideFreeSemaphores := false.

    hideCollectionsHoldingOnlyLiterals := false.

    hideNonRefObjectReferences := false.

! !

!DictionaryInspectorView methodsFor:'menu'!

fieldMenu

    <resource: #programMenu >

    |items m selIdx|

    inspectedObject isNameSpace ifTrue:[

        items := #(

                       ('Copy Key'             doCopyKey      )

                       ('-')

                       ('Inspect'              doInspect      )

                       ('Inspect Key'          doInspectKey   )

                       ('BasicInspect'         doBasicInspect )

             ).

    NewInspector::NewInspectorView notNil ifTrue:[

        items := items , #(

                       ('Inspect Hierarchical'         #doNewInspect           )

                ).

    ].

    items := items , #(

                       ('-')

                       ('Owners'               showOwners     )

                       ('Ref Chains'           showReferences )

                       ('References to Global' showKeyReferences )

                       ('-')

                       ('Browse'               browse         )

                       ('-')

                       ('Add Key...'           doAddKey       )

                       ('Remove Key'           doRemoveKey    )

                       ('-')

                   ).

        hideClassVars == true ifTrue:[

            items := items , #(

                           ('Show ClassVars'   doShowClassVars )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide ClassVars'   doHideClassVars )

                       ).

        ].

        hideClasses == true ifTrue:[

            items := items , #(

                           ('Show Classes'     doShowClasses )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide Classes'     doHideClasses )

                       ).

        ].

        hideUnloadedClasses == true ifTrue:[

            items := items , #(

                           ('Show Unloaded Classes'     doShowUnloadedClasses )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide UnloadedClasses'     doHideUnloadedClasses )

                       ).

        ].

        hideAliases == true ifTrue:[

            items := items , #(

                           ('Show Aliases'     doShowAliases )

                       ).

        ] ifFalse:[

            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 )

                       ).

        ].

        hideColorsAndImages == true ifTrue:[

            items := items , #(

                           ('Show Colors and Images'  doShowColorsAndImages )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide Colors and Images'  doHideColorsAndImages )

                       ).

        ].

        hideSignalInstances == true ifTrue:[

            items := items , #(

                           ('Show Signals'  doShowSignalInstances )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide Signals'  doHideSignalInstances )

                       ).

        ].

        hideEmptyCollections == true ifTrue:[

            items := items , #(

                           ('Show Empty Collections'  doShowEmptyCollections )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide Empty Collections'  doHideEmptyCollections )

                       ).

        ].

        hideFreeSemaphores == true ifTrue:[

            items := items , #(

                           ('Show Free Semaphores'  doShowFreeSemaphores )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide Free Semaphores'  doHideFreeSemaphores )

                       ).

        ].

        hideCollectionsHoldingOnlyLiterals == true ifTrue:[

            items := items , #(

                           ('Show Collections of Literals'  doShowCollectionsHoldingOnlyLiterals )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide Collections of Literals'  doHideCollectionsHoldingOnlyLiterals )

                       ).

        ].

        hideNonRefObjectReferences == true ifTrue:[

            items := items , #(

                           ('Show References to Simple Objects'  doShowNonRefObjectReferences )

                       ).

        ] ifFalse:[

            items := items , #(

                           ('Hide References to Simple Objects'  doHideNonRefObjectReferences )

                       ).

        ].

    ] ifFalse:[

        items := #(

                       ('Copy Key'             doCopyKey      )

                       ('-')

                       ('Inspect'              doInspect      )

                       ('Inspect Key'          doInspectKey   )

                       ('BasicInspect'         doBasicInspect )

                       ('Inspect Hierarchical' doNewInspect   )

                       ('-')

                       ('Owners'               showOwners     )

                       ('Ref Chains'           showReferences )

                       ('Ref Chains to Key'    showReferencesToKey )

                       ('-')

                       ('Browse'                       browse                 )

                       ('Browse Class Hierarchy'       browseClassHierarchy   )

                       ('Browse Full Class Protocol'   browseFullClassProtocol)

                       ('-')

                       ('Add Key...'           doAddKey       )

                       ('Remove Key'           doRemoveKey    )

                   ).

    ].

    (hasMore) ifTrue:[

        items := items , #(                                  

                      ('-')

                      ('Show More'                   showMore               )

                   ).

        (inspectedObject size > (nShown * 2)) ifTrue:[

            items := items , #(

                        ('Show All'                     #showAll                )

                          )

        ].

    ].

    monitorProcess isNil ifTrue:[

        items := items , #(

                       ('-')

                       ('Start Monitor'    doStartMonitor )

                          ).

    ] ifFalse:[

        items := items , #(

                       ('-')

                       ('Stop Monitor'     doStopMonitor  )

                          ).

    ].

    items := items , (self sortOrderItems).

    items := items , #(

                   ('-')

                   ('Update'     doUpdate  )

                      ).

    m := PopUpMenu itemList:items resources:resources.

    (inspectedObject isNameSpace or:[inspectedObject isSharedPool]) ifTrue:[

        m disableAll:#( doAddKey )

    ].

    (inspectedObject isSharedPool) ifTrue:[

        m disableAll:#( doRemoveKey )

    ].

    (selIdx := self theSingleSelectionIndex) isNil ifTrue:[

        m disableAll:#(doInspect doInspectKey doBasicInspect doNewInspect

                       doStartMonitor doStopMonitor doCopyKey 

                       showKeyReferences showReferences showOwners browse

                      ).

        selectionIndex isEmptyOrNil ifTrue:[

            "/ allowed for multi-select

            m disableAll:#( doRemoveKey )

        ]

    ] ifFalse:[

        (self keyIndexForLine:selIdx) isNil ifTrue:[

            m disableAll:#(doInspectKey doRemoveKey doCopyKey)

        ]

    ].

    hideLiteralValues == true ifTrue:[

        m disableAll:#( doShowNilValues doHideNilValues )

    ].

    ^ m.

    "Modified: / 26-09-2012 / 13:20:59 / cg"

! !

!DictionaryInspectorView methodsFor:'menu actions'!

browse

    |cls|

    cls := self selection class theNonMetaclass.

"/    cls isNameSpace ifTrue:[

"/        self halt.

"/    ].

    cls browserClass openInClass:cls selector:nil

!

doAddKey

    "add a key"

    |keyName key val l|

    keyName := Dialog request:'Key to add (storeString):' initialAnswer:''.

    keyName notEmptyOrNil ifTrue:[

        key := Object readFrom:keyName onError:[ self information:'Bad input.'. ^ self].

        (inspectedObject includesKey:key) ifFalse:[

            val := Dialog request:'Value to add (storeString):' initialAnswer:''.

            val notNil ifTrue:[

                val := Object readFrom:val onError:[ self information:'Bad input.'. ^ self].

            ].

            inspectedObject at:key put:val.

            selectionIndex := selectedLine := nil.

            inspectedObject changed.

            l := listView firstLineShown.

            self reinspect. "force list update"

            listView scrollToLine:l

        ]

    ]

    "Modified: / 01-07-2010 / 10:53:25 / cg"

!

doHideAliases

    hideAliases := true.

    self reinspect

!

doHideClassVars

    hideClassVars := true.

    self reinspect

!

doHideClasses

    hideClasses := true.

    self reinspect

!

doHideCollectionsHoldingOnlyLiterals

    hideCollectionsHoldingOnlyLiterals := true.

    self reinspect

!

doHideColorsAndImages

    hideColorsAndImages := true.

    self reinspect

!

doHideEmptyCollections

    hideEmptyCollections := true.

    self reinspect

!

doHideFreeSemaphores

    hideFreeSemaphores := true.

    self reinspect

!

doHideLiteralValues

    hideLiteralValues := true.

    self reinspect

!

doHideNilValues

    hideNilValues := true.

    self reinspect

!

doHideNonRefObjectReferences

    hideNonRefObjectReferences := true.

    self reinspect

!

doHideSignalInstances

    hideSignalInstances := true.

    self reinspect

!

doHideUnloadedClasses

    hideUnloadedClasses := true.

    self reinspect

!

doInspectKey

    "inspect selected items key"

    |key|

    key := self selectedKey.

    key notNil ifTrue:[

        self inspectNext:key.

    ]

!

doRemoveKey

    "remove selected item from keys"

    |l|

    listView withWaitCursorDo:[

        self selectedKeys do:[:key |

            (inspectedObject includesKey:key) ifTrue:[

                inspectedObject removeKey:key

            ]

        ].

        keys := nil.

        selectionIndex := selectedLine := nil.

        inspectedObject changed.

    ].

    l := listView firstLineShown.

    self reinspect. "force list update"

    listView scrollToLine:l.

!

doShowAliases

    hideAliases := false.

    self reinspect

!

doShowClassVars

    hideClassVars := false.

    self reinspect

!

doShowClasses

    hideClasses := false.

    self reinspect

!

doShowCollectionsHoldingOnlyLiterals

    hideCollectionsHoldingOnlyLiterals := false.

    self reinspect

!

doShowColorsAndImages

    hideColorsAndImages := false.

    self reinspect

!

doShowEmptyCollections

    hideEmptyCollections := false.

    self reinspect

!

doShowFreeSemaphores

    hideFreeSemaphores := false.