!SHORT:Display_Directory      Display "Sidekick" type pick directory
Display_Directory                                               DirTTT
     


Purpose   To display a Sidekick-like directory for the user to select
          a file.

Returns   a string containing the selected file.

Declaration    Display_Directory(  var PathName: string;
               FileMask: string):string;
               
          PathName is a string variable containing the directory to
          initially display.
               
          FileMask is a string containing a DOS compatible file mask.
          The ? and * symbols are supported e.g. '*.pas',
          '???willy.*'.

Remarks   If the D.AllowEsc variable is enabled, then the function
          returns a string of #027 if the user ESCapes.
               
          There is no facility for saving/restoring the screen
          automatically. If necessary, use the SaveScreen and
          RestoreScreen procedures included in the WinTTT unit.

Example


               USES CRT, FASTTTT, DOS, KEYTTT, WINTTT, DIRTTT;
               VAR  F,P : STRING;
               BEGIN
                 GETDIR(0,P);
                 F := DISPLAY_DIRECTORY(P,'*.*');
               END;