pharo 4.0 608 with PharoV40 sources:

- enter some text in a workspace
- select the text

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: