equal
deleted
inserted
replaced
22 classVariableNames:'Identifier' |
22 classVariableNames:'Identifier' |
23 poolDictionaries:'' |
23 poolDictionaries:'' |
24 privateIn:UIPainterView |
24 privateIn:UIPainterView |
25 ! |
25 ! |
26 |
26 |
27 MultiSelectionInList subclass:#ListHolder |
27 UIPainterView::ViewProperty subclass:#GroupProperties |
28 instanceVariableNames:'painter propertyList masterElement disabledChanged' |
28 instanceVariableNames:'controlledObjects group name' |
29 classVariableNames:'' |
29 classVariableNames:'' |
30 poolDictionaries:'' |
30 poolDictionaries:'' |
31 privateIn:UIPainterView |
31 privateIn:UIPainterView |
32 ! |
32 ! |
33 |
33 |
34 UIPainterView::ViewProperty subclass:#GroupProperties |
34 MultiSelectionInList subclass:#ListHolder |
35 instanceVariableNames:'controlledObjects group name' |
35 instanceVariableNames:'painter propertyList masterElement disabledChanged' |
36 classVariableNames:'' |
36 classVariableNames:'' |
37 poolDictionaries:'' |
37 poolDictionaries:'' |
38 privateIn:UIPainterView |
38 privateIn:UIPainterView |
39 ! |
39 ! |
40 |
40 |
526 ! ! |
526 ! ! |
527 |
527 |
528 !UIPainterView methodsFor:'generating output'! |
528 !UIPainterView methodsFor:'generating output'! |
529 |
529 |
530 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass |
530 generateActionMethodFor:aspect spec:protoSpec inClass:targetClass |
|
531 |args| |
|
532 |
|
533 |
|
534 (aspect last) == $: ifFalse:[args := '\'] |
|
535 ifTrue:[args := 'anArgument\']. |
|
536 |
531 ^ ('!!' , targetClass name , ' methodsFor:''actions''!!\\' , |
537 ^ ('!!' , targetClass name , ' methodsFor:''actions''!!\\' , |
532 aspect , '\' , |
538 aspect , args , |
533 ' "automatically generated by UIPainter ..."\' , |
539 ' "automatically generated by UIPainter ..."\' , |
534 '\' , |
540 '\' , |
535 ' "action to be added ..."\' , |
541 ' "action to be added ..."\' , |
536 ' Transcript showCR:''action for ' , aspect , ' ...''.\' , |
542 ' Transcript showCR:''action for ' , aspect , ' ...''.\' , |
537 '!! !!\\') withCRs |
543 '!! !!\\') withCRs |
1738 |
1744 |
1739 name:aName |
1745 name:aName |
1740 spec name:aName |
1746 spec name:aName |
1741 ! ! |
1747 ! ! |
1742 |
1748 |
|
1749 !UIPainterView::GroupProperties methodsFor:'accessing'! |
|
1750 |
|
1751 controlledObjects |
|
1752 "return the value of the instance variable 'controlledObjects' (automatically generated)" |
|
1753 |
|
1754 ^ controlledObjects! |
|
1755 |
|
1756 controlledObjects:something |
|
1757 "set the value of the instance variable 'controlledObjects' (automatically generated)" |
|
1758 |
|
1759 controlledObjects := something.! |
|
1760 |
|
1761 group |
|
1762 "return the value of the instance variable 'group' |
|
1763 " |
|
1764 ^ group |
|
1765 ! |
|
1766 |
|
1767 group:something |
|
1768 "set the value of the instance variable 'group' |
|
1769 " |
|
1770 group := something. |
|
1771 ! |
|
1772 |
|
1773 name |
|
1774 "return the value of the group name |
|
1775 " |
|
1776 ^ name |
|
1777 ! |
|
1778 |
|
1779 name:aName |
|
1780 "set the value of the group name |
|
1781 " |
|
1782 name := aName |
|
1783 ! ! |
|
1784 |
1743 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1785 !UIPainterView::ListHolder class methodsFor:'instance creation'! |
1744 |
1786 |
1745 for:aPainter |
1787 for:aPainter |
1746 ^ self new for:aPainter |
1788 ^ self new for:aPainter |
1747 ! ! |
1789 ! ! |
2071 |
2113 |
2072 self masterElement:masterIndex. |
2114 self masterElement:masterIndex. |
2073 super selectionIndex:aSel |
2115 super selectionIndex:aSel |
2074 ! ! |
2116 ! ! |
2075 |
2117 |
2076 !UIPainterView::GroupProperties methodsFor:'accessing'! |
|
2077 |
|
2078 controlledObjects |
|
2079 "return the value of the instance variable 'controlledObjects' (automatically generated)" |
|
2080 |
|
2081 ^ controlledObjects! |
|
2082 |
|
2083 controlledObjects:something |
|
2084 "set the value of the instance variable 'controlledObjects' (automatically generated)" |
|
2085 |
|
2086 controlledObjects := something.! |
|
2087 |
|
2088 group |
|
2089 "return the value of the instance variable 'group' |
|
2090 " |
|
2091 ^ group |
|
2092 ! |
|
2093 |
|
2094 group:something |
|
2095 "set the value of the instance variable 'group' |
|
2096 " |
|
2097 group := something. |
|
2098 ! |
|
2099 |
|
2100 name |
|
2101 "return the value of the group name |
|
2102 " |
|
2103 ^ name |
|
2104 ! |
|
2105 |
|
2106 name:aName |
|
2107 "set the value of the group name |
|
2108 " |
|
2109 name := aName |
|
2110 ! ! |
|
2111 |
|
2112 !UIPainterView class methodsFor:'documentation'! |
2118 !UIPainterView class methodsFor:'documentation'! |
2113 |
2119 |
2114 version |
2120 version |
2115 ^ '$Header$' |
2121 ^ '$Header$' |
2116 ! ! |
2122 ! ! |