August 2009 - Pharo-dev - lists.pharo.org

[Pharo-project] Loading packages with Gofer and Flair
by Fernando olivero Aug. 27, 2009

Aug. 27, 2009

Hi, How can i specify post install actions when using Gofer and Flair protocol. If i implement SomePackageLoader>>#load, i can send the message #postInstall. SomePackageLoader >>load | config | self ensureFlairAndGofer. config := (Smalltalk at: #FLConfiguration) new. self allFor: config. config load. self postInstall. But i've also seen the FLoadable>>postLoadAction: method, but when i used i've get an erro with a description that it shouldnt be used. Thanks, Fernando

1 0

[Pharo-project] FW: New Pharo based on core 10418
by Schwab,Wilhelm K Aug. 27, 2009

Aug. 27, 2009

Damien, It wasn't hard, but I wonder whether I might have changed the default browser. Is there a way to determine the current setting for that? I will try to repeat the process later this AM. Bill -----Original Message----- From: Damien Cassou [mailto:damien.cassou@gmail.com] Sent: Thursday, August 27, 2009 6:04 AM To: Schwab,Wilhelm K Subject: Re: [Pharo-project] New Pharo based on core 10418 On Wed, Aug 26, 2009 at 8:31 PM, Schwab,Wilhelm K<bschwab(a)anest.ufl.edu> wrote: > Right clicking in the browsers gives the #isClassNode and then #isMethodNode walkbacks. Hi Bill, could you please detail me the process to reproduce? -- Damien Cassou http://damiencassou.seasidehosting.st "Lambdas are relegated to relative obscurity until Java makes them popular by not having them." James Iry

2 2

[Pharo-project] Preparing Pharo sprint at esug
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Hi guys ESUG is approaching really fast and I would like to come up with a set of actions for the sprint (we will revise them) I see two kinds of possible actions: towards 1.0 - cleaning and fixing 1.0 items -- cuis fonts -- pending bug fixes... - checking squeak fixes towards 1.1 - since we will meet physically we can meet and check next step item - Preferences/Setting with alain it would be good to check the status of the bug tracker and update it if we see missing items Stef

2 4

[Pharo-project] Compiler Notifications
by Lukas Renggli Aug. 27, 2009

Aug. 27, 2009

I "merged" the changes of Colin "The compiler now uses notifications to signal that a correctable error has been found in the method source, rather than interacting directly with the user" into the Pharo compiler. This was a bit tricky because the compiler is quite different and some classes are somehow called different, but it seems to work now. Also the tests pass. http://www.squeaksource.com/PharoInbox/CompilerTests-lr.17.mcz http://www.squeaksource.com/PharoInbox/Compiler-lr.118.mcz Cheers, Lukas -- Lukas Renggli http://www.lukas-renggli.ch

2 1

[Pharo-project] Fwd: Better senders/implementers UI
by StÃ©phane Ducasse Aug. 27, 2009

Aug. 27, 2009

Begin forwarded message: > Scott Wallace made a nice improvement to the regular senders/ > implementers browsers. It reuses in the same window, and adds a > history pane so you can see how you got to a certain point, and can > back track if necessary. > > This has not been updated since 3.8 I think, but if properly > integrated rather than as separate package it might be quite nice: > > http://www.squeaksource.com/Green.html

2 2

[Pharo-project] about looking at some squeak fixes
by Torsten Bergmann Aug. 27, 2009

Aug. 27, 2009

Stephane wrote >If you want to help. one is "Clarify the meaning of #asOop in Squeak." which is already solved: Just review and integrate the changeset in http://code.google.com/p/pharo/issues/detail?id=1074 Bye Torsten -- GRATIS fÃ¼r alle GMX-Mitglieder: Die maxdome Movie-FLAT! Jetzt freischalten unter http://portal.gmx.net/de/go/maxdome01

2 1

[Pharo-project] New Pharo based on core 10418 - Win32 Installer
by Torsten Bergmann Aug. 27, 2009

Aug. 27, 2009

