- Pharo-users - lists.pharo.org

Tr : SmalltalkDoc class

by Hayatou Oumarou

Â Hello I do not want to write new messages in an existing class, more precisely I project to create a category with only my own classes for my project in SmalltalkHub. Â Cordially.Â ------------------------------------ Hayatou Â - DeÂ : stephane ducasse <stephane.ducasse(a)free.fr> Â Hayatou OumarouÂ wrote: When I define a message smalltalkDoc in the class "Class" it does not haveÂ problems there.Â But when I try to define a subclass "SmalltalkDoc" of "Class" Why SmalltalkDoc would be a subclass of Class? It should inherit from Object then you can define a message inÂ Class>>smalltalkDoc (not really good style) ^ SmalltalkDoc on: selfÂ This way you can execute LinkedList smalltalkDoc and then send the message to build the doc to the smalltalkdoc object. Stef andÂ put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : >"LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > >How can I fix this?Â > >here the message. > >smalltalkDoc >Â Â Â "Genere un fichier HTML avec les Informations d'une classe" >|stream nom| >nom:=self asString,'SmalltalkDoc.html'. >stream := FileStream forceNewFileNamed: nom. >stream >nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; >nextPutAll: ''; >nextPutAll:Â 'class name : '; >nextPutAll:Â self name asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'superclass name : '; >nextPutAll:Â self superclass name asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'trait Composition : '; >nextPutAll:Â self traitCompositionString asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class trait Composition : '; >nextPutAll:Â self class traitCompositionString asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'category : ' ; >nextPutAll:Â self category asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'instances Variable Names : '; >nextPutAll:Â self instVarNames asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'pool Dictionary Names : '; >nextPutAll:Â self poolDictionaryNames asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class instances Variable Names : '; >nextPutAll:Â self class instVarNames asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'typeÂ of class : '; >nextPutAll:Â self typeOfClass asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class Comment : '; >nextPutAll:Â self organization classComment asString asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'comment Stamp : 'Â Â Â ; >nextPutAll:Â self organization commentStamp asString; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll:Â 'class Variables Names : '; >nextPutAll:Â self classVarNames asString ; >nextPutAll: ''; >nextPutAll: 'selectors : '; >nextPutAll: self class selectors asString ; >nextPutAll: ''; >nextPutAll: ''; >nextPutAll: '</body> </html>'. >stream close. > >Â > > > >------------------------------------ >Hayatou Â

Feb. 12, 2013

Re: [Pharo-users] SmalltalkDoc class

by stephane ducasse

On Feb 12, 2013, at 1:25 AM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > When I define a message smalltalkDoc in the class "Class" it does not have problems there. But when I try to define a subclass "SmalltalkDoc" of "Class" Why SmalltalkDoc would be a subclass of Class? It should inherit from Object then you can define a message in Class>>smalltalkDoc (not really good style) ^ SmalltalkDoc on: self This way you can execute LinkedList smalltalkDoc and then send the message to build the doc to the smalltalkdoc object. Stef > and put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : > "LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > > How can I fix this? > > here the message. > > smalltalkDoc > "Genere un fichier HTML avec les Informations d'une classe" > |stream nom| > nom:=self asString,'SmalltalkDoc.html'. > stream := FileStream forceNewFileNamed: nom. > stream > nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; > nextPutAll: ''; > nextPutAll: 'class name : '; > nextPutAll: self name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'superclass name : '; > nextPutAll: self superclass name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'trait Composition : '; > nextPutAll: self traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class trait Composition : '; > nextPutAll: self class traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'category : ' ; > nextPutAll: self category asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'instances Variable Names : '; > nextPutAll: self instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'pool Dictionary Names : '; > nextPutAll: self poolDictionaryNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class instances Variable Names : '; > nextPutAll: self class instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'type of class : '; > nextPutAll: self typeOfClass asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Comment : '; > nextPutAll: self organization classComment asString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'comment Stamp : ' ; > nextPutAll: self organization commentStamp asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Variables Names : '; > nextPutAll: self classVarNames asString ; > nextPutAll: ''; > nextPutAll: 'selectors : '; > nextPutAll: self class selectors asString ; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: '</body> </html>'. > stream close. > > > > ------------------------------------ > Hayatou

Feb. 12, 2013

Re: [Pharo-users] SmalltalkDoc class

by stephane ducasse

