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