March 2012 - Pharo-users - lists.pharo.org

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

Refactoring-Spelling + SpellingServices
by Paul DeBruicker March 6, 2012

March 6, 2012

Hi - I integrated SpellingServices (http://www.hpi.uni-potsdam.de/hirschfeld/squeaksource/SpellingServices) and Refactoring-Spelling (the spell checker for the refactoring browser). The changes are in the attached monticello file. if SpellingServices is installed in your image then the spell checker in the refactoring browser will be: (in order of preference) 1. The RBMacSpellChecker 2. The RBSpellingService 3. The RBInternalSpellChecker I only tested it on 64bit Linux. It runs much slower than the RBInternalSpellChecker. But it catches more errors. Or just has a dumber vocabulary. I can't tell yet. All tests pass. Paul

1 0

Announcement: Spelling services
by Tim Felgentreff March 6, 2012

March 6, 2012

Hi Once upon a time, John M. McIntosh built a spellchecker plugin for the MacVM and there was a fileout that added a spelling service class to use it from Squeak. We have added code to provide the same API (for now) to windows and linux users that have ispell (or a compatible program, like aspell) installed on their systems using system callouts. A metacello configuration is available from the MetacelloRepository on Squeaksource, ConfigurationOfSpellingServices. The development repository is at http://www.hpi.uni-potsdam.de/hirschfeld/squeaksource/SpellingServices.html, the repo has global read+write, so if anybody finds this useful and has changes, feel free to commit to that repository. -Tim

2 1