Hello all,
I am Hayatou from Cameroon and I was a beginner with smalltalk. I want to implement a " SmalltalkDoc " which takes a class in entry and generate a HTML file.
For a beginning I wrote a method smalltalkDoc in the class "Class" here the contents:
-------------------------------------------------------------------------------------------
smalltalkDoc
"Genere un fichier HTML avec des Information sur 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: '</body> </html>'.
stream close.
------------------------------------------------------------------
what can I do to have a list of the methods of a class?
I am looking for your suggestions.
best regards.
------------------------------------
Hayatou