7fd59977 |
1 | -- File: TPrsStd_DriverTable.cdl |
2 | -- Created: Wed Aug 4 14:02:36 1999 |
3 | -- Author: Denis PASCAL |
4 | -- <dp@dingox.paris1.matra-dtv.fr> |
5 | ---Copyright: Matra Datavision 1999 |
6 | |
7 | |
8 | class DriverTable from TPrsStd inherits TShared from MMgt |
9 | |
10 | ---Purpose: This class is a container to record (AddDriver) |
11 | -- binding between GUID and TPrsStd_Driver. |
12 | -- You create a new instance of TPrsStd_Driver |
13 | -- and use the method AddDriver to load it into the driver table. the method |
14 | |
15 | |
16 | uses Boolean from Standard, |
17 | Attribute from TDF, |
18 | Label from TDF, |
19 | GUID from Standard, |
20 | IDList from TDF, |
21 | Driver from TPrsStd, |
22 | DataMapOfGUIDDriver from TPrsStd |
23 | |
24 | is |
25 | |
26 | Get (myclass) returns mutable DriverTable from TPrsStd; |
27 | ---Purpose: Returns the static table. |
28 | -- If it does not exist, creates it and fills it with standard drivers. |
29 | |
30 | Create returns mutable DriverTable from TPrsStd; |
31 | ---Purpose: Default constructor |
32 | |
33 | InitStandardDrivers (me : mutable); |
34 | ---Purpose: Fills the table with standard drivers |
35 | |
36 | |
37 | AddDriver (me : mutable; guid : GUID from Standard; |
38 | driver : Driver from TPrsStd) |
39 | ---Purpose: Returns true if the driver has been added successfully to the driver table. |
40 | returns Boolean from Standard; |
41 | |
42 | FindDriver (me; guid : GUID from Standard; |
43 | driver : out Driver from TPrsStd) |
44 | ---Purpose: Returns true if the driver was found. |
45 | returns Boolean from Standard; |
46 | |
47 | RemoveDriver (me : mutable; guid : GUID from Standard) |
48 | ---Purpose: |
49 | -- Removes a driver with the given GUID. |
50 | -- Returns true if the driver has been removed successfully. |
51 | returns Boolean from Standard; |
52 | |
53 | Clear (me : mutable); |
54 | ---Purpose: Removes all drivers. Returns |
55 | -- true if the driver has been removed successfully. |
56 | -- If this method is used, the InitStandardDrivers method should be |
57 | -- called to fill the table with standard drivers. |
58 | |
59 | fields |
60 | |
61 | myDrivers : DataMapOfGUIDDriver from TPrsStd; |
62 | |
63 | end DriverTable; |