!
! Function InitialSettings, called by Orbwin
!
LOGICAL(4) FUNCTION InitialSettings()
!   This routine is called automatically when the program begins.
!   It sets up the menu structure for the primary "frame" window of OrbWin,
!   and connects my "Callbacks.f90" routines with each menu item.
   use dflib
   implicit none
!  variables
   logical(4) bRet
   integer(2) iRet
!  define the external subroutines called by menu items
   external  Set2ndOrigin, Instructions, Help, LoadGrid, LoadBase, SaveGrid, ClearGrid, ClearBase, UserExit, AddDropNode, Adjustnode, &
             AddDeleteElement, CutHealFault, eqcmDraw, Finclination, Fheading, About, Drawgrid,ZoomInOut, &
			 Redraw,WindowPosition, Globegrid, Tilegrid, SetKolor, PATest, ViewGap, PinpointNode, PinpointElement, &
			 BlockSetValue, LRDraw, BlockSetLR
!
!  Menu Items
!==============
!
!  File menu:
   bRet = appendmenuqq(1, $MENUENABLED, 'File'C, NUL)
   bRet = appendmenuqq(1, $MENUENABLED, 'Load&Grid\tCtrl+G'C, LoadGrid)
   bRet = appendmenuqq(1, $MENUENABLED, 'Load&Base\tCtrl+B'C, LoadBase)
   bRet = appendmenuqq(1, $MENUENABLED, 'Sa&veGrid\tCtrl+V'C, SaveGrid)
   bRet = appendmenuqq(1, $MENUENABLED, 'ClearGrid'C, ClearGrid)
   bRet = appendmenuqq(1, $MENUENABLED, 'ClearBase'C, ClearBase)
   bRet = appendmenuqq(1, $MENUENABLED, 'Print'C, Winprint)
   bRet = appendmenuqq(1, $MENUSEPARATOR,'sep'C, NUL)
   bRet = appendmenuqq(1, $MENUENABLED, 'E&xit\tCtrl+X'C, UserExit)
!
!  Edit menu:
   bRet = insertmenuqq(2,0,$MENUENABLED, 'Edit'C, NUL)
   bRet = appendmenuqq(2, $MENUENABLED, 'Add/Drop Node\tCtrl+N'C,  AddDropNode)
   bRet = appendmenuqq(2, $MENUSEPARATOR, 'sep'C, NUL)   
   bRet = appendmenuqq(2, $MENUENABLED, 'AdjustNode\tCtrl+A'C,  AdjustNode)
   bRet = appendmenuqq(2, $MENUENABLED, 'Add/Delete Element\tCtrl+E'C,  AddDeleteElement)
   bRet = appendmenuqq(2, $MENUSEPARATOR, 'sep'C, NUL)   
   bRet = appendmenuqq(2, $MENUENABLED, 'Cut/Heal Fault\tCtrl+F'C, CutHealFault)
   bRet = appendmenuqq(2, $MENUENABLED, 'Inclination(dip) of fault\tCtrl+I'C, FInclination)
   bRet = appendmenuqq(2, $MENUENABLED, 'Heading(azimuth) of fault\tCtrl+H'C, FHeading)
   bRet = appendmenuqq(2, $MENUSEPARATOR, 'sep'C, NUL)   
   bRet = appendmenuqq(2, $MENUENABLED, 'Elevation(OR mu)/Q/Crust/Mantle/Density-anomaly/Cooling-curvature\tCtrl+M'C, eqcmDraw)
   bRet = appendmenuqq(2, $MENUENABLED, 'Block Set mode for Elev.(OR mu)/Q/Crust/Mantle/...'C, BlockSetValue)
   bRet = appendmenuqq(2, $MENUSEPARATOR, 'sep'C, NUL)   
   bRet = appendmenuqq(2, $MENUENABLED, 'Lithospheric Rheology (LR) index # of each element'C, LRDraw)
   bRet = appendmenuqq(2, $MENUENABLED, 'Block Set mode for LR#s of elements'C, BlockSetLR)
!
!  View menu:
   bRet = insertmenuqq(3,0, $MENUENABLED, 'View'C, NUL)
   bRet = appendmenuqq(3, $MENUENABLED, 'DrawGrid\tCtrl+D'C, DrawGrid)
   bRet = appendmenuqq(3, $MENUENABLED, 'ZoomIn&Out\tCtrl+Z'C, ZoomInOut)
   bRet = appendmenuqq(3, $MENUSEPARATOR, 'sep'C, NUL)
   bRet = appendmenuqq(3, $MENUENABLED, 'Refresh\tCtrl+R'C, Redraw)
   bRet = appendmenuqq(3, $MENUSEPARATOR, 'sep'C, NUL)
   bRet = appendmenuqq(3, $MENUENABLED, 'WindowPosition'C, WindowPosition)
   bRet = appendmenuqq(3, $MENUENABLED, '2ndOriginSet\tCtrl+O'C, Set2ndOrigin)
   bRet = appendmenuqq(3, $MENUENABLED, 'SetColors\tCtrl+K'C, SetKolor)
   bRet = appendmenuqq(3, $MENUSEPARATOR, 'sep'C, NUL)
   bRet = appendmenuqq(3, $MENUENABLED, 'ShowNode'C, PinpointNode)
   bRet = appendmenuqq(3, $MENUENABLED, 'ShowElement'C, PinpointElement)
!
!  Tools menu:
   bRet = insertmenuqq(4,0, $MENUENABLED, 'Tools'C, NUL)
   bRet = appendmenuqq(4, $MENUENABLED, 'GlobalGrid'C, Globegrid)
   bRet = appendmenuqq(4, $MENUENABLED, 'TileRegionalGrid'C, TileGrid)
   bRet = appendmenuqq(4, $MENUSEPARATOR, 'sep'C, NUL)
   bRet = appendmenuqq(4, $MENUENABLED, 'Perimeter/Area Tests'C, PATest)
   bRet = appendmenuqq(4, $MENUENABLED, 'View Gaps/Overlays'C, ViewGap)
!
!  Help menu:
   bRet = insertmenuqq(5,0, $MENUENABLED, 'Help'C, NUL)
   bRet = appendmenuqq(5, $MENUENABLED, 'Hints'C, instructions)
   bRet = appendmenuqq(5, $MENUENABLED, 'Manual'C, Help)
   bRet = appendmenuqq(5, $MENUENABLED, 'About'C, ABOUT)
!
!  Set function logical value.  This should be .TRUE. if the 
!  many invocations to appendmenuqq were sucessful.
   InitialSettings = bRet
END FUNCTION InitialSettings