equal
deleted
inserted
replaced
607 ! |
607 ! |
608 |
608 |
609 aspectSelectorsAndTypesDo:aTwoArgBlock |
609 aspectSelectorsAndTypesDo:aTwoArgBlock |
610 "evaluate aBlock for every aspect methods selector; 2nd arg describes the aspects type" |
610 "evaluate aBlock for every aspect methods selector; 2nd arg describes the aspects type" |
611 |
611 |
612 |cls methods selector protoSpec| |
612 |cls selector protoSpec| |
613 |
613 |
614 className isNil ifTrue:[ |
614 className isNil ifTrue:[ |
615 self warn:'No class defined !!'. |
615 self warn:'No class defined !!'. |
616 ^ self |
616 ^ self |
617 ]. |
617 ]. |
655 (selector := protoSpec menu) notNil ifTrue:[ |
655 (selector := protoSpec menu) notNil ifTrue:[ |
656 selector isArray ifFalse:[ |
656 selector isArray ifFalse:[ |
657 aTwoArgBlock value:(selector asSymbol) value:#menu |
657 aTwoArgBlock value:(selector asSymbol) value:#menu |
658 ]. |
658 ]. |
659 ]. |
659 ]. |
660 |
|
661 ^ methods |
|
662 ! |
660 ! |
663 |
661 |
664 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass |
662 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass |
665 |selector args showIt code alreadyInSuperclass numArgs method| |
663 |selector args showIt code alreadyInSuperclass numArgs method| |
666 |
664 |