- Pharo-dev - lists.pharo.org

Re: [Pharo-project] why we should kill project

by John M McIntosh

On 2009-11-10, at 7:40 AM, StÃ©phane Ducasse wrote: > if you want to have fun try to identify the number of times certain > parts are duplicated inside the same method. > > Stef Actually an interesting exercise here would be to determine who originally wrote the method, then decide is it a result of the author's original coding, or the result of 10 people hacking it. If it's mostly the result of a single author, then I'm sure some nifty tool (someone could write) could determine which other methods the person authored then kick out the more complex ones and decide if the same coding practises are followed, er then mark them as candidates for simplification? I mention this because it reminded me of a project I was on years ago where after a consultant had left we determined his code was problematic based on bug reports statistics and at 2:00 am one morning I and the senior project leader pressed *delete* on all that code base since we had decided it was cheaper to rewrite it all from scratch versus fixing it. -- = = = ======================================================================== John M. McIntosh <johnmci(a)smalltalkconsulting.com> Twitter: squeaker68882 Corporate Smalltalk Consulting Ltd. http://www.smalltalkconsulting.com = = = ========================================================================

Nov. 10, 2009

Re: [Pharo-project] why we should kill project

by Niko Schwarz

Tee hee, cool beans guys :) Niko On Tue, Nov 10, 2009 at 6:32 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > It is a pearl! > may be a joke for geek but I love it. > > STef >> ((Project class parseTreeFor: #mostRecent:onServer:) allChildren >> Â Â Â reject: [ :each | each isVariable ]) >> Â Â Â asBag sortedCounts >> Â Â Â first: 20 >> >> 5x RBLiteralValueNode(-1) >> 3x RBMessageNode(Array with: goodName >> Â Â Â with: max) >> 3x RBMessageNode(max = -1) >> 3x RBAssignmentNode(goodName := rawList at: ind) >> 3x RBSequenceNode(^ Array with: goodName >> Â Â Â with: max) >> 3x RBReturnNode(^ nothingFound) >> 3x RBMessageNode(max = -1 ifFalse: >> Â Â Â Â Â Â Â [ ^ Array with: goodName >> Â Â Â Â Â Â Â Â Â Â Â with: max ]) >> 3x RBBlockNode([ ^ Array with: goodName >> Â Â Â with: max ]) >> 3x RBMessageNode(rawList at: ind) >> 3x RBReturnNode(^ Array with: goodName >> Â Â Â with: max) >> 2x RBBlockNode([ num := (Project parseProjectFileName: aName) second. >> num > max ifTrue: >> Â Â Â Â Â Â Â [ max := num. >> Â Â Â Â Â Â Â goodName := rawList at: ind ] ]) >> 2x RBMessageNode((Project parseProjectFileName: aName) second) >> 2x RBAssignmentNode(num := (Project parseProjectFileName: aName) second) >> 2x RBAssignmentNode(max := num) >> 2x RBBlockNode([ max := num. >> goodName := rawList at: ind ]) >> 2x RBMessageNode((Project parseProjectFileName: aName)) >> 2x RBSequenceNode(max := num. >> goodName := rawList at: ind) >> 2x RBMessageNode(num > max ifTrue: >> Â Â Â Â Â Â Â [ max := num. >> Â Â Â Â Â Â Â goodName := rawList at: ind ]) >> 2x RBMessageNode(num > max) >> 2x RBLiteralValueNode(' ') >> ... >> >> >> 2009/11/10 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: >>> if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. >>> >>> Stef >>> >>> mostRecent: projName onServer: aServerDirectory >>> Â Â Â Â "Find the exact fileName of the most recent version of project with the stem name of projName. Â Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. >>> Â Â Â Â File names may or may not be HTTP escaped, %20 on the server." >>> Â Â Â Â | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | >>> Â Â Â Â self flag: #bob. Â Â Â Â "do we want to handle unversioned projects as well?" >>> Â Â Â Â nothingFound := { Â nil. -1 Â }. >>> Â Â Â Â aServerDirectory ifNil: [ ^ nothingFound ]. >>> Â Â Â Â "23 sept 2000 - some old projects have periods in name so be more careful" >>> Â Â Â Â unEscName := projName unescapePercents. >>> Â Â Â Â triple := Project parseProjectFileName: unEscName. >>> Â Â Â Â stem := triple first. >>> Â Â Â Â rawList := aServerDirectory fileNames. >>> Â Â Â Â rawList isString ifTrue: >>> Â Â Â Â Â Â Â Â [ self inform: 'server is unavailable'. >>> Â Â Â Â Â Â Â Â ^ nothingFound ]. >>> Â Â Â Â list := rawList collect: [ :nnn | nnn unescapePercents ]. >>> Â Â Â Â max := -1. >>> Â Â Â Â goodName := nil. >>> Â Â Â Â list withIndexDo: >>> Â Â Â Â Â Â Â Â [ :aName :ind | >>> Â Â Â Â Â Â Â Â (aName beginsWith: stem) ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. >>> Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. >>> Â Â Â Â max = -1 ifFalse: >>> Â Â Â Â Â Â Â Â [ ^ Array >>> Â Â Â Â Â Â Â Â Â Â Â Â with: goodName >>> Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. >>> >>> Â Â Â Â "try with underbar for spaces on server" >>> Â Â Â Â (stem includes: $ ) ifTrue: >>> Â Â Â Â Â Â Â Â [ stem1 := stem >>> Â Â Â Â Â Â Â Â Â Â Â Â copyReplaceAll: ' ' >>> Â Â Â Â Â Â Â Â Â Â Â Â with: '_'. >>> Â Â Â Â Â Â Â Â list withIndexDo: >>> Â Â Â Â Â Â Â Â Â Â Â Â [ :aName :ind | >>> Â Â Â Â Â Â Â Â Â Â Â Â (aName beginsWith: stem1) ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ] ]. >>> Â Â Â Â max = -1 ifFalse: >>> Â Â Â Â Â Â Â Â [ ^ Array >>> Â Â Â Â Â Â Â Â Â Â Â Â with: goodName >>> Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. >>> >>> Â Â Â Â "try without the marker | " >>> Â Â Â Â stem1 := stem allButLast , '.pr'. >>> Â Â Â Â stem2 := stem1 >>> Â Â Â Â Â Â Â Â copyReplaceAll: ' ' >>> Â Â Â Â Â Â Â Â with: '_'. Â Â Â "and with spaces replaced" >>> Â Â Â Â list withIndexDo: >>> Â Â Â Â Â Â Â Â [ :aName :ind | >>> Â Â Â Â Â Â Â Â (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â [ (triple := aName findTokens: '.') size >= 2 ifTrue: >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := 0. >>> Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. Â Â Â "no other versions" >>> Â Â Â Â max = -1 ifFalse: >>> Â Â Â Â Â Â Â Â [ ^ Array >>> Â Â Â Â Â Â Â Â Â Â Â Â with: goodName >>> Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. >>> Â Â Â Â ^ nothingFound Â "no matches" >>> _______________________________________________ >>> Pharo-project mailing list >>> Pharo-project(a)lists.gforge.inria.fr >>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >>> >> >> >> >> -- >> Lukas Renggli >> http://www.lukas-renggli.ch >> >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project > > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Gary Chambers

Note that similar performance improvements should be seen across the board in general usage though. Regards, Gary ----- Original Message ----- From: Marcus Denker To: Pharo-project(a)lists.gforge.inria.fr Sent: Tuesday, November 10, 2009 5:36 PM Subject: Re: [Pharo-project] [update 1.1] #11038 On Nov 10, 2009, at 6:33 PM, Mariano Martinez Peck wrote: On Tue, Nov 10, 2009 at 2:31 PM, Marcus Denker <denker(a)acm.org> wrote: On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > excellent! > speed speed speed :) > On my system, the browser-benchmark is 17% faster for the Core image after loading the update. Sorry, but which browser? (systembrowser? packageAdaptor?) which benchmark did you try ? any code to test? this is the benchmark code: | saveMorphs time | [saveMorphs := World submorphs. World removeAllMorphs."heh, heh" time := [1 to: 10 do: [:i | MorphicToolBuilder new open: (Browser new setClass: SystemDictionary selector: nil). World doOneCycleNow]. World submorphs do: [:m | m delete. World doOneCycleNow]. ] timeToRun] ensure:[World addAllMorphs: saveMorphs]. SystemWindow noteTopWindowIn: World. time ------------------------------------------------------------------------------ _______________________________________________ Pharo-project mailing list Pharo-project(a)lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Marcus Denker

On Nov 10, 2009, at 6:33 PM, Mariano Martinez Peck wrote: > > > On Tue, Nov 10, 2009 at 2:31 PM, Marcus Denker <denker(a)acm.org> wrote: > > On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > > > excellent! > > speed speed speed :) > > > > On my system, the browser-benchmark is 17% faster for the Core image after loading the update. > > > Sorry, but which browser? (systembrowser? packageAdaptor?) which benchmark did you try ? any code to test? > this is the benchmark code: | saveMorphs time | [saveMorphs := World submorphs. World removeAllMorphs."heh, heh" time := [1 to: 10 do: [:i | MorphicToolBuilder new open: (Browser new setClass: SystemDictionary selector: nil). World doOneCycleNow]. World submorphs do: [:m | m delete. World doOneCycleNow]. ] timeToRun] ensure:[World addAllMorphs: saveMorphs]. SystemWindow noteTopWindowIn: World. time

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Mariano Martinez Peck

On Tue, Nov 10, 2009 at 2:31 PM, Marcus Denker <denker(a)acm.org> wrote: > > On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > > > excellent! > > speed speed speed :) > > > > On my system, the browser-benchmark is 17% faster for the Core image after > loading the update. > > Sorry, but which browser? (systembrowser? packageAdaptor?) which benchmark did you try ? any code to test? Best Mariano > Not bad. > > Marcus > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >

