[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