March 2013 - Pharo-dev - lists.pharo.org

[Pharo-project] where to report vm crashes? (while running Moose tests)
by Tudor Girba March 12, 2013

March 12, 2013

Hi, Where should I report Pharo VM crashes with Pharo 2.0? In particular, I wanted to report the problem related to running Moose tests from the command line: --- You can reproduce it on Mac, quite consistently: just run the attached script (you need to have wget installed), or do it manually: 1. download and unzip the latest Moose 4.8: https://ci.inria.fr/moose/job/Moose-latest-dev-4.8/lastSuccessfulBuild/arti… 2. download and unzip the latest Pharo VM: http://pharo.gforge.inria.fr/ci/vm/pharo/mac/pharo-mac-latest.zip 3. execute: ./Pharo.app/Contents/MacOS/Pharo ./Moose-latest-dev-4.8.image moosetest The VM crashes, but there is no trace of the error. --- Cheers, Doru -- www.tudorgirba.com "It's not what we do that matters most, it's how we do it."

3 8

[Pharo-project] new Cog VMs available
by Eliot Miranda March 12, 2013

March 12, 2013

at http://www.mirandabanda.org/files/Cog/VM/VM.r2701/. CogVM binaries as per VMMaker.oscog-eem.272/r2701. Fix unknownBytecode processing to leave pc at unknown bytecode. Fix case of process switch to an interior frame. Fix some assert function signatures in the stack vm. Use symbols for types instead of strings in stack page funcs. Fix the become issue where methods that are identical are failing the code test because their penultimate literals are different objects. Add a flag "cmUsesPenultimateLit" to jitted methods, stealing bits from stackCheckOffset (which was way larger than needed). Shrink stackCheckOffset to 12 bits (still an order of magnitude larger than needed) and add an error check on assigning it. Also add a check for max method size (2^16-1 bytes) and refuse to jit a method that generates too much code. When comparing code, use the cmUsesPenultimateLit flag to decide if comparison includes penultimate lit or not. This is mildly insane, but the VM really doesn't know about the penultimate literal and it shouldn't depend on knowing it can be ignored. Note that the CoInterpreter knows about the last literal; it uses this in supersends. With this hack, Pharo's condenseSources works. -- best, Eliot

1 0

[Pharo-project] Strange behaviour of dictionary
by jannik.laval March 11, 2013

March 11, 2013

Hi all, There is something that I do not understand in Dictionary. I am not sure this is what we want. The following code: === Dictionary new addAll: {#a -> #b. #c -> #d }; yourself === returns "a Dictionary(1->#a->#b 2->#c->#d )" where I would like to have "a Dictionary(#a->#b #c->#d )". Ok, I do === {#a -> #b. #c -> #d } asDictionary === and it works. Jannik

2 1

Re: [Pharo-project] Menu :)
by Fernando Olivero March 11, 2013

March 11, 2013

PUAJ!!!!! Direct references to the World and its submorphs => secondary effects Not popping the menu if the items are empty => lost visual feedback etcâ¦ On Mon, Mar 11, 2013 at 9:57 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> wrote: > I'm sure that we can do better... > > > popUpAt: aPoint forHand: hand in: aWorld allowKeyboard: aBoolean > "Present this menu at the given point under control of the given > hand." > | evt | > aWorld submorphs > select: [ :each | (each isKindOf: MenuMorph) > and: [each stayUp not]] > thenCollect: [ :menu | menu delete]. > > self items isEmpty > ifTrue: [^ self]. > > (self submorphs > select: [:m | m isKindOf: UpdatingMenuItemMorph]) > do: [:m | m updateContents]. > self layoutItems. > "precompute width" > self > positionAt: aPoint > relativeTo: (selectedItem > ifNil: [self items first]) > inWorld: aWorld. > aWorld addMorphFront: self. > "Acquire focus for valid pop up behavior" > hand newMouseFocus: self. > aBoolean > ifTrue: [hand newKeyboardFocus: self]. > evt := hand lastEvent. > (evt isKeyboard > or: [evt isMouse > and: [evt anyButtonPressed not]]) > ifTrue: ["Select first item if button not down" > self moveSelectionDown: 1 event: evt]. > self updateColor. > self changed >

1 0

[Pharo-project] Menu :)
by StÃ©phane Ducasse March 11, 2013

March 11, 2013

