- Pharo-users - lists.pharo.org

Pharo Conf has now a web site :)
by StÃ©phane Ducasse March 15, 2012

March 15, 2012

Please distribute the call http://rmod.lille.inria.fr/web/pier/Events We will have fun. Stef

1 0

[ANN] BioSmalltalk
by HernÃ¡n Morales Durand March 15, 2012

March 15, 2012

Dear all, It's been two years since I've started to work in bioinformatics with Smalltalk. It has been a difficult decision because the quality and amount of bioinformatics libraries is absolutely amazing, but I've received a lot of support from the main researchers at the Institute of Genetics where I'm working in Argentina. Now the initial step for a BioSmalltalk release is done. I hope the FOSS community receive this pre-release as the basis for future enhacements for bioinformatics with any Smalltalk flavor. Although in the short-term it is unlikely for a BioSmalltalk to reach the users, maturity and competitive level of major Bio* toolkits (BioPerl, BioPython, BioRuby or BioJava), it could take too many years more if I continue this work alone. However, BioSmalltalk was not conceived to replace or defeat any other similar packages, but to provide to the bioinformatics community the features of a pure object system. So feel free to spread the word for all bioinformaticians, newcomers, developers, or life scientists, for helping in any way and discovering why Smalltalk is such a special environment. This release was implemented in Pharo 1.3 custom Core, but cross Smalltalk portability was a priority. I'm working now to release versions for GemStone, Squeak and VisualWorks is there is enough interest. Everybody is welcome to contribute. You may download a pre-compiled release from the project page: http://code.google.com/p/biosmalltalk/ Best regards, HernÃ¡n -- HernÃ¡n Morales Institute of Veterinary Genetics (IGEVET). National Scientific and Technical Research Council (CONICET). La Plata (1900), Buenos Aires, Argentina. Telephone: +54 (0221) 421-1799. Internal: 422 Fax: 425-7980 or 421-1799.

2 1

WebSockets
by Bernat Romagosa March 14, 2012

March 14, 2012

