October 2015 - Pharo-users - lists.pharo.org

Pharo family update

by Adam

Hello, I just updated drawing of projects around Pharo. Main idea is to guide people (new users of Pharo) through fields of interests - something they might be looking for. I choose these 10 fields devided into some specific subjects. Somewhere it is too detailed, while elsewhere it is too fuzzy - it is just showing image of Pharo I have in my mind. It should help people to: - identify important classes in Pharo, - select right project, - understand what is application, tool or framework, - see what is allready inside main Pharo image. I would like to add links pointing to part of books or to videos where specific projects are used. And maybe a star symbol for very important or enterprise ready projects. As You can see I left few subjects empty. Maybe someone can help me fill this. But I will be happy for any type of correction - changing fields of interest, subjects, adding/removing projects etc... I prepared textual version on github - but right now it is not coherent with the drawing (I will correct this if needed). Adam.

Oct. 23, 2015

Would smart variable ordering improve performance?

by Alexandre Bergel

Hi! It is known that increasing data locality is a good way to benefit from CPU caches. There has been some effort from the IBMâs JVM crew that aligns some frequently accessed variables at a particular offset to improve accesses. Would this approach works in Pharo? Other similar situation: will the expression âObject new yourselfâ be faster if the object (i.e., result of Object new) is physically close to the class Object in memory? Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

Oct. 23, 2015

Re: [Pharo-users] Updated Pharo By Example

by Stephan Eggermont

On 23-10-15 19:15, Thierry Goubier wrote: > Le 23 oct. 2015 7:00 PM, "Dimitris Chloupis" <kilon.alios(a)gmail.com> a > Ã©crit : >> >> I completely agree with Stef, I did actually removed some screenshots and > someone put them pack >> >> Maybe I can create a pharo script to auto make them for each version > > Wasn't there a way to run Smalltalk code inside pillar? Code that would > open windows, screenshot and return a png. Well, there is Documentation-Screenshots in StephanEggermont/Documentation You create a DOScreenshotExporter, set its directory and tell it which forms/morphs/nautilus/world you want stored there under which filename. I fixed a few remaining bugs today. I presume you should be able to use it in pillar. You can use it like so := DOScreenshotExporter new. so directory: FileLocator home. so writeNautilusMethod: DOScreenshotExporter>>#directory: as: 'directoryMethod.png' It has methods like DOScreenshotExporter>>writeNautilusMethod: aMethod as: aFileName self writeBlock: [(Nautilus openOnMethod: aMethod) ui window imageForm ] as: aFileName This makes sure to first rename an existing file before overwriting it. DOScreenshotExporter>>writeBlock: aBlock as: aFileName |temp| (directory / aFileName) exists ifTrue: [ temp := (directory / aFileName) renameTo: (aFileName,'tmp') ]. PNGReadWriter putForm: aBlock value onFileNamed: (directory / aFileName). temp ifNotNil: [ temp ensureDelete ] Stephan

Oct. 23, 2015

Re: [Pharo-users] How to programatically select an item in a Spec TreeModel ?

by Thierry Goubier

