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 |
12 |
13 Object subclass:#Geometric |
13 Object subclass:#Geometric |
14 instanceVariableNames:'' |
14 instanceVariableNames:'' |
15 classVariableNames:'' |
15 classVariableNames:'' |
16 poolDictionaries:'' |
16 poolDictionaries:'' |
17 category:'Graphics-Geometry' |
17 category:'Graphics-Geometry' |
18 ! |
18 ! |
19 |
19 |
20 !Geometric class methodsFor:'documentation'! |
20 !Geometric class methodsFor:'documentation'! |
21 |
21 |
22 copyright |
22 copyright |
31 other person. No title to or ownership of the software is |
31 other person. No title to or ownership of the software is |
32 hereby transferred. |
32 hereby transferred. |
33 " |
33 " |
34 ! |
34 ! |
35 |
35 |
36 version |
|
37 ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.5 1995-11-11 15:23:24 cg Exp $' |
|
38 ! |
|
39 |
|
40 documentation |
36 documentation |
41 " |
37 " |
42 Abstract superclass for geometric figures. |
38 Abstract superclass for geometric figures. |
43 Concrete classes are (currently) Rectangle, Polygon and the classes |
39 Concrete classes are (currently) Rectangle, Polygon and the classes |
44 found in goodies/shape. |
40 found in goodies/shape. |
49 implemented GraphicsAttributesWrapper. |
45 implemented GraphicsAttributesWrapper. |
50 |
46 |
51 Notice: ST/X does not use Geometric instances for drawing (yet). |
47 Notice: ST/X does not use Geometric instances for drawing (yet). |
52 This class exists mainly to provide a superclass when ST-80 geometry classes are to be filed in. |
48 This class exists mainly to provide a superclass when ST-80 geometry classes are to be filed in. |
53 " |
49 " |
|
50 ! |
|
51 |
|
52 version |
|
53 ^ '$Header: /cvs/stx/stx/libbasic/Geometric.st,v 1.6 1995-11-23 01:27:21 cg Exp $' |
54 ! ! |
54 ! ! |
55 |
55 |
56 !Geometric methodsFor:'displaying'! |
56 !Geometric methodsFor:'displaying'! |
|
57 |
|
58 displayFilledOn:aGC |
|
59 "display myself filled on a graphicsContext; the current graphics |
|
60 attributes are used. Since we do not know how to do it, nothing is |
|
61 drawn here." |
|
62 |
|
63 "/ could be: |
|
64 "/ ^ self subclassResponsibility |
|
65 |
|
66 ^ self |
|
67 ! |
57 |
68 |
58 displayOn:aGC |
69 displayOn:aGC |
59 "display myself on a graphicsContext; the current graphics |
70 "display myself on a graphicsContext; the current graphics |
60 attributes are used. The default here is to display the outline." |
71 attributes are used. The default here is to display the outline." |
61 |
72 |
69 |
80 |
70 "/ could be: |
81 "/ could be: |
71 "/ ^ self subclassResponsibility |
82 "/ ^ self subclassResponsibility |
72 |
83 |
73 ^ self |
84 ^ self |
74 ! |
|
75 |
|
76 displayFilledOn:aGC |
|
77 "display myself filled on a graphicsContext; the current graphics |
|
78 attributes are used. Since we do not know how to do it, nothing is |
|
79 drawn here." |
|
80 |
|
81 "/ could be: |
|
82 "/ ^ self subclassResponsibility |
|
83 |
|
84 ^ self |
|
85 ! ! |
85 ! ! |
86 |
86 |