May 2011 - Pharo-dev - lists.pharo.org

[Pharo-project] Circle is gone
by Torsten Bergmann May 20, 2011

May 20, 2011

FYI: This also breaks EyeSee examples (see http://astares.blogspot.com/2011/05/eyesee.html) in the moose suite... Thx T. -- NEU: FreePhone - kostenlos mobil telefonieren! Jetzt informieren: http://www.gmx.net/de/go/freephone

2 1

[Pharo-project] [update 1.3] #13205
by Marcus Denker May 20, 2011

May 20, 2011

13205 ----- Issue 4249: ProcessBrowser Browsers classvar is dormant Issue 4247: Remove MenuIcons from startUpList Issue 4250: ImageSegment - remove from startup list Issue 4251: DateAndTime - remove from startup list Issue 4246: Avoid harcoding menu in MCWorkingCopyMenu -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

1 0

[Pharo-project] Subscript out of bounds: 1 on latest (hudson) Pharo 1.3
by Guillermo Polito May 20, 2011

May 20, 2011

Hi! I want to load a 6 month old slice (SLICE-Issue-1907-SetWithNilTests-GuillermoPolito.2) from pharo inbox in latest 1.3(13204) from hudson using cog, and It opens a pre-debugger because of a Subscript out of bounds: 1. If I clic on it to debug, It throws me again the same error :(. It happens if there is the sources file or not. But the most strange is that if I download latest 1.3 from the bottom of the page: http://www.pharo-project.org/pharo-download It actually loads the Slice, but throws me a DNU if I dont have the sources file in the same folder: 19 May 2011 9:02:38 pm VM: unix - i686 - linux-gnu - Croquet Closure Cog VM [CoInterpreter VMMaker-oscog.47] Image: Pharo1.3a [Latest update: #13201] UndefinedObject(Object)>>doesNotUnderstand: #keywords Receiver: nil Arguments and temporary variables: <<error during printing> Receiver's instance variables: nil CompiledMethod>>getSourceReplacingSelectorWith: Receiver: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)") Arguments and temporary variables: newSelector: #testPrintElementsOn oldKeywords: nil newKeywords: nil args: nil newSelectorWithArgs: nil source: '' oldSelector: nil s: nil Receiver's instance variables: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)") DictionaryTest class(Behavior)>>addTraitSelector:withMethod: Receiver: DictionaryTest Arguments and temporary variables: aSymbol: #testPrintElementsOn aCompiledMethod: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)...etc... source: nil methodAndNode: nil Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil [:methodDescription | | effectiveMethod selector | selector := methodDescription selector. (self includesLocalSelector: selector) ifFalse: [methodDescription isEmpty ifTrue: [self removeTraitSelector: selector. modifiedSelectors add: selector] ifFalse: [effectiveMethod := methodDescription effectiveMethod. self addTraitSelector: selector withMethod: effectiveMethod. modifiedSelectors add: selector]]] in DictionaryTest class(Behavior)>>updateMethodDictionarySelector: Receiver: DictionaryTest Arguments and temporary variables: modifiedSelectors: a TraitMethodDescription methodDescription: an IdentitySet() effectiveMethod: (TPrintTest>>#testPrintElementsOn "a CompiledMethod(842792960)...etc... selector: #testPrintElementsOn Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil OrderedCollection>>do: Receiver: an OrderedCollection(a TraitMethodDescription) Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(a TraitMethodDescription) firstIndex: 1 lastIndex: 1 DictionaryTest class(Behavior)>>updateMethodDictionarySelector: Receiver: DictionaryTest Arguments and temporary variables: aSymbol: #testPrintElementsOn modifiedSelectors: an IdentitySet() descriptions: an OrderedCollection(a TraitMethodDescription) Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil [:t3 | t2 addAll: (self updateMethodDictionarySelector: t3)] in DictionaryTest class(Behavior)>>noteChangedSelectors: Receiver: DictionaryTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil Array(SequenceableCollection)>>do: Receiver: #(#testPrintElementsOn) Arguments and temporary variables: <<error during printing> Receiver's instance variables: #(#testPrintElementsOn) DictionaryTest class(Behavior)>>noteChangedSelectors: Receiver: DictionaryTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: superclass: CollectionRootTest methodDict: a MethodDictionary(size 192) format: 162 instanceVariables: #('emptyDict' 'nonEmptyDict' 'nonEmpty5ElementsNoDuplicates'...etc... organization: ('helpers' aValue anIndex anotherValue) ('requirement' anotherEle...etc... subclasses: {SmallDictionaryTest. IdentityDictionaryTest. LiteralDictionaryTest...etc... name: #DictionaryTest classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'CollectionsTests-Unordered' traitComposition: TIncludesTest + TDictionaryAddingTest + TDictionaryComparingT...etc... localSelectors: an IdentitySet(#testKeyAtIdentityValueIfAbsent #testDictionaryC...etc... history: a Dictionary(#errors->a Set() #failures->a Set() #passed->a Set() #tim...etc... testToto: nil pt1: nil [:t2 | t2 noteChangedSelectors: t1] in Trait(TraitDescription)>>notifyUsersOfChangedSelectors: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' [:each | each ifNotNil: [aBlock value: each]] in IdentitySet(Set)>>do: Receiver: an IdentitySet(DictionaryTest) Arguments and temporary variables: aBlock: DictionaryTest each: [:t2 | t2 noteChangedSelectors: t1] Receiver's instance variables: tally: 1 array: {nil. nil. nil. nil. DictionaryTest. nil. nil} Array(SequenceableCollection)>>do: Receiver: {nil. nil. nil. nil. DictionaryTest. nil. nil} Arguments and temporary variables: <<error during printing> Receiver's instance variables: {nil. nil. nil. nil. DictionaryTest. nil. nil} IdentitySet(Set)>>do: Receiver: an IdentitySet(DictionaryTest) Arguments and temporary variables: aBlock: [:t2 | t2 noteChangedSelectors: t1] Receiver's instance variables: tally: 1 array: {nil. nil. nil. nil. DictionaryTest. nil. nil} Trait(TraitDescription)>>notifyUsersOfChangedSelectors: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' Trait(TraitBehavior)>>notifyUsersOfChangedSelector: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' Trait(TraitBehavior)>>addSelectorSilently:withMethod: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' Trait(TraitDescription)>>addSelectorSilently:withMethod: Receiver: TDictionaryPrintingTest Arguments and temporary variables: <<error during printing> Receiver's instance variables: methodDict: a MethodDictionary(#emptyDict->(TDictionaryPrintingTest>>#emptyDict...etc... traitComposition: {} localSelectors: nil users: an IdentitySet(DictionaryTest) organization: ('requirements' emptyDict newEmptyDict nonEmptyDict) ('test - pri...etc... name: #TDictionaryPrintingTest environment: a SystemDictionary(lots of globals) classTrait: TDictionaryPrintingTest classTrait category: #'CollectionsTests-Unordered' MethodAddition>>installMethod Receiver: a MethodAddition Arguments and temporary variables: <<error during printing> Receiver's instance variables: text: 'testPrintElementsOn | str | str := String new writeStream. self nonEm...etc... category: #'test - printing' changeStamp: 'PeterHugossonMiller 9/3/2009 11:33' requestor: nil logSource: true myClass: TDictionaryPrintingTest methodAndNode: a CompiledMethodWithNode selector: #testPrintElementsOn compiledMethod: (TDictionaryPrintingTest>>#testPrintElementsOn "a CompiledMetho...etc... priorMethodOrNil: (TDictionaryPrintingTest>>#testPrintElementsOn "a CompiledMet...etc... I'll open a ticket :)

1 2

[Pharo-project] SIXX problem for ScaledDecimal
by Dario Trussardi May 19, 2011

May 19, 2011

Hi, i found some problem into Gemstone relative to SIXX support for manage ScaledDecimal instances. I do some test into Pharo and i found error when i read the sixx declaration relative to ScaledDecimal : <sixx.object sixx.id="0" sixx.type="ScaledDecimal" >123.456s3</sixx.object> For solve this error i define the ScaledDecimal : readSixxContentStringFrom: aStream | numerator scale | numerator := aStream upTo: $s . scale := aStream upToEnd. ^ self newFromNumber: numerator asNumber scale: scale asNumber Now my doubt is relative to string size and performance. A) If i write <sixx.object sixx.id="0" sixx.type="ScaledDecimal" >123.456s3</sixx.object> i have small string in sixx declartion but when create a ScaledDecimal from sixx the system execute the: newFromNumber: aNumber scale: anInteger | aFraction | aFraction := aNumber asFraction. ^aFraction isFraction ifTrue: [self new setNumerator: aFraction numerator denominator: aFraction denominator scale: anInteger] ifFalse: [self new setNumerator: aFraction denominator: 1 scale: anInteger] What is the performance relative to : aFraction := aFloat asFraction. ???? B) The alternative is to write a sixx declaration with: <sixx.object sixx.id="0" sixx.type="ScaledDecimal" >(8687443681197687/70368744177664s3)</sixx.object> in this case the sixx string is big but the ScaledDecimal instance creation is direct: readSixxContentStringFromA: aStream " with numerator and denominator " | numerator denominator scale | aStream next. "skip $(" numerator := aStream upTo: $/ . denominator := aStream upTo: $s. scale := aStream upTo: $). ^ self new setNumerator: numerator asNumber denominator: denominator asNumber scale: scale asNumber Any pointers would be greatly appreciated ! Thanks, Dario

