December 2010 - Pharo-dev - lists.pharo.org

[Pharo-project] TODO for 1.2...
by Marcus Denker Dec. 14, 2010

Dec. 14, 2010

Open Bugs: http://code.google.com/p/pharo/issues/list?can=2&q=milestone=1.2 Failing Tests: https://pharo-ic.lille.inria.fr/hudson/job/Pharo%20Core%201.2/lastCompleted… and a failing build of non-Core: https://pharo-ic.lille.inria.fr/hudson/job/Pharo%201.2/8/console Marcus -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

4 5

[Pharo-project] updating ConfigurationOfPharo
by laurent laffont Dec. 14, 2010

Dec. 14, 2010

Hi, I want to update ConfigurationOfPharo to include last ProfStef. Should I update #version12beta2 or create #version12beta3 ? Laurent Laffont

3 3

[Pharo-project] Issue 3409 in pharo: KillTextConstants class and package needs to be removed
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: Accepted Owner: marcus.denker Labels: Milestone-1.2 New issue 3409 by marcus.denker: KillTextConstants class and package needs to be removed http://code.google.com/p/pharo/issues/detail?id=3409 KillTextConstants class and package needs to be removed

1 1

[Pharo-project] Issue 3408 in pharo: Remove an unsent message from DialogItemsChooserUI (reference to non-existing ivar)
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: Fixed Owner: marcus.denker Labels: Milestone-1.2 New issue 3408 by marcus.denker: Remove an unsent message from DialogItemsChooserUI (reference to non-existing ivar) http://code.google.com/p/pharo/issues/detail?id=3408 Remove an unsent message from DialogItemsChooserUI (reference to non-existing ivar) Attachments: SmallCleans.1.cs 632 bytes

1 1

[Pharo-project] Issue 3423 in pharo: Debugger little usability enh
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3423 by stephane.ducasse: Debugger little usability enh http://code.google.com/p/pharo/issues/detail?id=3423 Name: Tools-fbs.283 Author: fbs Time: 1 December 2010, 3:09:44.682 pm UUID: 810789fa-9417-a340-a578-0df71274f43d Ancestors: Tools-ul.282 When a method changes out from under your feet in the Debugger (e.g., you remove an instvar triggering a recompile of a method through which you've stepped), the Debugger blanks out contents. In the UI, this manifests as a blank code pane. This change resets the contents ivar by setting it to the new, recompiled, CompiledMethod as a side effect of calling self selectedMessage. =============== Diff against Tools-ul.282 =============== Item was changed: ----- Method: Debugger>>contents (in category 'accessing') ----- contents "Depending on the current selection, different information is retrieved. Answer a string description of that information. This information is the method in the currently selected context." + contents == nil ifTrue: [^ self selectedMessage]. - contents == nil ifTrue: [^ String new]. ^ contents copy!

1 2

