You dont even need to do all that, just open a new image and immediately complains that sources are missing. But for some strange reason I can browser code , I thought no sources meant not being able to see the source code. Restarting the image saved with the setting to download sources does nothing.
On Wed, Apr 15, 2015 at 3:36 PM, Nicolai Hess <[email protected]> wrote: > 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: > >
