I&#39;m afraid I can&#39;t help much but if you define a method for the Stream object you can have a shorter code, avoiding all these &quot;&lt;p&gt;&quot; everywhere.<br><br>Something like<br><br>paragraphe: unString<br>��� self nextPutAll: &#39;&lt;p&gt;&#39;.<br>
��� self nextPutAll: unString.<br>��� self nextPutAll: &#39;&lt;/p&gt;&#39;.<br><br><br>Afterwards you would just list things like paragraphe: <span>&#39;class name : &#39;,</span><span>self name asString;</span> so that one entry would take one line of code instead of four.<br>
<br>But maybe I am violating some principles for good programming?<br><br>And it doesn&#39;t show why SmalltalkDoc is not understood by your class...<br><br><div class="gmail_quote">On Tue, Feb 12, 2013 at 4:25 AM, Hayatou Oumarou <span dir="ltr">&lt;<a href="mailto:hayaty55@yahoo.fr" target="_blank">hayaty55@yahoo.fr</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div style="font-size:12pt;font-family:times new roman,new york,times,serif"><div><span>When I define a message smalltalkDoc in the class &quot;Class&quot; it does not have� problems there.� But when I try to define a subclass &quot;SmalltalkDoc&quot; of &quot;Class&quot; and� put the message smalltalkDoc in this class, by evaluating for example the expression &quot;LinkedList smalltalkDoc.&quot; I have a message context :</span></div>
<div style="font-style:normal;font-size:16px;background-color:transparent;font-family:times new roman,new york,times,serif"><span> &quot;LinkedList class(Object)&gt;&gt;doesNotUnderstand: #smalltalkDoc.&quot; <br><br>How can I fix this?� <br>
<br>here the message.<br><br>smalltalkDoc<br>��� &quot;Genere un fichier HTML avec les Informations d&#39;une classe&quot;<br>|stream nom|<br>nom:=self asString,&#39;SmalltalkDoc.html&#39;.<br>stream := FileStream forceNewFileNamed:
 nom.<br>stream<br>nextPutAll: &#39;&lt;html&gt; &lt;head&gt; &lt;title&gt;A little Smalltalk Doc&lt;/title&gt; &lt;/head&gt; &lt;body&gt; &#39;;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll:� &#39;class name : &#39;;<br>
nextPutAll:� self name asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&lt;/p&gt;&#39;;<br>nextPutAll:� &#39;superclass name : &#39;;<br>nextPutAll:� self superclass name asString;<br>nextPutAll: &#39;&lt;p&gt;&lt;/p&gt;&#39;;<br>
nextPutAll: &#39;&lt;p&gt;&lt;/p&gt;&#39;;<br>nextPutAll:� &#39;trait Composition : &#39;;<br>nextPutAll:� self traitCompositionString asString;<br>nextPutAll: &#39;&lt;p&gt;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&lt;/p&gt;&#39;;<br>
nextPutAll:� &#39;class trait Composition : &#39;;<br>nextPutAll:� self class traitCompositionString asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;category : &#39; ;<br>
nextPutAll:� self category asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll:
 &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;instances Variable Names : &#39;;<br>nextPutAll:� self instVarNames asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;pool Dictionary Names : &#39;;<br>
nextPutAll:� self poolDictionaryNames asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;class instances Variable Names : &#39;;<br>nextPutAll:� self class instVarNames asString;<br>
nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;type� of class : &#39;;<br>nextPutAll:� self typeOfClass asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>
nextPutAll:� &#39;class Comment : &#39;;<br>nextPutAll:� self organization classComment asString asString;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;comment Stamp : &#39;��� ;<br>
nextPutAll:� self organization commentStamp asString;<br>nextPutAll:
 &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll:� &#39;class Variables Names : &#39;;<br>nextPutAll:� self classVarNames asString ;<br>nextPutAll: &#39;&lt;p&gt;&#39;;<br>nextPutAll: &#39;selectors : &#39;;<br>
nextPutAll: self class selectors asString ;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;/p&gt;&#39;;<br>nextPutAll: &#39;&lt;/body&gt; &lt;/html&gt;&#39;.<br>stream close.<br></span></div><div>�</div><div>
<br><br></div><div>------------------------------------<br>Hayatou � </div></div></div></blockquote></div><br>