November 2010 - Pharo-dev - lists.pharo.org

[Pharo-project] RTF reader/writer
by StÃ©phane Ducasse April 8, 2015

April 8, 2015

Hi guys Do you know if there is a library somewhere in Smalltalk to deal with RTF writing/saving? Stef

7 10

[Pharo-project] Issue 3015: When a test is restarted in the debugger, #tearDown and #setUp and not send
by Hernan Wilkinson Aug. 28, 2013

Aug. 28, 2013

Hi, I added a new issue (that I think it could be see as an improvement, not an issue) that is related to debugging a test case written with SUnit. The problem is that when you restart a test in the debugger (either by pressing the restart button or compiling the method again) the changes made by the test to the objects initialized in the #setUp are not rollbacked. This change sends the messages #tearDown and #setUp to the test when restarting it, therefore letting the test in the same state as when it was run in the first place. I uploaded the solution to this issue (or improvement) to pharo inbox under SLICE-Issue-3015-RestartingATestFromTheDebuggerSendsTearDownAndSetUp-HernanWilkinson.2 I hope you like it! Hernan. -- *HernÃ¡n Wilkinson Agile Software Development, Teaching & Coaching Mobile: +54 - 911 - 4470 - 7207 email: hernan.wilkinson(a)10Pines.com site: http://www.10Pines.com <http://www.10pines.com/>*

3 3

[Pharo-project] Standard input in Pharo?
by Andrei Stebakov May 5, 2012

May 5, 2012

I've been just going through "Computer Programming with GNU Smalltalk" book using Pharo 1.0 as an actual ST implementation. The book mentions "stdin nextLine" as a way to get an input from a user via the standard input. Is there a similar class/method in Pharo?

9 17

[Pharo-project] Bug in DateAndTime?
by Max Leske March 27, 2012

March 27, 2012

Hi. Evaluating: DateAndTime now asUnixTime and then creating a DateAndTime object from the result: DateAndTime fromUnixTime: <seconds> does not yield an equivalent object. As far as I can tell, this is because the unix epoch is hard coded in two places: DateAndTime class>>unixEpoch "Answer a DateAndTime representing the Unix epoch (1 January 1970, midnight UTC)" ^ self basicNew ticks: #(2440588 0 0) offset: Duration zero; yourself. DateAndTime>>fromUnixTime: anInteger ^ self fromSeconds: anInteger + 2177452800 "unix epoch constant" So in the end I get a difference of 7200 seconds. I'll gladly open up a bug but can someone please confirm that this is actually a bug and that I didn't miss something? Cheers, Max

5 8

[Pharo-project] How turn on Halo's?
by Denis Kudriashov Dec. 14, 2011

Dec. 14, 2011

Hello Can I turn on halos. And is rotating morphs supported in pharo?

8 12

[Pharo-project] about events :)
by StÃ©phane Ducasse Dec. 2, 2011

Dec. 2, 2011

hi may be I'm wrong but I have the impression that we have around three different kinds of event system in the system - actionMap - announcement - changed: Could we simplify that? Stef

7 10

[Pharo-project] [update 1.2] #12012
by Torsten Bergmann July 27, 2011

July 27, 2011