On Feb 12, 2013, at 10:21 AM, Alain Busser <alain.busser(a)gmail.com> wrote: > I'm afraid I can't help much but if you define a method for the Stream object you can have a shorter code, avoiding all these "" everywhere. > > Something like > > paragraphe: unString > self nextPutAll: ''. > self nextPutAll: unString. > self nextPutAll: ''. > > > Afterwards you would just list things like paragraphe: 'class name : ',self name asString; so that one entry would take one line of code instead of four. > > But maybe I am violating some principles for good programming? Now this is indeed much nicer :) > > And it doesn't show why SmalltalkDoc is not understood by your class... > > On Tue, Feb 12, 2013 at 4:25 AM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > When I define a message smalltalkDoc in the class "Class" it does not have problems there. But when I try to define a subclass "SmalltalkDoc" of "Class" and put the message smalltalkDoc in this class, by evaluating for example the expression "LinkedList smalltalkDoc." I have a message context : > "LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > > How can I fix this? > > here the message. > > smalltalkDoc > "Genere un fichier HTML avec les Informations d'une classe" > |stream nom| > nom:=self asString,'SmalltalkDoc.html'. > stream := FileStream forceNewFileNamed: nom. > stream > nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> <body> '; > nextPutAll: ''; > nextPutAll: 'class name : '; > nextPutAll: self name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'superclass name : '; > nextPutAll: self superclass name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'trait Composition : '; > nextPutAll: self traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class trait Composition : '; > nextPutAll: self class traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'category : ' ; > nextPutAll: self category asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'instances Variable Names : '; > nextPutAll: self instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'pool Dictionary Names : '; > nextPutAll: self poolDictionaryNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class instances Variable Names : '; > nextPutAll: self class instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'type of class : '; > nextPutAll: self typeOfClass asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Comment : '; > nextPutAll: self organization classComment asString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'comment Stamp : ' ; > nextPutAll: self organization commentStamp asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Variables Names : '; > nextPutAll: self classVarNames asString ; > nextPutAll: ''; > nextPutAll: 'selectors : '; > nextPutAll: self class selectors asString ; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: '</body> </html>'. > stream close. > > > > ------------------------------------ > Hayatou >

Feb. 12, 2013

Re: [Pharo-users] TDD tuto

by Igor Stasenko

this one shows tdd at work http://www.pharocasts.com/2011/03/build-xml-browser.html http://www.pharocasts.com/2010/01/starting-with-sunit-and-debugger.html -- Best regards, Igor Stasenko.

Feb. 12, 2013

Re: [Pharo-users] TDD tuto

by Ben Coman

Stan Shepherd wrote: > It's all the way through, starting at: > http://squeak.preeminent.org/tut2007/html/011.html > It's what first switched me on to TDD. > > Hayatou, I should have noted that this tutorial is all done in Squeak. If > you ignore the details on setting up the environment and project, it should > work fine in Pharo. > ...Stan > > > > -- > View this message in context: http://forum.world.st/TDD-tuto-tp4669308p4669376.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > > > I also was going suggest Steve Wessels tutorial - though personally I went for downloading Squeak 3.9 to match what the tutorial was written in. btw, I keep hoping this tutorial might one day be updated for Pharo 2.0.

Feb. 12, 2013

Re: [Pharo-users] TDD tuto

by Ben Coman

Stan Shepherd wrote: > It's all the way through, starting at: > http://squeak.preeminent.org/tut2007/html/011.html > It's what first switched me on to TDD. > > Hayatou, I should have noted that this tutorial is all done in Squeak. If > you ignore the details on setting up the environment and project, it should > work fine in Pharo. > ...Stan > > > > -- > View this message in context: http://forum.world.st/TDD-tuto-tp4669308p4669376.html > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > > > I also was going suggest Steve Wessels tutorial - though personally go for downloading Squeak 3.9 to match what the tutorial was done it. It would be really great to have this tutorial for Pharo 2.0.

Feb. 12, 2013

Re: [Pharo-users] TDD tuto

by Attila Magyar

I recommend the GOOS book. The examples are written in java, but recently I started porting it to smalltalk. Some work is still needed, but it is almost complete. http://smalltalkhub.com/#!/~zeroflag/growing-oo-software-in-smalltalk/ On Mon, Feb 11, 2013 at 9:36 PM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > Hello all, > Where can I find a good tuto on TDD? > regards. > ------------------------------------ > Hayatou >

Feb. 12, 2013

Re: [Pharo-users] Putting (or docking) a Workspace inside a window

by Alain Busser

