equal
deleted
inserted
replaced
4965 self propertiesDo:[:aProp| |
4965 self propertiesDo:[:aProp| |
4966 |propsSpec| |
4966 |propsSpec| |
4967 |
4967 |
4968 spec exportedAspectsAddKey:(aProp model) type:nil. |
4968 spec exportedAspectsAddKey:(aProp model) type:nil. |
4969 propsSpec := aProp spec. |
4969 propsSpec := aProp spec. |
4970 propsSpec aspectSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:nil]. |
4970 propsSpec aspectSelectors |
4971 propsSpec actionSelectors do:[:aKey|spec exportedAspectsAddKey:aKey type:#action]. |
4971 select:[:a | a isString or:[a isSymbol]] |
|
4972 thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:nil]. |
|
4973 propsSpec actionSelectors |
|
4974 select:[:a | a isString or:[a isSymbol]] |
|
4975 thenDo:[:aKey|spec exportedAspectsAddKey:aKey type:#action]. |
4972 ]. |
4976 ]. |
4973 ^ spec |
4977 ^ spec |
4974 ! |
4978 ! |
4975 |
4979 |
4976 canvasSpec:aSpec |
4980 canvasSpec:aSpec |