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

[update 3.0] #30330
by StÃ©phane Ducasse Aug. 12, 2013

Aug. 12, 2013

2 1

[regression reporter]regression occurred
by no-reply＠ci.inria.fr Aug. 12, 2013

Aug. 12, 2013

https://ci.inria.fr/pharo/job/Pharo-3.0-Update-Step-2-Validation/label=win/… 1 regressions found. Zinc.Zodiac.ZnHTTPSTests.testGetPharoVersion

1 0

Understanding Versionner repository selection
by HernÃ¡n Morales Durand Aug. 12, 2013

Aug. 12, 2013

Hi folks, I have a *very* simple package with no dependencies whatsoever. Now I'm trying to understand Versionner, these are the steps: 1. I set the ConfigurationOf name 2. I choose I don't want to use squeaksource.com, ok 3. Select a repository... Now that is not clear for me. Which repository are you talking about? the repository where I store MY code, or the repository where I would like to publish the configuration so is displayed in the Configuration Browser (like the MetaRepoForPharo)? Cheers, HernÃ¡n

2 4

Fix in Athens-Cairo
by Alexandre Bergel Aug. 11, 2013

Aug. 11, 2013

Hi Igor, I think have I found a bug when circle are drawn. I have added "(start = end) ifTrue: [ ^ self ]." in this method: -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= AthensCairoPathBuilder>>arcTo: newEndPoint angle: angle cw: aBool " Add a clockwise arc segment, starting from current path endpoint and ending at andPt. Angle should be specified in radians " | start end center v radius startAngle endAngle cwAngle | angle isZero ifTrue: [ ^ self lineTo: newEndPoint ]. start := endPoint. endPoint := end := self toAbsolute: newEndPoint. "we have to transform the input. because Cario expects the center , radius, starting and ending angle, and we have the starting point, the ending point , and the angle. " aBool ifTrue: [cwAngle := angle] ifFalse: [cwAngle := angle negated]. "Do nothing if the two points are the same" (start = end) ifTrue: [ ^ self ]. center := self calcCenter: start end: end angle: cwAngle. v := (start - center). radius := v r. startAngle := self angleOfVector: v. endAngle := self angleOfVector: (end-center). aBool ifTrue: [ self arcCenterX: center x centerY: center y radius: radius startAngle: startAngle endAngle: endAngle ] ifFalse: [ self arcNegativeCenterX: center x centerY: center y radius: radius startAngle: startAngle endAngle: endAngle ] -=-=-=-=-=-=-=-=-=-=-=-=-=-=-= I have attached a new version of the package. It simply defines this new method. It would be great to have a solution in case the start and end points are the same. Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

2 3

adding temporary adds them outside the temp declaration?
by StÃ©phane Ducasse Aug. 11, 2013

Aug. 11, 2013

Hi guys Is it a know bug? | selector superClasses | selector := aMethodDefinition selector. superClasses := aMethodDefinition realClass allSuperclasses. result := OrderedCollection new. (superClasses select: [ :eachClass | eachClass hasProtocolFor: selector]) do: [ :eachClass | (eachClass includesSelector: selector) ifTrue: [ result add: (self whichCategoryIncludesSelector: selector)]]. ^ result asBag adds result result | selector superClasses | selector := aMethodDefinition selector. superClasses := aMethodDefinition realClass allSuperclasses. result := OrderedCollection new. (superClasses select: [ :eachClass | eachClass hasProtocolFor: selector]) do: [ :eachClass | (eachClass includesSelector: selector) ifTrue: [ result add: (self whichCategoryIncludesSelector: selector)]]. ^ result asBag stef

2 2

latest VM seems stable
by StÃ©phane Ducasse Aug. 11, 2013

Aug. 11, 2013

Hi esteban I did a massive amount of loads (basically loading Moose in Pharo20 all day long) and I used exclusively the latest vm with guille changes on top of latest of Eliot. And I got no smalltinteger problems so far. So this sounds good. Stef

1 0

pattern for configuration definition
by StÃ©phane Ducasse Aug. 10, 2013

Aug. 10, 2013

