2 -- File: Aspect_GradientBackground.cdl
3 -- Created: 21 May 2010
4 -- Author: PAUL SUPRYATKIN
6 ---Copyright: Open CASCADE 2010
9 class GradientBackground from Aspect
10 inherits Background from Aspect
13 ---Purpose: This class allows the definition of
14 -- a window gradient background.
19 GradientFillMethod from Aspect
24 returns GradientBackground from Aspect;
26 ---Purpose: Creates a window gradient background.
27 -- Default colors : Quantity_NOC_BLACK.
28 -- Default fill method : Aspect_GFM_NONE
30 Create ( AColor1 : Color from Quantity;
31 AColor2 : Color from Quantity;
32 AMethod : GradientFillMethod from Aspect = Aspect_GFM_HOR)
33 returns GradientBackground from Aspect;
35 ---Purpose: Creates a window gradient background with colours <AColor1, AColor2>.
37 ---------------------------------------------------
38 -- Category: Methods to modify the class definition
39 ---------------------------------------------------
41 SetColors ( me : in out;
42 AColor1 : Color from Quantity ;
43 AColor2 : Color from Quantity ;
44 AMethod : GradientFillMethod from Aspect = Aspect_GFM_HOR
47 ---Purpose: Modifies the colours of the window gradient background <me>.
48 ---Category: Methods to modify the class definition
50 ----------------------------
51 -- Category: Inquire methods
52 ----------------------------
55 AColor1 : out Color from Quantity;
56 AColor2 : out Color from Quantity
59 ---Purpose: Returns colours of the window gradient background <me>.
60 ---Category: Inquire methods
62 BgGradientFillMethod( me ) returns GradientFillMethod from Aspect;
64 ---Purpose: Returns the current gradient background fill mode.
70 -- Class : Aspect_GradientBackground
72 -- Purpose : Declaration of variables specific to the window
73 -- gradient background.
75 -- Reminder : A Gradient background is defined by two colours
78 -- the colour associated with the window background
79 MyColor2 : Color from Quantity;
80 MyGradientMethod : GradientFillMethod from Aspect;
82 end GradientBackground ;