September 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

[Pharo-project] Help (perfect for newcomers) migrating a technical FAQ
by Mariano Martinez Peck April 10, 2011

April 10, 2011

Hi folks. I had a good idea and and it perfect for someone that wants to help and don't know how. It is not the most entertained task, but I promise you will learn a lot. Mostly, if you are newcomer. The idea is basically to migrate the FAQ that is here: http://scg.unibe.ch/wiki/faq/pharofaq to a new section in the collaborative Pharo book: http://book.pharo-project.org/ So....any takers ? Let us know so that we generate a new user in the Book The idea is also to check whether what is says is still correct for pharo or if it needs an update. Or even how to improve it (from the view of a newcomer). Thanks Mariano

2 4

[Pharo-project] ProgressDisplay package released
by Ralph Boland March 29, 2011

March 29, 2011

I recently released the first draft of my package ProgressDisplay to SqueakSource. It is like SystemProgressMorph et. al. but with a lot of bells and whistles added. It is not a suitable replacement for SystemProgressMorph though because it is too large and specific for that. SystemProgressMorph could be made a subclass of one of its classes though. It is designed largely to meet my specific needs but since it's MIT anyone may use it, steal components, or move components of it to Squeak/Pharo. It has a utility class category with useful classes for things like array permutation generation and array multiset permutation generation, numeric partitioning of a number, and a class RangeList (which I will be expanding upon later). All of these classes will be removed when the package meant to contain them is ready (not soon). There are also a number of utility methods that could be stolen or put into Squeak/Pharo proper. It probably has lots of bugs, so bug reports appreciated. Comments on its function, design, and implementation most welcome. Proposals for improvements or extensions will be considered but no promises. If you need access to make changes let me know. If Levente Uzonyi likes it but feels compelled to rewrite it completely from scratch, thats okay too. :-) ONE OF MY REASONS FOR RELEASING IT IS BECAUSE OF A BUG I COULD NOT FIX. It is supposed to be possible to turn on the ability to catch user interrupts but when this feature is turned on and an interrupt generated while the progress bar is displayed the interrupt is caught but not processed until the progress bar closes. :-( Of course the interrupt was meant to be processed immediately. If anyone can tell me how to fix this bug (or better still send me the code or add the code to the package) that would be great! Regards, Ralph Boland -- Quantum Theory cannot save us from the tyranny of a deterministic universe but it does give God something to do

6 5

[Pharo-project] State of different projects for work with 3D
by nullPointer March 14, 2011

March 14, 2011

Regards; excuse me for my poor english. I want create a language similar to XAML for define UI interfaces. My doubt is the number and state of different projects for access to OpenGL. I need running on different OS without differences. Well, perhaps is a great question, but I havenÂ´t a global look of that in Pharo. Is possible implements something like that in Smalltalk? Thanks for the answers. -- View this message in context: http://forum.world.st/State-of-different-projects-for-work-with-3D-tp226825… Sent from the Pharo Smalltalk mailing list archive at Nabble.com.

7 10