April 2012 - Pharo-dev - lists.pharo.org

Re: [Pharo-project] SUnit and TestCase

by Guillermo Polito

Why not using one announcer per instance test instance? That way you are only coupled to test runs you and only you fire. On Thu, Apr 5, 2012 at 2:57 PM, Benjamin < benjamin.vanryseghem.pharo(a)gmail.com> wrote: > Since there is an announcer per test class, you need to write something > like > > MyClass>>#register > MyTestClass announcer > on: TestCaseStarted send: #foo to: self. > > It means than here you force a link from MyClass to MyTestClass. > And if you want to be aware of all test case started, you need something > like > > TestCase withAllSubclasses do: [:e | e announcer > on: > TestCaseStarted send: #foo to: self ]. > > Why not using only one Announcer (and TestAnnouncer already exists and is > already integrated) for all test class ? > > > Ben > > > On Apr 5, 2012, at 3:50 PM, Alexandre Bergel wrote: > > > I proposed this test announcement facilities some times ago to get > notified when tests are being executed and when they are done. > > > > You said: "It means that you have to know which class to register to > instead of which announcer." > > Which unit to register you mean? Yes, the one you are interested in. I > do not see why it break the pattern. Consider > TestCaseTest>>testAnnouncement. What is wrong with it? > > > > Cheers, > > Alexandre > > > > > > On 5 Apr 2012, at 06:14, Benjamin wrote: > > > >> Hello guys, > >> > >> I was implementing in Nautilus a listener to TestCaseStarted, and then > I figured out that each TestCase subclasses have its own Announcer. > >> > >> It means that you have to know which class to register to instead of > which announcer. In a way, it breaks the Observer pattern. > >> > >> Is there any good reason I am missing ? > >> > >> I think it has been done in a way you can spy a particular test class, > but since you have this info in the announcement itself, you can always > filter with this info. > >> Cause for me, replacing all those announcer by TestAnnouncer seems to > be a better solution. > >> > >> > >> > >> Thanks in advance, > >> > >> Ben > > > > -- > > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > > Alexandre Bergel http://www.bergel.eu > > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > > > > > > > > > > >

April 5, 2012

Re: [Pharo-project] SUnit and TestCase

by Benjamin

Since there is an announcer per test class, you need to write something like MyClass>>#register MyTestClass announcer on: TestCaseStarted send: #foo to: self. It means than here you force a link from MyClass to MyTestClass. And if you want to be aware of all test case started, you need something like TestCase withAllSubclasses do: [:e | e announcer on: TestCaseStarted send: #foo to: self ]. Why not using only one Announcer (and TestAnnouncer already exists and is already integrated) for all test class ? Ben On Apr 5, 2012, at 3:50 PM, Alexandre Bergel wrote: > I proposed this test announcement facilities some times ago to get notified when tests are being executed and when they are done. > > You said: "It means that you have to know which class to register to instead of which announcer." > Which unit to register you mean? Yes, the one you are interested in. I do not see why it break the pattern. Consider TestCaseTest>>testAnnouncement. What is wrong with it? > > Cheers, > Alexandre > > > On 5 Apr 2012, at 06:14, Benjamin wrote: > >> Hello guys, >> >> I was implementing in Nautilus a listener to TestCaseStarted, and then I figured out that each TestCase subclasses have its own Announcer. >> >> It means that you have to know which class to register to instead of which announcer. In a way, it breaks the Observer pattern. >> >> Is there any good reason I am missing ? >> >> I think it has been done in a way you can spy a particular test class, but since you have this info in the announcement itself, you can always filter with this info. >> Cause for me, replacing all those announcer by TestAnnouncer seems to be a better solution. >> >> >> >> Thanks in advance, >> >> Ben > > -- > _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: > Alexandre Bergel http://www.bergel.eu > ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;. > > > > > >

April 5, 2012

[Pharo-project] SUnit and TestCase

by Benjamin

Hello guys, I was implementing in Nautilus a listener to TestCaseStarted, and then I figured out that each TestCase subclasses have its own Announcer. It means that you have to know which class to register to instead of which announcer. In a way, it breaks the Observer pattern. Is there any good reason I am missing ? I think it has been done in a way you can spy a particular test class, but since you have this info in the announcement itself, you can always filter with this info. Cause for me, replacing all those announcer by TestAnnouncer seems to be a better solution. Thanks in advance, Ben

April 5, 2012

Re: [Pharo-project] How to query the owner package of a RPackage ?

by StÃ©phane Ducasse

