src/Viewer/Viewer_Viewer.cdl


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

-- File:	Viewer_Viewer.cdl
-- Created:	Thu Apr  6 16:20:09 1995
-- Author:	Jean-Louis Frenkel
--		<rmi@pernox>
---Copyright:	 Matra Datavision 1995

deferred class Viewer from Viewer inherits TShared from MMgt

uses
    AsciiString,ExtendedString from TCollection,
    GraphicDevice from Aspect
    
is
    Initialize( aDevice: GraphicDevice from Aspect;
                aName: ExtString from Standard;
                aDomain: CString from Standard;
                aNextCount: Integer from Standard);
    
    Update(me: mutable) is deferred;


    Device(me) returns mutable GraphicDevice from Aspect
    is static;
    
    NextName(me) returns ExtString from Standard
    is static;

    Domain(me) returns CString from  Standard
    is static;

    IncrCount(me:mutable) is static protected;
    
fields
    	myNextCount: Integer from Standard;
        myDomain: AsciiString from TCollection;    
        myName: ExtendedString from TCollection;
        myDevice: GraphicDevice from Aspect;
end Viewer  from Viewer;