7fd59977 |
1 | -- File: IGESDimen_ToolDimensionTolerance.cdl |
2 | -- Created: Thu Oct 14 19:16:58 1993 |
3 | -- Author: Christian CAILLET |
4 | -- <cky@bravox> |
5 | ---Copyright: Matra Datavision 1993 |
6 | |
7 | |
8 | class ToolDimensionTolerance from IGESDimen |
9 | |
10 | ---Purpose : Tool to work on a DimensionTolerance. Called by various Modules |
11 | -- (ReadWriteModule, GeneralModule, SpecificModule) |
12 | |
13 | uses DimensionTolerance from IGESDimen, |
14 | IGESReaderData, ParamReader, IGESWriter, EntityIterator, |
15 | DirChecker, ShareTool, Check, CopyTool, IGESDumper, Messenger from Message |
16 | |
17 | raises DomainError |
18 | |
19 | is |
20 | |
21 | Create returns ToolDimensionTolerance; |
22 | ---Purpose : Returns a ToolDimensionTolerance, ready to work |
23 | |
24 | |
25 | ReadOwnParams (me; ent : mutable DimensionTolerance; |
26 | IR : IGESReaderData; PR : in out ParamReader) |
27 | raises DomainError is static; |
28 | ---Purpose : Reads own parameters from file. <PR> gives access to them, |
29 | -- <IR> detains parameter types and values |
30 | |
31 | WriteOwnParams (me; ent : DimensionTolerance; |
32 | IW : in out IGESWriter) is static; |
33 | ---Purpose : Writes own parameters to IGESWriter |
34 | |
35 | |
36 | OwnShared (me; ent : DimensionTolerance; |
37 | iter : in out EntityIterator) is static; |
38 | ---Purpose : Lists the Entities shared by a DimensionTolerance <ent>, from |
39 | -- its specific (own) parameters |
40 | |
41 | OwnCorrect (me; ent : mutable DimensionTolerance) returns Boolean is static; |
42 | ---Purpose : Sets automatic unambiguous Correction on a DimensionTolerance |
43 | -- (NbPropertyValues forced to 8) |
44 | |
45 | DirChecker (me; ent : DimensionTolerance) returns DirChecker is static; |
46 | ---Purpose : Returns specific DirChecker |
47 | |
48 | OwnCheck (me; ent : DimensionTolerance; |
49 | shares : ShareTool; ach : in out Check) is static; |
50 | ---Purpose : Performs Specific Semantic Check |
51 | |
52 | |
53 | OwnCopy (me; entfrom : DimensionTolerance; entto : mutable DimensionTolerance; |
54 | TC : in out CopyTool) is static; |
55 | ---Purpose : Copies Specific Parameters |
56 | |
57 | |
58 | OwnDump (me; ent : DimensionTolerance; |
59 | dumper : IGESDumper; S : Messenger from Message; own : Integer) |
60 | is static; |
61 | ---Purpose : Dump of Specific Parameters |
62 | |
63 | end ToolDimensionTolerance; |