!
! Function InitialSettings, called by Orbwin
!
logical(4) function InitialSettings()
!   This routine is called automatically when the program begins.
!   begins. It sets up the menu structure for the program,
!   and connects "callback" 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
!
!   iret = passdirkeysqq(PASS_DIR_CNTRLC)
!  menu items
   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, '&SaveGrid\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
   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/Q(or mu)/Crust/Mantle/Density-anomaly/Cooling-curvature\tCtrl +M'C, eqcmDraw)
   bret = appendmenuqq(2, $MENUENABLED, 'Block Set mode for Ele/Q(or mu)/Crust/Mantle'C, BlockSetValue)
!  view
   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, '2ndOrigin_Set\tCtrl +O'C, Set2ndOrigin)
   bret = appendmenuqq(3, $MENUENABLED, 'SetColors\tCtrl +K'C, SetKolor)
   bret = appendmenuqq(3, $MENUSEPARATOR, 'sep'C, NUL)
   bret = appendmenuqq(3, $MENUENABLED, 'Show Node'C, PinpointNode)
   bret = appendmenuqq(3, $MENUENABLED, 'Show Element'C, PinpointElement)
!  tools
   bret = insertmenuqq(4,0, $MENUENABLED, 'Tools'C, NUL)
   bret = appendmenuqq(4, $MENUENABLED, 'GlobalGrid'C, Globegrid)
   bret = appendmenuqq(4, $MENUENABLED, 'TileRegionGrid'C, TileGrid)
   bret = appendmenuqq(4, $MENUSEPARATOR, 'sep'C, NUL)
   bret = appendmenuqq(4, $MENUENABLED, 'Perimeter/Area Test'C, PATest)
   bret = appendmenuqq(4, $MENUENABLED, 'View Gaps/Overlays'C, ViewGap)
!  help
   bret = insertmenuqq(5,0, $MENUENABLED, 'Help'C, NUL)
   bret = appendmenuqq(5, $MENUENABLED, 'Instructions'C, instructions)
   bret = appendmenuqq(5, $MENUENABLED, 'Help'C, Help)
   bret = appendmenuqq(5, $MENUENABLED, 'About'C, ABOUT)
!
!  Set function logical value.  This will be true if the 
!  appendmenuqq is sucessful
   InitialSettings = bret
   return
end