- Pharo-dev - lists.pharo.org

[Pharo-project] [Hudson] updates
by Marcus Denker Feb. 11, 2011

Feb. 11, 2011

done in the last week: - current core and full are now automatically loaded from gforge for building and testing the core image (1.3 just updates the last core build artefact) - For 1.3, there is now a new script build13 that does not kill the image when a debuglog is written. (all 1.3 builds use this) - updated the vm used for running builds and tests (not yet the one bundled in the One-Click) - there is now the latest cog. the buildWithCog.sh uses this - seaside is build with cog, but tests are run on the interpreter for now - aida, seaside, xmlrpc and petitparser used as client tests for 1.2 https://pharo-ic.lille.inria.fr/hudson/view/Pharo-Clients/ - RMod now has it's own view: https://pharo-ic.lille.inria.fr/hudson/view/Rmod/ - the script used for building now available as an artefact https://pharo-ic.lille.inria.fr/hudson/job/Pharo%201.1/lastSuccessfulBuild/… - Disk usage plugin installed -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

5 5

[Pharo-project] Issue 3695 in pharo: Redesign AboutBox
by pharo＠googlecode.com Feb. 11, 2011

Feb. 11, 2011

Status: Accepted Owner: Torsten....(a)astares.de Labels: Milestone-1.3 New issue 3695 by Torsten....(a)astares.de: Redesign AboutBox http://code.google.com/p/pharo/issues/detail?id=3695 Beside the Pharo number we should display VM infos in the about box too: Smalltalk isRunningCog We should also display the JIT version (if running Cog): Smalltalk getSystemAttribute: 1008 It is also confusing that SmalltalkImage>>aboutThisSystem uses a "LongMessageDialogWindow" for the about box although there is a class "AboutDialogWindow" (which is not used) in the image.

2 5

[Pharo-project] about fillRectangle: aRectangle fillStyle: aFillStyle
by StÃ©phane Ducasse Feb. 11, 2011

Feb. 11, 2011

it seems duplicated in pluggableCanvas, canvas and balloonCanvas fillRectangle: aRectangle fillStyle: aFillStyle "Fill the given rectangle. Double-dispatched via the fill style." aFillStyle fillRectangle: aRectangle on: self do you confirm that?

4 6

[Pharo-project] handlerForBlueButtonDown: anEvent
by stephane ducasse Feb. 11, 2011

Feb. 11, 2011

Gary I was wondering if "anEvent handler ifNil:[^self]." should not be uncommented in. Now if it works like that this is better since it means that are not hanging around with a nil. Stef handlerForBlueButtonDown: anEvent "Return the (prospective) handler for a mouse down event. The handler is temporarily installed and can be used for morphs further down the hierarchy to negotiate whether the inner or the outer morph should finally handle the event. Note: Halos handle blue button events themselves so we will only be asked if there is currently no halo on top of us. Check whtehr halods are enabled (for deployment)." self wantsHaloFromClick ifFalse:[^nil]. "anEvent handler ifNil:[^self]." (anEvent shiftPressed) ifFalse:[^nil] "let outer guy have it" ifTrue:[^self] "let me have it"

2 1

[Pharo-project] A tinyBenchmark
by Torsten Bergmann Feb. 11, 2011

Feb. 11, 2011

see http://fbanados.wordpress.com/2011/02/10/a-tinybenchmark Maybe Eliot is able to say something here on the main differences between Cog <-> VW VM. Thx T. -- NEU: FreePhone - kostenlos mobil telefonieren und surfen! Jetzt informieren: http://www.gmx.net/de/go/freephone

9 14

[Pharo-project] SqueakSource down?
by Alexander LazareviÄ Feb. 11, 2011

Feb. 11, 2011

http://www.downforeveryoneorjustme.com/www.squeaksource.com

3 2

[Pharo-project] terse guide should be adapted to pharo
by StÃ©phane Ducasse Feb. 11, 2011

Feb. 11, 2011

HI guys the terse guide available in pharo contains reference to removed class. FillInTheBlank We should also clear the use of *** because this is strange. Stef

2 1

Re: [Pharo-project] [squeak-dev] Object>>is:
by Igor Stasenko Feb. 11, 2011

Feb. 11, 2011

On 11 February 2011 02:28, David T. Lewis <lewis(a)mail.msen.com> wrote: > We had a good deal of discussion earlier about adding Object>>is: > with an inconclusive outcome: > Â http://lists.squeakfoundation.org/pipermail/squeak-dev/2010-April/148501.ht… > > Igor's original proposal is: > Â http://lists.squeakfoundation.org/pipermail/squeak-dev/2009-June/136793.html > > I have been tinkering around with Juan's SimpleMorphic in hopes of > getting it running in Squeak alongside MVC and Morphic, and it would > be convenient to have the default implementation of #is: in the image > so I don't have to put it in a package override. > Just yesterday i had discussion about this with people in the lab. I can't say that i heard something new regarding this, and not saying that i'd like to resurrect the discussion. So, in short: there was no objection concerning getting rid of isXXX in favor of using #is: method. The only thing which still looks controversial is too simple default implementation which answers false. To my current opinion, Juan's variant is preferable. :) Yes. it should answer false and don't contain any extra logic , like trying to follow class hierarchy etc. Because it serves to replace isXXXX pattern, and not adding something new (i.e. more 'userful'). So, answering false for Object class fits well for this purpose. And of course solution to that problem is simple: - avoid writing code in style, which require isXXX tests and then branching. Nicely written code should use message dispatch instead. Too bad, we are not living in perfect world :) > Any strong objections? > -- Best regards, Igor Stasenko AKA sig.

2 1

[Pharo-project] drawString: aString from: firstIndex to: lastIndex at: aPoint font: fontOrNil color: c
by StÃ©phane Ducasse Feb. 10, 2011

Feb. 10, 2011

PharoCanvas>>drawString: aString from: firstIndex to: lastIndex at: aPoint font: fontOrNil color: c | font | port colorMap: nil. font := fontOrNil ifNil: [TextStyle defaultFont]. port combinationRule: Form paint. font installOn: port foregroundColor: (self shadowColor ifNil:[c]) backgroundColor: Color transparent. font displayString: aString on: port from: firstIndex to: lastIndex at: (origin + aPoint) kern: 0. SMxCanvas>>drawString: aString from: firstIndex to: lastIndex at: aPoint font: fontOrNil color: c | font | port colorMap: nil. font := fontOrNil ifNil: [StrikeFont default]. font installOn: port foregroundColor: (self shadowColor ifNil:[c]) backgroundColor: nil. font displayString: aString on: port from: firstIndex to: lastIndex at: (origin + aPoint) kern: font baseKern negated. I was wondering why the combinationRule is not needed. Stef

4 5

[Pharo-project] Fwd: Build failed in Hudson: Pharo 1.3 #16
by Marcus Denker Feb. 10, 2011

Feb. 10, 2011