I'm sure that we can do better... popUpAt: aPoint forHand: hand in: aWorld allowKeyboard: aBoolean "Present this menu at the given point under control of the given hand." | evt | aWorld submorphs select: [ :each | (each isKindOf: MenuMorph) and: [each stayUp not]] thenCollect: [ :menu | menu delete]. self items isEmpty ifTrue: [^ self]. (self submorphs select: [:m | m isKindOf: UpdatingMenuItemMorph]) do: [:m | m updateContents]. self layoutItems. "precompute width" self positionAt: aPoint relativeTo: (selectedItem ifNil: [self items first]) inWorld: aWorld. aWorld addMorphFront: self. "Acquire focus for valid pop up behavior" hand newMouseFocus: self. aBoolean ifTrue: [hand newKeyboardFocus: self]. evt := hand lastEvent. (evt isKeyboard or: [evt isMouse and: [evt anyButtonPressed not]]) ifTrue: ["Select first item if button not down" self moveSelectionDown: 1 event: evt]. self updateColor. self changed

1 0

[Pharo-project] building traits programmatically
by Ciprian Teodorov March 11, 2013

March 11, 2013

Hi guys, Can anyone give me some pointers on how to create traits dynamically? I have tried something like: model := RBNamespace new. model defineClass: ('Trait named: #TMyTrait uses: {} category: ''My-Tests'''). and I get a DNU: RBAddTraitChange>>superclassName Cheers, -- Dr. Ciprian TEODOROV IngÃ©nieur DÃ©veloppement CAO tÃ©l : 06 08 54 73 48 mail : ciprian.teodorov(a)gmail.com www.teodorov.ro

3 6

[Pharo-project] Fwd: [INRIAGForge] Scheduled downtime - March 18 and March 19
by Camillo Bruni March 11, 2013

March 11, 2013

our file servers won't be available most probably during that period: http://files.pharo.org/ http://pharo.gforge.inria.fr/ Begin forwarded message: > From: <noreply(a)gforge.inria.fr> > Subject: [INRIAGForge] Scheduled downtime - March 18 and March 19 > Date: 11. MÃ¤rz 2013 17:18:01 MEZ > To: camillobruni(a)gmail.com > > Due to sheduled maintenance on network equipment, the INRIA Forge will be unavailable : > - from 6 pm to 8 pm on Monday, March 18th 2013, > - from 1 pm to 2 pm on Tuesday, March 19th 2013. > > The InriaForge team apologizes for any inconvenience.

1 0

[Pharo-project] migration to FogBugz
by Ben Coman March 11, 2013

March 11, 2013

I just noticed (for example) that https://code.google.com/p/pharo/issues/detail?id=6763 has been migrated as https://pharo.fogbugz.com/f/cases/6700. Is that change of issue number a concern to break the convention of slice names matching issue numbers as well as historical issue cross referencing? hope I'm missing something.. regards -ben

3 3

[Pharo-project] generated sources with odd indent
by NISHIHARA Satoshi March 10, 2013

March 10, 2013