[Pharo-project] Issue 3428 in pharo: Semaphore Enh
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: FixedWaitingToBePharoed Owner: stephane.ducasse CC: siguctua Labels: Milestone-1.3 New issue 3428 by stephane.ducasse: Semaphore Enh http://code.google.com/p/pharo/issues/detail?id=3428 Name: Kernel-ul.520 Author: ul Time: 8 December 2010, 3:19:51.682 am UUID: da185163-27f6-6a47-8ecb-e00f9fd8dd3a Ancestors: Kernel-ul.519 A few changes to Semaphore: - save a block creation + activation + a possible context switch in #critical:ifCurtailed: - save a block creation + activation in #critical:ifError:, this changes the behavior when mutuallyExcludedBlock doesn't understand #ifError: - #critical:ifLocked: is guaranteed to not get locked. The earlier implementation sent #critical: which could cause a context switch, so another process could enter the critical section before the current. Also fixed the comments of this method. =============== Diff against Kernel-ul.519 =============== Item was changed: ----- Method: Semaphore>>critical:ifCurtailed: (in category 'mutual exclusion') ----- critical: mutuallyExcludedBlock ifCurtailed: terminationBlock "Evaluate mutuallyExcludedBlock only if the receiver is not currently in the process of running the critical: message. If the receiver is, evaluate mutuallyExcludedBlock after the other critical: message is finished." + ^self critical: [ mutuallyExcludedBlock ifCurtailed: terminationBlock ] - ^self critical:[[mutuallyExcludedBlock value] ifCurtailed: terminationBlock] ! Item was changed: ----- Method: Semaphore>>critical:ifError: (in category 'mutual exclusion') ----- critical: mutuallyExcludedBlock ifError: errorBlock "Evaluate mutuallyExcludedBlock only if the receiver is not currently in the process of running the critical: message. If the receiver is, evaluate mutuallyExcludedBlock after the other critical: message is finished." | blockValue hasError errMsg errRcvr | hasError := false. blockValue := self critical:[ + mutuallyExcludedBlock ifError: [ :msg :rcvr | - [mutuallyExcludedBlock value] ifError:[:msg :rcvr| hasError := true. errMsg := msg. errRcvr := rcvr ]. ]. hasError ifTrue:[ ^errorBlock value: errMsg value: errRcvr]. ^blockValue! Item was changed: ----- Method: Semaphore>>critical:ifLocked: (in category 'mutual exclusion') ----- critical: mutuallyExcludedBlock ifLocked: alternativeBlock "Evaluate mutuallyExcludedBlock only if the receiver is not currently in + the process of running the critical: message. If the receiver is, then evaluate + alternativeBlock and return." + "See the comment of #critical: for the explanation how this pattern works + before changing the code." + + | caught | + caught := false. + ^[ + "We're using #== here instead of #=, because it won't introduce a + suspension point, while #= may do that." + excessSignals == 0 + ifTrue: [ alternativeBlock value ] + ifFalse: [ + excessSignals := excessSignals - 1. + caught := true. + mutuallyExcludedBlock value ] ] + ensure: [ caught ifTrue: [ self signal ] ]! - the process of running the critical: message. If the receiver is, evaluate - mutuallyExcludedBlock after the other critical: message is finished." - - "Note: The following is tricky and depends on the fact that the VM will not switch between processes while executing byte codes (process switches happen only in real sends). The following test is written carefully so that it will result in bytecodes only. - Do not change the following #== for #=, as #== is not a real message send, just a bytecode." - excessSignals == 0 ifTrue: [ - "If we come here, then the semaphore was locked when the test executed. - Evaluate the alternative block and answer its result." - ^alternativeBlock value - ]. - ^self critical: mutuallyExcludedBlock!

1 1

[Pharo-project] Issue 3433 in pharo: Color improvement
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Milestone-1.3 Difficulty-Easy New issue 3433 by stephane.ducasse: Color improvement http://code.google.com/p/pharo/issues/detail?id=3433 Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.490.mcz ==================== Summary ==================== Name: Morphic-ul.490 Author: ul Time: 9 December 2010, 3:06:57.133 am UUID: e54bc2a6-58ae-8f42-b64e-f17a63bc00e6 Ancestors: Morphic-laza.489 - simplified Morph >> #colorString: =============== Diff against Morphic-laza.489 =============== Item was changed: ----- Method: Morph>>colorString: (in category 'printing') ----- colorString: aColor + + aColor ifNil: [ ^'nil' ]. + ^aColor name + ifNil: [ aColor storeString ] + ifNotNil: [ :colorName | 'Color ', colorName ]! - aColor ifNil: [^'nil']. - Color colorNames - do: [:colorName | aColor = (Color perform: colorName) ifTrue: [^'Color ' , colorName]]. - ^aColor storeString!

1 0

