- Pharo-dev - lists.pharo.org

Re: [Pharo-dev] Ubuntu ppa - How is it made?

by Sean P. DeNigris

NorbertHartl wrote > Taking this it is just a matter of putting the right dependencies in the > package file. Is our process documented somewhere? Could it be automated e.g. by our CI? ----- Cheers, Sean -- View this message in context: http://forum.world.st/Ubuntu-ppa-How-is-it-made-tp4819663p4819712.html Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by Torsten Bergmann

>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.

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by Marcus Denker

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(a)gmail.com> wrote: > thankfully, is an easy fix :) > > > On 15 Apr 2015, at 14:36, Nicolai Hess <nicolaihess(a)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(a)acm.org http://www.marcusdenker.de

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by Esteban Lorenzano

> On 15 Apr 2015, at 14:52, kilon alios <kilon.alios(a)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(a)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: > >

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by Esteban Lorenzano

thankfully, is an easy fix :) > On 15 Apr 2015, at 14:36, Nicolai Hess <nicolaihess(a)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: >

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by kilon alios

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(a)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: > >

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by Sven Van Caekenberghe

> On 15 Apr 2015, at 14:45, Sven Van Caekenberghe <sven(a)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(a)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: >> >

April 15, 2015

Pillar: Link to anchor in same document

by Sean P. DeNigris

I'm updating the Pharo website and want to link to an anchor on the same page. And after reading https://ci.inria.fr/pharo-contribution/job/EnterprisePharoBook/lastSuccessf… , I tried: *Ubuntu ppa instructions>ubuntu* but it linked to http://pharo.org/ubuntu instead of http://pharo.org/gnu-linux-installation.STAGE#ubuntu Then I tried: *Ubuntu ppa instructions>@ubuntu* -> linked back to the same page, but no anchor was appended *Ubuntu ppa instructions>#ubuntu* -> worked, but rendered the link text as "Â¿?Ubuntu ppa instructions" How should I handle this? For the time being I'll leave the last version which works at least... ----- Cheers, Sean -- View this message in context: http://forum.world.st/Pillar-Link-to-anchor-in-same-document-tp4819681.html Sent from the Pharo Smalltalk Developers mailing list archive at Nabble.com.

April 15, 2015

Re: [Pharo-dev] PharoV40 sources still broken?

by Sven Van Caekenberghe

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(a)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: >

April 15, 2015

Re: [Pharo-dev] Can Monticello version message be a Text?

by Thierry Goubier

2015-04-15 14:06 GMT+02:00 Yuriy Tymchuk <yuriy.tymchuk(a)me.com>: > Can this be because my git name is different from monticello name? > No ;) Is it still happening to you? I fixed a bug I could see with a case submitted by Johan; it may not have fixed yours. Thierry > > Uko > > > On 09 Apr 2015, at 23:40, Thierry Goubier <thierry.goubier(a)gmail.com> > wrote: > > > > Le 09/04/2015 23:34, Yuriy Tymchuk a Ã©crit : > >> Sad. It happens to me quite a lot. So is this an issue in monticello? > > > > I don't know. > > > > Something is happening somewhere with the source code, and as a > consequence Monticello test for finding the changes mark everything as > changed. > > > > I'm pushing a solution for that symptom. > > > > https://pharo.fogbugz.com/default.asp?15321 > > > > But I haven't found the reason. Something is switching the line endings > on some of the MC definitions, and I don't know who or what is doing that > (and not everytime). > > > > Thierry > > > >> > >> > >> > >>> On 08 Apr 2015, at 22:13, Thierry Goubier <thierry.goubier(a)gmail.com> > wrote: > >>> > >>> Uko, > >>> > >>> you seem to have the same bug Johan is describing. > >>> > >>> MC seems to loose the contents of a package working copy, and hence is > unable to build a correct diff. > >>> > >>> I've seen it happen at times, but rarely enough so I didn't pay > attention to it. > >>> > >>> Thierry > >>> > >>> Le 08/04/2015 09:44, Yuriy Tymchuk a Ã©crit : > >>>> > >>>>> On 07 Apr 2015, at 12:16, Thierry Goubier <thierry.goubier(a)gmail.com> > wrote: > >>>>> > >>>>> Le 07/04/2015 11:01, Yuriy Tymchuk a Ã©crit : > >>>>>> Hi, thank you very much for investigating this. > >>>>> > >>>>> You're working on it too :) > >>>>> > >>>>>> These are the steps to reproduce: > >>>>>> > >>>>>> 1. Clone a git repo (e.g. https://github.com/Uko/VnaExporter.git) > >>>>>> 2. Add it as gitfiletree repo to the pharo image. > >>>>>> 3. Change something, commit part of the changes with Komitter. > >>>>>> 4. Change something more. > >>>>>> 5. Open Komitter, you should see a strange diff. > >>>>>> 6. Select 1 or 2 methods & commit them. > >>>>>> 7. Now you should have only 2 methods in your repo. > >>>>> > >>>>> I did, and I don't see anything suspicious. Browsing the repository > at each step gave me the complete package as expected (minus the unsaved > changes, of course). > >>>>> > >>>>> Can you show a screenshot at step 5? > >>>> > >>>> I've done a screen recording > https://dl.dropboxusercontent.com/u/83145561/GitKomitter.mov > >>>> > >>>> Uko > >>>> > >>>>> > >>>>> Thierry > >>>>> > >>>> > >>>> > >>>> > >>> > >>> > >> > >> > >> > >> > > > > > > >

April 15, 2015