7fd59977 |
1 | -- File: PointStyle.cdl |
2 | -- Created: Fri Dec 1 11:11:25 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class PointStyle from StepVisual |
8 | |
9 | inherits TShared from MMgt |
10 | |
11 | uses |
12 | |
13 | HAsciiString from TCollection, |
14 | MarkerSelect from StepVisual, |
15 | SizeSelect from StepBasic, |
16 | Colour from StepVisual |
17 | is |
18 | |
19 | Create returns mutable PointStyle; |
20 | ---Purpose: Returns a PointStyle |
21 | |
22 | Init (me : mutable; |
23 | aName : mutable HAsciiString from TCollection; |
24 | aMarker : MarkerSelect from StepVisual; |
25 | aMarkerSize : SizeSelect from StepBasic; |
26 | aMarkerColour : mutable Colour from StepVisual) is virtual; |
27 | |
28 | -- Specific Methods for Field Data Access -- |
29 | |
30 | SetName(me : mutable; aName : mutable HAsciiString); |
31 | Name (me) returns mutable HAsciiString; |
32 | SetMarker(me : mutable; aMarker : MarkerSelect); |
33 | Marker (me) returns MarkerSelect; |
34 | SetMarkerSize(me : mutable; aMarkerSize : SizeSelect); |
35 | MarkerSize (me) returns SizeSelect; |
36 | SetMarkerColour(me : mutable; aMarkerColour : mutable Colour); |
37 | MarkerColour (me) returns mutable Colour; |
38 | |
39 | fields |
40 | |
41 | name : HAsciiString from TCollection; |
42 | marker : MarkerSelect from StepVisual; -- a SelectType |
43 | markerSize : SizeSelect from StepBasic; -- a SelectType |
44 | markerColour : Colour from StepVisual; |
45 | |
46 | end PointStyle; |