{ ========================================================================== }
{ Pulldir.pas - Submenu pull-down directory.              var 7.0b, 09-24-93 }
{                                                                            }
{ This directory was designed with a heavy emphasis on human factors.        }
{ High speed retrieval, scrolling, non-flickering hilite, letter scanning,   }
{ single column and lower-case readability, right-justified extension,       }
{ pick list.                                                                 }
{ Only uses 56 global bytes of data.                                         }
{   Copyright (c) 1988,1993 James H. LeMay, All rights reserved.             }
{ ========================================================================== }

{$i pulldefs.inc }

UNIT PullDir;

INTERFACE

uses
  Wndw;

type
  FileNameStr = string[12];
  DirectoryMenuRec = record
    Title:                   string[9];
    MenuLines,
    Row,Col,Rows,Cols,
    HiLiteLine,
    Battr,Wattr,Hattr:       byte;
    Border:                  Borders;
    LinkDir:                 DirType;
    MsgLineNum, HelpWndwNum: byte
  end;

var
  DirectoryMenu: DirectoryMenuRec;

const
  FileMask:  FileNameStr = '*.*';

procedure PullDirectory (var NameToChange: FileNameStr;
                             NameToHiLite: FileNameStr);

IMPLEMENTATION

  { Complete source code is provided to registered users. }

END.