- Pharo-dev - lists.pharo.org

[Pharo-project] Thank you ProfStef
by Max Leske March 21, 2011

March 21, 2011

Just a short thank you Stef. When I thought about tackling Metacello configurations it felt like it was going to be tough. But then: ProfStef to the rescue! Really a great idea! How many other IDE's sport a tutorial mechanism that can be easily extended by anyone? Not many I guess... Cheers, Max

4 4

[Pharo-project] [COTDC] 34 - MCSystemCategoryParser
by laurent laffont March 21, 2011

March 21, 2011

Today: MCSystemCategoryParser 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] allOverriddenMethods is confusing
by StÃ©phane Ducasse March 21, 2011

March 21, 2011

Hi I just got burned by allOverriddenMethods strange semantics when sent to a packageInfo instance it returns all the methods overrides of the system not the ones in the package. Or I'm silly (highly probable). So may be we are scanning all the system each time we save a package :( Stef

3 4

[Pharo-project] ZeroMQ bindings for GNU Smalltalk
by Vijay Mathew March 21, 2011

March 21, 2011

I have created a repository at https://github.com/vijaymathew/gst_zmq. I started off this project by attempting to write an FFI extension for Pharo but the call to `zmq_connect` is crashing the Squeak VM. But the extension worked like a breeze for GNU Smalltalk! -- Vijay

1 0

Re: [Pharo-project] Issue 2299 in pharo: Do not hardcode the color for Workspaces from UIManager
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Updates: Status: Invalid Comment #4 on issue 2299 by marcus.d...(a)gmail.com: Do not hardcode the color for Workspaces from UIManager http://code.google.com/p/pharo/issues/detail?id=2299 This is already changed to be much simpler: edit: aText label: labelString accept: anAction "Open an editor on the given string/text" ^(Workspace openLabel: labelString) acceptContents: aText; acceptAction: anAction; yourself.

1 0

Re: [Pharo-project] Issue 2594 in pharo: GoferApiTest>>#testSubdirectoryRepository fails
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Updates: Status: Closed Comment #1 on issue 2594 by marcus.d...(a)gmail.com: GoferApiTest>>#testSubdirectoryRepository fails http://code.google.com/p/pharo/issues/detail?id=2594 All test are green in 1.2

1 0

Re: [Pharo-project] Issue 2135 in pharo: New Icons
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Updates: Status: Invalid Comment #7 on issue 2135 by marcus.d...(a)gmail.com: New Icons http://code.google.com/p/pharo/issues/detail?id=2135 I don't know if it is good to have issues like this in the Bug Tracker... We should make a Wishlist somewhere.

1 0

Re: [Pharo-project] Issue 1812 in pharo: Files drag and drop
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Updates: Status: Invalid Comment #4 on issue 1812 by marcus.d...(a)gmail.com: Files drag and drop http://code.google.com/p/pharo/issues/detail?id=1812 This issue has not seen any action since Jan 13, 2010. Timeout (please resubmit for 1.3)

1 0

