'From Jasmine-rc1 of 31 October 2004 [latest update: #131] on 1 November 2004 at 1:04:36 pm'! "Change Set: SelectionRefs Date: 31 October 2004 Author: Andreas Raab Restores the ability to browse references to a dictionary association which allows tracking down bindings in Undeclared or class or other pools."! !DictionaryInspector methodsFor: 'menu' stamp: 'ar 10/31/2004 17:25'! fieldListMenu: aMenu ^ aMenu labels: 'inspect copy name references objects pointing to this value senders of this key refresh view add key rename key remove basic inspect' lines: #(6 9) selections: #(inspectSelection copyName selectionReferences objectReferencesToSelection sendersOfSelectedKey refreshView addEntry renameEntry removeSelection inspectBasic) ! ! !DictionaryInspector methodsFor: 'menu' stamp: 'ar 10/31/2004 17:26'! selectionReferences "Create a browser on all references to the association of the current selection." self selectionIndex = 0 ifTrue: [^ self changed: #flash]. object class == MethodDictionary ifTrue: [^ self changed: #flash]. self systemNavigation browseAllCallsOn: (object associationAt: (keyArray at: selectionIndex - self numberOfFixedFields)). ! !