Nov. 10, 2009

Re: [Pharo-project] why we should kill project

by StÃ©phane Ducasse

It is a pearl! may be a joke for geek but I love it. STef > ((Project class parseTreeFor: #mostRecent:onServer:) allChildren > reject: [ :each | each isVariable ]) > asBag sortedCounts > first: 20 > > 5x RBLiteralValueNode(-1) > 3x RBMessageNode(Array with: goodName > with: max) > 3x RBMessageNode(max = -1) > 3x RBAssignmentNode(goodName := rawList at: ind) > 3x RBSequenceNode(^ Array with: goodName > with: max) > 3x RBReturnNode(^ nothingFound) > 3x RBMessageNode(max = -1 ifFalse: > [ ^ Array with: goodName > with: max ]) > 3x RBBlockNode([ ^ Array with: goodName > with: max ]) > 3x RBMessageNode(rawList at: ind) > 3x RBReturnNode(^ Array with: goodName > with: max) > 2x RBBlockNode([ num := (Project parseProjectFileName: aName) second. > num > max ifTrue: > [ max := num. > goodName := rawList at: ind ] ]) > 2x RBMessageNode((Project parseProjectFileName: aName) second) > 2x RBAssignmentNode(num := (Project parseProjectFileName: aName) second) > 2x RBAssignmentNode(max := num) > 2x RBBlockNode([ max := num. > goodName := rawList at: ind ]) > 2x RBMessageNode((Project parseProjectFileName: aName)) > 2x RBSequenceNode(max := num. > goodName := rawList at: ind) > 2x RBMessageNode(num > max ifTrue: > [ max := num. > goodName := rawList at: ind ]) > 2x RBMessageNode(num > max) > 2x RBLiteralValueNode(' ') > ... > > > 2009/11/10 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: >> if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. >> >> Stef >> >> mostRecent: projName onServer: aServerDirectory >> "Find the exact fileName of the most recent version of project with the stem name of projName. Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. >> File names may or may not be HTTP escaped, %20 on the server." >> | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | >> self flag: #bob. "do we want to handle unversioned projects as well?" >> nothingFound := { nil. -1 }. >> aServerDirectory ifNil: [ ^ nothingFound ]. >> "23 sept 2000 - some old projects have periods in name so be more careful" >> unEscName := projName unescapePercents. >> triple := Project parseProjectFileName: unEscName. >> stem := triple first. >> rawList := aServerDirectory fileNames. >> rawList isString ifTrue: >> [ self inform: 'server is unavailable'. >> ^ nothingFound ]. >> list := rawList collect: [ :nnn | nnn unescapePercents ]. >> max := -1. >> goodName := nil. >> list withIndexDo: >> [ :aName :ind | >> (aName beginsWith: stem) ifTrue: >> [ num := (Project parseProjectFileName: aName) second. >> num > max ifTrue: >> [ max := num. >> goodName := rawList at: ind ] ] ]. >> max = -1 ifFalse: >> [ ^ Array >> with: goodName >> with: max ]. >> >> "try with underbar for spaces on server" >> (stem includes: $ ) ifTrue: >> [ stem1 := stem >> copyReplaceAll: ' ' >> with: '_'. >> list withIndexDo: >> [ :aName :ind | >> (aName beginsWith: stem1) ifTrue: >> [ num := (Project parseProjectFileName: aName) second. >> num > max ifTrue: >> [ max := num. >> goodName := rawList at: ind ] ] ] ]. >> max = -1 ifFalse: >> [ ^ Array >> with: goodName >> with: max ]. >> >> "try without the marker | " >> stem1 := stem allButLast , '.pr'. >> stem2 := stem1 >> copyReplaceAll: ' ' >> with: '_'. "and with spaces replaced" >> list withIndexDo: >> [ :aName :ind | >> (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: >> [ (triple := aName findTokens: '.') size >= 2 ifTrue: >> [ max := 0. >> goodName := rawList at: ind ] ] ]. "no other versions" >> max = -1 ifFalse: >> [ ^ Array >> with: goodName >> with: max ]. >> ^ nothingFound "no matches" >> _______________________________________________ >> Pharo-project mailing list >> Pharo-project(a)lists.gforge.inria.fr >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project >> > > > > -- > Lukas Renggli > http://www.lukas-renggli.ch > > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by Marcus Denker

On Nov 10, 2009, at 6:24 PM, StÃ©phane Ducasse wrote: > excellent! > speed speed speed :) > On my system, the browser-benchmark is 17% faster for the Core image after loading the update. Not bad. Marcus

Nov. 10, 2009

Re: [Pharo-project] [update 1.1] #11038

by StÃ©phane Ducasse

excellent! speed speed speed :) Stef On Nov 10, 2009, at 4:04 PM, Marcus Denker wrote: > 11038 > ----- > > Issue 1254: Morph extension speedup > > Speed up Morphic. Thanks, Gary! and everyone taking part in the discussion. > > Note: some packages are dirty after this update (loaded the changeset by hand). > This will be fixed in the next update. > > Marcus > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Nov. 10, 2009

