Topspeed_JPI/TS-V3/EXAMPLES/GWINM2P.LST

Listing:

    1  DEFINITION MODULE GWinM2P;
    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  
    8  CONST
    9    GCoord::=INTEGER;
*****          ^ not supported yet
   10  TYPE
   11    ErrType=(ErrNoErr,ErrUnknownAdapter,ErrFewerColors,ErrUnknownMode);
   12  VAR
   13    _GraphErr:ErrType;
*****              ^ not supported yet
   14  
   15  CLASS GWindow;
   16    XScale,YScale:GCoord;
*****                  ^ not a type name
   17    NumColors:INTEGER;
   18    ok:BOOLEAN;
   19    XL,YT,XR,YB:GCoord;
*****                ^ not a type name
   20    PreviousMode:INTEGER;
   21    CurrentColor,CurrentBackColor:INTEGER;
   22    (* There are some private functions which I am keeping private *)
   23    PROCEDURE Open(x1,y1,x2,y2:GCoord;ColsReq:INTEGER);
*****                               ^ not a type name
   24    PROCEDURE Close;
   25    PROCEDURE ReSize(x1,y1,x2,y2:GCoord);
*****                                 ^ not a type name
   26    PROCEDURE SetColor(Col,BkCol:INTEGER);
   27    PROCEDURE Clear(BkCol:INTEGER);
   28    PROCEDURE Plot(x,y:GCoord;Col:INTEGER);
*****                       ^ not a type name
   29    PROCEDURE Point(x,y:GCoord):INTEGER;
*****                        ^ not a type name
   30    PROCEDURE Fill(x,y:GCoord;bound:INTEGER;Flood:BOOLEAN);
*****                       ^ not a type name
   31    PROCEDURE Line(x1,y1,x2,y2:GCoord;Col:INTEGER);
*****                               ^ not a type name
   32    PROCEDURE Rectangle(left,top,width,height:GCoord;fill:INTEGER);
*****                                              ^ not a type name
   33    PROCEDURE Polygon(nsides:INTEGER;px,py:ADDRESS;fill:INTEGER);
*****                                           ^ undeclared identifier
   34    PROCEDURE Ellipse(x,y,major,minor:GCoord;fill:INTEGER);
*****                                      ^ not a type name
   35    PROCEDURE EllipticArc(x,y,major,minor:GCoord;StartAngle,EndAngle:INTEGER);
*****                                          ^ not a type name
   36    PROCEDURE EllipticPie(x,y,major,minor:GCoord;Start,EndAngle,FillQ:INTEGER);
*****                                          ^ not a type name
   37    PROCEDURE Cuboid(X,Y,width,height,depth:GCoord;top,fill:INTEGER);
*****                                            ^ not a type name
   38    PROCEDURE CursorPosition(x,y:GCoord);
*****                                 ^ not a type name
   39    PROCEDURE CharHeight():INTEGER;
   40    PROCEDURE CharWidth():INTEGER;
   41    PROCEDURE VectorFromAngle(Ang:INTEGER;VAR X,Y:GCoord);
*****                                                  ^ not a type name
   42    PROCEDURE ArcServer(X,Y,Major,Minor:GCoord;StartA,EndA:INTEGER;Pie,FillQ:BOOLEAN);
*****                                        ^ not a type name
   43    PROCEDURE AffixColor(Col,BkCol:INTEGER);
   44    PROCEDURE XReal(x:GCoord):GCoord;
*****                      ^ not a type name
*****                              ^ not a type name
   45    PROCEDURE YReal(x:GCoord):GCoord;
*****                      ^ not a type name
*****                              ^ not a type name
   46    PROCEDURE XPhys(x:GCoord):GCoord;
*****                      ^ not a type name
*****                              ^ not a type name
   47    PROCEDURE YPhys(x:GCoord):GCoord;
*****                      ^ not a type name
*****                              ^ not a type name
   48    PROCEDURE Colour(x:INTEGER):INTEGER;
   49  END GWindow;
*****      ^ not supported yet
   50  END GWinM2P.
*****      ^ not supported yet

   29 errors