4 3

Re: [Pharo-project] Problem with Pharo 1.3 in Windows
by Marcus Denker May 19, 2011

May 19, 2011

On May 19, 2011, at 9:16 AM, Igor Stasenko wrote: > On 19 May 2011 08:43, Torsten Bergmann <astares(a)gmx.de> wrote: >> Marcus wrote >>> This situation with the thousands of different VMs is *impossible*. We need >to fix that. >> >> If on Windows you should really use the installer for Pharo 1.2.2. >> from the download page. This will give you the two VM's: standard and Cog >> and you can use them to start all images from your HD. >> >> Since both have a different icon (also for the Pharo window) >> you always know which one you start/running on. >> >> Just give it a try, its simple. >> >> Since the Pharo.exe and PharoCog.exe also have the version number >> in the resource section you can right click on it in explorer >> and check which code version/revision they have (see attached screenshot). >> > > Torsten, can you please document somewhere, how you chaging the version info? > I really can't understand how today's VMs are versioned, and what > version we could use for Pharo-branded VMs. > Probably with 'P' suffix? *PLEASE* do not take the version numbering that is now in the Squeak VM. Nobody understands why there is a Version 5 MacVM. Version 5? Squeak is at Verison 4, Pharo at 1. We *neeeeeeed* for every version of Pharo a VM that has *just* the same version number. Pharo 1.3 uses VM 1.3. 1.4 uses VM 1.4 Marcus -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

