1 -- File: TPrsStd_NamedShapeDriver.cdl
2 -- Created: Fri Aug 1 11:21:30 1997
4 ---Copyright: Matra Datavision 1997
7 class NamedShapeDriver from TPrsStd inherits Driver from TPrsStd
8 ---Purpose: An implementation of TPrsStd_Driver for named shapes.
13 InteractiveObject from AIS
17 returns mutable NamedShapeDriver from TPrsStd;
18 ---Purpose: Constructs an empty named shape driver.
19 Update (me : mutable ;
20 aLabel : Label from TDF;
21 anAISObject : in out InteractiveObject from AIS)
22 returns Boolean from Standard
24 --- Purpose: Build the AISObject (if null) or update it.
25 -- No compute is done.
26 -- Returns <True> if informations was found
27 -- and AISObject updated.