Hi camillo I like the pattern damien told me you are applying for your configuration. Could you explain them? I understood: baseline48: spec <version: '4.8-baseline'> spec repository: 'http://www.smalltalkhub.com/mc/Moose/Moose/main'. â¦ spec project: 'Metanool' with: [ spec className: 'ConfigurationOfMetanool'; version: #development; file: 'ConfigurationOfMetanool'; repository: 'http://www.smalltalkhub.com/mc/Moose/Metanool/main' ]. â¦ => baseline48: spec <version: '4.8-baseline'> spec repository: self repositoryUrlString â¦ spec project: 'Metanool' with: [ spec className: 'ConfigurationOfMetanool'; version: #development; file: 'ConfigurationOfMetanool'; repository: 'http://www.smalltalkhub.com/mc/Moose/Metanool/main' ]. â¦ repositoryUrlString ^ 'http://www.smalltalkhub.com/mc/Moose/Moose/main'. specMetanoolConfiguration: spec spec className: 'ConfigurationOfMetanool'; version: #development; file: 'ConfigurationOfMetanool'; repository: 'http://www.smalltalkhub.com/mc/Moose/Metanool/main' I like the idea to avoid duplication at the configuration level. Now damien mention a dev and stable baseline Stef

3 3

Fwd: Keyboard events is broken.
by Igor Stasenko Aug. 9, 2013

Aug. 9, 2013

I changed this method to see better what happens: HandMorph class>>showDebugEvent: evt ShowEvents == true ifTrue: [ | ofs| Display fill: (0@0 extent: 500@120) rule: Form over fillColor: Color white. ofs := (owner hands indexOf: self) - 1 * 60. evt printString displayAt: (0@ofs) + (evt isKeyboard ifTrue: [0@30] ifFalse: [0@0]). self keyboardFocus printString displayAt: (0@ofs)+(0@45). evt isKeyboard ifTrue: [ Transcript show: evt printString;cr ] ]. KeyboardEvent>> printOn: aStream "Print the receiver on a stream" aStream nextPut: $[. aStream nextPutAll: type; nextPutAll: ' '''. self printKeyStringOn: aStream. aStream nextPut: $'. aStream space; nextPutAll: 'keyValue: ', self keyValue asString. aStream nextPut: $] set HandMorph showEvents:true Now, pressing single space, gives me this: [keyDown ' ' keyValue: 49] [keystroke ' ' keyValue: 32] [keyUp ' ' keyValue: 49] [keyUp ' ' keyValue: 49] Pressing delete key (or fn-backspace , for those who having a lot of spare fingers to use bad keyboards): [keyDown ' ' keyValue: 117] [keystroke 'â¦' keyValue: 188] [keyUp ' ' keyValue: 117] [keyUp ' ' keyValue: 117] now, can someone tell me , why there is 2 keyUp events for each keyDown? and of course, main question is why key values are different for keydown and keystroke events? (and why delete key is not 127, but 117 or 188?) Editor expecting 127: cmdMap at: (127 + 1) put: #forwardDelete:. "del key" -- Best regards, Igor Stasenko.

5 22

Fwd: Consequence of NBExternalStructure refactorings
by Igor Stasenko Aug. 9, 2013

Aug. 9, 2013

Hello, lately we changed the object format of subject class from variableByte to normal one. All projects which using NBExternalStructure can meet certain problems with it, and first which comes is that it may load code cleanly but in fact result in bogus variable subclasses of NBExternalStructure , while it can't because superclass has instance variable. (i suspecting classbuilder bug, but need to verify first). To address that, you need to manually go over all subclasses and double-check. Another thing: since now instances NBExternalStructure can also point to external memory, special care should be taken for #copying. Sending #copy to instance which uses external memory, will create a copy on object memory (and copy all data from external memory into it). This is same behavior as in NBExternalArray. - there is a bugs in #initialize and #postCopy (fixed but not intergated yet) https://pharo.fogbugz.com/default.asp?11395#83020 will do that in nearest time. also note, that in callouts, you cannot pass an instance of NBExternalStructure anymore to function, which uses raw pointer (like void*) anymore. For passing a pointer to structure data for callouts, use myStructure address idiom (or use right struct type, which is preferable). -- Best regards, Igor Stasenko.

3 5

[update 3.0] #30329
by Esteban Lorenzano Aug. 9, 2013

Aug. 9, 2013

1 0