equal
deleted
inserted
replaced
3543 selectorsToGenerateCode isEmptyOrNil ifTrue:[^ self]. |
3543 selectorsToGenerateCode isEmptyOrNil ifTrue:[^ self]. |
3544 |
3544 |
3545 code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
3545 code := self painter generateAspectMethodCodeFiltering:selectorsToGenerateCode. |
3546 code readStream fileIn. |
3546 code readStream fileIn. |
3547 |
3547 |
|
3548 "/ refetch - cls is now obsolete |
|
3549 cls := self targetClass. |
|
3550 |
3548 doBrowse ifTrue:[ |
3551 doBrowse ifTrue:[ |
3549 methods := selectorsToGenerateCode |
3552 methods := selectorsToGenerateCode |
3550 collect:[:sel | cls compiledMethodAt:sel] |
3553 collect:[:sel | self halt. cls compiledMethodAt:sel] |
3551 thenSelect:[:m | m notNil]. |
3554 thenSelect:[:m | m notNil]. |
3552 |
3555 |
3553 UserPreferences systemBrowserClass |
3556 UserPreferences systemBrowserClass |
3554 browseMethods:methods |
3557 browseMethods:methods |
3555 title:'Some Aspect methods'. |
3558 title:'Some Aspect methods'. |