UIPainterView.st
changeset 1726 7117789f3020
parent 1714 f57812a56d17
child 1733 c93d592236f3
equal deleted inserted replaced
1725:2de97eb77984 1726:7117789f3020
   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