7fd59977 |
1 | -- File: SurfaceSideStyle.cdl |
2 | -- Created: Fri Dec 1 11:11:28 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class SurfaceSideStyle from StepVisual |
8 | |
9 | inherits TShared from MMgt |
10 | |
11 | uses |
12 | |
13 | HAsciiString from TCollection, |
14 | HArray1OfSurfaceStyleElementSelect from StepVisual, |
15 | SurfaceStyleElementSelect from StepVisual |
16 | is |
17 | |
18 | Create returns mutable SurfaceSideStyle; |
19 | ---Purpose: Returns a SurfaceSideStyle |
20 | |
21 | Init (me : mutable; |
22 | aName : mutable HAsciiString from TCollection; |
23 | aStyles : mutable HArray1OfSurfaceStyleElementSelect from StepVisual) is virtual; |
24 | |
25 | -- Specific Methods for Field Data Access -- |
26 | |
27 | SetName(me : mutable; aName : mutable HAsciiString); |
28 | Name (me) returns mutable HAsciiString; |
29 | SetStyles(me : mutable; aStyles : mutable HArray1OfSurfaceStyleElementSelect); |
30 | Styles (me) returns mutable HArray1OfSurfaceStyleElementSelect; |
31 | StylesValue (me; num : Integer) returns SurfaceStyleElementSelect; |
32 | NbStyles (me) returns Integer; |
33 | |
34 | fields |
35 | |
36 | name : HAsciiString from TCollection; |
37 | styles : HArray1OfSurfaceStyleElementSelect from StepVisual; -- a SelectType |
38 | |
39 | end SurfaceSideStyle; |