0022627: Change OCCT memory management defaults
[occt.git] / src / TestTopOpeDraw / TestTopOpeDraw_DrawableC3D.cdl
1 -- File:        TestTopOpeDraw_DrawableC3D.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 DrawableC3D from TestTopOpeDraw inherits Curve from DrawTrSurf
8
9     ---Purpose: 
10
11 uses  
12
13     Interpretor from Draw,
14     Curve from Geom,
15     Color from Draw,
16     Display from Draw,
17     Text3D from Draw,
18     CString from Standard,
19     Pnt from gp
20
21 is
22
23     Create (C : Curve from Geom; CColor : Color from Draw)
24     returns mutable DrawableC3D from TestTopOpeDraw;
25
26     Create (C : Curve from Geom; CColor : Color from Draw;
27             Text : CString; TextColor : Color from Draw)
28     returns mutable DrawableC3D from TestTopOpeDraw;
29
30     Create (C : Curve from Geom; CColor : Color from Draw;
31             Text : CString; TextColor : Color from Draw;
32             Discret : Integer; Deflection : Real; DrawMode : Integer;
33             DispOrigin : Boolean from Standard = Standard_True)
34     returns mutable DrawableC3D from TestTopOpeDraw;
35
36     Pnt(me) returns Pnt from gp is virtual;
37     
38     ChangePnt(me : mutable; P : Pnt);
39     
40     ChangeCurve(me : mutable; C : Curve from Geom);
41     
42     ChangeText(me : mutable; T : CString from Standard);
43     
44     Name(me : mutable; N : CString) is redefined;
45     
46     Whatis(me; I : in out Interpretor from Draw) is redefined;
47     ---Purpose: For variable whatis command.
48
49     DrawOn(me; dis : in out Display from Draw) is redefined;
50     
51 fields
52
53     myText3D : Text3D from Draw is protected;
54     myText :CString from Standard is protected;
55     myTextColor : Color from Draw;
56
57 end DrawableC3D;