{ ========================================================================== }
{ Pull70b-.pas - TP full featured pull-down menus.        var 7.0b, 09-24-93 }
{                Interface only.                                             }
{ This file contains all the procedures for pull-down menus and data entry   }
{ windows.  Full source provided with registration.                          }
{   Copyright (c) 1988,1993 James H. LeMay, All rights reserved.             }
{ ========================================================================== }

{$i pulldefs.inc }

UNIT Pull;

INTERFACE

uses
  Crt,Qwik,Wutil,Wndw,
  {$ifdef UseStrg }
  Strg,
  {$else }
  Strs,
  {$endif }
  Goof;

{$I p70-var.inc }

procedure SetCmdSeq (const NewCmdSeq: SeqStrType);
procedure ReadKbd (var ExtKey: boolean; var Key: char);
procedure ShowTopLine;

{$ifdef UseMsgLineCode }
procedure ShowMsg (MsgNum: byte);
procedure ShowErrMsg (ErrMsgNum: word);
{$endif }

function  TopKeyPressed:  boolean;
procedure TurnArrows (Switch: Toggle);
procedure CheckForPullDown (MsgLineNum: byte);
procedure CheckForPop;

{$ifdef UseHelpWndwCode }
function  HelpKeyPressed: boolean;
procedure PullHelpWndw (WndwNum: byte);
{$endif }

function  Popped: boolean;
procedure GotoKeyDispatcher;
procedure InitPull (Attr: integer; ClearScr: boolean);
procedure HiLiteRow (Row: byte; Attr: integer);

{$ifndef UseStrg }
function  StrJL (const S: string; Field: byte): string;
function  StrJR (const S: string; Field: byte): string;
procedure ChrCat (var S: OpenString; Fill: char);
{$endif }

{ -- Data Entry interface -- }
{$ifdef UseDataEntryCode }
procedure Enter         (RecNum: word);
procedure EnterSeq      (First,Last: word; var Start: word);
procedure DisplayFields (First,Last: word);
{$endif }


IMPLEMENTATION


END.