1749 !Class methodsFor:'fileOut'!

  1749 !Class methodsFor:'fileOut'!

  1750 

  1750 

  1751 basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace

  1751 basicFileOutDefinitionOn:aStream withNameSpace:forceNameSpace

  1752     "append an expression on aStream, which defines myself."

  1752     "append an expression on aStream, which defines myself."

  1753 

  1753 

  1754     |s owner ns nsName fullName superName cls topOwner

  1764     |s owner ns nsName fullName superName cls topOwner

  1755      syntaxHilighting|

  1765      syntaxHilighting|

  1756 

  1766 

  1757     UserPreferences isNil ifTrue:[

  1767     UserPreferences isNil ifTrue:[

  1758         syntaxHilighting := false

  1768         syntaxHilighting := false

  1767     ] ifFalse:[

  1777     ] ifFalse:[

  1768         ns := self topOwningClass nameSpace

  1778         ns := self topOwningClass nameSpace

  1769     ].

  1779     ].

  1770     fullName := FileOutNameSpaceQuerySignal query == true.

  1780     fullName := FileOutNameSpaceQuerySignal query == true.

  1771         

  1781         

  1773         aStream nextPutAll:'"{ Package: '''.

  1783         aStream nextPutAll:'"{ Package: '''.

  1774         aStream nextPutAll:self package asString.

  1784         aStream nextPutAll:self package asString.

  1775         aStream nextPutAll:''' }"'; cr; cr.

  1785         aStream nextPutAll:''' }"'; cr; cr.

  1776     ].

  1786     ].

  1777 

  1787 

  4084 ! !

  4094 ! !

  4085 

  4095 

  4086 !Class class methodsFor:'documentation'!

  4096 !Class class methodsFor:'documentation'!

  4087 

  4097 

  4088 version

  4098 version

  4090 ! !

  4100 ! !