[Pharo-users] Tr : SmalltalkDoc class

Feb. 12, 2013

      Â 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@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: '</p>';
nextPutAll:Â  'class name : ';
nextPutAll:Â  self name asString;
nextPutAll: '</p>';
nextPutAll: '<p></p>';
nextPutAll:Â  'superclass name : ';
nextPutAll:Â  self superclass name asString;
nextPutAll: '<p></p>';
nextPutAll: '<p></p>';
nextPutAll:Â  'trait Composition : ';
nextPutAll:Â  self traitCompositionString asString;
nextPutAll: '<p></p>';
nextPutAll: '<p></p>';
nextPutAll:Â  'class trait Composition : ';
nextPutAll:Â  self class traitCompositionString asString;
nextPutAll: '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'category : ' ;
nextPutAll:Â  self category asString;
nextPutAll: '</p>';
nextPutAll:
 '<p>';
nextPutAll:Â  'instances Variable Names : ';
nextPutAll:Â  self instVarNames asString;
nextPutAll: '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'pool Dictionary Names : ';
nextPutAll:Â  self poolDictionaryNames asString;
nextPutAll: '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'class instances Variable Names : ';
nextPutAll:Â  self class instVarNames asString;
nextPutAll: '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'typeÂ  of class : ';
nextPutAll:Â  self typeOfClass asString;
nextPutAll: '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'class Comment : ';
nextPutAll:Â  self organization classComment asString asString;
nextPutAll: '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'comment Stamp : 'Â Â Â  ;
nextPutAll:Â  self organization commentStamp asString;
nextPutAll:
 '</p>';
nextPutAll: '<p>';
nextPutAll:Â  'class Variables Names : ';
nextPutAll:Â  self classVarNames asString ;
nextPutAll: '<p>';
nextPutAll: 'selectors : ';
nextPutAll: self class selectors asString ;
nextPutAll: '</p>';
nextPutAll: '</p>';
nextPutAll: '</body> </html>'.
stream close.
Â 
------------------------------------
Hayatou Â 