Hi
in nautilus method pane and GT, when I select a global variable such as
SystemOrganization and press command B + N
I get DNU binding.
Apparently this DNU only happen when the name does not match any class
substring
Transcript or Undeclared will not raise an error because we have classes
having name matching the expression.
Fixed included.
PS: I'm dead after 1h30 train delay (after giving 6 hours lecture)
today. So this mail will be sent whenever I get connected.
Stef
'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 ! !