latest generator.image ( Balloon-Engine-Pools-JB.2 CMakeVMMaker-EstebanLorenzano.192 Cog-IgorStasenko.57 VMMaker-oscog-EstebanLorenzano.234 ) generate FFTPlugin>>primitiveFFTTransformData with odd indent. regards. /* example begin */ EXPORT(sqInt) primitiveFFTTransformData(void) { // FFTPlugin>>#primitiveFFTTransformData sqInt fftScale; sqInt fftSize2; sqInt fftSize4; sqInt forward; sqInt i; sqInt ii; float imagT; float imagU; sqInt ip; sqInt j; sqInt lev; sqInt lev1; sqInt level; sqInt rcvr; float realT; float realU; sqInt theta; forward = booleanValueOf(stackValue(0)); rcvr = stackObjectValue(1); if (!(loadFFTFrom(rcvr))) { return null; } /* begin transformData: */ permuteData(); if (failed()) { /* ifTrue: */ permuteData(); null; goto l1; } /* begin transformForward: */ fftSize2 = ((sqInt) fftSize >> 1); fftSize4 = ((sqInt) fftSize >> 2); for (level = 1; level <= nu; level += 1) { lev = 1 << level; lev1 = ((sqInt) lev >> 1); fftScale = fftSize / lev; for (j = 1; j <= lev1; j += 1) { /* fftScale */ theta = (j - 1) * fftScale; if (theta < fftSize4) { /* fftSize4 */ /* fftSize4 */ realU = sinTable[(sinTableSize - theta) - 1]; imagU = sinTable[theta]; } else { realU = 0.0 - (sinTable[theta - fftSize4]); imagU = sinTable[fftSize2 - theta]; } if (!forward) { imagU = 0.0 - imagU; } i = j; while (i <= fftSize) { ip = (i + lev1) - 1; ii = i - 1; realT = ((realData[ip]) * realU) - ((imagData[ip]) * imagU); imagT = ((realData[ip]) * imagU) + ((imagData[ip]) * realU); realData[ip] = ((realData[ii]) - realT); imagData[ip] = ((imagData[ii]) - imagT); realData[ii] = ((realData[ii]) + realT); imagData[ii] = ((imagData[ii]) + imagT); i += lev; } } } if (!forward) { scaleData(); } l1: /* end transformData: */; if (!(failed())) { pop(1); } } /* example end */ -- -- "NISHIHARA Satoshi" [:goonsh :nsh | ^ nishis perform: goonsh with: nsh]

1 0

March 10, 2013

Hi fernando May be you know more than me on MorphicEventHandler. Gofer new squeaksource: 'PharoNonCorePackages'; package: 'Sound'; package: 'SoundMorphicUserInterface'; load. While trying to make PianoKeyboardMorph new openInWorld (which works in 1.4 and does not in 20). It breaks here: ------------- mouseUpPitch: pitch event: event noteMorph: noteMorph noteMorph color: ((#(0 1 3 5 6 8 10) includes: pitch \\12) ifTrue: [whiteKeyColor] ifFalse: [blackKeyColor]). soundPlaying ifNotNil: [soundPlaying stopGracefully]. pitch is nil because notify:from: uses valueParameter which is nil. ------------- mouseUpPitch is invoked by notify: anEvent from: sourceMorph which is invoked by notifyMorphsOfEvent: anEvent ofType: eventType from: sourceMorph notify: anEvent from: sourceMorph | arity | recipient ifNil: [^ self]. arity := selector numArgs. arity = 0 ifTrue: [^ recipient perform: selector]. arity = 1 ifTrue: [^ recipient perform: selector with: anEvent]. arity = 2 ifTrue: [^ recipient perform: selector with: anEvent with: sourceMorph]. arity = 3 ifTrue: [^ recipient perform: selector with: valueParameter with: anEvent with: sourceMorph]. ^^^^^^^^^^^^^^^^^^^^^^^ self error: 'Event handling selectors must be Symbols and take 0-3 arguments' notifyMorphsOfEvent: anEvent ofType: eventType from: sourceMorph | result | result := false. ((subscriptions includesKey: eventType) not or: [ (subscriptions at: eventType) isEmpty ]) ifTrue: [ ^false ]. (subscriptions at: eventType) do: [ :s | result := result | ((s notify: anEvent from: sourceMorph) == true) ]. ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ ^result The idea is that morphs get notified when a certain event occurs so when we look at the morph creation and event registry we get: The buildKeyboard create morph and define event with a given value that will be used on: #mouseDown send: #mouseDownPitch:event:noteMorph: to: self withValue: i-1*12 + (#(2 4 7 9 11) at: j) below: buildKeyboard | wtWid bkWid keyRect octavePt nWhite nBlack | self removeAllMorphs. wtWid := 8. bkWid := 5. self extent: 10@10. 1 to: nOctaves+1 do: [:i | i <= nOctaves ifTrue: [nWhite := 7. nBlack := 5] ifFalse: [nWhite := 1. nBlack := 0 "High C"]. octavePt := self innerBounds topLeft + ((7*wtWid*(i-1)-1) @ -1). 1 to: nWhite do: [:j | keyRect := octavePt + (j-1*wtWid@0) extent: (wtWid+1)@36. self addMorph: ((RectangleMorph newBounds: keyRect color: whiteKeyColor) borderWidth: 1; on: #mouseDown send: #mouseDownPitch:event:noteMorph: to: self withValue: i-1*12 + (#(1 3 5 6 8 10 12) at: j))]. 1 to: nBlack do: [:j | keyRect := octavePt + ((#(6 15 29 38 47) at: j)@1) extent: bkWid@21. self addMorph: ((Morph newBounds: keyRect color: blackKeyColor) on: #mouseDown send: #mouseDownPitch:event:noteMorph: to: self withValue: i-1*12 + (#(2 4 7 9 11) at: j))]]. self submorphsDo: [:m | m on: #mouseMove send: #mouseMovePitch:event:noteMorph: to: self; on: #mouseUp send: #mouseUpPitch:event:noteMorph: to: self; on: #mouseEnterDragging send: #mouseDownPitch:event:noteMorph: to: self; on: #mouseLeaveDragging send: #mouseUpPitch:event:noteMorph: to: self]. self extent: (self fullBounds extent + borderWidth - 1) Now I can understand that #mouseDownPitch:event:noteMorph: get notified with a value because this is what is written. But I do not get why this would be the case with #mouseUpPitch:event:noteMorph: since we simply get on: #mouseUp send: #mouseUpPitch:event:noteMorph: to: self; And I do not get why this was working in 1.4

3 4