b311480e |
1 | -- Created by: DAUTRY Philippe |
2 | -- Copyright (c) 1997-1999 Matra Datavision |
3 | -- Copyright (c) 1999-2012 OPEN CASCADE SAS |
4 | -- |
5 | -- The content of this file is subject to the Open CASCADE Technology Public |
6 | -- License Version 6.5 (the "License"). You may not use the content of this file |
7 | -- except in compliance with the License. Please obtain a copy of the License |
8 | -- at http://www.opencascade.org and read it completely before using this file. |
9 | -- |
10 | -- The Initial Developer of the Original Code is Open CASCADE S.A.S., having its |
11 | -- main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France. |
12 | -- |
13 | -- The Original Code and all software distributed under the License is |
14 | -- distributed on an "AS IS" basis, without warranty of any kind, and the |
15 | -- Initial Developer hereby disclaims all such warranties, including without |
16 | -- limitation, any warranties of merchantability, fitness for a particular |
17 | -- purpose or non-infringement. Please see the License for the specific terms |
18 | -- and conditions governing the rights and limitations under the License. |
19 | |
7fd59977 |
20 | -- -------------------- |
7fd59977 |
21 | |
22 | ---Version: 0.0 |
b311480e |
23 | --Version Date Purpose |
7fd59977 |
24 | -- 0.0 Nov 27 1997 Creation |
25 | |
26 | class TreeBrowser from DDataStd inherits Drawable3D from Draw |
27 | |
28 | ---Purpose: Browses a TreeNode from TDataStd. |
29 | -- ================================= |
30 | |
31 | uses |
32 | |
33 | Label from TDF, |
34 | TreeNode from TDataStd, |
35 | Interpretor from Draw, |
36 | Display from Draw, |
37 | AsciiString from TCollection |
38 | |
39 | is |
40 | |
41 | Create (root : Label from TDF) |
42 | returns mutable TreeBrowser from DDataStd; |
43 | |
44 | DrawOn (me; dis : in out Display); |
45 | |
46 | Copy (me) |
47 | returns mutable Drawable3D from Draw |
48 | is redefined; |
49 | |
50 | Dump (me; S : in out OStream) |
51 | is redefined; |
52 | |
53 | Whatis (me; I : in out Interpretor from Draw) |
54 | is redefined; |
55 | |
56 | ---Purpose: Specific methods |
57 | -- ================ |
58 | |
59 | Label (me : mutable; root : Label from TDF); |
60 | |
61 | Label (me) |
62 | returns Label from TDF; |
63 | |
64 | OpenRoot (me) |
65 | ---Purpose: Returns a string composed with the TreeNode of |
66 | -- <myLabel>. |
67 | returns AsciiString from TCollection; |
68 | |
69 | OpenNode (me; L : Label from TDF) |
70 | ---Purpose: Returns a string composed with the sub-TreeNodes of |
71 | -- <L> |
72 | returns AsciiString from TCollection; |
73 | |
74 | OpenNode (me; aTreeNode : TreeNode from TDataStd; |
75 | aList : in out AsciiString from TCollection) |
76 | ---Purpose: Returns a string composed with the sub-TreeNodes |
77 | -- of <aTreeNode>. Used to implement other methods. |
78 | is private; |
79 | |
80 | fields |
81 | |
82 | myRoot : Label from TDF; |
83 | |
84 | end TreeBrowser; |