December 2013 - Pharo-users

Seaside on Pharo 3.0

by sminni

Hi Pls guide me in getting an environment of Seaside / Zinc / Pharo 3.0 up and running Regards Sanjay ----- --- Regards, Sanjay -- View this message in context: http://forum.world.st/Seaside-on-Pharo-3-0-tp4726765.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Dec. 2, 2013

Re: [Pharo-users] Mongo cache vs database objects

by Henrik Johansen

On 27 Nov 2013, at 2:57 , Sabine KnÃ¶fel <sabine.knoefel(a)gmail.com> wrote: > ok:-) > > btw and ot: > http://adam-fletcher.co.uk/howtobegerman/ > recommend! Haha, completely OT, but just the description brought back a memory from a class trip to LÃ¼beck 15 years agoâ¦ Ater I decided to disobey the red man, an old lady remarked, indignation thick in her voice: âWie ein gutes Forbild, fÃ¼r die junge Kinderâ . There were no cars around, nor children. I think it was the first time Iâve felt both shameful and confused at the same time :) Cheers, Henry

Dec. 2, 2013

Re: [Pharo-users] Add menu item to Nautilus context menu on selected packages?

by MartinW

I have one follow-up question trying to understand how this works: I see that <nautilusXXXMenu> is used in AbstractNautilusUI to build the menus â but why is <contextMenu> here? Also the code seems to work all the same without <contextMenu>? Martin. Benjamin Van Ryseghem-2 wrote > Here is an example from Nautilus > > AbstractNautilusUI class>>packagesMenu: aBuilder > > <contextMenu> > > <nautilusGlobalPackageMenu> > | package target | > target := aBuilder model. > > (package := target selectedPackage) ifNil: [ ^ target ]. > > (aBuilder item: #'Browse scoped') > keyText: 'b, s' if: Nautilus useOldStyleKeys not; > action: [ target restrictedBrowsePackage ]; > order: 1000; > help: 'Open a browser on a restricted view'; > withSeparatorAfter. -- View this message in context: http://forum.world.st/Add-menu-item-to-Nautilus-context-menu-on-selected-pa… Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Dec. 2, 2013

Re: [Pharo-users] Obtain the name of the disk unit

by btc＠openinworld.com

Gisela Decuzzi wrote: > Hi, I need to do a validation and check if the image is running in an > usb with a spefic name. > I found how to determine the execution path: FileSystem disk > workingDirectory, but I wolud like to obtain the disk name and didn't > find a message for that. > Does anybody know how to do this? Not that I can help :) but what operating system? Can you give one example of a disk name you would expect to get? cheers, Ben

Dec. 2, 2013

Re: [Pharo-users] Mongo lost references - bug?

by Esteban Lorenzano

Hi Sabine, I'll check, but you shouldn't have that problem, so is probably a bug :) Esteban On Mon, Dec 2, 2013 at 12:51 PM, Sabine KnÃ¶fel <sabine.knoefel(a)gmail.com>wrote: > Hi Esteban, > > I found a problem in mongo/voyage and I have reduced and extracted it for > repro. > I ask for your opinion if this is a bug. > > If you file in the code below, the method >>testDemo creates a simple > model: > Paper has 1:1 reference to Planet. > Paper has 1:1 reference to Star. > Star has 1:N reference to Planet. > Star has 1:1 reference to Paper. > Planet has 1:1 reference to Paper. > > If you run >>testDemo, you see that the model which was created is ok with > all its references. > (self assert: thePaper planet = thePaper star planets first.) ==> ok > > If you reset the repository and load Paper from database with > Paper select all > and make the same check, the references are lost. > > VORepository current reset. > theReloadedPaper := Paper selectAll first. > self assert: theReloadedPaper planet = theReloadedPaper star planets first > ==>not ok > > But if you remove the comment within >>mongoPlanets > which leads to sending a message to the newly loaded object, then it works. > > write: [ :star :planets | star planets: (planets "select: [:each | each > someMethod]") ]); > > Do I have to send a message to each of the instances after loading? I think > no. > > If I did not understand correctly how to use voyage, please tell me. > > Regards > Sabine > > > > > Object subclass: #Planet > instanceVariableNames: 'planetname star paper' > classVariableNames: '' > poolDictionaries: '' > category: 'RKA24-Demo'! > > !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! > paper > ^ paper! ! > > !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! > paper: anObject > paper := anObject! ! > > !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:17'! > planetname > ^ planetname! ! > > !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:17'! > planetname: anObject > planetname := anObject! ! > > !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:53'! > star > ^ star! ! > > !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:53'! > star: anObject > star := anObject! ! > > > !Planet methodsFor: 'testing' stamp: 'sabineknoefel 12/2/2013 12:25'! > someMethod > ^true! ! > > "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! > > Planet class > instanceVariableNames: ''! > > !Planet class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 7/18/2013 16:16'! > isVoyageRoot > ^true! ! > > !Planet class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 12/2/2013 12:23'! > mongoStar > <mongoDescription> > ^ VOMongoToOneDescription new > attributeName: 'star'; > kind: Star; > accessor: (MAPluggableAccessor read: [ :planet | planet > star ] write: [ > :planet :star | planet star: star ]); > yourself! ! > > !Planet class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 12/2/2013 12:30'! > testDemo > "self testDemo" > > | thePlanet theStar thePaper theReloadedPaper | > "create simple model" > thePaper := Paper new theme: 'a paper about 42'. > thePlanet := Planet new planetname: 'Orion'; paper: thePaper. > theStar := Star new starname: 'Betelgeuse'; paper: thePaper. > theStar addPlanet: thePlanet. > thePaper star: theStar. > thePaper planet: thePlanet. > thePaper save. > > "check references - ok" > self assert: thePaper planet = thePaper star planets first. > > VORepository current reset. > theReloadedPaper := Paper selectAll first. > "references are lost now" > self assert: theReloadedPaper planet = theReloadedPaper star > planets first! > ! > > > Object subclass: #Star > instanceVariableNames: 'starname planets paper' > classVariableNames: '' > poolDictionaries: '' > category: 'RKA24-Demo'! > > !Star methodsFor: 'api' stamp: 'sabineknoefel 7/18/2013 16:21'! > addPlanet: aPlanet > self planets add: aPlanet. > aPlanet star: self! ! > > > !Star methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! > paper > ^ paper! ! > > !Star methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! > paper: anObject > paper := anObject! ! > > !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:20'! > planets > planets ifNil: [ self planets: OrderedCollection new ]. > ^ planets! ! > > !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:20'! > planets: anObject > planets := anObject! ! > > !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:18'! > starname > ^ starname! ! > > !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:18'! > starname: anObject > starname := anObject! ! > > "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! > > Star class > instanceVariableNames: ''! > > !Star class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 7/18/2013 16:16'! > isVoyageRoot > ^true! ! > > !Star class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 12/2/2013 12:31'! > mongoPlanets > "remove comment below then references are not lost anymore" > > <mongoDescription> > ^ VOMongoToManyDescription new > attributeName: 'planets'; > kind: Planet; > accessor: > (MAPluggableAccessor > read: [ :star | star > planets ] > write: [ :star :planets | > star planets: (planets "select: [:each | > each someMethod]") ]); > yourself ! ! > > > Object subclass: #Paper > instanceVariableNames: 'star planet theme' > classVariableNames: '' > poolDictionaries: '' > category: 'RKA24-Demo'! > > !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! > planet > > ^ planet! ! > > !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! > planet: anObject > > planet := anObject! ! > > !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! > star > > ^ star! ! > > !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! > star: anObject > > star := anObject! ! > > !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! > theme > > ^ theme! ! > > !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! > theme: anObject > > theme := anObject! ! > > "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! > > Paper class > instanceVariableNames: ''! > > !Paper class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 12/2/2013 11:48'! > isVoyageRoot > ^true! ! > > !Paper class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 12/2/2013 12:23'! > mongoPlanet > <mongoDescription> > ^ VOMongoToOneDescription new > attributeName: 'planet'; > accessor: (MAPluggableAccessor > read: [ :paper | paper planet ] > write: [ :paper :planet | paper planet: planet ]); > yourself! ! > > !Paper class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel > 12/2/2013 12:23'! > mongoStar > <mongoDescription> > ^ VOMongoToOneDescription new > attributeName: 'star'; > accessor: (MAPluggableAccessor > read: [ :paper | paper star ] > write: [ :paper :star | paper star: star ]); > yourself! ! > > > > > -- > View this message in context: > http://forum.world.st/Mongo-lost-references-bug-tp4726673.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > >

Dec. 2, 2013

Mongo lost references - bug?

by Sabine KnÃ¶fel

Hi Esteban, I found a problem in mongo/voyage and I have reduced and extracted it for repro. I ask for your opinion if this is a bug. If you file in the code below, the method >>testDemo creates a simple model: Paper has 1:1 reference to Planet. Paper has 1:1 reference to Star. Star has 1:N reference to Planet. Star has 1:1 reference to Paper. Planet has 1:1 reference to Paper. If you run >>testDemo, you see that the model which was created is ok with all its references. (self assert: thePaper planet = thePaper star planets first.) ==> ok If you reset the repository and load Paper from database with Paper select all and make the same check, the references are lost. VORepository current reset. theReloadedPaper := Paper selectAll first. self assert: theReloadedPaper planet = theReloadedPaper star planets first ==>not ok But if you remove the comment within >>mongoPlanets which leads to sending a message to the newly loaded object, then it works. write: [ :star :planets | star planets: (planets "select: [:each | each someMethod]") ]); Do I have to send a message to each of the instances after loading? I think no. If I did not understand correctly how to use voyage, please tell me. Regards Sabine Object subclass: #Planet instanceVariableNames: 'planetname star paper' classVariableNames: '' poolDictionaries: '' category: 'RKA24-Demo'! !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! paper ^ paper! ! !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! paper: anObject paper := anObject! ! !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:17'! planetname ^ planetname! ! !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:17'! planetname: anObject planetname := anObject! ! !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:53'! star ^ star! ! !Planet methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:53'! star: anObject star := anObject! ! !Planet methodsFor: 'testing' stamp: 'sabineknoefel 12/2/2013 12:25'! someMethod ^true! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! Planet class instanceVariableNames: ''! !Planet class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 7/18/2013 16:16'! isVoyageRoot ^true! ! !Planet class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 12/2/2013 12:23'! mongoStar <mongoDescription> ^ VOMongoToOneDescription new attributeName: 'star'; kind: Star; accessor: (MAPluggableAccessor read: [ :planet | planet star ] write: [ :planet :star | planet star: star ]); yourself! ! !Planet class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 12/2/2013 12:30'! testDemo "self testDemo" | thePlanet theStar thePaper theReloadedPaper | "create simple model" thePaper := Paper new theme: 'a paper about 42'. thePlanet := Planet new planetname: 'Orion'; paper: thePaper. theStar := Star new starname: 'Betelgeuse'; paper: thePaper. theStar addPlanet: thePlanet. thePaper star: theStar. thePaper planet: thePlanet. thePaper save. "check references - ok" self assert: thePaper planet = thePaper star planets first. VORepository current reset. theReloadedPaper := Paper selectAll first. "references are lost now" self assert: theReloadedPaper planet = theReloadedPaper star planets first! ! Object subclass: #Star instanceVariableNames: 'starname planets paper' classVariableNames: '' poolDictionaries: '' category: 'RKA24-Demo'! !Star methodsFor: 'api' stamp: 'sabineknoefel 7/18/2013 16:21'! addPlanet: aPlanet self planets add: aPlanet. aPlanet star: self! ! !Star methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! paper ^ paper! ! !Star methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 12:05'! paper: anObject paper := anObject! ! !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:20'! planets planets ifNil: [ self planets: OrderedCollection new ]. ^ planets! ! !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:20'! planets: anObject planets := anObject! ! !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:18'! starname ^ starname! ! !Star methodsFor: 'accessing' stamp: 'sabineknoefel 7/18/2013 16:18'! starname: anObject starname := anObject! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! Star class instanceVariableNames: ''! !Star class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 7/18/2013 16:16'! isVoyageRoot ^true! ! !Star class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 12/2/2013 12:31'! mongoPlanets "remove comment below then references are not lost anymore" <mongoDescription> ^ VOMongoToManyDescription new attributeName: 'planets'; kind: Planet; accessor: (MAPluggableAccessor read: [ :star | star planets ] write: [ :star :planets | star planets: (planets "select: [:each | each someMethod]") ]); yourself ! ! Object subclass: #Paper instanceVariableNames: 'star planet theme' classVariableNames: '' poolDictionaries: '' category: 'RKA24-Demo'! !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! planet ^ planet! ! !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! planet: anObject planet := anObject! ! !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! star ^ star! ! !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! star: anObject star := anObject! ! !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! theme ^ theme! ! !Paper methodsFor: 'accessing' stamp: 'sabineknoefel 12/2/2013 11:54'! theme: anObject theme := anObject! ! "-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "! Paper class instanceVariableNames: ''! !Paper class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 12/2/2013 11:48'! isVoyageRoot ^true! ! !Paper class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 12/2/2013 12:23'! mongoPlanet <mongoDescription> ^ VOMongoToOneDescription new attributeName: 'planet'; accessor: (MAPluggableAccessor read: [ :paper | paper planet ] write: [ :paper :planet | paper planet: planet ]); yourself! ! !Paper class methodsFor: 'as yet unclassified' stamp: 'sabineknoefel 12/2/2013 12:23'! mongoStar <mongoDescription> ^ VOMongoToOneDescription new attributeName: 'star'; accessor: (MAPluggableAccessor read: [ :paper | paper star ] write: [ :paper :star | paper star: star ]); yourself! ! -- View this message in context: http://forum.world.st/Mongo-lost-references-bug-tp4726673.html Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com.

Dec. 2, 2013

Obtain the name of the disk unit

by Gisela Decuzzi

Hi, I need to do a validation and check if the image is running in an usb with a spefic name. I found how to determine the execution path: FileSystem disk workingDirectory, but I wolud like to obtain the disk name and didn't find a message for that. Does anybody know how to do this?

Dec. 1, 2013