[Pharo-project] Issue 3434 in pharo: SharedQueue Fixes
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: FixedWaitingToBePharoed Owner: stephane.ducasse CC: siguctua Labels: Milestone-1.3 New issue 3434 by stephane.ducasse: SharedQueue Fixes http://code.google.com/p/pharo/issues/detail?id=3434 A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ul.412.mcz ==================== Summary ==================== Name: Collections-ul.412 Author: ul Time: 8 December 2010, 4:46:07.6 am UUID: 0d255954-d008-d647-91fa-59be37678e29 Ancestors: Collections-ul.411 - SharedQueue fixes =============== Diff against Collections-ul.411 =============== Item was changed: ----- Method: SharedQueue>>flushAllSuchThat: (in category 'accessing') ----- flushAllSuchThat: aBlock "Remove from the queue all objects that satisfy aBlock." + + accessProtect critical: [ + | newReadPos | - ^accessProtect critical: [ - | value newReadPos | newReadPos := writePosition. + writePosition - 1 to: readPosition by: -1 do: [ :i | + | value | + value := contentsArray at: i. - writePosition-1 to: readPosition by: -1 do: - [:i | value := contentsArray at: i. contentsArray at: i put: nil. + ((aBlock value: value) and: [ (readSynch waitIfLocked: [ nil ]) notNil ]) ifFalse: [ - (aBlock value: value) ifTrue: [ - "We take an element out of the queue, and therefore, we need to decrement - the readSynch signals" - readSynch wait. - ] ifFalse: [ newReadPos := newReadPos - 1. + contentsArray at: newReadPos put: value ] ]. + readPosition := newReadPos ]! - contentsArray at: newReadPos put: value]]. - readPosition := newReadPos. - value]! Item was changed: ----- Method: SharedQueue>>makeRoomAtEnd (in category 'private') ----- makeRoomAtEnd + | contentsSize newContentsArray | - | contentsSize | contentsSize := writePosition - readPosition. + newContentsArray := contentsSize * 2 > contentsArray size + ifTrue: [ contentsArray class new: contentsArray size * 2 ] - contentsSize * 2 > contentsArray size - ifTrue: [ - "grow" - contentsArray := (contentsArray class new: contentsArray size * 2) - replaceFrom: 1 - to: contentsSize - with: contentsArray - startingAt: readPosition; - yourself ] ifFalse: [ (contentsArray size > 10 and: [ contentsSize * 4 <= contentsArray size ]) + ifTrue: [ contentsArray class new: (contentsSize * 2 max: 10) ] + ifFalse: [ contentsArray ] ]. + newContentsArray + replaceFrom: 1 + to: contentsSize + with: contentsArray + startingAt: readPosition. + contentsArray == newContentsArray + ifFalse: [ contentsArray := newContentsArray ] + ifTrue: [ contentsArray from: contentsSize + 1 to: contentsArray size put: nil ]. - ifTrue: [ - "shrink" - contentsArray := (contentsArray class new: (contentsSize * 2 max: 10)) - replaceFrom: 1 - to: contentsSize - with: contentsArray - startingAt: readPosition; - yourself ] - ifFalse: [ - "just move the elements to the front" - contentsArray - replaceFrom: 1 - to: contentsSize - with: contentsArray - startingAt: readPosition. - contentsArray - from: contentsSize + 1 - to: contentsArray size - put: nil ] ]. readPosition := 1. writePosition := contentsSize + 1! Item was changed: ----- Method: SharedQueue>>nextOrNil (in category 'accessing') ----- nextOrNil "Answer the object that was sent through the receiver first and has not yet been received by anyone. If no object has been sent, answer <nil>." + readSynch waitIfLocked: [ ^nil ]. + ^accessProtect + critical: [ + | value | + readPosition = writePosition + ifTrue: + [self error: 'Error in SharedQueue synchronization'. + value := nil] + ifFalse: + [value := contentsArray at: readPosition. + contentsArray at: readPosition put: nil. + readPosition := readPosition + 1]. + value ]! - ^accessProtect critical: [ - | value | - readPosition >= writePosition ifTrue: [ - value := nil - ] ifFalse: [ - value := contentsArray at: readPosition. - contentsArray at: readPosition put: nil. - readPosition := readPosition + 1 - ]. - readPosition >= writePosition ifTrue: [readSynch initSignals]. - value - ].! Item was changed: ----- Method: SharedQueue>>nextOrNilSuchThat: (in category 'accessing') ----- nextOrNilSuchThat: aBlock "Answer the next object that satisfies aBlock, skipping any intermediate objects. If no object has been sent, answer <nil> and leave me intact. NOTA BENE: aBlock MUST NOT contain a non-local return (^)." ^accessProtect critical: [ | value readPos | value := nil. readPos := readPosition. + [ readPos < writePosition and: [ value isNil ] ] whileTrue: [ - [readPos < writePosition and: [value isNil]] whileTrue: [ value := contentsArray at: readPos. readPos := readPos + 1. + (aBlock value: value) + ifFalse: [ value := nil ] + ifTrue: [ + readSynch waitIfLocked: [ ^nil ]. "We found the value, but someone else booked it." + readPosition to: readPos - 1 do: [ :j | contentsArray at: j put: nil ]. + readPosition := readPos ] ]. + value ]. - (aBlock value: value) ifTrue: [ - readPosition to: readPos - 1 do: [ :j | - contentsArray at: j put: nil. - ]. - readPosition := readPos. - ] ifFalse: [ - value := nil. - ]. - ]. - readPosition >= writePosition ifTrue: [readSynch initSignals]. - value. - ]. "=== q := SharedQueue new. 1 to: 10 do: [ :i | q nextPut: i]. c := OrderedCollection new. [ v := q nextOrNilSuchThat: [ :e | e odd]. v notNil ] whileTrue: [ c add: {v. q size} ]. {c. q} explore ==="! Item was changed: ----- Method: SharedQueue>>peek (in category 'accessing') ----- peek "Answer the object that was sent through the receiver first and has not yet been received by anyone but do not remove it from the receiver. If no object has been sent, return nil" + ^readSynch - ^accessProtect critical: [ + accessProtect critical: [ + readPosition >= writePosition ifFalse: [ + contentsArray at: readPosition ] ] ] + ifLocked: [ nil ]! - | value | - readPosition >= writePosition - ifTrue: [readPosition := 1. - writePosition := 1. - value := nil] - ifFalse: [value := contentsArray at: readPosition]. - value].!

1 3

Re: [Pharo-project] Issue 1465 in pharo: Ocomplection with Enter does not work on Mercury search bar
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Updates: Status: WontFix Comment #5 on issue 1465 by marcus.d...(a)gmail.com: Ocomplection with Enter does not work on Mercury search bar http://code.google.com/p/pharo/issues/detail?id=1465 (No comment was entered for this change.)

1 0