On 15 Apr 2015, at 14:52, kilon alios <kilon.alios@gmail.com> wrote:

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 <nicolaihess@web.de> 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: