544 fileOutClassInstVarDefinitionOn:aStream withNameSpace:withNameSpace

   545     "append an expression to define my classInstanceVariables on aStream"

   546 

   547     |anySuperClassInstVar|

   548 

   549     myClass isLoaded ifFalse:[

   550         ^ myClass basicFileOutDefinitionOn:aStream withNameSpace:withNameSpace

   551     ].

   552 

   553     withNameSpace ifTrue:[

   554         myClass name printOn:aStream.

   555     ] ifFalse:[

   556         myClass printClassNameOn:aStream.

   557     ].

   558     aStream nextPutAll:' class instanceVariableNames:'''.

   559     self printInstVarNamesOn:aStream indent:8.

   560     aStream nextPutAll:''''.

   561 

   562     "mhmh - good idea; saw this in SmallDraw sourcecode ..."

   563 

   564     anySuperClassInstVar := false.

   565     myClass allSuperclassesDo:[:aSuperClass |

   566         aSuperClass class instVarNames do:[:ignored | anySuperClassInstVar := true].

   567     ].

   568 

   569     aStream cr; cr; nextPut:(Character doubleQuote); cr; space.

   570     anySuperClassInstVar ifFalse:[

   571         aStream  

   572             nextPutLine:'No other class instance variables are inherited by this class.'.

   573     ] ifTrue:[

   574         aStream  

   575             nextPutLine:'The following class instance variables are inherited by this class:'.

   576         aStream cr.

   577         myClass allSuperclassesDo:[:aSuperClass |

   578             aStream tab; nextPutAll:aSuperClass name; nextPutAll:' - '.

   579             aStream nextPutLine:(aSuperClass class instanceVariableString).

   580         ].

   581 

   582     ].

   583     aStream nextPut:(Character doubleQuote); cr.

   584 

   585     "Created: / 10.12.1995 / 16:31:25 / cg"

   586     "Modified: / 1.4.1997 / 16:00:33 / stefan"

   587     "Modified: / 3.2.2000 / 23:05:28 / cg"

   588 !

   589