Topspeed_JPI/TS-V3/REP16/WINDOWPR.DEF

DEFINITION MODULE WindowPrims;
(*
 *  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/windowpr.dev   1.4   30 Dec 1990 18:06:36   coleb  $
 *
 *)



  FROM KbdInput IMPORT KeyNumSet;
  FROM SmartScreen IMPORT Colors, TextAttribute;
  FROM VStorage IMPORT MemHandle;
  FROM VWindows IMPORT BoxStr, Compass;

  TYPE
    ScreenType =
      RECORD
        width, size : CARDINAL;
        handle : MemHandle;
      END;


  VAR
    MsgForeColor, MsgBackColor: Colors;
    MsgMonoAtrib : TextAttribute;
    SingleBox, DoubleBox: BoxStr;


  PROCEDURE DrawThisBox( BoxChars: BoxStr; col1,
      row1, col2, row2 : CARDINAL);

  PROCEDURE DrawLine( col1, row1, col2, row2:
      CARDINAL; TheChar: CHAR );

  PROCEDURE GetCursorCoords(VAR column, row :
      CARDINAL);

  PROCEDURE GetCursorHeight(): CARDINAL;

  PROCEDURE left();
  PROCEDURE right();
  PROCEDURE up();
  PROCEDURE down();

  PROCEDURE MsgBox(locatn : Compass; TheStr :
      ARRAY OF CHAR; LegalKeys: KeyNumSet; VAR
      KeyPressed : CARDINAL);

  PROCEDURE PopCursorCoords();

  PROCEDURE PushCursorCoords();

  PROCEDURE PopCursorHeight();

  PROCEDURE PushCursorHeight();

  PROCEDURE PopColors();

  PROCEDURE PushColors();

  PROCEDURE ScreenRestore(scrn : ScreenType; col,
      row : CARDINAL);

  PROCEDURE ScreenSave(VAR scrn : ScreenType;
      col1, row1, col2, row2 : CARDINAL);

  PROCEDURE ScrollWindow(col1, row1, col2, row2,
      lines : INTEGER);

(*===============================================
  The following procedures will be deleted in the
  next release.  Use DrawThisBox instead.
  =============================================*)

  PROCEDURE DrawBox(col1, row1, col2, row2 :
      CARDINAL);
  PROCEDURE DrawDblBox(col1, row1, col2, row2 :
      CARDINAL);

  PROCEDURE Init();

END WindowPrims.