137 def superClassName: (properties at: #super). |
137 def superClassName: (properties at: #super). |
138 def className: (properties at: #name). |
138 def className: (properties at: #name). |
139 def instanceVariableNames: (String streamContents:[:s|((properties at: #instvars ifAbsent:[#()])) do:[:i|s nextPutAll:i; space]]). |
139 def instanceVariableNames: (String streamContents:[:s|((properties at: #instvars ifAbsent:[#()])) do:[:i|s nextPutAll:i; space]]). |
140 def classInstanceVariableNames: (String streamContents:[:s|((properties at: #classinstvars ifAbsent:[#()]) ) do:[:i|s nextPutAll:i; space]]). |
140 def classInstanceVariableNames: (String streamContents:[:s|((properties at: #classinstvars ifAbsent:[#()]) ) do:[:i|s nextPutAll:i; space]]). |
141 def classVariableNames: (String streamContents:[:s|((properties at: #classvars ifAbsent:[#()] ) ) do:[:i|s nextPutAll:i; space]]). |
141 def classVariableNames: (String streamContents:[:s|((properties at: #classvars ifAbsent:[#()] ) ) do:[:i|s nextPutAll:i; space]]). |
|
142 def package: packageStructure name asSymbol. |
|
143 def category: (properties at: #category). |
142 aStream nextPut: def. |
144 aStream nextPut: def. |
143 ]. |
145 ]. |
144 |
146 |
145 instanceMethods ? #() do:[:each|each changesOn: aStream]. |
147 instanceMethods ? #() do:[:each|each changesOn: aStream]. |
146 classMethods ? #() do:[:each|each changesOn: aStream]. |
148 classMethods ? #() do:[:each|each changesOn: aStream]. |
147 |
149 |
148 "Modified: / 31-08-2012 / 19:23:00 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
150 "Modified: / 03-09-2012 / 11:59:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
149 ! ! |
151 ! ! |
150 |
152 |
151 !CypressClassStructure methodsFor:'initialization'! |
153 !CypressClassStructure methodsFor:'initialization'! |
152 |
154 |
153 fromClassDefinition: classDefinition |
155 fromClassDefinition: classDefinition |