Hi list, I've installed the latest version of WebClient from the metacello configuration, and when I run WebSocket example I get the following output in the Transcript: New WebSocket(127.0.0.1:33022) WebSocket(127.0.0.1:33022) Which I guess is alright, but then if I access localhost:8080 I get the following: ConnectionClosed: Connection closed while waiting for data. [ConnectionClosed signal: 'Connection closed while waiting for data.'] in Socket>>waitForDataFor: Socket>>waitForDataFor:ifClosed:ifTimedOut: Socket>>waitForDataFor: Socket>>receiveDataSignallingTimeout:into:startingAt: SocketStream>>receiveData SocketStream>>next WebSocket>>readMessage [[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] in [[[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] on: Error do: [:ex | self handleError: ex]] in WebSocket>>run BlockClosure>>on:do: [[[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] on: Error do: [:ex | self handleError: ex]] in WebSocket>>run BlockClosure>>ensure: WebSocket>>run [:req | | ws | ws := req asWebSocket. ws timeout: 300. Transcript cr; show: 'New ' , ws. ws onMessage: [:data | mutex critical: [sockets do: [:s | s send: data]]]. ws onClose: [Transcript cr; show: 'Closing ' , ws. mutex critical: [sockets remove: ws ifAbsent: []]]. ws onError: [:ex | Transcript cr; show: ws. Transcript cr; show: ex description. Transcript cr; show: ex signalerContext longStack]. mutex critical: [sockets add: ws]. ws run] in WebSocket class>>example WebServer>>invokeAction:request: [self invokeAction: (action at: 2) request: request] in WebServer>>dispatchRequest:url: BlockClosure>>on:do: WebServer>>dispatchRequest:url: WebServer>>dispatchRequest: [| ssl | certName ifNil: [stream := SocketStream on: aSocket] ifNotNil: [ssl := Smalltalk at: #SqueakSSL ifAbsent: [self error: 'SqueakSSL not installed']. stream := ssl secureSocketStream on: aSocket. [stream sslAccept: certName] on: Error do: [^ stream destroy]]. [aSocket isConnected] whileTrue: [stream peek ifNil: [^ aSocket destroy]. request := self newRequest. [request readFrom: stream] on: Error do: [:ex | (ex isKindOf: NetworkError) ifFalse: [[request send400Response] on: Error do: [:ignore | nil]]. ^ aSocket destroy]. self dispatchRequest: request]. nil] in WebServer>>handleConnectionFrom: BlockClosure>>on:do: WebServer>>handleConnectionFrom: [self handleConnectionFrom: aSocket] in [[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] in [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: BlockClosure>>on:do: [[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] in [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: BlockClosure>>ensure: [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: [self value. Processor terminateActive] in BlockClosure>>newProcess Closing WebSocket(127.0.0.1:33022) New WebSocket(127.0.0.1:33024) WebSocket(127.0.0.1:33024) ConnectionClosed: Connection closed while waiting for data. [ConnectionClosed signal: 'Connection closed while waiting for data.'] in Socket>>waitForDataFor: Socket>>waitForDataFor:ifClosed:ifTimedOut: Socket>>waitForDataFor: Socket>>receiveDataSignallingTimeout:into:startingAt: SocketStream>>receiveData SocketStream>>next WebSocket>>readMessage [[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] in [[[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] on: Error do: [:ex | self handleError: ex]] in WebSocket>>run BlockClosure>>on:do: [[[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] on: Error do: [:ex | self handleError: ex]] in WebSocket>>run BlockClosure>>ensure: WebSocket>>run [:req | | ws | ws := req asWebSocket. ws timeout: 300. Transcript cr; show: 'New ' , ws. ws onMessage: [:data | mutex critical: [sockets do: [:s | s send: data]]]. ws onClose: [Transcript cr; show: 'Closing ' , ws. mutex critical: [sockets remove: ws ifAbsent: []]]. ws onError: [:ex | Transcript cr; show: ws. Transcript cr; show: ex description. Transcript cr; show: ex signalerContext longStack]. mutex critical: [sockets add: ws]. ws run] in WebSocket class>>example WebServer>>invokeAction:request: [self invokeAction: (action at: 2) request: request] in WebServer>>dispatchRequest:url: BlockClosure>>on:do: WebServer>>dispatchRequest:url: WebServer>>dispatchRequest: [| ssl | certName ifNil: [stream := SocketStream on: aSocket] ifNotNil: [ssl := Smalltalk at: #SqueakSSL ifAbsent: [self error: 'SqueakSSL not installed']. stream := ssl secureSocketStream on: aSocket. [stream sslAccept: certName] on: Error do: [^ stream destroy]]. [aSocket isConnected] whileTrue: [stream peek ifNil: [^ aSocket destroy]. request := self newRequest. [request readFrom: stream] on: Error do: [:ex | (ex isKindOf: NetworkError) ifFalse: [[request send400Response] on: Error do: [:ignore | nil]]. ^ aSocket destroy]. self dispatchRequest: request]. nil] in WebServer>>handleConnectionFrom: BlockClosure>>on:do: WebServer>>handleConnectionFrom: [self handleConnectionFrom: aSocket] in [[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] in [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: BlockClosure>>on:do: [[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] in [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: BlockClosure>>ensure: [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: [self value. Processor terminateActive] in BlockClosure>>newProcess Closing WebSocket(127.0.0.1:33024) listener terminating, socket: waitingForConnection listener starting (interface: * port: 8080)The method SmalltalkImage platformName has been deprecated. Use Smalltalk os platformName New WebSocket(127.0.0.1:33026) WebSocket(127.0.0.1:33026) ConnectionClosed: Connection closed while waiting for data. [ConnectionClosed signal: 'Connection closed while waiting for data.'] in Socket>>waitForDataFor: Socket>>waitForDataFor:ifClosed:ifTimedOut: Socket>>waitForDataFor: Socket>>receiveDataSignallingTimeout:into:startingAt: SocketStream>>receiveData SocketStream>>next WebSocket>>readMessage [[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] in [[[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] on: Error do: [:ex | self handleError: ex]] in WebSocket>>run BlockClosure>>on:do: [[[stream isConnected] whileTrue: [self readMessage. frameType = 255 ifTrue: [stream close. ^ self]. self handleMessage: frameData type: frameType]. nil] on: Error do: [:ex | self handleError: ex]] in WebSocket>>run BlockClosure>>ensure: WebSocket>>run [:req | | ws | ws := req asWebSocket. ws timeout: 300. Transcript cr; show: 'New ' , ws. ws onMessage: [:data | mutex critical: [sockets do: [:s | s send: data]]]. ws onClose: [Transcript cr; show: 'Closing ' , ws. mutex critical: [sockets remove: ws ifAbsent: []]]. ws onError: [:ex | Transcript cr; show: ws. Transcript cr; show: ex description. Transcript cr; show: ex signalerContext longStack]. mutex critical: [sockets add: ws]. ws run] in WebSocket class>>example WebServer>>invokeAction:request: [self invokeAction: (action at: 2) request: request] in WebServer>>dispatchRequest:url: BlockClosure>>on:do: WebServer>>dispatchRequest:url: WebServer>>dispatchRequest: [| ssl | certName ifNil: [stream := SocketStream on: aSocket] ifNotNil: [ssl := Smalltalk at: #SqueakSSL ifAbsent: [self error: 'SqueakSSL not installed']. stream := ssl secureSocketStream on: aSocket. [stream sslAccept: certName] on: Error do: [^ stream destroy]]. [aSocket isConnected] whileTrue: [stream peek ifNil: [^ aSocket destroy]. request := self newRequest. [request readFrom: stream] on: Error do: [:ex | (ex isKindOf: NetworkError) ifFalse: [[request send400Response] on: Error do: [:ignore | nil]]. ^ aSocket destroy]. self dispatchRequest: request]. nil] in WebServer>>handleConnectionFrom: BlockClosure>>on:do: WebServer>>handleConnectionFrom: [self handleConnectionFrom: aSocket] in [[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] in [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: BlockClosure>>on:do: [[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] in [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: BlockClosure>>ensure: [[[self handleConnectionFrom: aSocket] on: Error do: [:ex | aSocket destroy]. mutex critical: [connections remove: Processor activeProcess ifAbsent: []]] ensure: [aSocket destroy]] in WebServer>>asyncHandleConnectionFrom: [self value. Processor terminateActive] in BlockClosure>>newProcess Closing WebSocket(127.0.0.1:33026) Any idea what's going on? Thanks! -- Bernat Romagosa.

