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

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

[Pharo-project] Issue 3644 in pharo: [Hudson] automatic link checking does not work
by pharo＠googlecode.com Feb. 10, 2011

Feb. 10, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com New issue 3644 by marcus.d...(a)gmail.com: [Hudson] automatic link checking does not work http://code.google.com/p/pharo/issues/detail?id=3644 HDLintReport runPackages: #('OpalCompiler-Core') on 1.2, this just writes lots of .st files, no xml files.

1 1

[Pharo-project] Issue 3632 in pharo: [Hudson] Full Image should run Lint
by pharo＠googlecode.com Feb. 10, 2011

Feb. 10, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com New issue 3632 by marcus.d...(a)gmail.com: [Hudson] Full Image should run Lint http://code.google.com/p/pharo/issues/detail?id=3632 The full image should run slint.

1 1

[Pharo-project] Issue 3636 in pharo: [Hudson] load last core automatically
by pharo＠googlecode.com Feb. 10, 2011

Feb. 10, 2011

Status: Accepted Owner: marcus.d...(a)gmail.com New issue 3636 by marcus.d...(a)gmail.com: [Hudson] load last core automatically http://code.google.com/p/pharo/issues/detail?id=3636 Right now, we have images in the image dir. These we need to update by hand right now. The idea: download the last archived image http://www.pharo-project.org/pharo-download/stable-core http://www.pharo-project.org/pharo-download/unstable-core and use that.

1 1

[Pharo-project] Make balloon help message opaque
by Hilaire Fernandes Feb. 10, 2011

Feb. 10, 2011

http://code.google.com/p/pharo/issues/detail?id=3694

1 0

[Pharo-project] Method finder is broken
by Hilaire Fernandes Feb. 10, 2011

Feb. 10, 2011

I saw this ticket about removing it. Is it replaced by somthing else? Hilaire -- Education 0.2 -- http://blog.ofset.org/hilaire

2 2

Feb. 10, 2011

13051 ----- - Issue 3583: Shout should only be active in code panes. Thanks benjamin van ryseghem. - Issue 3689: Transcript preference for #characterLimit.

1 0

Re: [Pharo-project] A tinyBenchmark
by Marcus Denker Feb. 10, 2011

Feb. 10, 2011

On Feb 10, 2011, at 10:18 AM, Eliot Miranda wrote: > > In the Cog-Benchmarks (in Cog package) that I uploaded to squeaksource recently you'll find ShootoutTests which has 4 tests from the computer language shootouts that are pure Smalltalk. > Camillo and Toon did a nice benchmarks framework for Pinnoccio... we should look at it. And we need something like this: http://speed.pypy.org/timeline/ Marcus -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

3 2