blob: 460aaa28ccfc8367abba6f6e8dccda45199c89b8 (
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
|
-- File: TPrsStd_ConstraintDriver.cdl
-- Created: Fri Aug 1 11:21:30 1997
-- Author: SMO
---Copyright: Matra Datavision 1997
class ConstraintDriver from TPrsStd inherits Driver from TPrsStd
---Purpose: An implementation of TPrsStd_Driver for constraints.
uses
GUID from Standard,
InteractiveObject from AIS,
Label from TDF
is
Create
returns mutable ConstraintDriver from TPrsStd;
---Purpose: Constructs an empty constraint driver.
Update (me : mutable ;
aLabel : Label from TDF;
anAISObject : in out InteractiveObject from AIS)
returns Boolean from Standard
is redefined virtual;
--- Purpose: Build the AISObject (if null) or update it.
-- No compute is done.
-- Returns <True> if informations was found
-- and AISObject updated.
end ConstraintDriver;
|