INPUTMAN.DEF 1.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657
  1. DEFINITION MODULE InputManager;
  2. (*
  3. * REPERTOIRE
  4. * Release 1.6
  5. * By Charles Bradford and Cole Brecheen
  6. * (c) Copyright 1985-1992 PMI
  7. * Green Bay, Wisconsin
  8. * All rights reserved
  9. * (414) 468-6040
  10. *
  11. * $Header: D:/logfiles/defs/inputman.dev 1.4 30 Dec 1990 18:01:16 coleb $
  12. *
  13. *)
  14. FROM ScrnTypes IMPORT DisplayFrame, AFrameName;
  15. PROCEDURE ControlFrame(VAR FrameRec :
  16. DisplayFrame; LandingField : CARDINAL;
  17. message : ARRAY OF CHAR; RedrawFirst:
  18. BOOLEAN; VAR NextFrame: AFrameName );
  19. PROCEDURE FirstInputField(FrameRec :
  20. DisplayFrame) : CARDINAL;
  21. PROCEDURE GetPromptStr( TheFrame: DisplayFrame;
  22. TheField: CARDINAL; VAR TheStr: ARRAY OF
  23. CHAR );
  24. PROCEDURE HiLiteSelChars( TheFrame: DisplayFrame
  25. );
  26. PROCEDURE LastInputField(FrameRec :
  27. DisplayFrame) : CARDINAL;
  28. PROCEDURE LookAlive( TheFrame: DisplayFrame );
  29. PROCEDURE NextInputField(FrameRec :
  30. DisplayFrame; skip: CARDINAL ) : CARDINAL;
  31. PROCEDURE PrevInputField(VAR FrameRec :
  32. DisplayFrame; skip: CARDINAL ): CARDINAL;
  33. PROCEDURE ReconstructFrame( TheFrame:
  34. DisplayFrame );
  35. PROCEDURE ShowPrompt( FrameRec: DisplayFrame;
  36. str : ARRAY OF CHAR );
  37. PROCEDURE SlideFrame( FrameRec: DisplayFrame;
  38. OldColsScrolled, NewColsScrolled,
  39. OldRowsScrolled, NewRowsScrolled: CARDINAL
  40. );
  41. PROCEDURE Init();
  42. END InputManager.