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