The according Win32 Setup is available from: http://pharo-project.org/pharo-download or directly http://gforge.inria.fr/frs/download.php/22828/setup_pharo1.0-10418-BETAdev0… What is new: ============ - the name of the setup follows the pharo version scheme (see [1]) as requested by Miguel and therefore matches the name of Damiens ZIP package - the newest windows VM 3.11.4 from Andreas is used (see [2]) - the VM now correctly reports it's version when you select Properties -> Version in the explorer (see [3]) - includes the lates image 10418 from Damien (see [4]) Have fun T. [1] http://n2.nabble.com/Pharo-name-format-td3365418.html#a3385477 [2] http://lists.squeakfoundation.org/pipermail/vm-dev/2009-August/002993.html [3] http://lists.squeakfoundation.org/pipermail/vm-dev/2009-August/002996.html [4] http://lists.gforge.inria.fr/pipermail/pharo-project/2009-August/012923.html -- Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla Firefox 3 - sicherer, schneller und einfacher! http://portal.gmx.net/de/go/chbrowser

2 1

Aug. 27, 2009

Hi since there is a new burst of activity in squeak (probably related to the fact that pharo exists) it would be nice to check the changes. I like the log that they sent it helps spotting change. May be we should have the same to support simple browsing of commit. However I do not know where this behavior comes from. Stef

2 4

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 27, 2009 6:02:12 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: Kernel-ar.230.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of Kernel to project The Trunk: > http://source.squeak.org/trunk/Kernel-ar.230.mcz > > ==================== Summary ==================== > > Name: Kernel-ar.230 > Author: ar > Time: 26 August 2009, 9:01:37 am > UUID: d0759469-14fd-2c40-a5bd-90aab36cd9a5 > Ancestors: Kernel-ar.229 > > Implementations for BlockClosure>>isValid and > asMinimalRepresentation for compatibility of BlockClosure with the > when:evaluate: protocol. > > =============== Diff against Kernel-ar.229 =============== > > Item was added: > + ----- Method: BlockClosure>>isValid (in category 'events-support') > ----- > + isValid > + "For use in the when:evaluate: protocol, i.e., > + foo when: #bar evaluate:[self handleBar]. > + Return true." > + ^true! > > Item was added: > + ----- Method: BlockClosure>>asMinimalRepresentation (in category > 'events-support') ----- > + asMinimalRepresentation > + "For use in the when:evaluate: protocol, i.e., > + foo when: #bar evaluate:[self handleBar]. > + Return the receiver." > + ^true! > >

2 4

Aug. 27, 2009

