equal
deleted
inserted
replaced
2490 , ' "\'. |
2490 , ' "\'. |
2491 |
2491 |
2492 code := code |
2492 code := code |
2493 , '\' |
2493 , '\' |
2494 , ' <resource: #menu>\\' |
2494 , ' <resource: #menu>\\' |
2495 , ' ^\' |
2495 , ' ^ ' , spec |
2496 , ' ', spec |
|
2497 , '\' |
2496 , '\' |
2498 , (excla , ' ' , excla) |
2497 , (excla , ' ' , excla) |
2499 , '\\'. |
2498 , '\\'. |
2500 |
2499 |
2501 code := code withCRs. |
2500 code := code withCRs. |
2806 |
2805 |
2807 toAspects:aspects |
2806 toAspects:aspects |
2808 "put my values into the values of aspects" |
2807 "put my values into the values of aspects" |
2809 |
2808 |
2810 |type| |
2809 |type| |
2811 (type := self separatorType) notNil |
2810 (type := self separatorType) notNil ifTrue: [ |
2812 ifTrue: |
|
2813 [ |
|
2814 type := self class separatorSlices findFirst:[:el| el first == type ]. |
2811 type := self class separatorSlices findFirst:[:el| el first == type ]. |
2815 (aspects at:#seperatorSelection) selectionIndex:type. |
2812 (aspects at:#seperatorSelection) selectionIndex:type. |
2816 ] |
2813 ] ifFalse: [ |
2817 ifFalse: |
|
2818 [ |
|
2819 (aspects at:#label) value:label. |
2814 (aspects at:#label) value:label. |
2820 (aspects at:#enabled) value:enabled. |
2815 (aspects at:#enabled) value:enabled. |
2821 (aspects at:#value) value:value. |
2816 (aspects at:#value) value:value. |
2822 (aspects at:#nameKey) value:nameKey. |
2817 (aspects at:#nameKey) value:nameKey. |
2823 (aspects at:#indication) value:indication. |
2818 (aspects at:#indication) value:indication. |
2831 (aspects at:#retriever) value:retriever. |
2826 (aspects at:#retriever) value:retriever. |
2832 (aspects at:#icon) value:icon. |
2827 (aspects at:#icon) value:icon. |
2833 (aspects at:#iconAndLabel) value:iconAndLabel. |
2828 (aspects at:#iconAndLabel) value:iconAndLabel. |
2834 (aspects at:#isButton) value:isButton. |
2829 (aspects at:#isButton) value:isButton. |
2835 |
2830 |
2836 argument isSymbol |
2831 (aspects at:#argument) |
2837 ifTrue: [(aspects at:#argument)value:'#', argument] |
2832 value:(argument isSymbol |
2838 ifFalse:[(aspects at:#argument)value:argument]. |
2833 ifTrue: ['#', argument] |
|
2834 ifFalse:[argument]). |
2839 ]. |
2835 ]. |
2840 (aspects at:#isVisible) value:isVisible. |
2836 (aspects at:#isVisible) value:isVisible. |
2841 |
2837 |
2842 "Modified: / 14.8.1998 / 15:37:29 / cg" |
2838 "Modified: / 14.8.1998 / 15:37:29 / cg" |
2843 ! ! |
2839 ! ! |