Topspeed_JPI/TS/REP16/USEROPS.DEF

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


FROM ScrnTypes IMPORT DisplayFrame, AFrameName;
FROM KbdInput IMPORT KeyNumSet;

CONST
  EndCode = 0;
  ContinueCode = -1;

TYPE
  AKeyHandler = PROCEDURE( DisplayFrame, VAR
      CARDINAL, VAR AFrameName );

  AFieldHandler = PROCEDURE( DisplayFrame,
      CARDINAL, CARDINAL, VAR CARDINAL, VAR
      AFrameName );

(*================================================
  AFunctProc and AFieldProc will be deleted in the
  next release. Use AKeyHandler and AFieldHandler
  instead.
  ==============================================*)
  AFunctProc = PROCEDURE( DisplayFrame, VAR
      CARDINAL ): INTEGER;
  AFieldProc = PROCEDURE( DisplayFrame, CARDINAL,
      CARDINAL, VAR CARDINAL ): INTEGER;

VAR
  DoPrompting, Exiting, InsertMode : BOOLEAN;

  PromptLength, PromptRow, PromptCol: CARDINAL;

  HelpKey, TimeKey, ExitKey, SubmitKey, BackupKey:
      CARDINAL;

  FunctKeySet, ScreenKeySet, StringKeySet,
      FieldExitKeySet: KeyNumSet;

  TheKeyHandler : AKeyHandler;
  TheFieldHandler : AFieldHandler;

(*================================================
  TheFunctProc and TheFieldProc will be deleted in
  the next release.  Use TheKeyHandler and
  TheFieldHandler instead.
  ==============================================*)
  TheFunctProc : AFunctProc;
  TheFieldProc : AFieldProc;

  PROCEDURE Init();

END UserOps.