JobMenu.cxx

Go to the documentation of this file.

#include "EventDisplayBase/JobMenu.h"
#include <cstdlib>
#include <string>
#include <iostream>
#include "TROOT.h"
#include "TSystem.h"
#include "TGMsgBox.h"
#include "TGMenu.h"
#include "TGLayout.h"
#include "TGFileDialog.h"
#include "TTimer.h"
#include "EventDisplayBase/evdb.h"
#include "XMLInterface/xmli.h"
#include "JobControl/Stack.h"
#include "Config/Table.h"
#include "Config/Config.h"
#include "EventDisplayBase/CfgEdit.h"
#include "EventDisplayBase/IoModule.h"
using namespace evdb;

// Define ID codes for the actions on the file menu
enum {
  kM_JOB_OPENXML            = 99001,
  kM_JOB_EDITCONFIG         = 99002,
  kM_JOB_AUTO_ADVANCE_START = 99003,
  kM_JOB_AUTO_ADVANCE_STOP  = 99004
};

static cfg::Config* gsConfig[1024];

//......................................................................

JobMenu::JobMenu(TGMenuBar* menubar, TGMainFrame* mf) :
  fMainFrame(mf)
{
//======================================================================
// Build the help menu
//======================================================================
  fJobMenu = new TGPopupMenu(gClient->GetRoot());
  fLayout  = new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0);
  
  fConfigMenu = new TGPopupMenu(gClient->GetRoot());
  this->BuildConfigMenu();
  
  // Create the list of functions. Associate each which a command code
  fJobMenu->AddEntry("&Open XML",    kM_JOB_OPENXML);
  fJobMenu->AddPopup("&Edit Config", fConfigMenu);
  fJobMenu->AddEntry("Start Auto Advance", kM_JOB_AUTO_ADVANCE_START);
  fJobMenu->AddEntry("Stop Auto Advance",  kM_JOB_AUTO_ADVANCE_STOP);
  
  fJobMenu->Connect("Activated(Int_t)",
                    "evdb::JobMenu",this,"HandleMenu(int)");
  
  // Attach the menu to the menu bar
  menubar->AddPopup("&Job",fJobMenu,fLayout);
}

//......................................................................

JobMenu::~JobMenu() 
{
//======================================================================
// Delete the help menu
//======================================================================
  if (fLayout)  { delete fLayout;  fLayout  = 0; }
  if (fJobMenu) { delete fJobMenu; fJobMenu = 0; }
}

//......................................................................

void JobMenu::BuildConfigMenu() 
{
  // Wipe out the existing menus
  for (int i=0;;++i) {
    TGMenuEntry* m = fConfigMenu->GetEntry(i);
    if (m) fConfigMenu->DeleteEntry(i);
    else   break;
  }

  // Rebuild the list
  int icfg = 0;
  cfg::Table::ConfigList& cfglist = cfg::Table::Instance().GetList();
  cfg::Table::ConfigList::iterator itr   (cfglist.begin());
  cfg::Table::ConfigList::iterator itrEnd(cfglist.end());
  for (; itr!=itrEnd; ++itr) {
    fConfigMenu->AddEntry((*itr)->GetName(), icfg);
    gsConfig[icfg] = (*itr);
    ++icfg;
  }
  fConfigMenu->Connect("Activated(Int_t)",
                       "evdb::JobMenu",this,"EditConfig(int)");
}

//......................................................................

void JobMenu::HandleMenu(int menu) 
{
//======================================================================
// Take care of menu events
//======================================================================
  switch(menu) {
  case kM_JOB_OPENXML: 
    this->OpenJobXML(); 
    break;
  case kM_JOB_AUTO_ADVANCE_START: 
    IoModule::Instance()->StartAutoAdvance();
    break;
  case kM_JOB_AUTO_ADVANCE_STOP:
    IoModule::Instance()->StopAutoAdvance();
    break;
  default:
    // This is bogus, but it works. TODO: Figure out why the fConfigMenu
    // signals are misrouted here
    this->EditConfig(menu);
    break;
  }
}

//......................................................................

void JobMenu::EditConfig(int i)
{  
  new CfgEdit(gsConfig[i], fMainFrame);
}

//......................................................................

int JobMenu::OpenJobXML() 
{
  static TString dir(getenv("SRT_PRIVATE_CONTEXT"));
  const char* filetypes[] = {
    "XML Files", "*.xml",
    0,           0
  };
  
  TGFileInfo finfo;
  finfo.fIniDir    = StrDup(dir.Data());
  finfo.fFileTypes = filetypes;

  new TGFileDialog(gClient->GetRoot(), 
                   gClient->GetRoot(),
                   kFDOpen,
                   &finfo);
  if (finfo.fFilename == 0) return 0;

  // Add this directory to the top of the XML path. Helps get the
  // supporting configuration XML loaded
  xmli::AddToPath(finfo.fIniDir,-1);

  // Set flags that allows all configurations to be editted
  cfg::Config::SetEditAllOK();
  
  // Load the job xml file
  xmli::ReadFile(finfo.fFilename);
  jobc::Stack::Instance().PrintAll();

  // Rebuild the menus to relect any new entries
  this->BuildConfigMenu();

  // Reload the current event to trigger processing
  IoModule::Instance()->Reload();

  return 0;
}

---