We should really fix the 1.3 build.... Begin forwarded message: > From: hudson(a)pharo-ic.lille.inria.fr > Date: February 10, 2011 7:06:37 AM PST > To: marcus.denker(a)inria.fr, Pharo-project(a)lists.gforge.inria.fr > Subject: Build failed in Hudson: Pharo 1.3 #16 > > See <https://pharo-ic.lille.inria.fr/hudson/job/Pharo%201.3/16/> > > ------------------------------------------ > [...truncated 775 lines...] > MetacelloMCProjectSpec>>load > MetacelloProjectReferenceSpec>>loadUsing:gofer: > [:pkg | pkg loadUsing: self gofer: gofer] in MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: > OrderedCollection>>do: > MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>linearLoadPackageSpecs:repositories: > [super linearLoadPackageSpecs: packageSpecs repositories: repositories] in MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: > BlockClosure>>ensure: > MetacelloLoaderPolicy>>pushLoadDirective:during: > MetacelloLoaderPolicy>>pushLinearLoadDirectivesDuring:for: > MetacelloFetchingMCSpecLoader>>linearLoadPackageSpecs:repositories: > MetacelloFetchingMCSpecLoader(MetacelloCommonMCSpecLoader)>>load > MetacelloMCVersionSpecLoader>>load > MetacelloMCVersion>>executeLoadFromArray: > [self versionSpec loader: newLoader. > ^ self executeLoadFromArray: anArray] in [[self versionSpec loader: newLoader. > ^ self executeLoadFromArray: anArray] > ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: > BlockClosure>>ensure: > [[self versionSpec loader: newLoader. > ^ self executeLoadFromArray: anArray] > ensure: [self versionSpec loader: originalLoader]] in MetacelloMCVersion>>fetchRequiredFromArray: > MetacelloPharoPlatform(MetacelloPlatform)>>do:displaying: > MetacelloPharoPlatform>>do:displaying: > MetacelloMCVersion>>fetchRequiredFromArray: > [| fetchLoader | > fetchLoader := self fetchRequiredFromArray: anArray. > MetacelloPlatform current > do: [fetchLoader doLoad] > displaying: 'Loading ' , displayString. > Transcript cr; show: '...finished ' , self versionNumber printString. > ^ fetchLoader] in MetacelloMCVersion>>doLoadRequiredFromArray: > BlockClosure>>ensure: > MetacelloMCVersion>>doLoadRequiredFromArray: > MetacelloMCVersion>>load > UndefinedObject>>DoIt > Compiler>>evaluate:in:to:notifying:ifFail:logged: > Compiler class>>evaluate:for:notifying:logged: > Compiler class>>evaluate:for:logged: > Compiler class>>evaluate:logged: > [| chunk | val := (self peekFor: $!) > ifTrue: [(Compiler evaluate: self nextChunk logged: false) > scanFrom: self] > ifFalse: [chunk := self nextChunk. > self checkForPreamble: chunk. > Compiler evaluate: chunk logged: true]] in [:bar | > [self atEnd] > whileFalse: [bar value: self position. > self skipSeparators. > [| chunk | val := (self peekFor: $!) > ifTrue: [(Compiler evaluate: self nextChunk logged: false) > scanFrom: self] > ifFalse: [chunk := self nextChunk. > self checkForPreamble: chunk. > Compiler evaluate: chunk logged: true]] > on: InMidstOfFileinNotification > do: [:ex | ex resume: true]. > self skipStyleChunk]. > self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: > BlockClosure>>on:do: > [:bar | > [self atEnd] > whileFalse: [bar value: self position. > self skipSeparators. > [| chunk | val := (self peekFor: $!) > ifTrue: [(Compiler evaluate: self nextChunk logged: false) > scanFrom: self] > ifFalse: [chunk := self nextChunk. > self checkForPreamble: chunk. > Compiler evaluate: chunk logged: true]] > on: InMidstOfFileinNotification > do: [:ex | ex resume: true]. > self skipStyleChunk]. > self close] in RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: > NonInteractiveUIManager>>progressInitiationExceptionDefaultAction: > ProgressInitiationException>>defaultAction > UndefinedObject>>handleSignal: > ProgressInitiationException(Exception)>>signal > ProgressInitiationException>>display:at:from:to:during: > ProgressInitiationException class>>display:at:from:to:during: > ByteString(String)>>displayProgressAt:from:to:during: > RWBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: > RWBinaryOrTextStream(PositionableStream)>>fileIn > CodeLoader>>installSourceFile: > [:req | self installSourceFile: req contentStream] in CodeLoader>>installSourceFiles > Array(SequenceableCollection)>>do: > CodeLoader>>installSourceFiles > ProjectLauncher>>startUpAfterLogin > ProjectLauncher>>startUp > [launcher startUp] in [:launcher | ws > addDeferredUIMessage: [launcher startUp]] in AutoStart class>>startUp: > WorldState>>runStepMethodsIn: > PasteUpMorph>>runStepMethods > WorldState>>doOneCycleNowFor: > WorldState>>doOneCycleFor: > PasteUpMorph>>doOneCycle > [[World doOneCycle. > Processor yield. > false] whileFalse. > nil] in Project class>>spawnNewProcess > [self value. > Processor terminateActive] in BlockClosure>>newProcess > ------------------------------------------------------------ > > Processes and their stacks: > Process: a Process in nil > stack: > > Array(SequenceableCollection)>>do: > [:logger | > logger nextPutAll: 'Processes and their stacks: '; > cr. > Process allInstances > do: [:each | > | ctx | > logger nextPutAll: 'Process: '; > print: each; > cr; > nextPutAll: ' stack:'; > cr; > cr. > ctx := each isActiveProcess > ifTrue: [thisContext sender] > ifFalse: [each suspendedContext]. > ctx > ifNotNil: [(ctx stackOfSize: 20) > do: [:s | logger print: s; > cr]]. > logger nextPutAll: '------------------------------'; > cr; > cr]] in [Smalltalk logError: aString inContext: aContext. > Smalltalk > logDuring: [:logger | > logger nextPutAll: 'Processes and their stacks: '; > cr. > Process allInstances > do: [:each | > | ctx | > logger nextPutAll: 'Process: '; > print: each; > cr; > nextPutAll: ' stack:'; > cr; > cr. > ctx := each isActiveProcess > ifTrue: [thisContext sender] > ifFalse: [each suspendedContext]. > ctx > ifNotNil: [(ctx stackOfSize: 20) > do: [:s | logger print: s; > cr]]. > logger nextPutAll: '------------------------------'; > cr; > cr]]] in NonInteractiveUIManager>>quitFrom:withMessage: > [logStream := self openLog. > aMonadicBlock value: logStream] in SmalltalkImage>>logDuring: > BlockClosure>>ensure: > SmalltalkImage>>logDuring: > [Smalltalk logError: aString inContext: aContext. > Smalltalk > logDuring: [:logger | > logger nextPutAll: 'Processes and their stacks: '; > cr. > Process allInstances > do: [:each | > | ctx | > logger nextPutAll: 'Process: '; > print: each; > cr; > nextPutAll: ' stack:'; > cr; > cr. > ctx := each isActiveProcess > ifTrue: [thisContext sender] > ifFalse: [each suspendedContext]. > ctx > ifNotNil: [(ctx stackOfSize: 20) > do: [:s | logger print: s; > cr]]. > logger nextPutAll: '------------------------------'; > cr; > cr]]] in NonInteractiveUIManager>>quitFrom:withMessage: > BlockClosure>>ensure: > NonInteractiveUIManager>>quitFrom:withMessage: > NonInteractiveUIManager>>unhandledErrorDefaultAction: > UnhandledError>>defaultAction > UndefinedObject>>handleSignal: > MethodContext(ContextPart)>>handleSignal: > MethodContext(ContextPart)>>handleSignal: > MethodContext(ContextPart)>>handleSignal: > UnhandledError(Exception)>>signal > UnhandledError class>>signalForException: > MessageNotUnderstood(Error)>>defaultAction > MessageNotUnderstood>>defaultAction > UndefinedObject>>handleSignal: > MethodContext(ContextPart)>>handleSignal: > ------------------------------ > > Process: a Process in Delay class>>handleTimerEvent > stack: > > Delay class>>handleTimerEvent > Delay class>>runTimerEventLoop > [self runTimerEventLoop] in Delay class>>startTimerEventLoop > [self value. > Processor terminateActive] in BlockClosure>>newProcess > ------------------------------ > > Process: a Process in SmalltalkImage>>lowSpaceWatcher > stack: > > SmalltalkImage>>lowSpaceWatcher > [self lowSpaceWatcher] in SmalltalkImage>>installLowSpaceWatcher > [self value. > Processor terminateActive] in BlockClosure>>newProcess > ------------------------------ > > Process: a Process in ProcessorScheduler class>>idleProcess > stack: > > ProcessorScheduler class>>idleProcess > [self idleProcess] in ProcessorScheduler class>>startUp > [self value. > Processor terminateActive] in BlockClosure>>newProcess > ------------------------------ > > Process: a Process in [delaySemaphore wait] in Delay>>wait > stack: > > [delaySemaphore wait] in Delay>>wait > BlockClosure>>ifCurtailed: > Delay>>wait > InputEventPollingFetcher>>waitForInput > InputEventPollingFetcher(InputEventFetcher)>>eventLoop > [self eventLoop] in InputEventPollingFetcher(InputEventFetcher)>>installEventLoop > [self value. > Processor terminateActive] in BlockClosure>>newProcess > ------------------------------ > > Process: a Process in WeakArray class>>finalizationProcess > stack: > > WeakArray class>>finalizationProcess > [self finalizationProcess] in WeakArray class>>restartFinalizationProcess > [self value. > Processor terminateActive] in BlockClosure>>newProcess > ------------------------------ > > Archiving artifacts > Enregistrement des rÃ©sultats des tests > -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

3 2