equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1997 by eXept Software AG |
2 COPYRIGHT (c) 1997 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1559 doGenerateAspectMethod |
1557 doGenerateAspectMethod |
1560 "generate aspect method |
1558 "generate aspect method |
1561 " |
1559 " |
1562 |cls code| |
1560 |cls code| |
1563 |
1561 |
1564 (specClass notNil and:[specSelector notNil]) |
1562 (specClass notNil and:[specSelector notNil]) ifFalse:[ |
1565 ifFalse: |
1563 ^ self information:'No class and selector defined!!' |
1566 [ |
|
1567 ^self information:'No class and selector defined!!' |
|
1568 ]. |
1564 ]. |
1569 |
1565 |
1570 cls := self resolveName: specClass. |
1566 cls := self resolveName: specClass. |
1571 |
1567 |
1572 (cls canUnderstand:specSelector) ifTrue:[ |
1568 (cls canUnderstand:specSelector) ifTrue:[ |