7
/*-------------------------------------------------------------------------
/*            Environmental Systems Research Institute
/*-------------------------------------------------------------------------
/*      Menu: GETCOVER.MENU 
/*   Purpose: Coverage selection tool.
/*            Display subdirectories and coverages in the current
/*            directory, allow the user to browse the file system.
/*-------------------------------------------------------------------------
/*   Globals: 
/*-------------------------------------------------------------------------
/*     Calls: 
/*-------------------------------------------------------------------------
/*     Notes: 
/*-------------------------------------------------------------------------
/*   History: Matt McGrath - 01/29/92 - Original coding
/*=========================================================================
/*
 %up  Directory: %curdir

                            
 Subdirectories             ^Coverages 
 %subdir                    %cov





                            ^Search string:
                            %wild

 %ok  %cancel
%curdir INPUT .getcover$curdir 45 ~
     HELP 'Directory path' ~
     RETURN '&run getcover curdir' ~
     CHARACTER
%up BUTTON RETURN KEEP HELP 'Move up one directory' ~
    ROWS 2 ICON up16.icon 'GO up one directory' ~
     &run getcover up
%subdir INPUT .getcover$subdir 25 TYPEIN NO SCROLL YES ROWS 5 ~
     RETURN '&run getcover subdir' ~
     FILE %.getcover$fileloc% -directory 
/*%type DISPLAY type 8  
%cov INPUT .getcover$cover 25 TYPEIN NO SCROLL YES ROWS 5 ~
     REQUIRED ~
     COVER %.getcover$curdir%/%wildcard% -%type%
%wild INPUT wildcard 15 ~
     HELP 'Enter string for searching coverage names' ~
     CHARACTER
%ok BUTTON HELP 'Apply settings and quit menu' ~
    OK &return; &run getcover ok
%cancel BUTTON CANCEL ~
    HELP 'Quit from this menu' ~
    'Cancel' &return; &run getcover cancel
%FORMOPT SETVARIABLES IMMEDIATE MESSAGEVARIABLE .getcover$message ~
    NEXTFIELD SAME