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

[Pharo-project] Issue 3684 in pharo: primitive: 'primitiveDirectoryLookup' module: 'FilePlugin' returns wrong creation date
by pharo＠googlecode.com March 22, 2011

March 22, 2011

Status: Accepted Owner: damien.p...(a)gmail.com Labels: Type-ReportDefect New issue 3684 by damien.p...(a)gmail.com: primitive: 'primitiveDirectoryLookup' module: 'FilePlugin' returns wrong creation date http://code.google.com/p/pharo/issues/detail?id=3684 Pharo image: 1.2 full Pharo core version: #12330 Virtual machine used: Cog register mapping It seems primitive: 'primitiveDirectoryLookup' module: 'FilePlugin' returns the same value for file creation date and last modification date, while those are different on disk. Gofer new squeaksource: 'PharoTaskForces'; package: 'Filesystem'; load. FSDiskFilesystemTest debug: #testEntryDates (there is even a convenient breakpoint I forgot to remove if you get Filesystem-DamienPollet.100 :) In a unix shell: ls -lTU gooly # full time of creation ls -lT gooly # full time of modification, 2s later

1 1

[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 3753 in pharo: SimpleMorphic Layout Code missing
by pharo＠googlecode.com March 22, 2011

March 22, 2011

Status: New Owner: ---- New issue 3753 by Ken.Dic...(a)whidbey.com: SimpleMorphic Layout Code missing http://code.google.com/p/pharo/issues/detail?id=3753 Cuis code for layouts is missing & I am unable to port a solitaire card game without them. Pharo image: Pharo-core 2.1 rc2 Pharo core version: 12366 Virtual machine used: VM in Pharo-1.1-OneClick.app Steps to reproduce: 1. Open a file browser and file in SimpleMorphicSolitaire.1.cs Attachments: SimpleMorphSolitaire.1.cs 276 KB

1 6

[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

[Pharo-project] Issue 3342 in pharo: have a look at sharedQueue fixes from Levente
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: Accepted Owner: stephane.ducasse Labels: Milestone-1.3 Type-Squeak New issue 3342 by stephane.ducasse: have a look at sharedQueue fixes from Levente http://code.google.com/p/pharo/issues/detail?id=3342 Check the squeak mailing: the thread of 15 of november 2010: [squeak-dev] The Trunk: Kernel-ul.515.mcz Hi Folks, Please also restore Semaphore>>critical:ifLocked: It already includes this comment: "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." To be more explicit, in Cuis it also says: "Do not change the following #== for #=, as #== is not a real message send, just a bytecode." It's unnecessary, because #= also has it's own bytecode in the current VM. So #= won't be a real message send in this case, because both excessSignals and 0 are SmallIntegers. Also, this method has a bug. There's no guarantee, that the sender won't wait for the semaphore. I uploaded a fix to the Inbox for review recently, though I didn't get any feedback on it: http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-November/155058…

1 1

[Pharo-project] Issue 3687 in pharo: Browse senders/implementors in Omnibrowser/OB pops up menu that doesn't respond to enter/CR
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: New Owner: ---- New issue 3687 by ncalexan...(a)gmail.com: Browse senders/implementors in Omnibrowser/OB pops up menu that doesn't respond to enter/CR http://code.google.com/p/pharo/issues/detail?id=3687 Pharo image: Pharo Pharo core version: <12327> Class browser used (if applicable): <OBSystemBrowserAdaptor> Steps to reproduce: 1. open OB 2. select method in right-most pane 3. type Cmd-N for senders or Cmd-M for implementors 4. try to accept default in menu by hitting enter This is pretty bad for keyboard navigation.

4 12

[Pharo-project] Issue 3605 in pharo: [ENH]: Added #saveTo: method to MIMEDocument
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: New Owner: ---- New issue 3605 by sean.p.d...(a)gmail.com: [ENH]: Added #saveTo: method to MIMEDocument http://code.google.com/p/pharo/issues/detail?id=3605 When downloading via Url classes, this makes it more straight-forward to save (an image for example), now: aUrl retrieveContents saveAs: savePath. instead of: FileStream forceNewFileNamed: anAbsolutePathString do: [ :str | str binary. str nextPutAll: (aUrl retrieveContents contents) ]. Attachments: MIMEDocument-saveAs.st 324 bytes

1 2

[Pharo-project] Issue 3591 in pharo: Implementors of #listMorph place it in different (or no) category
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: New Owner: ---- New issue 3591 by sean.p.d...(a)gmail.com: Implementors of #listMorph place it in different (or no) category http://code.google.com/p/pharo/issues/detail?id=3591 Pharo1.2rc1 Latest update: #12320 What is (if any) the standard here? I usually follow Kent Beck's advice to put getters in 'private' unless they are meant to be public, and in that case, in 'accessing'. But here we have 'accessing'/'callbacks' (OB)/'user interface'. Sean

1 2

[Pharo-project] Issue 3726 in pharo: Turn the orange corner into a real Morph object
by pharo＠googlecode.com March 21, 2011

March 21, 2011

Status: Fixed Owner: Benjamin...(a)gmail.com CC: siguc...(a)gmail.com New issue 3726 by Benjamin...(a)gmail.com: Turn the orange corner into a real Morph object http://code.google.com/p/pharo/issues/detail?id=3726 Gofer new squeaksource: 'PharoTaskForces'; package: 'AdorementMorph'; load Then add the attached cs. For now, it just cahnge the cursor into a hand ^^ But soon, we will attach behavior Attachments: Morphic-IgorStasenko.834.1.cs 1.8 KB

1 3