Topspeed_JPI/TS/REP16/VWINDOWS.DEF

DEFINITION MODULE VWindows;
(*
 *  REPERTOIRE
 *  Release 1.6
 *  By Charles Bradford and Cole Brecheen
 *  (c) Copyright 1985-1992 PMI
 *  Green Bay, Wisconsin
 *  All rights reserved
 *  (414) 468-6040
 *
 *  $Header:   D:/logfiles/defs/vwindows.dev   1.4   30 Dec 1990 18:06:30   coleb  $
 *
 *)


IMPORT MsColors;
IMPORT SYSTEM;

TYPE
  AWindowHandle; (* opaque *)
  BoxStr = ARRAY [0..8] OF CHAR;
  Compass = (North, South, East, West, NW, SW, NE,
             SE);

CONST
  SbHorz = 0;
  SbVert = 1;

VAR
  CurrentWindow: AWindowHandle;
  SingleBox, DoubleBox: BoxStr;

  BackColor: PROCEDURE( AWindowHandle ):
      MsColors.AColor;

  ClearPart: PROCEDURE( AWindowHandle, CARDINAL,
      CARDINAL, CARDINAL, CARDINAL );

  DrawBox: PROCEDURE( AWindowHandle, BoxStr,
      CARDINAL, CARDINAL, CARDINAL, CARDINAL );

  DrawStr: PROCEDURE( AWindowHandle, CARDINAL,
      CARDINAL, SYSTEM.ADDRESS, CARDINAL );

  EndCol: PROCEDURE( AWindowHandle ): CARDINAL;

  EndRow: PROCEDURE( AWindowHandle ): CARDINAL;

  ForeColor: PROCEDURE( AWindowHandle ):
      MsColors.AColor;

  GetCursorHeight: PROCEDURE( AWindowHandle ):
      CARDINAL;

  GetCursorCoords: PROCEDURE( AWindowHandle, VAR
      CARDINAL, VAR CARDINAL  );

  GotoXY: PROCEDURE( AWindowHandle, CARDINAL,
      CARDINAL );

  MessageBox: PROCEDURE( AWindowHandle,
      SYSTEM.ADDRESS, SYSTEM.ADDRESS, CARDINAL ):
      CARDINAL;

  MonoAttr: PROCEDURE( AWindowHandle ):
      MsColors.AMonoAttribute;

  ReverseColors: PROCEDURE( AWindowHandle );

  ScrollHorizontally: PROCEDURE( AWindowHandle,
      CARDINAL, CARDINAL, CARDINAL, CARDINAL,
      INTEGER ): BOOLEAN;

  ScrollVertically: PROCEDURE( AWindowHandle,
      CARDINAL, CARDINAL, CARDINAL, CARDINAL,
      INTEGER ): BOOLEAN;

  SetBackColor: PROCEDURE( AWindowHandle,
      MsColors.AColor );

  SetCursorHeight: PROCEDURE( AWindowHandle,
      CARDINAL );

  SetForeColor: PROCEDURE( AWindowHandle,
      MsColors.AColor );

  SetMonoAttr: PROCEDURE( AWindowHandle,
      MsColors.AMonoAttribute );

  SetScrollPos: PROCEDURE( AWindowHandle, INTEGER,
      INTEGER );

  SetScrollRange: PROCEDURE( AWindowHandle,
      INTEGER, INTEGER, INTEGER );

  PROCEDURE Init();

END VWindows.