[squeak-dev] The Trunk: Protocols-cmm.36.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon May 2 23:41:46 UTC 2011
Chris Muller uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-cmm.36.mcz
==================== Summary ====================
Name: Protocols-cmm.36
Author: cmm
Time: 2 May 2011, 6:41:34.38 pm
UUID: acac21f7-1203-4553-bbf5-e87e57159e98
Ancestors: Protocols-nice.35
- Use new streamlined variable-reference / assignment browsing.
=============== Diff against Protocols-nice.35 ===============
Item was changed:
----- Method: InstanceBrowser>>offerMenu (in category 'menu commands') -----
offerMenu
"Offer a menu to the user, in response to the hitting of the menu button on the tool pane"
| aMenu |
aMenu := MenuMorph new defaultTarget: self.
aMenu title: 'Messages of ', objectViewed nameForViewer.
aMenu addStayUpItem.
aMenu addList: #(
('vocabulary...' chooseVocabulary)
('what to show...' offerWhatToShowMenu)
-
('inst var refs (here)' setLocalInstVarRefs)
('inst var defs (here)' setLocalInstVarDefs)
('class var refs (here)' setLocalClassVarRefs)
-
('navigate to a sender...' navigateToASender)
('recent...' navigateToRecentMethod)
('show methods in current change set'
showMethodsInCurrentChangeSet)
('show methods with initials...'
showMethodsWithInitials)
-
"('toggle search pane' toggleSearch)"
-
-
('browse full (b)' browseMethodFull)
('browse hierarchy (h)' classHierarchy)
('browse method (O)' openSingleMessageBrowser)
('browse protocol (p)' browseFullProtocol)
-
('fileOut' fileOutMessage)
('printOut' printOutMessage)
-
('senders of... (n)' browseSendersOfMessages)
('implementors of... (m)' browseMessages)
('versions (v)' browseVersions)
('inheritance (i)' methodHierarchy)
-
+ ('references... (r)' browseVariableReferences)
+ ('assignments... (a)' browseVariableAssignments)
- ('inst var refs' browseInstVarRefs)
- ('inst var defs' browseInstVarDefs)
- ('class var refs' browseClassVarRefs)
-
('viewer on me' viewViewee)
('inspector on me' inspectViewee)
-
('more...' shiftedYellowButtonActivity)).
aMenu popUpInWorld: ActiveWorld!
Item was removed:
- ----- Method: Lexicon>>browseClassVarRefs (in category 'new-window queries') -----
- browseClassVarRefs
- "Let the search pertain to the target class regardless of selection"
-
- self systemNavigation browseClassVarRefs: targetClass theNonMetaClass !
Item was removed:
- ----- Method: Lexicon>>browseInstVarDefs (in category 'new-window queries') -----
- browseInstVarDefs
- "Let the search pertain to the target class regardless of selection"
-
- self systemNavigation browseInstVarDefs: targetClass!
Item was removed:
- ----- Method: Lexicon>>browseInstVarRefs (in category 'new-window queries') -----
- browseInstVarRefs
- "Let the search pertain to the target class regardless of selection"
- self systemNavigation browseInstVarRefs: targetClass!
Item was added:
+ ----- Method: Lexicon>>browseVariableAssignments (in category 'new-window queries') -----
+ browseVariableAssignments
+ "Let the search pertain to the target class regardless of selection."
+ self systemNavigation browseVariableAssignments: targetClass!
Item was added:
+ ----- Method: Lexicon>>browseVariableReferences (in category 'new-window queries') -----
+ browseVariableReferences
+ "Let the search pertain to the target class regardless of selection"
+ self systemNavigation browseVariableReferences: targetClass!
Item was changed:
----- Method: Lexicon>>offerMenu (in category 'menu commands') -----
offerMenu
"Offer a menu to the user, in response to the hitting of the menu button on the tool pane"
| aMenu |
aMenu := MenuMorph new defaultTarget: self.
aMenu addTitle: 'Lexicon'.
aMenu addStayUpItem.
aMenu addList: #(
('vocabulary...' chooseVocabulary)
('what to show...' offerWhatToShowMenu)
-
('inst var refs (here)' setLocalInstVarRefs)
+ ('inst var assignments (here)' setLocalInstVarDefs)
- ('inst var defs (here)' setLocalInstVarDefs)
('class var refs (here)' setLocalClassVarRefs)
-
('navigate to a sender...' navigateToASender)
('recent...' navigateToRecentMethod)
('show methods in current change set'
showMethodsInCurrentChangeSet)
('show methods with initials...'
showMethodsWithInitials)
-
"('toggle search pane' toggleSearch)"
-
('browse full (b)' browseMethodFull)
('browse hierarchy (h)' classHierarchy)
('browse method (O)' openSingleMessageBrowser)
('browse protocol (p)' browseFullProtocol)
-
('fileOut' fileOutMessage)
('printOut' printOutMessage)
-
('senders of... (n)' browseSendersOfMessages)
('implementors of... (m)' browseMessages)
('versions (v)' browseVersions)
('inheritance (i)' methodHierarchy)
-
+ ('references... (r)' browseVariableReferences)
+ ('assignments... (a)' browseVariableAssignments)
- ('inst var refs' browseInstVarRefs)
- ('inst var defs' browseInstVarDefs)
- ('class var refs' browseClassVarRefs)
-
('more...' shiftedYellowButtonActivity)).
aMenu popUpInWorld: ActiveWorld!
Item was changed:
----- Method: Lexicon>>selectorsDefiningInstVar (in category 'within-tool queries') -----
selectorsDefiningInstVar
"Return a list of methods that define a given inst var that are in the protocol of this object"
| aList |
aList := OrderedCollection new.
targetClass withAllSuperclassesDo:
[:aClass |
+ (aClass whichMethodsAssign: currentQueryParameter asString) do:
+ [ : cm | cm selector isDoIt ifFalse: [aList add: cm selector]
- (aClass whichSelectorsStoreInto: currentQueryParameter asString) do:
- [:sel | sel isDoIt ifFalse: [aList add: sel]
]
].
^ aList!
Item was changed:
----- Method: Lexicon>>setLocalInstVarDefs (in category 'within-tool queries') -----
setLocalInstVarDefs
"Put up a list of the instance variables in the viewed object, and when the user seletcts one, let the query results category show all the references to that instance variable."
| instVarToProbe |
+ targetClass chooseVarThenDo:
- targetClass chooseInstVarThenDo:
[:aName | instVarToProbe := aName].
instVarToProbe isEmptyOrNil ifTrue: [^ self].
currentQuery := #instVarDefs.
currentQueryParameter := instVarToProbe.
self showQueryResultsCategory!
Item was changed:
----- Method: Lexicon>>setLocalInstVarRefs (in category 'within-tool queries') -----
setLocalInstVarRefs
"Put up a list of the instance variables in the viewed object, and when the user seletcts one, let the query results category show all the references to that instance variable."
| instVarToProbe |
+ targetClass chooseVarThenDo:
- targetClass chooseInstVarThenDo:
[:aName | instVarToProbe := aName].
instVarToProbe isEmptyOrNil ifTrue: [^ self].
currentQuery := #instVarRefs.
currentQueryParameter := instVarToProbe.
self showQueryResultsCategory!
More information about the Squeak-dev
mailing list
|