[Pharo-project] Issue 3432 in pharo: Color>>fromString fix
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Difficulty-Easy Milestone-1.3 New issue 3432 by stephane.ducasse: Color>>fromString fix http://code.google.com/p/pharo/issues/detail?id=3432 Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.160.mcz ==================== Summary ==================== Name: Graphics-ul.160 Author: ul Time: 9 December 2010, 3:05:20.054 am UUID: 822ecf3f-277b-0d45-94d3-ebc44976be4e Ancestors: Graphics-ul.159 - fixed: Color class >> #fromString: - Color's ColorNames is now a Set instead of an OrderedCollection =============== Diff against Graphics-ul.159 =============== Item was changed: ----- Method: Color class>>fromString: (in category 'instance creation') ----- fromString: aString "for HTML color spec: #FFCCAA or white/black" "Color fromString: '#FFCCAA'. Color fromString: 'white'. Color fromString: 'orange'" + | aColorHex | + aString isEmptyOrNil ifTrue: [ ^self white ]. - aString isEmptyOrNil ifTrue: [^ Color white]. aString first = $# + ifTrue: [ aColorHex := aString allButFirst ] + ifFalse: [ aColorHex := aString ]. + (aColorHex size = 6 and: [ + aColorHex allSatisfy: [ :each | '0123456789ABCDEFabcdef' includes: each ] ]) + ifTrue: [ + | green red blue | + red := (Integer readFrom: (aColorHex first: 2) base: 16) / 255. + green := (Integer readFrom: (aColorHex copyFrom: 3 to: 4) base: 16) / 255. + blue := (Integer readFrom: (aColorHex last: 2) base: 16) / 255. + ^self r: red g: green b: blue ]. - ifTrue: [aColorHex := aString copyFrom: 2 to: aString size] - ifFalse: [aColorHex := aString]. - [ | green red blue | - aColorHex size = 6 - ifTrue: - [aColorHex := aColorHex asUppercase. - red := ('16r', (aColorHex copyFrom: 1 to: 2)) asNumber/255. - green := ('16r', (aColorHex copyFrom: 3 to: 4)) asNumber/255. - blue := ('16r', (aColorHex copyFrom: 5 to: 6)) asNumber/255. - ^ self r: red g: green b: blue]] - ifError: [:err :rcvr | "not a hex color triplet" ]. - "try to match aColorHex with known named colors" + ^self perform: (ColorNames like: aColorHex asLowercase ifAbsent: [ #white ])! - aColorHex := aColorHex asLowercase. - - ^self perform: (ColorNames detect: [:i | i asString asLowercase = aColorHex] - ifNone: [#white])! Item was changed: ----- Method: Color class>>initializeNames (in category 'class initialization') ----- initializeNames "Name some colors." "Color initializeNames" + ColorNames := Set new. - ColorNames := OrderedCollection new. self named: #black put: (Color r: 0 g: 0 b: 0). self named: #veryVeryDarkGray put: (Color r: 0.125 g: 0.125 b: 0.125). self named: #veryDarkGray put: (Color r: 0.25 g: 0.25 b: 0.25). self named: #darkGray put: (Color r: 0.375 g: 0.375 b: 0.375). self named: #gray put: (Color r: 0.5 g: 0.5 b: 0.5). self named: #lightGray put: (Color r: 0.625 g: 0.625 b: 0.625). self named: #veryLightGray put: (Color r: 0.75 g: 0.75 b: 0.75). self named: #veryVeryLightGray put: (Color r: 0.875 g: 0.875 b: 0.875). self named: #white put: (Color r: 1.0 g: 1.0 b: 1.0). self named: #red put: (Color r: 1.0 g: 0 b: 0). self named: #yellow put: (Color r: 1.0 g: 1.0 b: 0). self named: #green put: (Color r: 0 g: 1.0 b: 0). self named: #cyan put: (Color r: 0 g: 1.0 b: 1.0). self named: #blue put: (Color r: 0 g: 0 b: 1.0). self named: #magenta put: (Color r: 1.0 g: 0 b: 1.0). self named: #brown put: (Color r: 0.6 g: 0.2 b: 0). self named: #orange put: (Color r: 1.0 g: 0.6 b: 0). self named: #lightRed put: (Color r: 1.0 g: 0.8 b: 0.8). self named: #lightYellow put: (Color r: 1.0 g: 1.0 b: 0.8). self named: #lightGreen put: (Color r: 0.8 g: 1.0 b: 0.6). self named: #lightCyan put: (Color r: 0.4 g: 1.0 b: 1.0). self named: #lightBlue put: (Color r: 0.8 g: 1.0 b: 1.0). self named: #lightMagenta put: (Color r: 1.0 g: 0.8 b: 1.0). self named: #lightBrown put: (Color r: 1.0 g: 0.6 b: 0.2). self named: #lightOrange put: (Color r: 1.0 g: 0.8 b: 0.4). self named: #transparent put: (TranslucentColor new alpha: 0.0). self named: #paleBuff put: (Color r: 254 g: 250 b: 235 range: 255). self named: #paleBlue put: (Color r: 222 g: 249 b: 254 range: 255). self named: #paleYellow put: (Color r: 255 g: 255 b: 217 range: 255). self named: #paleGreen put: (Color r: 223 g: 255 b: 213 range: 255). self named: #paleRed put: (Color r: 255 g: 230 b: 230 range: 255). self named: #veryPaleRed put: (Color r: 255 g: 242 b: 242 range: 255). self named: #paleTan put: (Color r: 235 g: 224 b: 199 range: 255). self named: #paleMagenta put: (Color r: 255 g: 230 b: 255 range: 255). self named: #paleOrange put: (Color r: 253 g: 237 b: 215 range: 255). self named: #palePeach put: (Color r: 255 g: 237 b: 213 range: 255). ! Item was changed: ----- Method: Color class>>named:put: (in category 'class initialization') ----- named: newName put: aColor "Add a new color to the list and create an access message and a class variable for it. The name should start with a lowercase letter. (The class variable will start with an uppercase letter.) (Color colorNames) returns a list of all color names. " | str cap sym accessor csym | (aColor isKindOf: self) ifFalse: [^ self error: 'not a Color']. str := newName asString. sym := str asSymbol. cap := str capitalized. csym := cap asSymbol. (self class canUnderstand: sym) ifFalse: [ "define access message" accessor := str, (String with: Character cr with: Character tab), '^', cap. self class compile: accessor classified: 'named colors']. (self classPool includesKey: csym) ifFalse: [ self addClassVarName: cap]. + ColorNames add: sym. - (ColorNames includes: sym) ifFalse: [ - ColorNames add: sym]. ^ self classPool at: csym put: aColor! Item was changed: ----- Method: Color>>name (in category 'other') ----- name "Return this color's name, or nil if it has no name. Only returns a name if it exactly matches the named color." + ^ColorNames detect: [ :name | (Color perform: name) = self ] ifNone: [ nil ]! - ColorNames do: - [:name | (Color perform: name) = self ifTrue: [^ name]]. - ^ nil - ! Item was changed: (PackageInfo named: 'Graphics') postscript: '"below, add code to be run after the loading of this package" + Color initializeNames'! - StrikeFont installDejaVu.'!

