blob: 0c6748eb1aabd5c382991f880fb45218a6e82457 (
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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
-- File: DDF_Browser.cdl
-- ---------------
-- Author: DAUTRY Philippe
-- <fid@fox.paris1.matra-dtv.fr>
---Copyright: MATRA DATAVISION 1997
---Version: 0.0
---History: Version Date Purpose
-- 0.0 Oct 3 1997 Creation
class Browser from DDF inherits Drawable3D from Draw
---Purpose: Browses a data framework.
uses
Data from TDF,
Label from TDF,
AttributeIndexedMap from TDF,
Interpretor from Draw,
Display from Draw,
AsciiString from TCollection
-- raises
is
Create (aDF : Data from TDF)
returns mutable Browser from DDF;
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;
-- Specific methods -------------------------------------------------------
Data (me : mutable; aDF : Data from TDF);
Data (me)
returns Data from TDF;
OpenRoot(me)
returns AsciiString from TCollection;
---Purpose: Returns a string composed with the sub-label
-- entries of <myDF>.
OpenLabel(me; aLab : Label from TDF)
returns AsciiString from TCollection;
---Purpose: Returns a string composed with the sub-label
-- entries of <aLab>.
OpenAttributeList(me : mutable;
aLab : Label from TDF)
returns AsciiString from TCollection;
---Purpose: Returns a string composed with the attribute index
-- (found in <myAttMap>) of <aLab>.
OpenAttribute(me : mutable;
anIndex : Integer from Standard = 0)
returns AsciiString from TCollection;
---Purpose: Returns a string composed with the list of
-- referenced attribute index of the attribute
-- <anIndex>. For exemple, it is usefull for
-- TDataStd_Group. It uses a mecanism based on a
-- DDF_AttributeBrowser.
Information(me)
returns AsciiString from TCollection;
---Purpose: Returns information about <me> to be displayed in
-- information window.
Information(me; aLab : Label from TDF)
returns AsciiString from TCollection;
---Purpose: Returns information about <aLab> to be displayed
-- in information window.
Information(me; anIndex : Integer from Standard = 0)
returns AsciiString from TCollection;
---Purpose: Returns information about attribute <anIndex> to
-- be displayed in information window.
fields
myDF : Data from TDF;
myAttMap : AttributeIndexedMap from TDF;
end Browser;
|