'From Pharo4.0 of 18 March 2013 [Latest update: #40438] on 14 January 2015 at 12:09:55.869836 am'!

!RubSmalltalkEditor methodsFor: 'menu messages' stamp: 'StephaneDucasse 1/14/2015 00:06'!
sendersOfIt
	"Open a senders browser on the selected selector"

	| selectedSelector mthds aGlobal syst |
	self lineSelectAndEmptyCheck: [^ self].
	selectedSelector := self selectedSelector.
	selectedSelector isNil ifTrue: [^ textArea flash].
	syst := self model systemNavigation.
	mthds := (syst allCallsOn: selectedSelector).
	aGlobal := syst environment at: selectedSelector ifAbsent: [nil].   
	aGlobal isNil or: [ aGlobal isBehavior not 
									ifFalse: [ mthds := mthds , (syst allReferencesTo: aGlobal binding) ]].
	syst 
		browseMessageList: mthds 
		name: 'Senders or Users of ', selectedSelector 
		autoSelect: selectedSelector ! !


!SmalltalkEditor methodsFor: 'menu messages' stamp: 'StephaneDucasse 1/14/2015 00:09'!
sendersOfIt
	"Open a senders browser on the selected selector"

	| selectedSelector mthds aGlobal syst |
	self lineSelectAndEmptyCheck: [^ self].
	selectedSelector  := self selectedSelector.
	selectedSelector isNil ifTrue: [^ morph flash].
	syst := self model systemNavigation.
	mthds := (syst allCallsOn: selectedSelector).
	aGlobal := syst environment at: selectedSelector ifAbsent: [nil].   
	aGlobal isNil or: [ aGlobal isBehavior not 
									ifFalse: [ mthds := mthds , (syst allReferencesTo: aGlobal binding) ]].
	syst browseMessageList: mthds name: 'Senders or Users of ', selectedSelector autoSelect: selectedSelector ! !