Hi Stef, updating from 12011 to 12012 doesnt work due to a syntax error again: Stack is below. How does "rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008" come in here .... It's the second time something like this happens. Bye T. -------------------------------------------------------------------------- Parser>>notify:at: Receiver: a Parser Arguments and temporary variables: string: 'Nothing more expected' location: 4 Receiver's instance variables: source: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008....etc... mark: 5 hereChar: $/ aheadChar: $P token: 'Pharo' tokenType: #word currentComment: nil buffer: a WriteStream 'Pharo' typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: #/ hereType: #binary hereMark: 4 hereEnd: 4 prevMark: 1 prevEnd: 3 encoder: {an EncoderForV3PlusClosures} requestor: nil parseNode: {[^ self]} failBlock: [^ failBlock value] requestorOffset: 0 tempsMark: 4 doitFlag: false properties: an AdditionalMethodState category: #'initialize-release' Parser>>expected: Receiver: a Parser Arguments and temporary variables: aString: 'Nothing more' Receiver's instance variables: source: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008....etc... mark: 5 hereChar: $/ aheadChar: $P token: 'Pharo' tokenType: #word currentComment: nil buffer: a WriteStream 'Pharo' typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: #/ hereType: #binary hereMark: 4 hereEnd: 4 prevMark: 1 prevEnd: 3 encoder: {an EncoderForV3PlusClosures} requestor: nil parseNode: {[^ self]} failBlock: [^ failBlock value] requestorOffset: 0 tempsMark: 4 doitFlag: false properties: an AdditionalMethodState category: #'initialize-release' Parser>>method:context: Receiver: a Parser Arguments and temporary variables: doit: false ctxt: nil sap: #(#rch #() 1) blk: {[^ self]} prim: 0 temps: #() messageComment: nil methodNode: nil Receiver's instance variables: source: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008....etc... mark: 5 hereChar: $/ aheadChar: $P token: 'Pharo' tokenType: #word currentComment: nil buffer: a WriteStream 'Pharo' typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: #/ hereType: #binary hereMark: 4 hereEnd: 4 prevMark: 1 prevEnd: 3 encoder: {an EncoderForV3PlusClosures} requestor: nil parseNode: {[^ self]} failBlock: [^ failBlock value] requestorOffset: 0 tempsMark: 4 doitFlag: false properties: an AdditionalMethodState category: #'initialize-release' [] in Parser>>parse:class:category:noPattern:context:notifying:ifFail: Receiver: a Parser Arguments and temporary variables: <<error during printing> Receiver's instance variables: source: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008....etc... mark: 5 hereChar: $/ aheadChar: $P token: 'Pharo' tokenType: #word currentComment: nil buffer: a WriteStream 'Pharo' typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: #/ hereType: #binary hereMark: 4 hereEnd: 4 prevMark: 1 prevEnd: 3 encoder: {an EncoderForV3PlusClosures} requestor: nil parseNode: {[^ self]} failBlock: [^ failBlock value] requestorOffset: 0 tempsMark: 4 doitFlag: false properties: an AdditionalMethodState category: #'initialize-release' BlockClosure>>on:do: Receiver: [methNode := self method: noPattern context: ctxt] Arguments and temporary variables: exception: ReparseAfterSourceEditing handlerAction: [:ex | repeatNeeded := true. myStream := requestor text string...etc... handlerActive: true Receiver's instance variables: outerContext: Parser>>parse:class:category:noPattern:context:notifying:ifFail: startpc: 134 numArgs: 0 Parser>>parse:class:category:noPattern:context:notifying:ifFail: Receiver: a Parser Arguments and temporary variables: <<error during printing> Receiver's instance variables: source: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008....etc... mark: 5 hereChar: $/ aheadChar: $P token: 'Pharo' tokenType: #word currentComment: nil buffer: a WriteStream 'Pharo' typeTable: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xB...etc... here: #/ hereType: #binary hereMark: 4 hereEnd: 4 prevMark: 1 prevEnd: 3 encoder: {an EncoderForV3PlusClosures} requestor: nil parseNode: {[^ self]} failBlock: [^ failBlock value] requestorOffset: 0 tempsMark: 4 doitFlag: false properties: an AdditionalMethodState category: #'initialize-release' Compiler>>translate:noPattern:ifFail: Receiver: a Compiler Arguments and temporary variables: aStream: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008...etc... noPattern: false failBlock: [^ nil] Receiver's instance variables: sourceStream: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-...etc... requestor: nil class: HelpBrowser category: #'initialize-release' context: nil parser: a Parser Compiler>>compile:in:classified:notifying:ifFail: Receiver: a Compiler Arguments and temporary variables: textOrStream: 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008.2.image...etc... aClass: HelpBrowser aCategory: #'initialize-release' aRequestor: nil failBlock: [^ nil] methodNode: nil Receiver's instance variables: sourceStream: a ReadStream 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-...etc... requestor: nil class: HelpBrowser category: #'initialize-release' context: nil parser: a Parser HelpBrowser class(Behavior)>>compile:classified:notifying:trailer:ifFail: Receiver: HelpBrowser Arguments and temporary variables: code: 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008.2.image' category: #'initialize-release' requestor: nil bytes: a CompiledMethodTrailer failBlock: [^ nil] methodNode: nil Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#close->(HelpBrowser>>#close "a CompiledMethod(7...etc... format: 138 instanceVariables: #('rootTopic' 'window' 'treeMorph' 'contentMorph') organization: ('accessing' rootTopic rootTopic:) ('actions' refresh) ('defaults...etc... subclasses: nil name: #HelpBrowser classPool: a Dictionary(#DefaultHelpBrowser->nil ) sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'HelpSystem-Core-UI' traitComposition: {} localSelectors: nil MethodAddition>>createCompiledMethod Receiver: a MethodAddition Arguments and temporary variables: Receiver's instance variables: text: 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008.2.image' category: #'initialize-release' changeStamp: '' requestor: nil logSource: true myClass: HelpBrowser methodAndNode: nil selector: nil compiledMethod: nil priorMethodOrNil: nil MCMethodDefinition>>addMethodAdditionTo: Receiver: a MCMethodDefinition(HelpBrowser>>initWindow) Arguments and temporary variables: aCollection: an OrderedCollection(a MethodAddition a MethodAddition a MethodAdd...etc... methodAddition: a MethodAddition Receiver's instance variables: classIsMeta: false source: 'rch/Pharo/Pharo/PharoHarvestingFixes/PharoCore-1.1-12008.2.image' category: #'initialize-release' selector: #initWindow className: #HelpBrowser timeStamp: '' [] in [] in [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad Receiver: a MCMultiPackageLoader Arguments and temporary variables: ea: a MCMethodDefinition(HelpBrowser>>initWindow) Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary(a MCMethodDefinition(HelpBrowser class>>menuCommandOn...etc... additions: an OrderedCollection(a MCClassDefinition(DummyUIManager) a MCMethodD...etc... removals: an OrderedCollection(a MCMethodDefinition(WorldState class>>debugOn:)...etc... errorDefinitions: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWi...etc... provisions: a Set(#PureBehaviorTest #PluggableSetTest #TimeStamp #BasicBehavior...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... [] in [] in OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWindow)) Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(nil nil a MCMethodDefinition(HelpBrowser>>initWindow) nil nil n...etc... firstIndex: 3 lastIndex: 3 OrderedCollection>>do: Receiver: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWindow)) Arguments and temporary variables: aBlock: [:each | | newLabel | (count = 0 or: [count + 1 = size or: [(T...etc... index: 3 Receiver's instance variables: array: an Array(nil nil a MCMethodDefinition(HelpBrowser>>initWindow) nil nil n...etc... firstIndex: 3 lastIndex: 3 [] in OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWindow)) Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(nil nil a MCMethodDefinition(HelpBrowser>>initWindow) nil nil n...etc... firstIndex: 3 lastIndex: 3 [] in [] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException: Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 1 minVal: 0 aPoint: 338@339 progressTitle: '' BlockClosure>>on:do: Receiver: [result := workBlock value: progress] Arguments and temporary variables: exception: ProgressNotification handlerAction: [:ex | ex extraParam isString ifTrue: [SystemProgressMorph un...etc... handlerActive: true Receiver's instance variables: outerContext: [] in ProgressInitiationException>>defaultMorphicAction startpc: 83 numArgs: 0 [] in ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException: Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 1 minVal: 0 aPoint: 338@339 progressTitle: '' BlockClosure>>ensure: Receiver: [[result := workBlock value: progress] on: ProgressNotification do: [:ex | ex extr...etc... Arguments and temporary variables: aBlock: [SystemProgressMorph close: progress] complete: nil returnValue: nil Receiver's instance variables: outerContext: ProgressInitiationException>>defaultMorphicAction startpc: 77 numArgs: 0 ProgressInitiationException>>defaultMorphicAction Receiver: ProgressInitiationException: Arguments and temporary variables: progress: [:barValArg | | barVal return newBarSize | barVal := barValArg. ret...etc... result: #(nil) Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 1 minVal: 0 aPoint: 338@339 progressTitle: '' ProgressInitiationException>>defaultAction Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 1 minVal: 0 aPoint: 338@339 progressTitle: '' UndefinedObject>>handleSignal: Receiver: nil Arguments and temporary variables: exception: ProgressInitiationException: Receiver's instance variables: nil MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException: val: nil Receiver's instance variables: sender: PasteUpMorph>>becomeActiveDuring: pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(445382656)") closureOrNil: nil receiver: [aBlock value] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException: val: nil Receiver's instance variables: sender: [] in ProgressInitiationException>>defaultMorphicAction pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(445382656)") closureOrNil: nil receiver: [result := workBlock value: progress] MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException: val: nil Receiver's instance variables: sender: [] in MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing...etc... pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(445382656)") closureOrNil: nil receiver: [| chunk | val := (self peekFor: $!) ifTrue: [(Compiler evaluate:...etc... MethodContext(ContextPart)>>handleSignal: Receiver: BlockClosure>>on:do: Arguments and temporary variables: exception: ProgressInitiationException: val: nil Receiver's instance variables: sender: [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad pc: 17 stackp: 3 method: (BlockClosure>>#on:do: "a CompiledMethod(445382656)") closureOrNil: nil receiver: [additions do: [:ea | self loadClassDefinition: ea] displayingPro...etc... ProgressInitiationException(Exception)>>signal Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 1 minVal: 0 aPoint: 338@339 progressTitle: '' ProgressInitiationException>>display:at:from:to:during: Receiver: ProgressInitiationException: Arguments and temporary variables: argString: '' argPoint: 338@339 argMinVal: 0 argMaxVal: 1 argWorkBlock: [:bar | self do: [:each | | newLabel | (count = 0 o...etc... Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... maxVal: 1 minVal: 0 aPoint: 338@339 progressTitle: '' ProgressInitiationException class>>display:at:from:to:during: Receiver: ProgressInitiationException Arguments and temporary variables: aString: '' aPoint: 338@339 minVal: 0 maxVal: 1 workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(ProgressInitiationException>>#d...etc... format: 150 instanceVariables: #('workBlock' 'maxVal' 'minVal' 'aPoint' 'progressTitle') organization: ('as yet unclassified' defaultAction defaultMorphicAction display...etc... subclasses: nil name: #ProgressInitiationException classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'Morphic-Widgets' traitComposition: {} localSelectors: nil ByteString(String)>>displayProgressAt:from:to:during: Receiver: '' Arguments and temporary variables: aPoint: 338@339 minVal: 0 maxVal: 1 workBlock: [:bar | self do: [:each | | newLabel | (count = 0 or: ...etc... Receiver's instance variables: '' OrderedCollection(Collection)>>do:displayingProgress:every: Receiver: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWindow)) Arguments and temporary variables: <<error during printing> Receiver's instance variables: array: an Array(nil nil a MCMethodDefinition(HelpBrowser>>initWindow) nil nil n...etc... firstIndex: 3 lastIndex: 3 OrderedCollection(Collection)>>do:displayingProgress: Receiver: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWindow)) Arguments and temporary variables: aBlock: [:ea | ea addMethodAdditionTo: methodAdditions] aStringOrBlock: 'Reloading...' Receiver's instance variables: array: an Array(nil nil a MCMethodDefinition(HelpBrowser>>initWindow) nil nil n...etc... firstIndex: 3 lastIndex: 3 [] in [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad Receiver: a MCMultiPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary(a MCMethodDefinition(HelpBrowser class>>menuCommandOn...etc... additions: an OrderedCollection(a MCClassDefinition(DummyUIManager) a MCMethodD...etc... removals: an OrderedCollection(a MCMethodDefinition(WorldState class>>debugOn:)...etc... errorDefinitions: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWi...etc... provisions: a Set(#PureBehaviorTest #PluggableSetTest #TimeStamp #BasicBehavior...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... BlockClosure>>on:do: Receiver: [additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading class...etc... Arguments and temporary variables: exception: InMidstOfFileinNotification handlerAction: [:n | n resume: true] handlerActive: true Receiver's instance variables: outerContext: [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad startpc: 112 numArgs: 0 [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad Receiver: a MCMultiPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary(a MCMethodDefinition(HelpBrowser class>>menuCommandOn...etc... additions: an OrderedCollection(a MCClassDefinition(DummyUIManager) a MCMethodD...etc... removals: an OrderedCollection(a MCMethodDefinition(WorldState class>>debugOn:)...etc... errorDefinitions: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWi...etc... provisions: a Set(#PureBehaviorTest #PluggableSetTest #TimeStamp #BasicBehavior...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... BlockClosure>>ensure: Receiver: [[additions do: [:ea | self loadClassDefinition: ea] displayingProgress: 'Loading clas...etc... Arguments and temporary variables: aBlock: [self flushChangesFile] complete: nil returnValue: nil Receiver's instance variables: outerContext: MCMultiPackageLoader(MCPackageLoader)>>basicLoad startpc: 108 numArgs: 0 MCMultiPackageLoader(MCPackageLoader)>>basicLoad Receiver: a MCMultiPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary(a MCMethodDefinition(HelpBrowser class>>menuCommandOn...etc... additions: an OrderedCollection(a MCClassDefinition(DummyUIManager) a MCMethodD...etc... removals: an OrderedCollection(a MCMethodDefinition(WorldState class>>debugOn:)...etc... errorDefinitions: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWi...etc... provisions: a Set(#PureBehaviorTest #PluggableSetTest #TimeStamp #BasicBehavior...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... [] in MCMultiPackageLoader(MCPackageLoader)>>loadWithNameLike: Receiver: a MCMultiPackageLoader Arguments and temporary variables: Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary(a MCMethodDefinition(HelpBrowser class>>menuCommandOn...etc... additions: an OrderedCollection(a MCClassDefinition(DummyUIManager) a MCMethodD...etc... removals: an OrderedCollection(a MCMethodDefinition(WorldState class>>debugOn:)...etc... errorDefinitions: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWi...etc... provisions: a Set(#PureBehaviorTest #PluggableSetTest #TimeStamp #BasicBehavior...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... [] in MCMultiPackageLoader(MCPackageLoader)>>useChangeSetNamed:during: Receiver: a MCMultiPackageLoader Arguments and temporary variables: aBlock: [self basicLoad] Receiver's instance variables: requirements: #() unloadableDefinitions: a SortedCollection() obsoletions: a Dictionary(a MCMethodDefinition(HelpBrowser class>>menuCommandOn...etc... additions: an OrderedCollection(a MCClassDefinition(DummyUIManager) a MCMethodD...etc... removals: an OrderedCollection(a MCMethodDefinition(WorldState class>>debugOn:)...etc... errorDefinitions: an OrderedCollection(a MCMethodDefinition(HelpBrowser>>initWi...etc... provisions: a Set(#PureBehaviorTest #PluggableSetTest #TimeStamp #BasicBehavior...etc... methodAdditions: an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc... --- The full stack --- Parser>>notify:at: Parser>>expected: Parser>>method:context: [] in Parser>>parse:class:category:noPattern:context:notifying:ifFail: BlockClosure>>on:do: Parser>>parse:class:category:noPattern:context:notifying:ifFail: Compiler>>translate:noPattern:ifFail: Compiler>>compile:in:classified:notifying:ifFail: HelpBrowser class(Behavior)>>compile:classified:notifying:trailer:ifFail: MethodAddition>>createCompiledMethod MCMethodDefinition>>addMethodAdditionTo: [] in [] in [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad [] in [] in OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection>>do: [] in OrderedCollection(Collection)>>do:displayingProgress:every: [] in [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection(Collection)>>do:displayingProgress: [] in [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad BlockClosure>>on:do: [] in MCMultiPackageLoader(MCPackageLoader)>>basicLoad BlockClosure>>ensure: MCMultiPackageLoader(MCPackageLoader)>>basicLoad [] in MCMultiPackageLoader(MCPackageLoader)>>loadWithNameLike: [] in MCMultiPackageLoader(MCPackageLoader)>>useChangeSetNamed:during: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - BlockClosure>>ensure: MCMultiPackageLoader(MCPackageLoader)>>useChangeSetNamed:during: MCMultiPackageLoader(MCPackageLoader)>>useNewChangeSetNamedLike:during: MCMultiPackageLoader(MCPackageLoader)>>loadWithNameLike: MCVersionLoader>>loadWithNameLike: MCVersionLoader>>load ScriptLoader>>loadTogether:merge: ScriptLoader>>update12012 UndefinedObject>>DoIt Compiler>>evaluate:in:to:notifying:ifFail:logged: Compiler class>>evaluate:for:notifying:logged: Compiler class>>evaluate:for:logged: Compiler class>>evaluate:logged: [] in [] in MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: BlockClosure>>on:do: [] in MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: [] in [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>on:do: [] in ProgressInitiationException>>defaultMorphicAction BlockClosure>>ensure: ProgressInitiationException>>defaultMorphicAction ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: MultiByteBinaryOrTextStream(PositionableStream)>>fileInAnnouncing: [] in ChangeSet class>>newChangesFromStream:named: BlockClosure>>ensure: ChangeSet class>>newChangesFromStream:named: [] in Utilities class>>readServer:special:updatesThrough:saveLocally:updateImage: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: Utilities class>>readServer:special:updatesThrough:saveLocally:updateImage: Utilities class>>readServerUpdatesThrough:saveLocally:updateImage: Utilities class>>readServerUpdatesSaveLocally:updateImage: Utilities class>>updateFromServer [] in [] in WorldState class>>systemOn: [] in ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: BlockClosure>>ensure: CursorWithMask(Cursor)>>showWhile: ToggleMenuItemMorph(MenuItemMorph)>>invokeWithEvent: ToggleMenuItemMorph(MenuItemMorph)>>mouseUp: ToggleMenuItemMorph(MenuItemMorph)>>handleMouseUp: MouseButtonEvent>>sentTo: ToggleMenuItemMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: ToggleMenuItemMorph(Morph)>>processEvent:using: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: MenuMorph(Morph)>>processEvent:using: MenuMorph(Morph)>>processEvent: MenuMorph>>handleFocusEvent: [] in HandMorph>>sendFocusEvent:to:clear: [] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent: HandMorph>>handleEvent: HandMorph>>processEvents [] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess [] in BlockClosure>>newProcess -- GMX DSL: Internet-, Telefon- und Handy-Flat ab 19,99 EUR/mtl. Bis zu 150 EUR Startguthaben inklusive! http://portal.gmx.net/de/go/dsl

