pharo 4.0 608 with PharoV40 sources:
- enter some text in a workspace
- select the text
- choose "Method source with it"
->
RemoteString(Object)>>error:
[
filePositionHi > theFile size
ifTrue: [ self error: 'RemoteString past end of file' ].
theFile position: filePositionHi.
theFile nextChunk ] in RemoteString>>string in Block: [ ...
BlockClosure>>ensure:
RemoteString>>string
ClassOrganization>>comment
ClassOrganization>>classComment
[ :each |
bar current: (count := count + 1).
each
selectorsDo: [ :sel |
((each sourceCodeAt: sel) includesSubstring: aString caseSensitive:
caseSensitive)
ifTrue: [ addMethod value: each value: sel ] ].
(each organization classComment asString includesSubstring: aString
caseSensitive: caseSensitive)
ifTrue: [ addComment value: each ] ] in [ :bar |
| count |
count := 0.
self
allBehaviorsDo: [ :each |
bar current: (count := count + 1).
each
selectorsDo: [ :sel |
((each sourceCodeAt: sel) includesSubstring: aString
caseSensitive: caseSensitive)
ifTrue: [ addMethod value: each value: sel ] ].
(each organization classComment asString includesSubstring: aString
caseSensitive: caseSensitive)
ifTrue: [ addComment value: each ] ] ] in
SystemNavigation>>allMethodsWithSourceString:matchCase: in Block: [ :each |
...
[ :aClass |
aBlock
value: aClass;
value: aClass class ] in SystemNavigation>>allBehaviorsDo: in Block: [
:aClass | ...
[ :name | aBlock value: (self at: name) ] in
SystemDictionary>>allClassesDo: in Block: [ :name | aBlock value: (self at:
name) ]
OrderedCollection>>do:
SystemDictionary>>allClassesDo:
SystemNavigation>>allBehaviorsDo:
[ :bar |
| count |
count := 0.
self
allBehaviorsDo: [ :each |
bar current: (count := count + 1).
each
selectorsDo: [ :sel |
((each sourceCodeAt: sel) includesSubstring: aString
caseSensitive: caseSensitive)
ifTrue: [ addMethod value: each value: sel ] ].
(each organization classComment asString includesSubstring: aString
caseSensitive: caseSensitive)
ifTrue: [ addComment value: each ] ] ] in
SystemNavigation>>allMethodsWithSourceString:matchCase: in Block: [ :bar |
...
BlockClosure>>cull:
[ result := block cull: self ] in [
self prepareForRunning.
[ result := block cull: self ]
on: JobNotification
do: [ :notification | notification handle: self ] ] in Job>>run in
Block: [ result := block cull: self ]
BlockClosure>>on:do:
[
self prepareForRunning.
[ result := block cull: self ]
on: JobNotification
do: [ :notification | notification handle: self ] ] in Job>>run in
Block: [ ...
BlockClosure>>ensure:
Job>>run
MorphicUIManager(UIManager)>>displayProgress:from:to:during:
ByteString(String)>>displayProgressFrom:to:during:
SystemNavigation>>allMethodsWithSourceString:matchCase:
SystemNavigation>>browseMethodsWithSourceString:matchCase:
[ :aPresentation |
aPresentation selectLine.
self systemNavigation browseMethodsWithSourceString: aPresentation
selectedText matchCase: false ] in
GLMPharoPlaygroundPresentation(GLMRubricSmalltalkCodePresentation)>>browsingSelectionActions
in Block: [ :aPresentation | ...
BlockClosure>>glamourValueWithArgs:
GLMGenericAction(GLMAction)>>actOn:
GLMGenericAction(GLMAction)>>morphicActOn:
[ :ann | ann action morphicActOn: aPresentation ] in
GLMMorphicPharoPlaygroundRenderer(GLMMorphicWidgetRenderer)>>installActionsOnModel:fromPresentation:
in Block: [ :ann | ann action morphicActOn: aPresentation ]
BlockClosure>>cull:
BlockClosure>>cull:cull:
