7fd59977 |
1 | -- File: BackgroundColour.cdl |
2 | -- Created: Fri Dec 1 11:11:15 1995 |
3 | -- Author: EXPRESS->CDL V0.2 Translator |
4 | -- Copyright: Matra-Datavision 1993 |
5 | |
6 | |
7 | class BackgroundColour from StepVisual |
8 | |
9 | inherits Colour from StepVisual |
10 | |
11 | uses |
12 | |
13 | AreaOrView from StepVisual |
14 | is |
15 | |
16 | Create returns mutable BackgroundColour; |
17 | ---Purpose: Returns a BackgroundColour |
18 | |
19 | Init (me : mutable; |
20 | aPresentation : AreaOrView from StepVisual) is virtual; |
21 | |
22 | -- Specific Methods for Field Data Access -- |
23 | |
24 | SetPresentation(me : mutable; aPresentation : AreaOrView); |
25 | Presentation (me) returns AreaOrView; |
26 | |
27 | fields |
28 | |
29 | presentation : AreaOrView from StepVisual; -- a SelectType |
30 | |
31 | end BackgroundColour; |