2 1

[Pharo-project] Need someone to lead Fix of the Day contest [WAS] Re: Need help with 1.3 Full Image
by Mariano Martinez Peck May 19, 2011

May 19, 2011

> >> I try to solve some issue in the issues tracker from time to time, but >> it's often difficult >> when outside your expertise. So doing it with others might definitively >> help. >> > > > Fix of the day contest has the advantage of being compatible with every > people timezone / agenda. > > We can also synchronize CODTC and FOTDC in order to comment classes related > to the fix. > > Now we just need someone to lead the FOTDC. I already do COTDC so is there > a good soul ? > > well, I've started by renaming the thread and attaching Pharo-users. Laurent, maybe you should clarify what "lead" exactly means. Cheers Mariano > Laurent > > > >> >> Regards, >> -- >> Serge Stinckwich >> UMI UMMISCO 209 (IRD/UPMC), Hanoi, Vietnam >> Every DSL ends up being Smalltalk >> http://doesnotunderstand.org/ >> >> > -- Mariano http://marianopeck.wordpress.com

2 5

[Pharo-project] [COTDC] 66 - LogicalFont
by laurent laffont May 19, 2011

May 19, 2011

Today: LogicalFont Comment Of The Day Contest - One Day One Comment Rules: #1: Each day a not commented class is elected. Each day the best comment will be integrated with name of the author(s). #2: If you cannot comment it, deprecate it. Results: http://code.google.com/p/pharo/wiki/CommentOfTheDayContest Laurent

1 1

[Pharo-project] Mouse wheel
by Alexandre Bergel May 19, 2011

May 19, 2011

Hi! -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

1 0

[Pharo-project] Strange SmalltalkImage>>startUp
by Igor Stasenko May 19, 2011

May 19, 2011

Can someone explain me, why it does: startUp SystemChangeNotifier uniqueInstance notify: Smalltalk ofAllSystemChangesUsing: #event: why not doing it once in #initialize (on instance side, since Smalltalk is instance of SmalltalkImage)? -- Best regards, Igor Stasenko AKA sig.

1 0

[Pharo-project] Problem with Pharo 1.3 in Windows
by Torsten Bergmann May 19, 2011

May 19, 2011

Stef wrote >Now my main questions are Hey ... dont take me wrong. I want the build server to build the VMs too, I want a repeatable process and a reliable VM. I appreciate that we change this!!! We all know that if VM development is dependent on a single maintainer person then nobody would invest into Pharo, Squeak or Cuis since the truck factor* is one. I support all this. Remember: I was the one who wrote the first ConfigurationOfVMMaker so that it is easy to get all the bits and pieces. I want to make it easier for people to dive into VM building. The windows build slave is a huge step forward ... we can not only build the VM and installer ... we can also run the tests on Windows too to see if there are platform specific issues. Cool and hardly needed! But someone (person or team) has to wear the Win32 VM "hat" to check contributions or help fixing a bug. So may question is what is the direction we will take here? It looks like the standard SqueakWin32 VM is unmaintained since the last release is from July 2010. We still have no Alien, we still have no callbacks. Yes, there is Cog whose code base is newer but I think Eliots focus is on speed rather than functionality. Will we fork from standard VM, will we participate in Eliots work or will we fork an own using git and maintain it by picking pieces from the other VMs? Also: what can we do to reach the goal of feature complete VM's with aligned version numbers. I think this means to participate on lists like "vm-dev"... But maybe I'm just too impatient... Bye T. *the truck factor = The number of people on your team who have to be hit with a truck before the project is in serious trouble" -- Empfehlen Sie GMX DSL Ihren Freunden und Bekannten und wir belohnen Sie mit bis zu 50,- Euro! https://freundschaftswerbung.gmx.de

3 2