Looks promising, I love the balloons, which are a good way to help the user. Anyway I'll need more frames: 1: The Text Editor 2: The Transcript 3: A graphical frame to dock the Morphs (for example, histograms) 4: A panel for all the buttons That makes at least 4 frames. And I'll need some time to hack all this, so I may ask further questions within a few days/weeks... Alain On Sat, Feb 9, 2013 at 10:30 PM, HernÃ¡n Morales Durand < hernan.morales(a)gmail.com> wrote: > Something like the STicky may be: > > http://www.youtube.com/watch?**v=b9uUIEaGyoU<http://www.youtube.com/watch?v=b9uUIEaGyoU> > > El 09/02/2013 13:54, Alain Busser escribiÃ³: > > Hello, >> >> I am working on a project called MathsOntologie, which is basically a >> French translation for Smalltalk (at least the methods which can be >> useful for maths). It works well already but my colleagues ask for a >> friendlier GUI than Pharo's (!). Then I wish to go on programming as I >> am doing right now (writing the MathsOntologie script inside the >> Workspace and sending messages to the Transcript) but within a window. >> >> My colleagues want that there be a "Run" button which would >> automatically ctrl-A then ctrl-D; I want the syntactic highlighting... >> My idea is to divide the window in frames and use one of these frames as >> a workspace and another one as a transcript. But TextMorphForEditView >> new don't work (error message: don't understand "content"...). >> >> Is there a simple way to build and use a window which would work like a >> browser, with syntax highlighting? >> >> Alain Busser >> french math teacher >> > > >

Feb. 12, 2013

Re: [Pharo-users] Putting (or docking) a Workspace inside a window

by Alain Busser

Great, I'll have a look and (hopefully) integrate this inside MathsOntologie. Now they will see! On Sat, Feb 9, 2013 at 9:57 PM, MartinW <wm(a)fastmail.fm> wrote: > Alain Busser wrote > > My colleagues want that there be a "Run" button which would automatically > > ctrl-A then ctrl-D; I want the syntactic highlighting... My idea is to > > divide the window in frames and use one of these frames as a workspace > and > > another one as a transcript. But TextMorphForEditView new don't work > > (error > > message: don't understand "content"...). > > Have a look at Athens-Playground by Esteban Lorenzano. It does something > like this, a kind of workspace in a window with a "go" button that opens > another window with the results (should be combinable into one window): > http://smalltalkhub.com/#!/~estebanlm/Storm/packages/Athens-Playground > > > > -- > View this message in context: > http://forum.world.st/Putting-or-docking-a-Workspace-inside-a-window-tp4668… > Sent from the Pharo Smalltalk Users mailing list archive at Nabble.com. > >

Feb. 12, 2013

Re: [Pharo-users] SmalltalkDoc class

by Alain Busser

I'm afraid I can't help much but if you define a method for the Stream object you can have a shorter code, avoiding all these "" everywhere. Something like paragraphe: unString self nextPutAll: ''. self nextPutAll: unString. self nextPutAll: ''. Afterwards you would just list things like paragraphe: 'class name : ',self name asString; so that one entry would take one line of code instead of four. But maybe I am violating some principles for good programming? And it doesn't show why SmalltalkDoc is not understood by your class... On Tue, Feb 12, 2013 at 4:25 AM, Hayatou Oumarou <hayaty55(a)yahoo.fr> wrote: > When I define a message smalltalkDoc in the class "Class" it does not > have problems there. But when I try to define a subclass "SmalltalkDoc" > of "Class" and put the message smalltalkDoc in this class, by evaluating > for example the expression "LinkedList smalltalkDoc." I have a message > context : > "LinkedList class(Object)>>doesNotUnderstand: #smalltalkDoc." > > How can I fix this? > > here the message. > > smalltalkDoc > "Genere un fichier HTML avec les Informations d'une classe" > |stream nom| > nom:=self asString,'SmalltalkDoc.html'. > stream := FileStream forceNewFileNamed: nom. > stream > nextPutAll: '<html> <head> <title>A little Smalltalk Doc</title> </head> > <body> '; > nextPutAll: ''; > nextPutAll: 'class name : '; > nextPutAll: self name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'superclass name : '; > nextPutAll: self superclass name asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'trait Composition : '; > nextPutAll: self traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class trait Composition : '; > nextPutAll: self class traitCompositionString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'category : ' ; > nextPutAll: self category asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'instances Variable Names : '; > nextPutAll: self instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'pool Dictionary Names : '; > nextPutAll: self poolDictionaryNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class instances Variable Names : '; > nextPutAll: self class instVarNames asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'type of class : '; > nextPutAll: self typeOfClass asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Comment : '; > nextPutAll: self organization classComment asString asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'comment Stamp : ' ; > nextPutAll: self organization commentStamp asString; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: 'class Variables Names : '; > nextPutAll: self classVarNames asString ; > nextPutAll: ''; > nextPutAll: 'selectors : '; > nextPutAll: self class selectors asString ; > nextPutAll: ''; > nextPutAll: ''; > nextPutAll: '</body> </html>'. > stream close. > > > > ------------------------------------ > Hayatou >

Feb. 12, 2013