[Pharo-project] [update 1.1] #11039

by Marcus Denker

#11039 ----------- -> reload dirty packages from repository -> add home repo to all packages (was missing from ScriptLoader11) -> Scriptloader should again be in sync with the update number. Marcus

Nov. 10, 2009

Re: [Pharo-project] why we should kill project

by Lukas Renggli

((Project class parseTreeFor: #mostRecent:onServer:) allChildren reject: [ :each | each isVariable ]) asBag sortedCounts first: 20 5x RBLiteralValueNode(-1) 3x RBMessageNode(Array with: goodName with: max) 3x RBMessageNode(max = -1) 3x RBAssignmentNode(goodName := rawList at: ind) 3x RBSequenceNode(^ Array with: goodName with: max) 3x RBReturnNode(^ nothingFound) 3x RBMessageNode(max = -1 ifFalse: [ ^ Array with: goodName with: max ]) 3x RBBlockNode([ ^ Array with: goodName with: max ]) 3x RBMessageNode(rawList at: ind) 3x RBReturnNode(^ Array with: goodName with: max) 2x RBBlockNode([ num := (Project parseProjectFileName: aName) second. num > max ifTrue: [ max := num. goodName := rawList at: ind ] ]) 2x RBMessageNode((Project parseProjectFileName: aName) second) 2x RBAssignmentNode(num := (Project parseProjectFileName: aName) second) 2x RBAssignmentNode(max := num) 2x RBBlockNode([ max := num. goodName := rawList at: ind ]) 2x RBMessageNode((Project parseProjectFileName: aName)) 2x RBSequenceNode(max := num. goodName := rawList at: ind) 2x RBMessageNode(num > max ifTrue: [ max := num. goodName := rawList at: ind ]) 2x RBMessageNode(num > max) 2x RBLiteralValueNode(' ') ... 2009/11/10 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr>: > if you want to have fun try to identify the number of times certain parts are duplicated inside the same method. > > Stef > > mostRecent: projName onServer: aServerDirectory > Â Â Â Â "Find the exact fileName of the most recent version of project with the stem name of projName. Â Names are of the form 'projName|mm.pr' where mm is a mime-encoded integer version number. > Â Â Â Â File names may or may not be HTTP escaped, %20 on the server." > Â Â Â Â | stem list max goodName triple num stem1 stem2 rawList nothingFound unEscName | > Â Â Â Â self flag: #bob. Â Â Â Â "do we want to handle unversioned projects as well?" > Â Â Â Â nothingFound := { Â nil. -1 Â }. > Â Â Â Â aServerDirectory ifNil: [ ^ nothingFound ]. > Â Â Â Â "23 sept 2000 - some old projects have periods in name so be more careful" > Â Â Â Â unEscName := projName unescapePercents. > Â Â Â Â triple := Project parseProjectFileName: unEscName. > Â Â Â Â stem := triple first. > Â Â Â Â rawList := aServerDirectory fileNames. > Â Â Â Â rawList isString ifTrue: > Â Â Â Â Â Â Â Â [ self inform: 'server is unavailable'. > Â Â Â Â Â Â Â Â ^ nothingFound ]. > Â Â Â Â list := rawList collect: [ :nnn | nnn unescapePercents ]. > Â Â Â Â max := -1. > Â Â Â Â goodName := nil. > Â Â Â Â list withIndexDo: > Â Â Â Â Â Â Â Â [ :aName :ind | > Â Â Â Â Â Â Â Â (aName beginsWith: stem) ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. > Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. > Â Â Â Â max = -1 ifFalse: > Â Â Â Â Â Â Â Â [ ^ Array > Â Â Â Â Â Â Â Â Â Â Â Â with: goodName > Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. > > Â Â Â Â "try with underbar for spaces on server" > Â Â Â Â (stem includes: $ ) ifTrue: > Â Â Â Â Â Â Â Â [ stem1 := stem > Â Â Â Â Â Â Â Â Â Â Â Â copyReplaceAll: ' ' > Â Â Â Â Â Â Â Â Â Â Â Â with: '_'. > Â Â Â Â Â Â Â Â list withIndexDo: > Â Â Â Â Â Â Â Â Â Â Â Â [ :aName :ind | > Â Â Â Â Â Â Â Â Â Â Â Â (aName beginsWith: stem1) ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ num := (Project parseProjectFileName: aName) second. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â num > max ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := num. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ] ]. > Â Â Â Â max = -1 ifFalse: > Â Â Â Â Â Â Â Â [ ^ Array > Â Â Â Â Â Â Â Â Â Â Â Â with: goodName > Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. > > Â Â Â Â "try without the marker | " > Â Â Â Â stem1 := stem allButLast , '.pr'. > Â Â Â Â stem2 := stem1 > Â Â Â Â Â Â Â Â copyReplaceAll: ' ' > Â Â Â Â Â Â Â Â with: '_'. Â Â Â "and with spaces replaced" > Â Â Â Â list withIndexDo: > Â Â Â Â Â Â Â Â [ :aName :ind | > Â Â Â Â Â Â Â Â (aName beginsWith: stem1) | (aName beginsWith: stem2) ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â [ (triple := aName findTokens: '.') size >= 2 ifTrue: > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â [ max := 0. > Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â goodName := rawList at: ind ] ] ]. Â Â Â "no other versions" > Â Â Â Â max = -1 ifFalse: > Â Â Â Â Â Â Â Â [ ^ Array > Â Â Â Â Â Â Â Â Â Â Â Â with: goodName > Â Â Â Â Â Â Â Â Â Â Â Â with: max ]. > Â Â Â Â ^ nothingFound Â "no matches" > _______________________________________________ > Pharo-project mailing list > Pharo-project(a)lists.gforge.inria.fr > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project > -- Lukas Renggli http://www.lukas-renggli.ch

Nov. 10, 2009