equal
deleted
inserted
replaced
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 |