UIPainterView.st
changeset 3223 38d493fcc782
parent 3136 146b6f9e139c
child 3244 6b83ffb461b5
equal deleted inserted replaced
3222:85db156be933 3223:38d493fcc782
     8  be provided or otherwise made available to, or used by, any
     8  be provided or otherwise made available to, or used by, any
     9  other person.  No title to or ownership of the software is
     9  other person.  No title to or ownership of the software is
    10  hereby transferred.
    10  hereby transferred.
    11 "
    11 "
    12 "{ Package: 'stx:libtool2' }"
    12 "{ Package: 'stx:libtool2' }"
       
    13 
       
    14 "{ NameSpace: Smalltalk }"
    13 
    15 
    14 UIObjectView subclass:#UIPainterView
    16 UIObjectView subclass:#UIPainterView
    15 	instanceVariableNames:'treeView listHolder superclassName className methodName
    17 	instanceVariableNames:'treeView listHolder superclassName className methodName
    16 		categoryName handleColorBlack handleColorWhite handleMasterColor
    18 		categoryName handleColorBlack handleColorWhite handleMasterColor
    17 		sketchPainter listOfAspectsHolder'
    19 		sketchPainter listOfAspectsHolder'
  1729                 ifTrue:['     ' , className , ' open\'] ifFalse: [''])
  1731                 ifTrue:['     ' , className , ' open\'] ifFalse: [''])
  1730             , '    "\'.
  1732             , '    "\'.
  1731 
  1733 
  1732     code := code
  1734     code := code
  1733             , '\'
  1735             , '\'
  1734             , '    <resource: #canvas>\\'
  1736             , '    <resource: #canvas>\\'.
       
  1737     code := code withCRs.
       
  1738     code := code
  1735             , '    ^ ' , specCode
  1739             , '    ^ ' , specCode
  1736             , '\'
  1740             , '\' withCRs
  1737             , '!! !!'
  1741             , '!! !!'
  1738             , '\\'.
  1742             , '\\' withCRs.
  1739 
  1743 
  1740     ^ code withCRs
  1744     ^ code
  1741 !
  1745 !
  1742 
  1746 
  1743 listOfAspects
  1747 listOfAspects
  1744     |cls aspects|
  1748     |cls aspects|
  1745 
  1749