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

[Pharo-project] Issue 3484 in pharo: Windows VM in One click image for 1.2 not yet customized
by pharo＠googlecode.com Feb. 27, 2011

Feb. 27, 2011

Status: Accepted Owner: Torsten....(a)astares.de CC: marcus.denker, stephane.ducasse Labels: Milestone-1.2 New issue 3484 by Torsten....(a)astares.de: Windows VM in One click image for 1.2 not yet customized http://code.google.com/p/pharo/issues/detail?id=3484 Hi, the windows VM included in the PharoOneClick1.2.zip on the Hudson server is not customized for Pharo. It still has - the croquet icon - a bad *.ini file so that "Croquet" is displayed instead of Pharo when one quits with ALT+F4 - no resource section

1 7

Re: [Pharo-project] Issue 3575 in pharo: [Failing Tests] Package Monticello leaves Obsolete class after tests
by pharo＠googlecode.com Feb. 27, 2011

Feb. 27, 2011

Updates: Summary: [Failing Tests] Package Monticello leaves Obsolete class after tests Comment #3 on issue 3575 by marcus.d...(a)gmail.com: [Failing Tests] Package Monticello leaves Obsolete class after tests http://code.google.com/p/pharo/issues/detail?id=3575 (No comment was entered for this change.)

1 2

[Pharo-project] Issue 3579 in pharo: "declare temp" adds the variable twice
by pharo＠googlecode.com Feb. 25, 2011

Feb. 25, 2011

Status: Accepted Owner: laurent....(a)gmail.com Labels: Milestone-1.2-DevImage New issue 3579 by laurent....(a)gmail.com: "declare temp" adds the variable twice http://code.google.com/p/pharo/issues/detail?id=3579 Pharo image: 1.2 Pharo core version: 12303 Virtual machine used: Squeak VM Cog 32 5.8b12 Class browser used if applicable: OBSystemBrowserAdaptor Steps to reproduce: Open the browser, select a class and add a method foo bar := 2 Accept, "Unknown variable: bar please correct" dialog pops up. Select "declare temp". Now you have: foo | bar | | bar | "<- ????????" bar := 2 Works in PharoCore 1.2, so the problem may be related to OBSystemBrowserAdaptor

1 14

[Pharo-project] Issue 3589 in pharo: ClassComment in OB
by pharo＠googlecode.com Feb. 25, 2011

Feb. 25, 2011

Status: Accepted Owner: cy.delau...(a)gmail.com CC: renggli Labels: Milestone-1.2 Type-OB New issue 3589 by cy.delau...(a)gmail.com: ClassComment in OB http://code.google.com/p/pharo/issues/detail?id=3589 in pharo 1.2 looking for a string in source can raise an error if the sring is defined on class comment. Here is the fix :) lukas let us know if this is ok. Stef and Cyrille. Attachments: OBFix.1.cs 831 bytes

1 9

[Pharo-project] Issue 3571 in pharo: [Failing Test] Tests.Release.ReleaseTest.testUndeclared
by pharo＠googlecode.com Feb. 25, 2011

Feb. 25, 2011

Status: Accepted Owner: marianopeck Labels: Milestone-1.2-DevImage New issue 3571 by marianopeck: [Failing Test] Tests.Release.ReleaseTest.testUndeclared http://code.google.com/p/pharo/issues/detail?id=3571 Tests.Release.ReleaseTest.testUndeclared is failing

1 4

[Pharo-project] Issue 3482 in pharo: InterimSoundMorph references to SketchMorph
by pharo＠googlecode.com Feb. 25, 2011

Feb. 25, 2011

Status: Accepted Owner: guillermopolito Labels: Milestone-1.2-DevImage New issue 3482 by guillermopolito: InterimSoundMorph references to SketchMorph http://code.google.com/p/pharo/issues/detail?id=3482 SketchMorph is not in the image and the reference is broken. Pharo 1.2 dev InterimSoundMorph>>addGraphic

1 17

[Pharo-project] Issue 3515 in pharo: Failing Test: RBInlineMethodFromComponentTest.testInlineEmptyComponentMethod
by pharo＠googlecode.com Feb. 24, 2011

Feb. 24, 2011

