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

[Pharo-project] Issue 3567 in pharo: FFI OpenGL doesn't load nor work
by pharo＠googlecode.com March 27, 2011

March 27, 2011

Status: New Owner: ---- New issue 3567 by elpochod...(a)gmail.com: FFI OpenGL doesn't load nor work http://code.google.com/p/pharo/issues/detail?id=3567 Pharo image: Pharo Pharo core version: Pharo1.2rc1. Latest update: #12317 Virtual machine used: 'Squeak3.10.2 of 11 February 2010 [latest update: #9314]' (windows) Steps to reproduce: 1. Try to load FFI OpenGL (as described in the book http://book.pharo-project.org/book/3DGraphicsAndOpenGL) There are problems with underscore assignments, a compiler error in OpenGLUnixQuartz class>>#test and some deprecations from going from SmalltalkImage current to Smalltalk.

1 3

[Pharo-project] Issue 3480 in pharo: ToDo: Mac VM cleanup
by pharo＠googlecode.com March 27, 2011

March 27, 2011

Status: New Owner: siguctua Labels: Type-ToDo New issue 3480 by siguctua: ToDo: Mac VM cleanup http://code.google.com/p/pharo/issues/detail?id=3480 Some comments by John (simply to not get lost in mails): Oh and btw you'll need to look into the signing logic, I'm not quite sure where that gem of copy protection sits but don't be surprised if Apple pursues it a bit more aggressively... mmm other thoughts. The plugins *could* be just the raw binaries ala unix builds. The only reason they were bundles is because in early 2000 era we ran os-9 and os-x flavors. That could be all dropped, and maybe just forgo creating plugin bundles.

1 2

Re: [Pharo-project] Issue 2818 in pharo: Eliot and friends compiler fixes
by pharo＠googlecode.com March 27, 2011

March 27, 2011

Updates: Labels: -Milestone-1.2 Milestone-1.3 Comment #6 on issue 2818 by stephane...(a)gmail.com: Eliot and friends compiler fixes http://code.google.com/p/pharo/issues/detail?id=2818 (No comment was entered for this change.)

1 1

Re: [Pharo-project] Issue 2524 in pharo: Debugger code completion should take into account the types of the objects that are actually assigned to variables
by pharo＠googlecode.com March 27, 2011

March 27, 2011

Updates: Labels: -Milestone-1.2-DevImage Comment #4 on issue 2524 by marcus.denker: Debugger code completion should take into account the types of the objects that are actually assigned to variables http://code.google.com/p/pharo/issues/detail?id=2524 (No comment was entered for this change.)

1 1

Re: [Pharo-project] Issue 2704 in pharo: Tests for broken withNoLineLongerThan: behavior.
by pharo＠googlecode.com March 26, 2011

March 26, 2011

Comment #6 on issue 2704 by elpochod...(a)gmail.com: Tests for broken withNoLineLongerThan: behavior. http://code.google.com/p/pharo/issues/detail?id=2704 I have another implementation for this method, which I think may be a bit cleaner (and also passes all tests) withNoLineLongerThan: maxWidth "Answer a string with the same content as receiver, but rewrapped so that no line has more characters than the given number" | res size left right limit next | size := self size. maxWidth isNumber not | (maxWidth < 1) ifTrue: [self error: 'too narrow']. ^self class new: size * (maxWidth + 1) // maxWidth "provision for supplementary line breaks" streamContents: [ :stream | right := 1. [right <= size] whileTrue: [ left := self indexOfAnyOf: CSNonSeparators startingAt: right ifAbsent: [ ^stream next: size - left + 1 putAll: self startingAt: left; contents ]. limit := left + maxWidth - 1. (limit >= size) ifTrue: [ ^stream next: size - left + 1 putAll: self startingAt: left; contents ]. next := left. [ next - 1 <= limit ] whileTrue: [ right := next. next := self indexOfAnyOf: CSSeparators startingAt: next + 1 ifAbsent: [ (next = left) ifTrue: [ limit + 1] ifFalse: [ limit+2 ] ]. (CSLineEnders includes: (self at: right)) ifTrue: [ next := limit+2]. ]. stream next: right - left putAll: self startingAt: left. (right <= size) ifTrue: [ stream cr ]. ] ].

1 4

[Pharo-project] Issue 3638 in pharo: look for sender of etoyCleaningLeftToDo
by pharo＠googlecode.com March 24, 2011

March 24, 2011

Status: Accepted Owner: stephane...(a)gmail.com New issue 3638 by stephane...(a)gmail.com: look for sender of etoyCleaningLeftToDo http://code.google.com/p/pharo/issues/detail?id=3638 there are still code to clean

1 3

[Pharo-project] Issue 3639 in pharo: ServerDirectory contains a lot of old and unused code
by pharo＠googlecode.com March 24, 2011

March 24, 2011

Status: Accepted Owner: stephane...(a)gmail.com New issue 3639 by stephane...(a)gmail.com: ServerDirectory contains a lot of old and unused code http://code.google.com/p/pharo/issues/detail?id=3639 We should do another pass and remove some of the unused behavior related to multiple updates distributions.

1 2

[Pharo-project] Pharo 2010 - Thank you!
by Sven Van Caekenberghe March 22, 2011

March 22, 2011

Since about the middle of 2010 I have been actively following Pharo and it has been an amazing time. These are my highlights, there are probably many others. 0.x became 1.0, then came 1.1 and finally 1.1.1. There has been amazing activity on 1.2. Seaside became 3.0. I learned how to deploy Seaside and manage it in production. I learned how to work efficiently with Monticello and SqueakSource. Hudson integration servers were customized and deployed for various Smalltalk projects and for Pharo itself. I learned how to build my own development and deployment images. I learned how to do load balancing and static content serving for Seaside. I love the Glamorous theme and the improved DejaVuBitmapFonts loader, I like the the Pro theme. I am successfully using Glorp and PostresV2. I am using the Cog VM every day. I simply love developing in Pharo. The Pharo community is just as great, from the leadership to the core developers, the dev image developers, the application and framework developers, those doing documentation, screencasts, help systems, the testers, to the countless people answering questions on this list. Thank you all ! Sven PS: I can't wait for 2011. PPS: Of course, part of the above are results of the greater Smalltalk community. Pharo is my view into this world.

6 20

[Pharo-project] Issue 3339 in pharo: WeakOrderedCollection
by pharo＠googlecode.com March 22, 2011

March 22, 2011

Status: Accepted Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3339 by stephane.ducasse: WeakOrderedCollection http://code.google.com/p/pharo/issues/detail?id=3339 Squeak got weak ordered collection and we could want to have that too.

2 2

[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