PharoV40 sources still broken?
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:
Yes, I can confirm your issue. But using World Menu > Tools > Finder to search in Source does work well.
On 15 Apr 2015, at 14:36, 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:
On 15 Apr 2015, at 14:45, Sven Van Caekenberghe <sven@stfx.eu> wrote:
Yes, I can confirm your issue.
But using World Menu > Tools > Finder to search in Source does work well.
Probably because the Finder does not search in class comments, only in method sources. Maybe we need a unit test to check the validity of all class comments ?
On 15 Apr 2015, at 14:36, 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:
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:
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.
download sources is probably removed. but you can download it by your self :) wget files.pharo.org/get-files/40/sources.zip <http://files.pharo.org/get-files/40/sources.zip> cheers, Esteban
On Wed, Apr 15, 2015 at 3:36 PM, Nicolai Hess <nicolaihess@web.de <mailto: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:
thankfully, is an easy fix :)
On 15 Apr 2015, at 14:36, 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:
This should fix it: Smalltalk allClasses do: [ :each | each class organization comment: nil; commentStamp: nil ] On Wed, Apr 15, 2015 at 2:53 PM, Esteban Lorenzano <estebanlm@gmail.com> wrote:
thankfully, is an easy fix :)
On 15 Apr 2015, at 14:36, 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:
-- Marcus Denker -- denker@acm.org http://www.marcusdenker.de
So what is the last known "stable" version now? 40605? Or can I use the latest? Peter On Wed, Apr 15, 2015 at 4:06 PM, Torsten Bergmann <astares@gmx.de> wrote:
This should fix it: Smalltalk allClasses do: [ :each | each class organization comment: nil; commentStamp: nil ]
Yes - can confirm the error and can also confirm this statement fixes it.
Thx T.
I would not call it unstable, I downloaded the file as Esteban pointed (thank you ) and it works fine for me. On Wed, Apr 15, 2015 at 7:52 PM, Peter Uhnák <i.uhnak@gmail.com> wrote:
So what is the last known "stable" version now? 40605? Or can I use the latest?
Peter
On Wed, Apr 15, 2015 at 4:06 PM, Torsten Bergmann <astares@gmx.de> wrote:
This should fix it: Smalltalk allClasses do: [ :each | each class organization comment: nil; commentStamp: nil ]
Yes - can confirm the error and can also confirm this statement fixes it.
Thx T.
609 is good.
On 15 Apr 2015, at 18:52, Peter Uhnák <i.uhnak@gmail.com> wrote:
So what is the last known "stable" version now? 40605? Or can I use the latest?
Peter
On Wed, Apr 15, 2015 at 4:06 PM, Torsten Bergmann <astares@gmx.de <mailto:astares@gmx.de>> wrote:
This should fix it: Smalltalk allClasses do: [ :each | each class organization comment: nil; commentStamp: nil ]
Yes - can confirm the error and can also confirm this statement fixes it.
Thx T.
participants (7)
-
Esteban Lorenzano -
kilon alios -
Marcus Denker -
Nicolai Hess -
Peter Uhnák -
Sven Van Caekenberghe -
Torsten Bergmann