blob: ceeeef1c04bf2ca89dbff0d73b5644443f98b1c9 (
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: ShapeExtend_BasicMsgRegistrator.cdl
-- Created: Fri Jan 28 19:33:57 2000
-- Author: data exchange team
-- <det@kinox>
---Copyright: Matra Datavision 2000
class BasicMsgRegistrator from ShapeExtend inherits TShared from MMgt
---Purpose: Abstract class that can be used for attaching messages
-- to the objects (e.g. shapes).
-- It is used by ShapeHealing algorithms to attach a message
-- describing encountered case (e.g. removing small edge from
-- a wire).
--
-- The methods of this class are empty and redefined, for instance,
-- in the classes for Data Exchange processors for attaching
-- messages to interface file entities or CAS.CADE shapes.
uses
Shape from TopoDS,
Msg from Message,
Gravity from Message
is
Create returns mutable BasicMsgRegistrator from ShapeExtend;
---Purpose: Empty constructor.
Send (me: mutable; object : Transient;
message: Msg from Message;
gravity: Gravity from Message) is virtual;
---Purpose: Sends a message to be attached to the object.
-- Object can be of any type interpreted by redefined MsgRegistrator.
Send (me: mutable; shape : Shape from TopoDS;
message: Msg from Message;
gravity: Gravity from Message) is virtual;
---Purpose: Sends a message to be attached to the shape.
Send (me: mutable; message: Msg from Message;
gravity: Gravity from Message) is virtual;
---Purpose: Calls Send method with Null Transient.
end BasicMsgRegistrator;
|