Yes! No subclass package. Stef > It was decided a long time ago that RPackage should not have a nested structure. > > Doru > > On Thu, Apr 5, 2012 at 11:31 AM, Alain Plantec <alain.plantec(a)yahoo.com> wrote: >> Hi all, >> Since a RPackage can have sub-packages (see RPackage>>systemSubPackages) >> I'm wondering how to get the parent package of a package. >> >> btw: why are subPackages computed ? >> I mean it seems to me that a package can be considered as a composite, so >> why >> not directly associate a package with its children ? >> (and maybe have a two ways association between a child and a parent >> package). >> >> ----- >> RPackage>>systemSubPackages >> >> "return all RPackages matching with systemCategories of this RPackage" >> |tmpPackages| >> tmpPackages := OrderedCollection new. >> self systemCategories do: [:aString | >> (aString asSymbol = self name) ifFalse: [ >> |tmpPackage| >> "Maybe a RPackage matching the subcategory name does not yet >> exist in the organizer (Because packageInfo lazily register category from >> system). In this case, We should also lazily register a new RPackage with >> the right contents inside:" >> tmpPackage := RPackageOrganizer default packageNamed: aString >> asSymbol ifAbsent: [RPackageOrganizer default importFromPackageInfo: >> (PackageInfo named: aString)]. >> tmpPackages add: (tmpPackage). >> ]. >> ]. >> ^ tmpPackages >> ----- >> >> Thanks >> Alain >> >> > > > > -- > www.tudorgirba.com > > "Every thing has its own flow" >

April 5, 2012

Re: [Pharo-project] [Pharo 1.4] Please test!

by StÃ©phane Ducasse

