0022627: Change OCCT memory management defaults
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableC2D.cdl
1 -- File:        TestTopOpeDraw_DrawableC2D.cdl
2 -- Created:     Fri Dec  1 17:56:57 1995
3 -- Author:      Jean Yves LEBEY
4 --              <jyl@meteox>
5 ---Copyright:    Matra Datavision 1995
6
7 class DrawableC2D from TestTopOpeDraw inherits Curve2d from DrawTrSurf
8
9 uses  
10
11     Interpretor from Draw,
12     Curve from Geom2d,
13     Color from Draw,
14     Display from Draw,
15     Text2D from Draw,
16     CString from Standard,
17     Pnt2d from gp
18
19 is
20
21     Create (C : Curve from Geom2d; CColor : Color from Draw)
22     returns mutable DrawableC2D from TestTopOpeDraw;
23
24     Create (C : Curve from Geom2d; CColor : Color from Draw;
25             Text : CString; TextColor : Color from Draw)
26     returns mutable DrawableC2D from TestTopOpeDraw;
27
28     Create (C : Curve from Geom2d; CColor : Color from Draw;
29             Text : CString; TextColor : Color from Draw;
30             Discret : Integer;
31             DispOrigin : Boolean = Standard_True;
32             DispCurvRadius : Boolean = Standard_False;
33             RadiusMax : Real = 1.0e3;
34             RatioOfRadius : Real = 0.1)
35     returns mutable DrawableC2D from TestTopOpeDraw;
36
37     Pnt2d(me) returns Pnt2d from gp is virtual;
38     
39     ChangePnt2d(me : mutable; P : Pnt2d);
40     
41     ChangeCurve(me : mutable; C : Curve from Geom2d);
42     
43     ChangeText(me : mutable; T : CString from Standard);
44     
45     Name(me : mutable; N : CString) is redefined;
46     
47     Whatis(me; I : in out Interpretor from Draw) is redefined;
48     ---Purpose: For variable whatis command.
49
50     DrawOn(me; dis : in out Display from Draw) is redefined;
51     
52 fields
53
54     myText2D : Text2D from Draw is protected;
55     myText : CString from Standard is protected;
56     myTextColor : Color from Draw;
57
58 end DrawableC2D;