--- a/Class.st	Thu Aug 07 19:47:43 1997 +0200
+++ b/Class.st	Fri Aug 08 11:00:54 1997 +0200
@@ -1755,7 +1755,10 @@
 basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace
     "append an expression on aStream, which defines myself."
 
-    |s owner ns nsName fullName superName cls topOwner|
+    |s owner ns nsName fullName superName cls topOwner
+     syntaxHilighting|
+
+    syntaxHilighting := Smalltalk syntaxHilighting.
 
     owner := self owningClass.
 
@@ -1773,7 +1776,12 @@
             (nsName includes:$:) ifTrue:[
                 nsName := '''' , nsName , ''''
             ].
-            aStream nextPutLine:'"{ NameSpace: ' , nsName , ' }"'; cr.
+"/            aStream nextPutLine:'"{ NameSpace: ' , nsName , ' }"'; cr.
+            aStream nextPutAll:'"{ NameSpace: '.
+            syntaxHilighting ifTrue:[aStream bold].
+            aStream nextPutAll:nsName.
+            syntaxHilighting ifTrue:[aStream normal].
+            aStream nextPutAll:' }"'; cr; cr.
         ]
     ].
 
@@ -1816,28 +1824,37 @@
         ]
     ].
 
-    aStream nextPutAll:s.
+    syntaxHilighting ifTrue:[aStream bold].
+    aStream nextPutAll:s.   "/ superclass
+    syntaxHilighting ifTrue:[aStream normal].
     aStream space.
     self basicFileOutInstvarTypeKeywordOn:aStream.
 
-    fullName ifTrue:[
-        owner isNil ifTrue:[
-            aStream nextPutAll:'#'''; nextPutAll:(self name); nextPutAll:''''.
-        ] ifFalse:[
-            aStream nextPut:$#; nextPutAll:(self nameWithoutPrefix).
-        ]
+    (fullName and:[owner isNil]) ifTrue:[
+        aStream nextPutAll:'#'''.
+        syntaxHilighting ifTrue:[aStream bold].
+        aStream nextPutAll:(self name).
+        syntaxHilighting ifTrue:[aStream normal].
+        aStream nextPutAll:''''.
     ] ifFalse:[
-        aStream nextPut:$#; nextPutAll:(self nameWithoutPrefix).
+        aStream nextPut:$#.
+        syntaxHilighting ifTrue:[aStream bold].
+        aStream nextPutAll:(self nameWithoutPrefix).
+        syntaxHilighting ifTrue:[aStream normal].
     ].
 
     aStream crtab. 
     aStream nextPutAll:'instanceVariableNames:'''.
+    syntaxHilighting ifTrue:[aStream bold].
     self printInstVarNamesOn:aStream indent:16.
+    syntaxHilighting ifTrue:[aStream normal].
     aStream nextPutAll:''''.
 
     aStream crtab.
     aStream nextPutAll:'classVariableNames:'''.
+    syntaxHilighting ifTrue:[aStream bold].
     self printClassVarNamesOn:aStream indent:16.
+    syntaxHilighting ifTrue:[aStream normal].
     aStream nextPutAll:''''.
 
     aStream crtab.
@@ -1856,16 +1873,19 @@
     ] ifFalse:[
         "/ a private class
         aStream nextPutAll:'privateIn:'.
+        syntaxHilighting ifTrue:[aStream bold].
         fullName ifTrue:[
-            aStream nextPutAll:owner name.
+            s := owner name.
         ] ifFalse:[
-            aStream nextPutAll:owner nameWithoutNameSpacePrefix.
-        ]
+            s := owner nameWithoutNameSpacePrefix.
+        ].
+        aStream nextPutAll:s.
+        syntaxHilighting ifTrue:[aStream normal].
     ].
     aStream cr
 
     "Created: 4.1.1997 / 20:38:16 / cg"
-    "Modified: 23.1.1997 / 02:06:18 / cg"
+    "Modified: 8.8.1997 / 10:59:50 / cg"
 !
 
 basicFileOutInstvarTypeKeywordOn:aStream
@@ -3798,5 +3818,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.288 1997-08-05 14:54:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.289 1997-08-08 09:00:54 cg Exp $'
 ! !