Begin forwarded message: > From: commits(a)source.squeak.org > Date: August 27, 2009 6:43:27 AM CEDT > To: squeak-dev(a)lists.squeakfoundation.org > Subject: [squeak-dev] The Trunk: System-ar.137.mcz > Reply-To: squeak-dev(a)lists.squeakfoundation.org > > Andreas Raab uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-ar.137.mcz > > ==================== Summary ==================== > > Name: System-ar.137 > Author: ar > Time: 26 August 2009, 9:42:31 am > UUID: 49aa20fd-c8be-bf47-bda6-81e8a3dcdb83 > Ancestors: System-ar.136 > > Tests for when:evaluate: with blocks. Remove EventTest while we are > at it because it was a duplicate of EventManagerTest. > > =============== Diff against System-ar.136 =============== > > Item was added: > + ----- Method: EventManagerTest>>testBlockReceiverNoArgs (in > category 'running-dependent action') ----- > + testBlockReceiverNoArgs > + eventSource when: #anEvent evaluate:[self heardEvent]. > + eventSource triggerEvent: #anEvent. > + self should: [succeeded]! > > Item was added: > + ----- Method: EventManagerTest>>testBlockReceiverTwoArgs (in > category 'running-dependent action') ----- > + testBlockReceiverTwoArgs > + eventSource when: #anEvent:info: evaluate:[:arg1 :arg2| self > addArg1: arg1 addArg2: arg2]. > + eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ). > + self should: [(eventListener includes: 9) and: [eventListener > includes: 42]]! > > Item was added: > + ----- Method: EventManagerTest>>testBlockReceiverOneArg (in > category 'running-dependent action') ----- > + testBlockReceiverOneArg > + eventSource when: #anEvent: evaluate:[:arg1| eventListener add: > arg1]. > + eventSource triggerEvent: #anEvent: with: 9. > + self should: [eventListener includes: 9]! > > Item was removed: > - ----- Method: EventTest>>testReturnValueWithManyListeners (in > category 'running-dependent value') ----- > - testReturnValueWithManyListeners > - > - | value newListener | > - newListener := 'busybody'. > - eventSource > - when: #needsValue > - send: #yourself > - to: eventListener. > - eventSource > - when: #needsValue > - send: #yourself > - to: newListener. > - value := eventSource triggerEvent: #needsValue. > - self should: [value == newListener]! > > Item was removed: > - ----- Method: EventTest>>addArg1:addArg2: (in category 'private') > ----- > - addArg1: arg1 > - addArg2: arg2 > - > - eventListener > - add: arg1; > - add: arg2! > > Item was removed: > - ----- Method: EventTest>>testNoValueSupplierHasArguments (in > category 'running-broadcast query') ----- > - testNoValueSupplierHasArguments > - > - succeeded := eventSource > - triggerEvent: #needsValue: > - with: 'nelja' > - ifNotHandled: [true]. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testOneArgumentEvent (in category > 'running-dependent action') ----- > - testOneArgumentEvent > - > - eventSource when: #anEvent: send: #add: to: eventListener. > - eventSource triggerEvent: #anEvent: with: 9. > - self should: [eventListener includes: 9]! > > Item was removed: > - ----- Method: EventTest>>testReturnValueWithNoListeners (in > category 'running-dependent value') ----- > - testReturnValueWithNoListeners > - > - | value | > - value := eventSource triggerEvent: #needsValue. > - self should: [value == nil]! > > Item was removed: > - ----- Method: EventTest>>testSingleValueSupplier (in category > 'running-broadcast query') ----- > - testSingleValueSupplier > - > - eventSource > - when: #needsValue > - send: #getTrue > - to: self. > - succeeded := eventSource triggerEvent: #needsValue. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>getTrue: (in category 'private') ----- > - getTrue: anArg > - > - ^true! > > Item was removed: > - ----- Method: EventTest>>getTrue (in category 'private') ----- > - getTrue > - > - ^true! > > Item was removed: > - ----- Method: > EventTest>>testNoArgumentEventDependentSuppliedArgument (in category > 'running-dependent action supplied arguments') ----- > - testNoArgumentEventDependentSuppliedArgument > - > - eventSource when: #anEvent send: #add: to: eventListener with: > 'boundValue'. > - eventSource triggerEvent: #anEvent. > - self should: [eventListener includes: 'boundValue']! > > Item was removed: > - ----- Method: EventTest>>testNoValueSupplier (in category 'running- > broadcast query') ----- > - testNoValueSupplier > - > - succeeded := eventSource > - triggerEvent: #needsValue > - ifNotHandled: [true]. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testNoArgumentEvent (in category 'running- > dependent action') ----- > - testNoArgumentEvent > - > - eventSource when: #anEvent send: #heardEvent to: self. > - eventSource triggerEvent: #anEvent. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testTwoArgumentEvent (in category > 'running-dependent action') ----- > - testTwoArgumentEvent > - > - eventSource when: #anEvent:info: send: #addArg1:addArg2: to: self. > - eventSource triggerEvent: #anEvent:info: withArguments: #( 9 42 ). > - self should: [(eventListener includes: 9) and: [eventListener > includes: 42]]! > > Item was removed: > - ----- Method: EventTest>>testReturnValueWithOneListener (in > category 'running-dependent value') ----- > - testReturnValueWithOneListener > - > - | value | > - eventSource > - when: #needsValue > - send: #yourself > - to: eventListener. > - value := eventSource triggerEvent: #needsValue. > - self should: [value == eventListener]! > > Item was removed: > - ----- Method: EventTest>>getFalse (in category 'private') ----- > - getFalse > - > - ^false! > > Item was removed: > - ----- Method: EventTest>>setUp (in category 'running') ----- > - setUp > - > - super setUp. > - eventSource := Object new. > - eventListener := Bag new. > - succeeded := false! > > Item was removed: > - TestCase subclass: #EventTest > - instanceVariableNames: 'eventSource eventListener succeeded' > - classVariableNames: '' > - poolDictionaries: '' > - category: 'System-Object Events-Tests'! > > Item was removed: > - ----- Method: EventTest>>heardEvent (in category 'private') ----- > - heardEvent > - > - succeeded := true! > > Item was removed: > - ----- Method: EventTest>>testRemoveActionsTwiceForEvent (in > category 'running-remove actions') ----- > - testRemoveActionsTwiceForEvent > - > - eventSource > - when: #anEvent send: #size to: eventListener; > - when: #anEvent send: #getTrue to: self; > - when: #anEvent: send: #fizzbin to: self. > - eventSource removeActionsForEvent: #anEvent. > - self assert: (eventSource hasActionForEvent: #anEvent) not. > - eventSource removeActionsForEvent: #anEvent. > - self assert: (eventSource hasActionForEvent: #anEvent) not.! > > Item was removed: > - ----- Method: EventTest>>testRemoveActionsForEvent (in category > 'running-remove actions') ----- > - testRemoveActionsForEvent > - > - eventSource > - when: #anEvent send: #size to: eventListener; > - when: #anEvent send: #getTrue to: self; > - when: #anEvent: send: #fizzbin to: self. > - eventSource removeActionsForEvent: #anEvent. > - self shouldnt: [eventSource hasActionForEvent: #anEvent]! > > Item was removed: > - ----- Method: EventTest>>testMultipleValueSuppliers (in category > 'running-broadcast query') ----- > - testMultipleValueSuppliers > - > - eventSource > - when: #needsValue > - send: #getFalse > - to: self. > - eventSource > - when: #needsValue > - send: #getTrue > - to: self. > - succeeded := eventSource triggerEvent: #needsValue. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>testRemoveActionsWithReceiver (in > category 'running-remove actions') ----- > - testRemoveActionsWithReceiver > - > - | action | > - eventSource > - when: #anEvent send: #size to: eventListener; > - when: #anEvent send: #getTrue to: self; > - when: #anEvent: send: #fizzbin to: self. > - eventSource removeActionsWithReceiver: self. > - action := eventSource actionForEvent: #anEvent. > - self assert: (action respondsTo: #receiver). > - self assert: ((action receiver == self) not)! > > Item was removed: > - ----- Method: > EventTest>>testMultipleValueSuppliersEventHasArgumentsWithGC (in > category 'running-broadcast query') ----- > - testMultipleValueSuppliersEventHasArgumentsWithGC > - > - eventSource > - when: #needsValue: > - send: #getFalse: > - to: self > - with: Object new. > - eventSource > - when: #needsValue: > - send: #getTrue: > - to: self > - with: Object new. > - Smalltalk garbageCollectMost. > - succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'. > - self should: [succeeded = nil] > - ! > > Item was removed: > - ----- Method: > EventTest>>testMultipleValueSuppliersEventHasArguments (in category > 'running-broadcast query') ----- > - testMultipleValueSuppliersEventHasArguments > - > - eventSource > - when: #needsValue: > - send: #getFalse: > - to: self. > - eventSource > - when: #needsValue: > - send: #getTrue: > - to: self. > - succeeded := eventSource triggerEvent: #needsValue: with: 'kolme'. > - self should: [succeeded]! > > Item was removed: > - ----- Method: EventTest>>tearDown (in category 'running') ----- > - tearDown > - > - eventSource releaseActionMap. > - eventSource := nil. > - eventListener := nil. > - super tearDown. > - ! > > Item was removed: > - ----- Method: EventTest>>getFalse: (in category 'private') ----- > - getFalse: anArg > - > - ^false! > > Item was removed: > - ----- Method: > EventTest>>testNoArgumentEventDependentSuppliedArguments (in > category 'running-dependent action supplied arguments') ----- > - testNoArgumentEventDependentSuppliedArguments > - > - eventSource > - when: #anEvent > - send: #addArg1:addArg2: > - to: self > - withArguments: #('hello' 'world'). > - eventSource triggerEvent: #anEvent. > - self should: [(eventListener includes: 'hello') and: > [eventListener includes: 'world']]! > >

1 1