/*====================================================================*\
FILE    : UgFEMMenu.c
PURPOSE : ProTk  User Guide -  Set up the FEM Menu
HISTORY..
DATE      BUILD   AUTHOR   MODIFICATIONS
04-dec-97 H-02-02 Philippe $$1  Created from UgMenusSetup.c
\*====================================================================*/
/*---------------------- Pro/Toolkit Includes ------------------------*/
#include <ProToolkit.h>
#include <ProMenu.h>
#include <ProMdl.h>

/*---------------------- Application Includes ------------------------*/
#include <TestError.h>
#include <UserFEM.h>


/*---------------------- Function Prototypes -------------------------*/
int UserFEMSetup();

/*------------------------- External Data ----------------------------*/
extern int user_get_fem_action();
extern int UserMenuDeleteAndPop();

/*====================================================================*\
Function : UserFEMSetup()
Purpose  : Set up the Interference Checking Menu
\*====================================================================*/
int UserFEMSetup()
{
  int menu_id, action, status;
  ProMdl model;
  int err;

  err = ProMdlCurrentGet( &model );
  if ( err != PRO_TK_NO_ERROR ) return ( err );

  status = ProMenuFileRegister("UGFEM", "ugfem.mnu", &menu_id);
  ERROR_CHECK( "UserFEMSetup", "ProMenuFileRegister", status );

  status = ProMenubuttonActionSet("UGFEM","-GetConsCaseNames",
     (ProMenubuttonAction)user_get_fem_action, model,
        USER_FEM_GET_CONS_NAMES);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM","-Get Constraints",
     (ProMenubuttonAction)user_get_fem_action, model,
        USER_FEM_GET_CONSTRAINTS);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM","-GetMassElems",
     (ProMenubuttonAction)user_get_fem_action, model,
        USER_FEM_MASS_ELEMENTS);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM","-GetMeshContr",
     (ProMenubuttonAction)user_get_fem_action, model,
        USER_FEM_MESH_CONTROLS);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM","-GetBarElems",
     (ProMenubuttonAction)user_get_fem_action, model,
        USER_FEM_GET_BAR_ELEMS);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM","-Get Contacts",
     (ProMenubuttonAction)user_get_fem_action, model, USER_FEM_GET_CONTACTS);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM","-Get Runners",
     (ProMenubuttonAction)user_get_fem_action, model, USER_FEM_GET_RUNNERS);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM", "-Done/Return",
     (ProMenubuttonAction)UserMenuDeleteAndPop, NULL,0);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenubuttonActionSet("UGFEM", "UGFEM",
     (ProMenubuttonAction)UserMenuDeleteAndPop, NULL, 0);
  ERROR_CHECK( "UserFEMSetup", "ProMenubuttonActionSet", status );

  status = ProMenuPush();
  ERROR_CHECK( "UserFEMSetup", "ProMenuPush", status );

  status = ProMenuCreate(PROMENUTYPE_MAIN, "UGFEM", &menu_id);
  ERROR_CHECK( "UserFEMSetup", "ProMenuCreate", status );

  status = ProMenuProcess("UGFEM", &action);
  ERROR_CHECK( "UserFEMSetup", "ProMenuProcess", status );

  return(PRO_TK_NO_ERROR);
}