7
/*-------------------------------------------------------------------------
/*            Environmental Systems Research Institute
/*-------------------------------------------------------------------------
/*      Menu: GETGRID.MENU 
/*   Purpose: GRID selection tool.
/*            Display subdirectories and grids in the current
/*            directory, allow the user to browse the file system.
/*-------------------------------------------------------------------------
/*   Globals: 
/*-------------------------------------------------------------------------
/*     Calls: 
/*-------------------------------------------------------------------------
/*     Notes: 
/*-------------------------------------------------------------------------
/*   History: Matt McGrath - 01/29/92 - Original coding
/*            Bernie Szukalski - 08/20/92 - modified getcover.menu to
/*                                          create getgrid.menu
/*=========================================================================
/*
 %up  Directory: %curdir

                            
 Subdirectories             ^Grids
 %subdir                    %grd





                            ^Search string:
                            %wild

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