12 23

Re: [Pharo-project] [Pharo-users] Pharo Talk ESUG 2010
by Marcus Denker June 9, 2011

June 9, 2011

On Oct 7, 2010, at 1:23 AM, GermÃ¡n Arduino wrote: > hehe, thanks! > > You will come to Smalltalks 2010 ? Yes, Mariano, Luc and me. > > I was thinking exactly in ask permit to use this one (and other > similars) to present Pharo in other contexts, for example in localgroups, etc. Normally all my talks are CC non-commercial share-alike... only that I often forget to put it in the slides... > That's perfectly allowed and even more, a ppt/keypoint template should be available. 2 days ago Marcus borrowed this one for my PhD first year evaliuation ;) Ok, I have put the keynote (zipped): http://marcusdenker.de/talks/10ESUG/ -- Marcus Denker -- http://www.marcusdenker.de INRIA Lille -- Nord Europe. Team RMoD.

4 3

[Pharo-project] FastCGI support in Pharo
by Dario Trussardi June 1, 2011

June 1, 2011

Hi, i have a Lighttpd server with FastCGI support for deployment system ( based on GLASS ). Now i'm interested to work with the same web server for development system based on Pharo. For now in Pharo i use the WAKom interface. I can load the FastCGI support into Pharo ? Thank for any consideration, Dario