On Apr 5, 2012, at 11:07 AM, Hilaire Fernandes wrote: > But still I have to hand delete SystemProgressMorph after each use: > > World submorphs > select: [:m | m class == (Smalltalk at: #SystemProgressMorph)] > thenDo: [:morph | morph delete]. > > Strange. Yes this is strange. > > It only occure after my installation of DrGeo and clean up. > I will track the problem > > Here is my image building script, may be I am installed too old package: > > Gofer new > url: 'http://www.squeaksource.com/MetacelloRepository'; > package: 'ConfigurationOfOCompletion'; > load. > ((Smalltalk at: #ConfigurationOfOCompletion) project version: '1.4') load. > > Gofer new > url: 'http://www.squeaksource.com/MetacelloRepository'; > package: 'ConfigurationOfShout'; > load. > ((Smalltalk at: #ConfigurationOfShout) project version: '1.3') load. > > Gofer new > url: 'http://www.squeaksource.com/DrGeoII'; > package: 'ConfigurationOfDrGeo'; > load. > (Smalltalk at: #ConfigurationOfDrGeo ) perform:#load. > > Gofer new > url: 'http://www.squeaksource.com/PharoNonCorePackages'; > package: 'ConfigurationOfGettext'; > load. > (Smalltalk at: #ConfigurationOfGettext) perform:#load. > > > UIThemeWatery2 resetDefaultSettings. > PolymorphSystemSettings uiThemeClass: UIThemeWatery2. > > TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'. > TextDomainManager registerCategoryPrefix: 'pharo' domain: 'pharo'. > Locale activated: true. > > WorldState desktopMenuTitle: 'Dr. Geo'. > WorldState desktopMenuPragmaKeyword: 'drgeoMenu'. > > "Clean for production then install font, and clean again to remove the > unused fonts" > > "DrGDistroInfo cleanUpForRelease." > ScriptLoader new cleanUpForProduction. > > Gofer new > url: 'http://www.squeaksource.com/DejaVu'; > package: 'DejaVuBitmapFonts'; > load. > > (Smalltalk at: #DejaVuHolder) perform: #installSizes: with: #(9 11). > StandardFonts setDefaultFonts: #( > (codeFont: 'Bitmap DejaVu Sans Regular' 11) > (listFont: 'Bitmap DejaVu Sans Regular' 11) > (menuFont: 'Bitmap DejaVu Sans Regular' 11) > (windowTitleFont: 'Bitmap DejaVu Sans Regular' 11) > (balloonFont: 'Bitmap DejaVu Sans Regular' 9) > (haloFont: 'Bitmap DejaVu Sans Regular' 9) > (buttonFont: 'Bitmap DejaVu Sans Regular' 11) > (defaultFont: 'Bitmap DejaVu Sans Regular' 11)). > SystemOrganization removeSystemCategory: #DejaVuBitmapFonts. > StrikeFont cleanUp. > > SmalltalkImage checkSourcesFileAvailability: false. > SmalltalkImage checkChangesFileAvailability: false. > > DrGDefault beWorkstation. > Smalltalk saveAs: 'drgeo'. > World submorphs > select: [:m | m class == (Smalltalk at: #DrGeoWindow)] > thenDo: [:drMorph | drMorph deleteWithoutConfirmation ]. > > > Smalltalk condenseChanges. > Author fullName: 'DrGeoUser'. > Smalltalk snapshot: true andQuit: true. > > "Done" > > > > > > Hilaire > > > Le 05/04/2012 10:51, Hilaire Fernandes a Ã©crit : >> Le 04/04/2012 17:30, Marcus Denker a Ã©crit : >>> This is strange... >>> >>> ScriptLoader new cleanUpForProduction >>> >>> generates a 8.4 MB Image... >>> >> >> >> Great. >> >> Hilaire >> > > > -- > Dr. Geo -- http://www.drgeo.eu > >

April 5, 2012

Re: [Pharo-project] How to query the owner package of a RPackage ?

by Tudor Girba

It was decided a long time ago that RPackage should not have a nested structure. Doru On Thu, Apr 5, 2012 at 11:31 AM, Alain Plantec <alain.plantec(a)yahoo.com> wrote: > Hi all, > Since a RPackage can have sub-packages (see RPackage>>systemSubPackages) > I'm wondering how to get the parent package of a package. > > btw: why are subPackages computed ? > I mean it seems to me that a package can be considered as a composite, so > why > not directly associate a package with its children ? > (and maybe have a two ways association between a child and a parent > package). > > ----- > RPackage>>systemSubPackages > > Â Â "return all RPackages matching with systemCategories of this RPackage" > Â Â |tmpPackages| > Â Â tmpPackages := OrderedCollection new. > Â Â self systemCategories do: [:aString | > Â Â Â Â (aString asSymbol = self name) ifFalse: [ > Â Â Â Â Â Â |tmpPackage| > Â Â Â Â Â Â "Maybe a RPackage matching the subcategory name does not yet > exist in the organizer (Because packageInfo lazily register category from > system). In this case, We should also lazily register a new RPackage with > the right contents inside:" > Â Â Â Â Â Â tmpPackage := RPackageOrganizer default packageNamed: aString > asSymbol ifAbsent: [RPackageOrganizer default importFromPackageInfo: > (PackageInfo named: aString)]. > Â Â Â Â Â Â tmpPackages add: (tmpPackage). > Â Â Â Â Â Â ]. > Â Â Â Â ]. > Â Â ^ tmpPackages > ----- > > Thanks > Alain > > -- www.tudorgirba.com "Every thing has its own flow"

April 5, 2012

[Pharo-project] How to query the owner package of a RPackage ?

by Alain Plantec

Hi all, Since a RPackage can have sub-packages (see RPackage>>systemSubPackages) I'm wondering how to get the parent package of a package. btw: why are subPackages computed ? I mean it seems to me that a package can be considered as a composite, so why not directly associate a package with its children ? (and maybe have a two ways association between a child and a parent package). ----- RPackage>>systemSubPackages "return all RPackages matching with systemCategories of this RPackage" |tmpPackages| tmpPackages := OrderedCollection new. self systemCategories do: [:aString | (aString asSymbol = self name) ifFalse: [ |tmpPackage| "Maybe a RPackage matching the subcategory name does not yet exist in the organizer (Because packageInfo lazily register category from system). In this case, We should also lazily register a new RPackage with the right contents inside:" tmpPackage := RPackageOrganizer default packageNamed: aString asSymbol ifAbsent: [RPackageOrganizer default importFromPackageInfo: (PackageInfo named: aString)]. tmpPackages add: (tmpPackage). ]. ]. ^ tmpPackages ----- Thanks Alain

April 5, 2012

Re: [Pharo-project] [ANN] new stable version of omnibrowser

by Benjamin

Keep in mind that we improve Nautilus every day :) It's always moving, always pushed forward, and we try to be as reactive as possible :) Enjoy your experience, Ben On Apr 5, 2012, at 10:47 AM, Fabrizio Perin wrote: > Hi Stef, > I briefly tried nautilus sometime ago. I also sent a short feedback email with some first impressions. I should try to use it for some days and than I'll let you know. > > Cheers, > Fabrizio > > 2012/4/4 StÃ©phane Ducasse <stephane.ducasse(a)inria.fr> > fabrizio did you try nautilus ? > > Stef > > On Apr 4, 2012, at 2:24 PM, Fabrizio Perin wrote: > > > Thanks really a lot for this, > > I was trying to find sometime to do it myself. I'm finishing to setup a local Jenkins build to load Moose together with OB. Manually it work. I will report any unusual behaviour. > > > > Cheers, > > Fabrizio > > > > 2012/4/2 Guillermo Polito <guillermopolito(a)gmail.com> > > I fixed some usages of deprecated code, and now it loads and works at first in the latest -hopefully and almost released- Pharo 1.4 > > > > Gofer it > > squeaksource: 'MetacelloRepository'; > > package: 'ConfigurationOfOmniBrowser'; > > load. > > > > (ConfigurationOfOmniBrowser > > project version: #stable) load: #( 'Dev' 'Dev Tests'). > > > > This scripts installs OmniBrowser + OCompletion + Refactoring Browser > > > > Please test :) > > > > Guille > > > > >

April 5, 2012

Re: [Pharo-project] [Pharo 1.4] Please test!

by Hilaire Fernandes

But still I have to hand delete SystemProgressMorph after each use: World submorphs select: [:m | m class == (Smalltalk at: #SystemProgressMorph)] thenDo: [:morph | morph delete]. Strange. It only occure after my installation of DrGeo and clean up. I will track the problem Here is my image building script, may be I am installed too old package: Gofer new url: 'http://www.squeaksource.com/MetacelloRepository'; package: 'ConfigurationOfOCompletion'; load. ((Smalltalk at: #ConfigurationOfOCompletion) project version: '1.4') load. Gofer new url: 'http://www.squeaksource.com/MetacelloRepository'; package: 'ConfigurationOfShout'; load. ((Smalltalk at: #ConfigurationOfShout) project version: '1.3') load. Gofer new url: 'http://www.squeaksource.com/DrGeoII'; package: 'ConfigurationOfDrGeo'; load. (Smalltalk at: #ConfigurationOfDrGeo ) perform:#load. Gofer new url: 'http://www.squeaksource.com/PharoNonCorePackages'; package: 'ConfigurationOfGettext'; load. (Smalltalk at: #ConfigurationOfGettext) perform:#load. UIThemeWatery2 resetDefaultSettings. PolymorphSystemSettings uiThemeClass: UIThemeWatery2. TextDomainManager registerCategoryPrefix: 'DrGeoII' domain: 'DrGeoII'. TextDomainManager registerCategoryPrefix: 'pharo' domain: 'pharo'. Locale activated: true. WorldState desktopMenuTitle: 'Dr. Geo'. WorldState desktopMenuPragmaKeyword: 'drgeoMenu'. "Clean for production then install font, and clean again to remove the unused fonts" "DrGDistroInfo cleanUpForRelease." ScriptLoader new cleanUpForProduction. Gofer new url: 'http://www.squeaksource.com/DejaVu'; package: 'DejaVuBitmapFonts'; load. (Smalltalk at: #DejaVuHolder) perform: #installSizes: with: #(9 11). StandardFonts setDefaultFonts: #( (codeFont: 'Bitmap DejaVu Sans Regular' 11) (listFont: 'Bitmap DejaVu Sans Regular' 11) (menuFont: 'Bitmap DejaVu Sans Regular' 11) (windowTitleFont: 'Bitmap DejaVu Sans Regular' 11) (balloonFont: 'Bitmap DejaVu Sans Regular' 9) (haloFont: 'Bitmap DejaVu Sans Regular' 9) (buttonFont: 'Bitmap DejaVu Sans Regular' 11) (defaultFont: 'Bitmap DejaVu Sans Regular' 11)). SystemOrganization removeSystemCategory: #DejaVuBitmapFonts. StrikeFont cleanUp. SmalltalkImage checkSourcesFileAvailability: false. SmalltalkImage checkChangesFileAvailability: false. DrGDefault beWorkstation. Smalltalk saveAs: 'drgeo'. World submorphs select: [:m | m class == (Smalltalk at: #DrGeoWindow)] thenDo: [:drMorph | drMorph deleteWithoutConfirmation ]. Smalltalk condenseChanges. Author fullName: 'DrGeoUser'. Smalltalk snapshot: true andQuit: true. "Done" Hilaire Le 05/04/2012 10:51, Hilaire Fernandes a Ã©crit : > Le 04/04/2012 17:30, Marcus Denker a Ã©crit : >> This is strange... >> >> ScriptLoader new cleanUpForProduction >> >> generates a 8.4 MB Image... >> > > > Great. > > Hilaire > -- Dr. Geo -- http://www.drgeo.eu

April 5, 2012

Re: [Pharo-project] [Pharo 1.4] Please test!

by Hilaire Fernandes

Le 04/04/2012 17:30, Marcus Denker a Ã©crit : > This is strange... > > ScriptLoader new cleanUpForProduction > > generates a 8.4 MB Image... > Great. Hilaire -- Dr. Geo -- http://www.drgeo.eu

April 5, 2012