1 0

[update 1.4] #14384
by Marcus Denker March 8, 2012

March 8, 2012

14385 ----- The following changes have been integrated: Issue 5442: FSFilesystem should continue to provide onDisk and inMemory http://code.google.com/p/pharo/issues/detail?id=5442

1 0

[update 1.4] #14383
by Marcus Denker March 8, 2012

March 8, 2012

14384 ----- The following changes have been integrated:

1 0

[update 1.4] #14383
by Marcus Denker March 8, 2012

March 8, 2012

14383 ----- The following changes have been integrated:

1 0

using tree morphs
by Alexis Parseghian March 7, 2012

March 7, 2012

I've been playing with MorphTree et al. for the past few days, trying to understand how they work. Reading the example code in Morphic-MorphTreeWidget-Examples helped. I've also been trying to figure out the Settings Browser, but this one I have a hard time following :( Anyway, I think I've got the basics now : I instantiate a MorphTreeMorph when building my window in an subclass of a MorphTreeModel. The contents of my model's list get wrapped in the appropriate MorphTreeNodeModel subclasses. I can get the tree to display *what* I want. My problem is with the *how* ; more specifically, how to get the columns right. * the first column always displays correctly, with or without an expander (and in the latter case, expanded or not). * the following columns have the text overlapping their left-side resizer by about half a character. * subsequent columns display off their vertical boundaries (to the right), seemingly depending on the length of the preceeding column. Same as if there were no columns but just morphs abutted to one another. Manually resizing the previous column to contain the longest text gets me back to the previous case (half a char too much to the left). In other words, if I'm guessing right, the column clips its contents /visually/, but not in relation to their /reported width/. I'm pretty sure there's something really basic I've missed in the layout, but I can't figure it out from the example code nor the classes' protocols. Any hints ? Thanks. My code: * the root list is a collection of associations 'string' -> article instance * I'm building a view with the category (expandable) in the first column. Once expanded, it shows the article's properties in columns. CategoriesAndArticlesTree(MorphTreeModel)>>buildTree Â Â Â Â | treeMorph | Â Â Â Â treeMorph := (self treeMorphClass on: self) Â Â Â Â Â Â Â Â columns: { Â Â Â Â Â Â Â Â Â Â Â Â MorphTreeColumn new rowMorphGetSelector: #categoryOrAuthor. Â Â Â Â Â Â Â Â Â Â Â Â MorphTreeColumn new Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â rowMorphGetSelector: #title; Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â headerButtonLabel: 'Title' font: nil. Â Â Â Â Â Â Â Â Â Â Â Â MorphTreeColumn new rowMorphGetSelector: #issue. Â Â Â Â Â Â Â Â Â Â Â Â MorphTreeColumn new rowMorphGetSelector: #foo Â Â Â Â Â Â Â Â }. Â Â Â Â treeMorph Â Â Â Â Â Â Â Â hResizing: #spaceFill; vResizing: #spaceFill; Â Â Â Â Â Â Â Â withHLines: true; Â Â Â Â Â Â Â Â makeLastColumnUnbounded; Â Â Â Â Â Â Â Â resizerWidth: 1. Â Â Â Â ^ (treeMorph buildContents ) CategoriesAndArticlesTree>>rootNodeClassFromItem: anItem Â Â Â Â ^ CategoriesTreeNode CategoriesTreeNode(MorphTreeNodeModel)>>categoryOrAuthor Â Â Â Â ^ self theme builder newLabel: item key CategoriesTreeNode>>childNodeClassFromItem: anItem Â Â Â Â ^ ArticlesTreeNode CategoriesTreeNode>>childrenItems Â Â Â Â ^ item value the other column-related selectors are implemented and return a nil. ArticlesTreeNode(MorphTreeNodeModel) implements the column-related selectors by returning the appropriate article property wrapped in a label. ArticlesTreeNode>>categoryOrAuthor Â Â Â Â ^ self theme builder newLabel: item author ArticlesTreeNode>>foo Â Â Â Â ^ self theme builder newLabel: 'foo'

4 9

Re: [Pharo-users] Refactoring-Spelling + SpellingServices
by Tim Felgentreff March 7, 2012

March 7, 2012

Since SpellingService is using your system dictionary and spellchecker, I imagine the quality of the spelling suggestions should be close to optimal, without actually diving into that area of research ourselves ;)

1 0

Re: [Pharo-users] [squeak-dev] Announcement: Spelling services
by Tim Felgentreff March 7, 2012

March 7, 2012

Thanks for the patch! Now I can setup our CI to run the tests against Pharo 1.3, too :)

1 0

Re: [Pharo-users] [Pharo-project] Test
by Norbert Hartl March 7, 2012

March 7, 2012

To be honest testing a mail script with the address of a mailing list is by far to least smart alternative I can imagine. Test it in a different not annoying way, please! Norbert Am 07.03.2012 um 19:00 schrieb Ulysse: > This is a test for the generating mail script :) > > > Thanks to ignore this, > Ulysse, the integrator from outer space

3 3