2 2

[Pharo-project] Issue 3341 in pharo: use #= for integer comparison instead of #==
by pharo＠googlecode.com April 16, 2011

April 16, 2011

Status: Accepted Owner: stephane.ducasse Labels: Milestone-1.3 Type-Squeak New issue 3341 by stephane.ducasse: use #= for integer comparison instead of #== http://code.google.com/p/pharo/issues/detail?id=3341 Please read the original statement of dan. http://bugs.squeak.org/view.php?id=2788 I think that this bunch of fixes are important. ==================== Summary ==================== Name: Collections-ul.406 Author: ul Time: 15 November 2010, 10:30:39.825 am UUID: 9cd8fc97-4673-3340-9ea2-2f3dbd5f38e3 Ancestors: Collections-cmm.405 - use #= for integer comparison instead of #== (http://bugs.squeak.org/view.php?id=2788 ) =============== Diff against Collections-cmm.405 =============== Item was changed: ----- Method: SequenceableCollection>>after:ifAbsent: (in category 'accessing') ----- after: target ifAbsent: exceptionBlock "Answer the element after target. Answer the result of evaluation the exceptionBlock if target is not in the receiver, or if there are no elements after it." | index | index := self indexOf: target. + ^ (index = 0 or: [index = self size]) - ^ (index == 0 or: [index = self size]) ifTrue: [exceptionBlock value] ifFalse: [self at: index + 1]! Item was changed: ----- Method: SequenceableCollection>>before:ifAbsent: (in category 'accessing') ----- before: target ifAbsent: exceptionBlock "Answer the receiver's element immediately before target. Answer the result of evaluating the exceptionBlock if target is not an element of the receiver, or if there are no elements before it." | index | index := self indexOf: target. + ^ (index = 0 or: [index = 1]) - ^ (index == 0 or: [index == 1]) ifTrue: [exceptionBlock value] ifFalse: [self at: index - 1]! Item was changed: ----- Method: String>>asIdentifier: (in category 'converting') ----- asIdentifier: shouldBeCapitalized "Return a legal identifier, with first character in upper case if shouldBeCapitalized is true, else lower case. This will always return a legal identifier, even for an empty string" | aString firstChar firstLetterPosition | aString := self select: [:el | el isAlphaNumeric]. firstLetterPosition := aString findFirst: [:ch | ch isLetter]. + aString := firstLetterPosition = 0 - aString := firstLetterPosition == 0 ifFalse: [aString copyFrom: firstLetterPosition to: aString size] ifTrue: ['a', aString]. firstChar := shouldBeCapitalized ifTrue: [aString first asUppercase] ifFalse: [aString first asLowercase]. ^ firstChar asString, (aString copyFrom: 2 to: aString size) " '234Fred987' asIdentifier: false '235Fred987' asIdentifier: true '' asIdentifier: true '()87234' asIdentifier: false '())z>=PPve889 U >' asIdentifier: false "! Item was changed: ----- Method: String>>initialIntegerOrNil (in category 'converting') ----- initialIntegerOrNil "Answer the integer represented by the leading digits of the receiver, or nil if the receiver does not begin with a digit" | firstNonDigit | + (self size = 0 or: [self first isDigit not]) ifTrue: [^ nil]. - (self size == 0 or: [self first isDigit not]) ifTrue: [^ nil]. firstNonDigit := (self findFirst: [:m | m isDigit not]). firstNonDigit = 0 ifTrue: [firstNonDigit := self size + 1]. ^ (self copyFrom: 1 to: (firstNonDigit - 1)) asNumber " '234Whoopie' initialIntegerOrNil 'wimpy' initialIntegerOrNil '234' initialIntegerOrNil '2N' initialIntegerOrNil '2' initialIntegerOrNil ' 89Ten ' initialIntegerOrNil '78 92' initialIntegerOrNil " ! Item was changed: ----- Method: String>>sansPeriodSuffix (in category 'converting') ----- sansPeriodSuffix "Return a copy of the receiver up to, but not including, the first period. If the receiver's *first* character is a period, then just return the entire receiver. " | likely | likely := self copyUpTo: $.. + ^ likely size = 0 - ^ likely size == 0 ifTrue: [self] ifFalse: [likely]! Item was changed: ----- Method: String>>utf8ToIso (in category 'internet') ----- utf8ToIso "Only UTF-8 characters that maps to 8-bit ISO-8559-1 values are converted. Others raises an error" | s i c v c2 v2 | s := WriteStream on: (String new: self size). i := 1. [i <= self size] whileTrue: [ c := self at: i. i:=i+1. v := c asciiValue. (v > 128) ifFalse: [ s nextPut: c ] + ifTrue: [((v bitAnd: 252) = 192) - ifTrue: [((v bitAnd: 252) == 192) ifFalse: [self error: 'illegal UTF-8 ISO character'] ifTrue: [ (i > self size) ifTrue: [ self error: 'illegal end-of-string, expected 2nd byte of UTF-8']. c2 := self at: i. i:=i+1. v2 := c2 asciiValue. ((v2 bitAnd: 192) = 128) ifFalse: [self error: 'illegal 2nd UTF-8 char']. s nextPut: ((v2 bitAnd: 63) bitOr: ((v << 6) bitAnd: 192)) asCharacter]]]. ^s contents. ! Item was changed: ----- Method: Symbol class>>selectorsContaining: (in category 'access') ----- selectorsContaining: aString "Answer a list of selectors that contain aString within them. Case-insensitive. Does return symbols that begin with a capital letter." | size selectorList ascii | selectorList := OrderedCollection new. (size := aString size) = 0 ifTrue: [^selectorList]. aString size = 1 ifTrue: [ ascii := aString first asciiValue. ascii < 128 ifTrue: [selectorList add: (OneCharacterSymbols at: ascii+1)] ]. (aString first isLetter or: [aString first isDigit]) ifFalse: [ + aString size = 2 ifTrue: - aString size == 2 ifTrue: [Symbol hasInterned: aString ifTrue: [:s | selectorList add: s]]. ^selectorList ]. selectorList := selectorList copyFrom: 2 to: selectorList size. self allSymbolTablesDo: [:each | each size >= size ifTrue: [(each findSubstring: aString in: each startingAt: 1 matchTable: CaseInsensitiveOrder) > 0 ifTrue: [selectorList add: each]]]. ^selectorList reject: [:each | "reject non-selectors, but keep ones that begin with an uppercase" each numArgs < 0 and: [each asString withFirstCharacterDownshifted numArgs < 0]]. "Symbol selectorsContaining: 'scon'"! Item was changed: ----- Method: Symbol>>isInfix (in category 'testing') ----- isInfix "Answer whether the receiver is an infix message selector." + ^ self precedence = 2! - ^ self precedence == 2! Item was changed: ----- Method: Symbol>>isKeyword (in category 'testing') ----- isKeyword "Answer whether the receiver is a message keyword." + ^ self precedence = 3! - ^ self precedence == 3! Item was changed: ----- Method: Symbol>>isUnary (in category 'testing') ----- isUnary "Answer whether the receiver is an unary message selector." + ^ self precedence = 1! - ^ self precedence == 1!

1 13