equal
deleted
inserted
replaced
5364 ! |
5364 ! |
5365 |
5365 |
5366 doGenerateAspectSelectorsMethod |
5366 doGenerateAspectSelectorsMethod |
5367 "generates aspectSelectors method for the exported aspects" |
5367 "generates aspectSelectors method for the exported aspects" |
5368 |
5368 |
|
5369 |aspectSelectorsAsString| |
5369 |
5370 |
5370 self askForSectionModification. |
5371 self askForSectionModification. |
5371 |
5372 aspectSelectorsAsString := self painter generateAspectSelectorsMethod. |
5372 (ReadStream on:self painter generateAspectSelectorsMethod) fileIn. |
5373 aspectSelectorsAsString notEmptyOrNil ifTrue:[ |
5373 |
5374 (ReadStream on:aspectSelectorsAsString) fileIn. |
|
5375 ]. |
5374 ! |
5376 ! |
5375 |
5377 |
5376 doGenerateHookMethods |
5378 doGenerateHookMethods |
5377 "generates hook methods for the application class" |
5379 "generates hook methods for the application class" |
5378 |
5380 |