Le 23/10/2015 21:01, Peter UhnÃ¡k a Ã©crit : > It's also possible that it is simply bugged. > > PackageRemotesManager doesn't use TreeModel, it uses different widget > (whose API looks cleaner). > > I'll try to look at this tomorrow (unless someone else beats me to it) > how this could be done (and maybe even take a stab at cleaning the API a > bit...). I wrote my own API to be able to that properly with MorphTreeMorph. Fastest/easiest way to do that is to directly get the items morphs inside the tree and select them. Cleaning that up is ... well, good luck with that. I wouldn't bother. Waiting for the FT-based rewrite is the thing to do. Will make the application code dealing with that a lot leaner and cleaner to boot. Thierry > Peter > > On Fri, Oct 23, 2015 at 5:17 PM, Edouard KLEIN <edouardklein(a)gmail.com > <mailto:edouardklein@gmail.com>> wrote: > > Hi ! > > I've been playing with Pharo again. In the application I'm building, I > need to load a file from disk, and depending on what is inside this > file, select an item in a tree that is displayed on the main window. > > The SearchableTree subclass I use is copied at the end of the email. It > is nothing fancy, just creating the nodes from a fixed tree structure. > > The method selectedItemFRomPathArray (e.g. #('a' 'a1')) is the one that > should be responsible for selecting the node, but for now it just > returns the array of TreeNodeModel that correspond to the strings in the > 'PathArray' given in argument. > > I tried the following in a PlayGround : > > w := CRPJCategories2 new. w openWithSpec. > "Taken from packageRemotesManager without understanding it." > w tree selectedItem:( > (w roots) first "This line can also be : > ((w selectedItemFromPathArray:#('a')) last)" > selected:true; > takeHighlight; > yourself). > > Which works, but when I try to select something that is not a root node, > then it does not work, and I've been pulling my hair trying to > understand why. > > w := CRPJCategories2 new. w openWithSpec. > "Taken from packageRemotesManager without understanding it." > w tree selectedItem:( > ((w selectedItemFromPathArray:#('a' 'a1')) last) "<- DOES NOT WORK" > selected:true; > takeHighlight; > yourself). > > > Any pointer would be very much appreciated. > > Thenks in advance. > > Edouard. > > > > > ------------------------------------------------------- > 'From Pharo4.0 of 18 March 2013 [Latest update: #40623] on 23 October > 2015 at 4:55:07.823126 pm'! > SearchableTree subclass: #CRPJCategories2 > instanceVariableNames: 'structure' > classVariableNames: '' > poolDictionaries: '' > category: 'CRPJ'! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 15:29'! > nodeFromTreeStructure: anArray > ^ (anArray collect:[:x| TreeNodeModel new > content: (x at:1); > children: [((x size = 1) ifTrue:[#()] ifFalse:[self > nodeFromTreeStructure:(x at:2)])]; > hasChildren:[x size > 1]]) asOrderedCollection.! ! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 15:10'! > initialize > | | > super initialize. > structure := { > {'a' . { > {'a1'}. > {'a2'}}}. > {'b' . { > {'b1' . { > {'b1A'}. > {'b1B'}}}. > {'b2'}. > {'b3' . { > {'b3A'}. > {'b3B'}}}}}. > {'c' . { > {'c1'}. > {'c2'}. > {'c3'}}}}. > self roots:(self nodeFromTreeStructure: structure).! ! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 16:54'! > selectedItemFromPathArray:aPathArray > "a string description of the currently selected item" > | recurse | > recurse := [:path :nodes| > |nextNode| > nextNode := (nodes select:[:n| n content = path > first]) first. > (path size = 1) ifTrue:[{nextNode}] ifFalse:[ > {nextNode},(recurse value:(path > allButFirst)value:(nextNode children > value))]]. > ^(recurse value: aPathArray value:(self roots)).! ! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 16:53'! > selectedItemAsPathArray > "an array of the path to the currently selected item" > | recurse | > recurse := [:node| node ifNil:[{}] > ifNotNil:[(recurse value:(node > parentNode)),{node}]]. > ^(recurse value:self selectedItem) collect:[:node| node > content].! ! > >

Oct. 23, 2015

Re: [Pharo-users] memory question

by Werner Kassens

Thank you Norbert and Alexandre, #sizeInMemory was obviously what i was looking for. and <grin> the hint about the little complication in a collection that can grow, was helpful indeed! werner

Oct. 23, 2015

Re: [Pharo-users] How to programatically select an item in a Spec TreeModel ?

by Peter UhnÃ¡k

It's also possible that it is simply bugged. PackageRemotesManager doesn't use TreeModel, it uses different widget (whose API looks cleaner). I'll try to look at this tomorrow (unless someone else beats me to it) how this could be done (and maybe even take a stab at cleaning the API a bit...). Peter On Fri, Oct 23, 2015 at 5:17 PM, Edouard KLEIN <edouardklein(a)gmail.com> wrote: > Hi ! > > I've been playing with Pharo again. In the application I'm building, I > need to load a file from disk, and depending on what is inside this > file, select an item in a tree that is displayed on the main window. > > The SearchableTree subclass I use is copied at the end of the email. It > is nothing fancy, just creating the nodes from a fixed tree structure. > > The method selectedItemFRomPathArray (e.g. #('a' 'a1')) is the one that > should be responsible for selecting the node, but for now it just > returns the array of TreeNodeModel that correspond to the strings in the > 'PathArray' given in argument. > > I tried the following in a PlayGround : > > w := CRPJCategories2 new. w openWithSpec. > "Taken from packageRemotesManager without understanding it." > w tree selectedItem:( > (w roots) first "This line can also be : > ((w selectedItemFromPathArray:#('a')) last)" > selected:true; > takeHighlight; > yourself). > > Which works, but when I try to select something that is not a root node, > then it does not work, and I've been pulling my hair trying to > understand why. > > w := CRPJCategories2 new. w openWithSpec. > "Taken from packageRemotesManager without understanding it." > w tree selectedItem:( > ((w selectedItemFromPathArray:#('a' 'a1')) last) "<- DOES NOT WORK" > selected:true; > takeHighlight; > yourself). > > > Any pointer would be very much appreciated. > > Thenks in advance. > > Edouard. > > > > > ------------------------------------------------------- > 'From Pharo4.0 of 18 March 2013 [Latest update: #40623] on 23 October > 2015 at 4:55:07.823126 pm'! > SearchableTree subclass: #CRPJCategories2 > instanceVariableNames: 'structure' > classVariableNames: '' > poolDictionaries: '' > category: 'CRPJ'! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 15:29'! > nodeFromTreeStructure: anArray > ^ (anArray collect:[:x| TreeNodeModel new > content: (x at:1); > children: [((x size = 1) ifTrue:[#()] ifFalse:[self > nodeFromTreeStructure:(x at:2)])]; > hasChildren:[x size > 1]]) asOrderedCollection.! ! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 15:10'! > initialize > | | > super initialize. > structure := { > {'a' . { > {'a1'}. > {'a2'}}}. > {'b' . { > {'b1' . { > {'b1A'}. > {'b1B'}}}. > {'b2'}. > {'b3' . { > {'b3A'}. > {'b3B'}}}}}. > {'c' . { > {'c1'}. > {'c2'}. > {'c3'}}}}. > self roots:(self nodeFromTreeStructure: structure).! ! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 16:54'! > selectedItemFromPathArray:aPathArray > "a string description of the currently selected item" > | recurse | > recurse := [:path :nodes| > |nextNode| > nextNode := (nodes select:[:n| n content = path first]) > first. > (path size = 1) ifTrue:[{nextNode}] ifFalse:[ > {nextNode},(recurse value:(path > allButFirst)value:(nextNode children > value))]]. > ^(recurse value: aPathArray value:(self roots)).! ! > > !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein > 10/23/2015 16:53'! > selectedItemAsPathArray > "an array of the path to the currently selected item" > | recurse | > recurse := [:node| node ifNil:[{}] > ifNotNil:[(recurse value:(node > parentNode)),{node}]]. > ^(recurse value:self selectedItem) collect:[:node| node content].! > ! > >

Oct. 23, 2015

Re: [Pharo-users] Updated Pharo By Example

by Cyril Ferlicot

The possibility to take automatic screenshot should be added to Pillar but for now it's just an idea and no one have the time to do it. On Fri, Oct 23, 2015 at 6:59 PM, Dimitris Chloupis <kilon.alios(a)gmail.com> wrote: > I completely agree with Stef, I did actually removed some screenshots and > someone put them pack > > Maybe I can create a pharo script to auto make them for each version > -- Cheers Cyril Ferlicot

Oct. 23, 2015

Re: [Pharo-users] Updated Pharo By Example

by Thierry Goubier

Le 23 oct. 2015 7:00 PM, "Dimitris Chloupis" <kilon.alios(a)gmail.com> a Ã©crit : > > I completely agree with Stef, I did actually removed some screenshots and someone put them pack > > Maybe I can create a pharo script to auto make them for each version Wasn't there a way to run Smalltalk code inside pillar? Code that would open windows, screenshot and return a png. Thierry > > > On Fri, Oct 23, 2015 at 5:24 PM Damien Cassou <damien.cassou(a)inria.fr> wrote: >> >> >> Dimitris Chloupis <kilon.alios(a)gmail.com> writes: >> >> > "Yes we can ask oscar and after will host it also at books.pharo.org and in >> > HTML version too as for all the other books. >> >> >> please contact "Oscar Nierstrasz" <oscar(a)iam.unibe.ch> to: >> >> - get the website sources >> - redirect pharobyexample.org to files.pharo.org/books/pharobyexample >> >> > "pay attention. I think that we should minimize UI elements and external >> > frameworks because else we will have more work in 4 years from now. " >> > >> > What do you mean ? >> >> >> Stephane wants to facilitate migration of UPBE to Pharo 6/7/8/... For >> that, the book should limit the number of screenshots and fine-grained >> tutorials such as "Left click Here, press the button name 'That Way', >> you will see a window looking like That". These fine-grained >> instructions are a pain to update and need to change with each version >> of Pharo. It is ok to have some, but not too much. >> >> -- >> Damien Cassou >> http://damiencassou.seasidehosting.st >> >> "Success is the ability to go from one failure to another without >> losing enthusiasm." --Winston Churchill >>

Oct. 23, 2015

Re: [Pharo-users] Updated Pharo By Example

by Dimitris Chloupis

I completely agree with Stef, I did actually removed some screenshots and someone put them pack Maybe I can create a pharo script to auto make them for each version On Fri, Oct 23, 2015 at 5:24 PM Damien Cassou <damien.cassou(a)inria.fr> wrote: > > Dimitris Chloupis <kilon.alios(a)gmail.com> writes: > > > "Yes we can ask oscar and after will host it also at books.pharo.org > and in > > HTML version too as for all the other books. > > > please contact "Oscar Nierstrasz" <oscar(a)iam.unibe.ch> to: > > - get the website sources > - redirect pharobyexample.org to files.pharo.org/books/pharobyexample > > > "pay attention. I think that we should minimize UI elements and external > > frameworks because else we will have more work in 4 years from now. " > > > > What do you mean ? > > > Stephane wants to facilitate migration of UPBE to Pharo 6/7/8/... For > that, the book should limit the number of screenshots and fine-grained > tutorials such as "Left click Here, press the button name 'That Way', > you will see a window looking like That". These fine-grained > instructions are a pain to update and need to change with each version > of Pharo. It is ok to have some, but not too much. > > -- > Damien Cassou > http://damiencassou.seasidehosting.st > > "Success is the ability to go from one failure to another without > losing enthusiasm." --Winston Churchill > >

Oct. 23, 2015

How to programatically select an item in a Spec TreeModel ?

by Edouard KLEIN

Hi ! I've been playing with Pharo again. In the application I'm building, I need to load a file from disk, and depending on what is inside this file, select an item in a tree that is displayed on the main window. The SearchableTree subclass I use is copied at the end of the email. It is nothing fancy, just creating the nodes from a fixed tree structure. The method selectedItemFRomPathArray (e.g. #('a' 'a1')) is the one that should be responsible for selecting the node, but for now it just returns the array of TreeNodeModel that correspond to the strings in the 'PathArray' given in argument. I tried the following in a PlayGround : w := CRPJCategories2 new. w openWithSpec. "Taken from packageRemotesManager without understanding it." w tree selectedItem:( (w roots) first "This line can also be : ((w selectedItemFromPathArray:#('a')) last)" selected:true; takeHighlight; yourself). Which works, but when I try to select something that is not a root node, then it does not work, and I've been pulling my hair trying to understand why. w := CRPJCategories2 new. w openWithSpec. "Taken from packageRemotesManager without understanding it." w tree selectedItem:( ((w selectedItemFromPathArray:#('a' 'a1')) last) "<- DOES NOT WORK" selected:true; takeHighlight; yourself). Any pointer would be very much appreciated. Thenks in advance. Edouard. ------------------------------------------------------- 'From Pharo4.0 of 18 March 2013 [Latest update: #40623] on 23 October 2015 at 4:55:07.823126 pm'! SearchableTree subclass: #CRPJCategories2 instanceVariableNames: 'structure' classVariableNames: '' poolDictionaries: '' category: 'CRPJ'! !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein 10/23/2015 15:29'! nodeFromTreeStructure: anArray ^ (anArray collect:[:x| TreeNodeModel new content: (x at:1); children: [((x size = 1) ifTrue:[#()] ifFalse:[self nodeFromTreeStructure:(x at:2)])]; hasChildren:[x size > 1]]) asOrderedCollection.! ! !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein 10/23/2015 15:10'! initialize | | super initialize. structure := { {'a' . { {'a1'}. {'a2'}}}. {'b' . { {'b1' . { {'b1A'}. {'b1B'}}}. {'b2'}. {'b3' . { {'b3A'}. {'b3B'}}}}}. {'c' . { {'c1'}. {'c2'}. {'c3'}}}}. self roots:(self nodeFromTreeStructure: structure).! ! !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein 10/23/2015 16:54'! selectedItemFromPathArray:aPathArray "a string description of the currently selected item" | recurse | recurse := [:path :nodes| |nextNode| nextNode := (nodes select:[:n| n content = path first]) first. (path size = 1) ifTrue:[{nextNode}] ifFalse:[ {nextNode},(recurse value:(path allButFirst)value:(nextNode children value))]]. ^(recurse value: aPathArray value:(self roots)).! ! !CRPJCategories2 methodsFor: 'as yet unclassified' stamp: 'EdouardKlein 10/23/2015 16:53'! selectedItemAsPathArray "an array of the path to the currently selected item" | recurse | recurse := [:node| node ifNil:[{}] ifNotNil:[(recurse value:(node parentNode)),{node}]]. ^(recurse value:self selectedItem) collect:[:node| node content].! !

Oct. 23, 2015