UIPainterView.st
changeset 141 d06c04391233
parent 137 335faeed1663
child 146 ae84facd80be
equal deleted inserted replaced
140:1dde784a73d7 141:d06c04391233
    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 ! !