blob: fa1ae87920fe92c521da8722d11adc50da69e703 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
-- File: DDataStd_TreeBrowser.cdl
-- --------------------
-- Author: DAUTRY Philippe
-- <fid@fox.paris1.matra-dtv.fr>
---Copyright: MATRA DATAVISION 1997
---Version: 0.0
---History: Version Date Purpose
-- 0.0 Nov 27 1997 Creation
class TreeBrowser from DDataStd inherits Drawable3D from Draw
---Purpose: Browses a TreeNode from TDataStd.
-- =================================
uses
Label from TDF,
TreeNode from TDataStd,
Interpretor from Draw,
Display from Draw,
AsciiString from TCollection
is
Create (root : Label from TDF)
returns mutable TreeBrowser from DDataStd;
DrawOn (me; dis : in out Display);
Copy (me)
returns mutable Drawable3D from Draw
is redefined;
Dump (me; S : in out OStream)
is redefined;
Whatis (me; I : in out Interpretor from Draw)
is redefined;
---Purpose: Specific methods
-- ================
Label (me : mutable; root : Label from TDF);
Label (me)
returns Label from TDF;
OpenRoot (me)
---Purpose: Returns a string composed with the TreeNode of
-- <myLabel>.
returns AsciiString from TCollection;
OpenNode (me; L : Label from TDF)
---Purpose: Returns a string composed with the sub-TreeNodes of
-- <L>
returns AsciiString from TCollection;
OpenNode (me; aTreeNode : TreeNode from TDataStd;
aList : in out AsciiString from TCollection)
---Purpose: Returns a string composed with the sub-TreeNodes
-- of <aTreeNode>. Used to implement other methods.
is private;
fields
myRoot : Label from TDF;
end TreeBrowser;
|