equal
deleted
inserted
replaced
238 ] ifFalse:[ |
238 ] ifFalse:[ |
239 classes := Smalltalk allClassesInPackage:packageID. |
239 classes := Smalltalk allClassesInPackage:packageID. |
240 classes := classes collect:[:each | each autoload]. |
240 classes := classes collect:[:each | each autoload]. |
241 ]. |
241 ]. |
242 |
242 |
243 extensions := projectDefinitionClass extensions. |
243 extensions := projectDefinitionClass extensionMethods. |
244 |
244 |
245 self fileOutHeaderOn:aStream. |
245 self fileOutHeaderOn:aStream. |
246 self fileOutPools: (self selectPoolsFrom:classes) on: aStream. |
246 self fileOutPools: (self selectPoolsFrom:classes) on: aStream. |
247 self fileOutClasses: (self selectClassesFrom:classes) on: aStream. |
247 self fileOutClasses: (self selectClassesFrom:classes) on: aStream. |
248 self fileOutExtensions: (self selectExtensionsFrom:extensions) on: aStream. |
248 self fileOutExtensions: (self selectExtensionsFrom:extensions) on: aStream. |
249 self fileOutFooterOn: aStream. |
249 self fileOutFooterOn: aStream. |
250 |
250 |
251 "Created: / 14-04-2015 / 13:42:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
251 "Created: / 14-04-2015 / 13:42:17 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
252 "Modified: / 29-10-2018 / 15:45:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
252 "Modified: / 30-10-2018 / 14:43:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
253 ! |
253 ! |
254 |
254 |
255 fileOutClasses:arg1 on:arg2 |
255 fileOutClasses:arg1 on:arg2 |
256 "raise an error: must be redefined in concrete subclass(es)" |
256 "raise an error: must be redefined in concrete subclass(es)" |
257 |
257 |