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 <[email protected]> wrote: > thankfully, is an easy fix :) > > > On 15 Apr 2015, at 14:36, 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: > > > > > -- Marcus Denker -- [email protected] http://www.marcusdenker.de
