equal
deleted
inserted
replaced
1763 !Class methodsFor:'fileOut'! |
1763 !Class methodsFor:'fileOut'! |
1764 |
1764 |
1765 basicFileOutDefinitionOn:aStream |
1765 basicFileOutDefinitionOn:aStream |
1766 "append an expression on aStream, which defines myself." |
1766 "append an expression on aStream, which defines myself." |
1767 |
1767 |
1768 |s| |
1768 |s owner| |
1769 |
1769 |
1770 "take care of nil-superclass" |
1770 "take care of nil-superclass" |
1771 superclass isNil ifTrue:[ |
1771 superclass isNil ifTrue:[ |
1772 s := 'nil' |
1772 s := 'nil' |
1773 ] ifFalse:[ |
1773 ] ifFalse:[ |
1775 ]. |
1775 ]. |
1776 |
1776 |
1777 aStream nextPutAll:s. |
1777 aStream nextPutAll:s. |
1778 aStream space. |
1778 aStream space. |
1779 self basicFileOutInstvarTypeKeywordOn:aStream. |
1779 self basicFileOutInstvarTypeKeywordOn:aStream. |
1780 aStream nextPut:$#. |
1780 aStream nextPutAll:name storeString. |
1781 aStream nextPutAll:name. |
|
1782 |
1781 |
1783 aStream crtab. |
1782 aStream crtab. |
1784 aStream nextPutAll:'instanceVariableNames:'''. |
1783 aStream nextPutAll:'instanceVariableNames:'''. |
1785 self printInstVarNamesOn:aStream indent:16. |
1784 self printInstVarNamesOn:aStream indent:16. |
1786 aStream nextPutAll:''''. |
1785 aStream nextPutAll:''''. |
1792 |
1791 |
1793 aStream crtab. |
1792 aStream crtab. |
1794 aStream nextPutAll:'poolDictionaries:'''''. |
1793 aStream nextPutAll:'poolDictionaries:'''''. |
1795 |
1794 |
1796 aStream crtab. |
1795 aStream crtab. |
1797 aStream nextPutAll:'category:'. |
1796 (owner := self owningClass) isNil ifTrue:[ |
1798 category isNil ifTrue:[ |
1797 "/ a public class |
1799 s := '''''' |
1798 aStream nextPutAll:'category:'. |
|
1799 category isNil ifTrue:[ |
|
1800 s := '''''' |
|
1801 ] ifFalse:[ |
|
1802 s := category asString storeString |
|
1803 ]. |
|
1804 aStream nextPutAll:s. |
1800 ] ifFalse:[ |
1805 ] ifFalse:[ |
1801 s := category asString storeString |
1806 "/ a private class |
1802 ]. |
1807 aStream nextPutAll:'privateIn:'. |
1803 aStream nextPutAll:s. |
1808 aStream nextPutAll:owner name. |
|
1809 ]. |
1804 aStream cr |
1810 aStream cr |
1805 |
1811 |
1806 "Modified: 11.10.1996 / 18:58:42 / cg" |
1812 "Modified: 14.10.1996 / 17:07:40 / cg" |
1807 ! |
1813 ! |
1808 |
1814 |
1809 basicFileOutInstvarTypeKeywordOn:aStream |
1815 basicFileOutInstvarTypeKeywordOn:aStream |
1810 "a helper for fileOutDefinition" |
1816 "a helper for fileOutDefinition" |
1811 |
1817 |
3758 ! ! |
3764 ! ! |
3759 |
3765 |
3760 !Class class methodsFor:'documentation'! |
3766 !Class class methodsFor:'documentation'! |
3761 |
3767 |
3762 version |
3768 version |
3763 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.178 1996-10-12 19:15:01 cg Exp $' |
3769 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.179 1996-10-14 16:16:20 cg Exp $' |
3764 ! ! |
3770 ! ! |
3765 Class initialize! |
3771 Class initialize! |