I found a solution:
T4 traitComposition traits select: [ :each | each canUnderstand: #method1 ]. aTrait := T4 traitComposition copyWithExclusionOf: #method1 to: T2. T4 setTraitComposition: aTrait asTraitComposition.
Thanks. Juraj
On 23.8.2007, at 21:07, Juraj Kubelka wrote:
Hi everybody!
Let's say there is:
Trait named: #T1 uses: {} category: 'Example'
Trait named: #T2 uses: T1 category: 'Example'
T1>>method1. T1>>method2.
And I would like to recompile T2:
Trait named: #T2 uses: T1 - {#method1} category: 'Example'
Do you have an idea how to exclude #method1? Something like:
T2 excludeSelector: #method1.
I would like to use it in such situation:
If user has selected T2>>method1 in a System Browser and wants to remove the method, system will ask:
'#method1 comes from used trait T1. Would you like to:'
- Remove method from trait T1.
- Exclude method from T2'
- Cancel
Thank in advance. Juraj