blob: 13921d1813ff7579c8fb91cb2fe30bfaad29cb1e (
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
|
-- File: FillStyleSelect.cdl
-- Created: Fri Dec 1 11:11:11 1995
-- Author: EXPRESS->CDL V0.2 Translator
-- Copyright: Matra-Datavision 1993
class FillStyleSelect from StepVisual inherits SelectType from StepData
-- <FillStyleSelect> is an EXPRESS Select Type construct translation.
-- it gathers : FillAreaStyleColour, ExternallyDefinedTileStyle, FillAreaStyleTiles, ExternallyDefinedHatchStyle, FillAreaStyleHatching
-- Rev4 : only FillAreaStyleColour remains
uses
FillAreaStyleColour
-- ExternallyDefinedTileStyle,
-- FillAreaStyleTiles,
-- ExternallyDefinedHatchStyle,
-- FillAreaStyleHatching
is
Create returns FillStyleSelect;
---Purpose : Returns a FillStyleSelect SelectType
CaseNum (me; ent : Transient) returns Integer;
---Purpose: Recognizes a FillStyleSelect Kind Entity that is :
-- 1 -> FillAreaStyleColour
-- 2 -> ExternallyDefinedTileStyle
-- 3 -> FillAreaStyleTiles
-- 4 -> ExternallyDefinedHatchStyle
-- 5 -> FillAreaStyleHatching
-- 0 else
FillAreaStyleColour (me) returns any FillAreaStyleColour;
---Purpose : returns Value as a FillAreaStyleColour (Null if another type)
end FillStyleSelect;
|