1 1

[Pharo-project] [update 1.2] #12278
by Marcus Denker Dec. 14, 2010

Dec. 14, 2010

12278 ----- Issue 3408: Remove an unsent message from DialogItemsChooserUI (reference to non-existing ivar) Issue 3409: KillTextConstants class and package needs to be removed -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

1 0

[Pharo-project] Issue 3431 in pharo: Faster traitNames
by pharo＠googlecode.com Dec. 14, 2010

Dec. 14, 2010

Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3431 by stephane.ducasse: Faster traitNames http://code.google.com/p/pharo/issues/detail?id=3431 Name: System-ul.398 Author: ul Time: 8 December 2010, 9:21:23.04 pm UUID: 8e147d50-061f-6741-8eb3-b8f69182a3de Ancestors: System-ul.397 - fix: SystemDictionary >> #traitNames returns a sorted collection. It also uses the cached nonClassNames which is faster. - added SystemDictionary >> #classAndTraitNames which returns a sorted collection of all class and trait names =============== Diff against System-ul.397 =============== Item was added: + ----- Method: SystemDictionary>>classAndTraitNames (in category 'classes and traits') ----- + classAndTraitNames + "Answer a sorted collection of all class and trait (not including class-traits) names. The performance of this algorithm is O(n) if the classNames are already cached, otherwise O(n*log(n)) where n is self size." + + | classNames traitNames result temporary | + classNames := self classNames. + traitNames := self traitNames. + temporary := Array new: classNames size + traitNames size. + result := temporary shallowCopy. + temporary + replaceFrom: 1 + to: classNames size + with: classNames + startingAt: 1; + replaceFrom: classNames size + 1 + to: temporary size + with: traitNames + startingAt: 1; + mergeFirst: 1 + middle: classNames size + last: temporary size + into: result + by: nil. + ^result! Item was changed: ----- Method: SystemDictionary>>traitNames (in category 'classes and traits') ----- traitNames + "Answer a sorted collection of all traits (not including class-traits) names." + + ^self nonClassNames select: [ :name | + (name beginsWith: 'AnObsolete') not and: [ + self + at: name + ifPresent: [ :global | global isInMemory and: [ global isTrait ] ] + ifAbsent: [ false ] ] ]! - "Answer a SortedCollection of all traits (not including class-traits) names." - | names | - names := OrderedCollection new. - self do: - [:cl | (cl isInMemory - and: [(cl isTrait) - and: [(cl name beginsWith: 'AnObsolete') not]]) - ifTrue: [names add: cl name]]. - ^ names!

1 1