Status: Accepted Owner: marcus.denker Labels: Milestone-1.2-DevImage New issue 3515 by marcus.denker: Failing Test: RBInlineMethodFromComponentTest.testInlineEmptyComponentMethod http://code.google.com/p/pharo/issues/detail?id=3515 RBInlineMethodFromComponentTest.testInlineEmptyComponentMethod

1 4

[Pharo-project] Issue 3350 in pharo: Network Tests
by pharo＠googlecode.com Feb. 24, 2011

Feb. 24, 2011

Status: FixedWaitingToBePharoed Owner: stephane.ducasse Labels: Milestone-1.3 New issue 3350 by stephane.ducasse: Network Tests http://code.google.com/p/pharo/issues/detail?id=3350 Item was changed: ----- Method: Socket>>localAddress (in category 'accessing') ----- localAddress + + self isWaitingForConnection ifFalse: [ + self + waitForConnectionFor: Socket standardTimeout + ifTimedOut: [ ^ByteArray new: 4 ] ]. + ^self primSocketLocalAddress: socketHandle! - self isWaitingForConnection - ifFalse: [[self waitForConnectionFor: Socket standardTimeout] - on: ConnectionTimedOut - do: [:ex | ^ ByteArray new: 4]]. - ^ self primSocketLocalAddress: socketHandle! Item was changed: ----- Method: Socket>>localPort (in category 'accessing') ----- localPort + + self isWaitingForConnection ifFalse: [ + self + waitForConnectionFor: Socket standardTimeout + ifTimedOut: [ ^0] ]. - self isWaitingForConnection - ifFalse: [[self waitForConnectionFor: Socket standardTimeout] - on: ConnectionTimedOut - do: [:ex | ^ 0]]. ^ self primSocketLocalPort: socketHandle! Item was changed: ----- Method: Socket>>waitForAcceptFor: (in category 'waiting') ----- waitForAcceptFor: timeout "Wait and accept an incoming connection. Return nil if it falis" + self waitForConnectionFor: timeout ifTimedOut: [^ nil]. + ^ self isConnected - [self waitForConnectionFor: timeout] on: ConnectionTimedOut do: [:ex | ^nil]. - ^self isConnected ifTrue:[self accept] ! Item was changed: ----- Method: Socket>>waitForConnectionFor:ifTimedOut: (in category 'waiting') ----- waitForConnectionFor: timeout ifTimedOut: timeoutBlock "Wait up until the given deadline for a connection to be established. Return true if it is established by the deadline, false if not." + | startTime msecsDelta msecsEllapsed status | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. - | status deadline | - deadline := Socket deadlineSecs: timeout. status := self primSocketConnectionStatus: socketHandle. + [(status = WaitingForConnection) and: [(msecsEllapsed := Time millisecondsSince: startTime) < msecsDelta]] - [(status = WaitingForConnection) and: [Time millisecondClockValue < deadline]] whileTrue: [ + semaphore waitTimeoutMSecs: msecsDelta - msecsEllapsed. - semaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue). status := self primSocketConnectionStatus: socketHandle]. + status = Connected ifFalse: [^timeoutBlock value]. + ^ true! - status = Connected ifFalse: [^timeoutBlock value] - ! Item was changed: ----- Method: Socket>>waitForDataFor:ifClosed:ifTimedOut: (in category 'waiting') ----- waitForDataFor: timeout ifClosed: closedBlock ifTimedOut: timedOutBlock "Wait for the given nr of seconds for data to arrive." + + | startTime msecsDelta | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. + [(Time millisecondsSince: startTime) < msecsDelta] whileTrue: [ + (self primSocketReceiveDataAvailable: socketHandle) + ifTrue: [^self]. + self isConnected + ifFalse: [^closedBlock value]. + self readSemaphore waitTimeoutMSecs: + (msecsDelta - (Time millisecondsSince: startTime) max: 0). + ]. - | deadline | - deadline := Socket deadlineSecs: timeout. - - [Time millisecondClockValue < deadline] - whileTrue: [ - (self primSocketReceiveDataAvailable: socketHandle) - ifTrue: [^self]. - self isConnected - ifFalse: [^closedBlock value]. - self readSemaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue)]. - (self primSocketReceiveDataAvailable: socketHandle) ifFalse: [ self isConnected ifTrue: [^timedOutBlock value] + ifFalse: [^closedBlock value]].! - ifFalse: [^closedBlock value]]! Item was changed: ----- Method: Socket>>waitForDisconnectionFor: (in category 'waiting') ----- waitForDisconnectionFor: timeout "Wait for the given nr of seconds for the connection to be broken. Return true if it is broken by the deadline, false if not. The client should know the connection is really going to be closed (e.g., because he has called 'close' to send a close request to the other end) before calling this method." + | startTime msecsDelta status | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. - | status deadline | status := self primSocketConnectionStatus: socketHandle. - deadline := Socket deadlineSecs: timeout. [((status == Connected) or: [(status == ThisEndClosed)]) and: + [(Time millisecondsSince: startTime) < msecsDelta]] whileTrue: [ - [Time millisecondClockValue < deadline]] whileTrue: [ self discardReceivedData. + self readSemaphore waitTimeoutMSecs: + (msecsDelta - (Time millisecondsSince: startTime) max: 0). - self readSemaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue). status := self primSocketConnectionStatus: socketHandle]. + ^ status ~= Connected! - - ^ status ~= Connected - ! Item was changed: ----- Method: Socket>>waitForSendDoneFor: (in category 'waiting') ----- waitForSendDoneFor: timeout "Wait up until the given deadline for the current send operation to complete. Return true if it completes by the deadline, false if not." + | startTime msecsDelta msecsEllapsed sendDone | + startTime := Time millisecondClockValue. + msecsDelta := (timeout * 1000) truncated. + [(sendDone := self primSocketSendDone: socketHandle) not and: [ self isConnected - | sendDone deadline | - deadline := Socket deadlineSecs: timeout. - [self isConnected & (sendDone := self primSocketSendDone: socketHandle) not "Connection end and final data can happen fast, so test in this order" + and: [(msecsEllapsed := Time millisecondsSince: startTime) < msecsDelta]]] whileTrue: [ + self writeSemaphore waitTimeoutMSecs: msecsDelta - msecsEllapsed]. - and: [Time millisecondClockValue < deadline]] whileTrue: [ - self writeSemaphore waitTimeoutMSecs: (deadline - Time millisecondClockValue)]. ^ sendDone! Item was changed: ----- Method: SocksSocket>>connectTo:port: (in category 'connection open/close') ----- connectTo: hostAddress port: port self initializeNetwork. self shouldUseSocks ifFalse: [^super connectTo: hostAddress port: port]. super connectTo: socksIP port: socksPort. + self waitForConnectionFor: Socket standardTimeout. - self waitForConnectionUntil: Socket standardDeadline. dstIP := hostAddress. dstPort := port. vers = 4 ifTrue: [self connectSocks4] ifFalse: [self connectSocks5] ! Item was changed: ----- Method: SocksSocket>>connectToHostNamed:port: (in category 'connection open/close') ----- connectToHostNamed: hostName port: port super connectTo: socksIP port: socksPort. + self waitForConnectionFor: Socket standardTimeout. - self waitForConnectionUntil: Socket standardDeadline. dstName := hostName. dstPort := port. vers = 4 ifTrue: [self connectSocks4] ifFalse: [self connectSocks5] !

1 5

[Pharo-project] about GLMOrangeUITheme [WAS] Re: [update 1.2] #12302
by Mariano Martinez Peck Feb. 21, 2011

Feb. 21, 2011

On Thu, Jan 13, 2011 at 9:15 PM, StÃ©phane Ducasse <stephane.ducasse(a)inria.fr > wrote: > 12302 > ----- > > - GLMOrangeUITheme. Thanks Igor Stasenko > I don't agree with this kind of changes. Tomorrow I want Watery2BlackTheme and GLMYellowUITHeme and what? we are going to integrate it also? I don't understand. The change should be to create a setting to set the color and then igor runs a script in his own image that set it to orange. Me to yellow. And you to pink. > > - Issue 3538: Add a "Browse test" in the TestRunner failed/error list. > Thanks Benjamin van Ryseghem > > Stef >

8 8

[Pharo-project] Is there a http server that understands PUT?
by Norbert Hartl Feb. 20, 2011

Feb. 20, 2011

While trying to consume some PUT urls with Seaside-REST I noticed that the transmitted content is missing. I tried Comanche as well as swazoo. At this moment I'm not sure if I did something wrong but I seems that only GET and POST are treated. Does anyone has some experience on this? thanks, Norbert

6 8