Topspeed_JPI/TS-V3/EXAMPLES/GWINC2M.LST

Listing:

    1  DEFINITION MODULE GWinC2M;
    2  
    3  (* A simple interface to parts of the graph module.
    4     Note that a major aim is to provide a device independant co-ord system.
    5     Therefore all windows are from (0,0) Top-Left to (1024,1024) bottom right
    6  *)
    7  (*# data(class_hierarchy=>off,cpp_compatible_class=>on) *)
    8  (*# module(implementation=>off,init_code=>off) *)
    9  (*# call(c_conv=>on)*)
   10  CONST
   11    GCoord::=INTEGER;
*****          ^ not supported yet
   12  TYPE
   13    ErrType=(ErrNoErr,ErrUnknownAdapter,ErrFewerColors,ErrUnknownMode);
   14  VAR
   15    _GraphErr:ErrType;
*****              ^ not supported yet
   16  (*# save*)
   17  (*# name(prefix=>c)*)
   18  PROCEDURE cputs(X:ADDRESS);
*****                    ^ undeclared identifier
   19  (*# restore *)
   20  
   21  CLASS GWindow;
   22    XScale,YScale:GCoord;
*****                  ^ not a type name
   23    NumColors:INTEGER;
   24    ok:BOOLEAN;
   25    XL,YT,XR,YB:GCoord;
*****                ^ not a type name
   26    PreviousMode:INTEGER;
   27    CurrentColor,CurrentBackColor:INTEGER;
   28    (* There are some private functions which I am keeping private *)
   29    PROCEDURE ct__@Fssssi(x1,y1,x2,y2:GCoord;cr:INTEGER);
*****                                      ^ not a type name
   30    PROCEDURE dt__;
   31    PROCEDURE ReSize(x1,y1,x2,y2:GCoord);
*****                                 ^ not a type name
   32    PROCEDURE SetColor(Col,BkCol:INTEGER);
   33    PROCEDURE Clear(BkCol:INTEGER);
   34    PROCEDURE Plot(x,y:GCoord;Col:INTEGER);
*****                       ^ not a type name
   35    PROCEDURE Point(x,y:GCoord):INTEGER;
*****                        ^ not a type name
   36    PROCEDURE Fill(x,y:GCoord;bound:INTEGER;Flood:BOOLEAN);
*****                       ^ not a type name
   37    PROCEDURE Line(x1,y1,x2,y2:GCoord;Col:INTEGER);
*****                               ^ not a type name
   38    PROCEDURE Rectangle(left,top,width,height:GCoord;fill:INTEGER);
*****                                              ^ not a type name
   39    PROCEDURE Polygon(nsides:INTEGER;px,py:ADDRESS;fill:INTEGER);
*****                                           ^ undeclared identifier
   40    PROCEDURE Ellipse(x,y,major,minor:GCoord;fill:INTEGER);
*****                                      ^ not a type name
   41    PROCEDURE EllipticArc(x,y,major,minor:GCoord;StartAngle,EndAngle:INTEGER);
*****                                          ^ not a type name
   42    PROCEDURE EllipticPie(x,y,major,minor:GCoord;Start,EndAngle,Fill:INTEGER);
*****                                          ^ not a type name
   43    PROCEDURE Cuboid(X,Y,widht,height,depth:GCoord;top,fill:INTEGER);
*****                                            ^ not a type name
   44    PROCEDURE CursorPosition(x,y:GCoord);
*****                                 ^ not a type name
   45    PROCEDURE CharHeight():INTEGER;
   46    PROCEDURE CharWidth():INTEGER;
   47  END GWindow;
*****      ^ not supported yet
   48  END GWinC2M.
*****      ^ not supported yet

   20 errors