online.C

///////////////////////////////////////////////////////////////////
//  Macro to help with online analysis
//    B. Moffit (moffit@jlab.org)
//    - Originally written in Oct. 2003
//  Documentation and updates available at:
//    http://www.jlab.org/~moffit/onlineGUI/
//

#include "online.h"
#include <string>
#include <fstream>
#include <iostream>
#include <list>
#include <TMath.h>
#include <TBranch.h>
#include <TGClient.h>
#include <TCanvas.h>
#include <TStyle.h>
#include <TROOT.h>
#include <TGImageMap.h>
#include <TGFileDialog.h>
#include <TKey.h>
#include <TObjString.h>
#include <TSystem.h>
#include <TLatex.h>
#include <TText.h>
#include <TGraph.h>
#include "GetRootFileName.C"
#include "GetRunNumber.C"
#include "TPaveText.h"
#ifdef STANDALONE
#include <TApplication.h>
#endif
// #define DEBUGGETFILEOBJECTS
// #define DEBUGPARSE
// #define DEBUG
//#define DEBUG2
//#define NOISY
//#define INTERNALSTYLE

//TString guiDirectory = "onlineGUI_v1.2.1/";
TString guiDirectory = "./";

///////////////////////////////////////////////////////////////////
//  Class: OnlineConfig
//
//     Utility class that reads in a text file (.cfg) and
//     stores it's contents.
//
//

OnlineConfig::OnlineConfig() 
{
  // Constructor.  Without an argument, will use default "standard" config
  fMonitor = kFALSE;
  OnlineConfig("standard");
}

OnlineConfig::OnlineConfig(TString anatype) 
{
  // Constructor.  Takes the config anatype as the only argument.
  //  Loads up the configuration file, and stores it's contents for access.
  
  confFileName = anatype;
  configfilestart=anatype;
  if(!confFileName.Contains(".cfg"))
    confFileName += ".cfg";
  fMonitor = kFALSE;
  fFoundCfg = kFALSE;

  // Attempt to find the config file in specified (first argument,
  // relative or absolute) location, then in guiDirectory
  fConfFile = new ifstream(confFileName.Data());
  if ( ! (*fConfFile) ) {
    cerr << "OnlineConfig() WARNING: config file " << confFileName.Data()
         << " does not exist" << endl;
    cerr << " Checking the " << guiDirectory << " directory" << endl;
    confFileName.Prepend(guiDirectory+"/");
    fConfFile = new ifstream(confFileName.Data());
    if ( ! (*fConfFile) ) {
      // Didn't find it... load up the default config
      confFileName = guiDirectory+"/default.cfg";
      cout << "OnlineConfig()  Trying " << confFileName.Data() 
	   << " as default configuration." << endl
	   << " (May be ok.)" << endl;
      fConfFile = new ifstream(confFileName.Data());
      if ( ! (*fConfFile) ) {
	cerr << "OnlineConfig() WARNING: no file "
	     << confFileName.Data() <<endl;
	cerr << "You need a configuration to run.  Ask an expert."<<endl;
	fFoundCfg = kFALSE;
	//      return;
      } else {
	fFoundCfg = kTRUE;
      }
    } else {
      fFoundCfg = kTRUE;
    }
  } else {
    fFoundCfg = kTRUE;
  }

  if(fFoundCfg) {
  clog << "GUI Configuration loading from " 
       << confFileName.Data() << endl;
  }

  ParseFile();

  // Load up a user configurable style (if it exists)
  TString styleFile = guiDirectory+"onlineGUI_Style.C";
  if(!gSystem->AccessPathName(styleFile))
     gROOT->Macro(styleFile);

  fConfFile->close();
  delete fConfFile;

}

void OnlineConfig::ParseFile() 
{
  // Reads in the Config File, and makes the proper calls to put
  //  the information contained into memory.

  if(!fFoundCfg) {
    return;
  }

  TString comment = "#";
  vector<TString> strvect;
  TString sinput, sline;
  while (sline.ReadLine(*fConfFile)) {
    strvect.clear();
    // Strip away leading and trailing spaces.
    sline = sline.Strip(TString::kBoth,' ');
    // If the line starts with a comment, skip it.
    if(sline.BeginsWith(comment)) continue;
    // If the line contains a comment, split it up into two and keep
    // the uncommented (first) part
    if(sline.Contains(comment)) {
      TObjArray *tmpoarr = sline.Tokenize(comment);
      TObjString *tmpostr = (TObjString*)tmpoarr->First();
      sline = tmpostr->GetString().Strip(TString::kTrailing,' ');
      delete tmpoarr;
    }
    // Now split up the line according to 's and spaces.  This is for
    // looking for the histogram using it's title (which may contain
    // spaces) instead of its name.
    if(sline.Contains("'")) {
      TObjArray *tmpoarr = sline.Tokenize("'");
      Bool_t quote_on_odd = kTRUE;
      if(!(sline.BeginsWith("'"))) quote_on_odd=kFALSE;
      TIterator *next = tmpoarr->MakeIterator();
      TObjString *tmpostr; Bool_t odd=kTRUE;
      while((tmpostr=(TObjString*)next->Next())!=NULL) {
	if((quote_on_odd&&odd) || (!quote_on_odd&&!odd)) {
	  strvect.push_back(tmpostr->GetString());
	  odd = !odd;
	} else {
	  TObjArray *tmpoarr2 = tmpostr->GetString().Tokenize(" ");
	  TIterator *next2 = tmpoarr2->MakeIterator();
	  TObjString *tmpostr2;
	  while((tmpostr2=(TObjString*)next2->Next())!=NULL) {
	    strvect.push_back(tmpostr2->GetString());
	  }
	  delete tmpoarr2;
	  odd = !odd;
	}
      }
      delete tmpoarr;
    } else { // No 's.. just split according to spaces
      TObjArray *tmpoarr2 = sline.Tokenize(" ");
      TIterator *next2 = tmpoarr2->MakeIterator();
      TObjString *tmpostr2;
      while((tmpostr2=(TObjString*)next2->Next())!=NULL) {
	strvect.push_back(tmpostr2->GetString());
      }
      delete tmpoarr2;
    }
    sConfFile.push_back(strvect);
    
}

#ifdef DEBUGPARSE
  for(UInt_t ii=0; ii<sConfFile.size(); ii++) {
    cout << "Line " << ii << endl << "  ";
    for(UInt_t jj=0; jj<sConfFile[ii].size(); jj++) 
      cout << sConfFile[ii][jj] << " ";
    cout << endl;
  }
#endif

  cout << "     " << sConfFile.size() << " lines read from " 
       << confFileName << endl;
  
}

Bool_t OnlineConfig::ParseConfig() 
{
  //  Goes through each line of the config [must have been ParseFile()'d]
  //   and interprets.

  if(!fFoundCfg) {
    return kFALSE;
  }

  UInt_t command_cnt=0;
  UInt_t j=0;
  Bool_t hasMultiPlots=kFALSE;
  canvaswidth = 800;		// Default canvas size
  canvasheight = 600;
  // If statement for each high level command (cut, newpage, etc)
  for(UInt_t i=0;i<sConfFile.size();i++) {
    // "newpage" command
    if(sConfFile[i][0] == "newpage") {
      // sConfFile[i] is first of pair
      for(j=i+1;j<sConfFile.size();j++) {
	if(sConfFile[j][0] != "newpage") {
	  // Count how many commands within the page
	  command_cnt++;
	} else break;
      }
      pageInfo.push_back(make_pair(i,command_cnt));
      i += command_cnt;
      command_cnt=0;
    }
    if(sConfFile[i][0] == "watchfile") {
      fMonitor = kTRUE;
    }
    if(sConfFile[i][0] == "definecut") {
      if(sConfFile[i].size()>3) {
	cerr << "cut command has too many arguments" << endl;
	continue;
      }
      TCut tempCut(sConfFile[i][1],sConfFile[i][2]);
      cutList.push_back(tempCut);
    }
    if(sConfFile[i][0] == "rootfile") {
      if(sConfFile[i].size() != 2) {
	cerr << "WARNING: rootfile command does not have the "
	     << "correct number of arguments"
	     << endl;
	continue;
      }
      if(!rootfilename.IsNull()) {
	cerr << "WARNING: too many rootfile's defined. " 
	     << " Will only use the first one." 
	     << endl;
	continue;
      }
      rootfilename = sConfFile[i][1];
    }
    if(sConfFile[i][0] == "goldenrootfile") {
      if(sConfFile[i].size() != 2) {
	cerr << "WARNING: goldenfile command does not have the "
	     << "correct number of arguments"
	     << endl;
	continue;
      }
      if(!goldenrootfilename.IsNull()) {
	cerr << "WARNING: too many goldenrootfile's defined. " 
	     << " Will only use the first one." 
	     << endl;
	continue;
      }
      goldenrootfilename = sConfFile[i][1];
    }
    if(sConfFile[i][0] == "protorootfile") {
      if(sConfFile[i].size() != 2) {
	cerr << "WARNING: protorootfile command does not have the "
	     << "correct number of arguments"
	     << endl;
	continue;
      }
      if(!protorootfile.IsNull()) {
	cerr << "WARNING: too many protorootfile's defined. " 
	     << " Will only use the first one." 
	     << endl;
	continue;
      }
      protorootfile = sConfFile[i][1];
    }
    if(sConfFile[i][0] == "guicolor") {
      if(sConfFile[i].size() != 2) {
	cerr << "WARNING: guicolor command does not have the "
	     << "correct number of arguments (needs 1)"
	     << endl;
	continue;
      }
      if(!guicolor.IsNull()) {
	cerr << "WARNING: too many guicolor's defined. " 
	     << " Will only use the first one." 
	     << endl;
	continue;
      }
      guicolor = sConfFile[i][1];
    }
    if(sConfFile[i][0] == "canvassize") {
      if(sConfFile[i].size() != 3) {
	cerr << "WARNING: canvassize command does not have the "
	     << "correct number of arguments (needs 2)"
	     << endl;
	continue;
      }
      canvaswidth = UInt_t(atoi(sConfFile[i][1]));
      canvasheight = UInt_t(atoi(sConfFile[i][2]));
    }
    if(sConfFile[i][0] == "plotsdir") {
      if(sConfFile[i].size() != 2) {
	cerr << "WARNING: plotsdir command does not have the "
	     << "correct number of arguments (needs 1)"
	     << endl;
	continue;
      }
      if(!plotsdir.IsNull()) {
	cerr << "WARNING: too many plotdir's defined. " 
	     << " Will only use the first one." 
	     << endl;
	continue;
      }
      plotsdir = sConfFile[i][1];
    }
    if(sConfFile[i][0] == "multiplot") {
      hasMultiPlots = kTRUE;
    }

  }

  if(hasMultiPlots) {
    if(!ParseForMultiPlots()) {
      cerr << "ParseForMultiPlots() Failed" << endl;
    }
  }

#ifdef NOISY
  for(UInt_t i=0; i<GetPageCount(); i++) {
    cout << "Page " << i << " (" << GetPageTitle(i) << ")"
	 << " will draw " << GetDrawCount(i) 
	 << " histograms." << endl;
  }
#endif

  cout << "Number of pages defined = " << GetPageCount() << endl;
  cout << "Number of cuts defined = " << cutList.size() << endl;

  if (fMonitor) 
    cout << "Will periodically update plots" << endl;
  if(!goldenrootfilename.IsNull()) {
    cout << "Will compare chosen histrograms with the golden rootfile: " 
	 << endl 
	 << goldenrootfilename << endl;
  }

  return kTRUE;

}

Bool_t OnlineConfig::ParseForMultiPlots() {
  // Parse through each line of sConfFile,
  // and replace each "multiplot" command with a real draw entry

  vector < vector <TString> > newConfFile;
  for(UInt_t iter=0;iter<sConfFile.size();iter++) {
    if(sConfFile[iter][0]=="multiplot") {
      // First argument is the low limit, 
      // second argument is the high limit
      UInt_t lolimit = (UInt_t)sConfFile[iter][1].Atoi();
      UInt_t hilimit = (UInt_t)sConfFile[iter][2].Atoi();
      
      // For the rest of the line, replace all of the XXXXX's
      // with an iteration from lolimit to hilimit.
      for(UInt_t imult=lolimit;imult<=hilimit;imult++) {
	vector <TString> newline;
	for(UInt_t ielem=3; ielem<sConfFile[iter].size();ielem++) {
	  TString origString = sConfFile[iter][ielem];
	  TString newString = origString;
	  newString.ReplaceAll("XXXXX",Form("%d",imult));
	  newline.push_back(newString);
	}
	newConfFile.push_back(newline);
      }
    } else {
      newConfFile.push_back(sConfFile[iter]);
    }
  }

#ifdef DEBUG
  for(UInt_t iter=0;iter<newConfFile.size();iter++) {
    for(UInt_t iline=0;iline<newConfFile[iter].size();iline++) {
      cout << newConfFile[iter][iline] << " ";
    }
    cout << endl;
  }
#endif

  // Out with the old, in with the new.
  sConfFile.clear();
  sConfFile = newConfFile;

  // Now need to recalculate pageInfo.
  UInt_t command_cnt=0;
  UInt_t j=0;

  pageInfo.clear();
  // If statement for each high level command (cut, newpage, etc)
  for(UInt_t i=0;i<sConfFile.size();i++) {
    // "newpage" command
    if(sConfFile[i][0] == "newpage") {
      // sConfFile[i] is first of pair
      for(j=i+1;j<sConfFile.size();j++) {
	if(sConfFile[j][0] != "newpage") {
	  // Count how many commands within the page
	  command_cnt++;
	} else break;
      }
      pageInfo.push_back(make_pair(i,command_cnt));
      i += command_cnt;
      command_cnt=0;
    }
  }

  return kTRUE;

}

TCut OnlineConfig::GetDefinedCut(TString ident) {
  // Returns the defined cut, according to the identifier

  for(UInt_t i=0; i<cutList.size(); i++) {
    if((TString)cutList[i].GetName() == ident.Data()) {
      TCut tempCut = cutList[i].GetTitle();
      return tempCut;
    }
  }
  return "";
}

vector <TString> OnlineConfig::GetCutIdent() {
  // Returns a vector of the cut identifiers, specified in config
  vector <TString> out;

  for(UInt_t i=0; i<cutList.size(); i++) {
    out.push_back(cutList[i].GetName());
  }

  return out;
}

Bool_t OnlineConfig::IsLogx(UInt_t page) {
// Check if last word on line is "logx"

  UInt_t page_index = pageInfo[page].first;
  Int_t word_index = sConfFile[page_index].size()-1;
  if (word_index <= 0) return kFALSE;
  TString option = sConfFile[page_index][word_index];  
  if(option == "logx") return kTRUE;
  return kFALSE;

}

Bool_t OnlineConfig::IsLogy(UInt_t page) {
// Check if last word on line is "logy"

  UInt_t page_index = pageInfo[page].first;
  Int_t word_index = sConfFile[page_index].size()-1;
  if (word_index <= 0) return kFALSE;
  TString option = sConfFile[page_index][word_index];  
  if(option == "logy") return kTRUE;
  return kFALSE;

}

Bool_t OnlineConfig::IsLogz(UInt_t page) {
// Check if last word on line is "logz"

  UInt_t page_index = pageInfo[page].first;
  Int_t word_index = sConfFile[page_index].size()-1;
  if (word_index <= 0) return kFALSE;
  TString option = sConfFile[page_index][word_index];  
  if(option == "logz") return kTRUE;
  return kFALSE;

}


pair <UInt_t, UInt_t> OnlineConfig::GetPageDim(UInt_t page) 
{
  // If defined in the config, will return those dimensions
  //  for the indicated page.  Otherwise, will return the
  //  calculated dimensions required to fit all histograms.

  pair <UInt_t, UInt_t> outDim;

  // This is the page index in sConfFile.
  UInt_t page_index = pageInfo[page].first;
  
  UInt_t size1 = 2;

  if (IsLogx(page)) size1 = 3;  // last word is "logy"
  if (IsLogy(page)) size1 = 3;  // last word is "logy"
  if (IsLogz(page)) size1 = 3;  // last word is "logy"
  
  // If the dimensions are defined, return them.
  if(sConfFile[page_index].size()>size1-1) {
    if(sConfFile[page_index].size() == size1) {
      outDim = make_pair(UInt_t(atoi(sConfFile[page_index][1])),
		       UInt_t(atoi(sConfFile[page_index][1])));
      return outDim;
    } else if (sConfFile[page_index].size() == size1+1) {
      outDim = make_pair(UInt_t(atoi(sConfFile[page_index][1])),
		       UInt_t(atoi(sConfFile[page_index][2])));
      return outDim;
    } else {
      cout << "Warning: newpage command has too many arguments. "
	   << "Will automatically determine dimensions of page."
	   << endl;
    }
  }
  
  // If not defined, return the "default."
  UInt_t draw_count = GetDrawCount(page);
  UInt_t dim = UInt_t(TMath::Nint(sqrt(double(draw_count+1))));
  outDim = make_pair(dim,dim);

  return outDim;
}

TString OnlineConfig::GetPageTitle(UInt_t page) 
{
  // Returns the title of the page.
  //  if it is not defined in the config, then return "Page #"

  TString title;

  UInt_t iter_command = pageInfo[page].first+1;

  for(UInt_t i=0; i<pageInfo[page].second; i++) { // go through each command
    if(sConfFile[iter_command+i][0] == "title") { 
      // Combine the strings, and return it
      for (UInt_t j=1; j<sConfFile[iter_command+i].size(); j++) {
	title += sConfFile[iter_command+i][j];
	title += " ";
      }
      title.Chop();
      return title;
    }
  }
  title = "Page "; title += page;
  return title;
}

vector <UInt_t> OnlineConfig::GetDrawIndex(UInt_t page) 
{
  // Returns an index of where to find the draw commands within a page
  //  within the sConfFile vector

  vector <UInt_t> index;
  UInt_t iter_command = pageInfo[page].first+1;

  for(UInt_t i=0; i<pageInfo[page].second; i++) {
    if(sConfFile[iter_command+i][0] != "title") {
      index.push_back(iter_command+i);
    }
  }

  return index;
}

UInt_t OnlineConfig::GetDrawCount(UInt_t page) 
{
  // Returns the number of histograms that have been request for this page
  UInt_t draw_count=0;

  for(UInt_t i=0; i<pageInfo[page].second; i++) {
    if(sConfFile[pageInfo[page].first+i+1][0] != "title") draw_count++;
  }

  return draw_count;

}

drawcommand OnlineConfig::GetDrawCommand(UInt_t page, UInt_t nCommand)
{
  // Returns the vector of strings pertaining to a specific page, and 
  //   draw command from the config.
  // Return vector of TStrings:
  //  0: variable
  //  1: cut - only for Tree variables
  //  2: type
  //  3: title 
  //  4: treename - only for Tree variables
  //  5: nostat
  //  6: noshowgolden  - only for Histograms
  //  This should probably be replaced with an actual structure

  drawcommand out_command;
  vector <UInt_t> command_vector = GetDrawIndex(page);
  UInt_t index = command_vector[nCommand];

#ifdef DEBUG
  cout << "OnlineConfig::GetDrawCommand(" << page << "," 
       << nCommand << ")" << endl;
#endif

  // First line is the variable
  if(sConfFile[index].size()>=1) {
    out_command.variable = sConfFile[index][0];
  }
  if(sConfFile[index].size()>=2) {
    if((sConfFile[index][1] != "-type") &&
       (sConfFile[index][1] != "-title") &&
       (sConfFile[index][1] != "-tree") &&
       (sConfFile[index][1] != "-noshowgolden") &&
       (sConfFile[index][1] != "-nostat")) {
      if(out_command.variable=="macro") {
	out_command.macro = sConfFile[index][1];
      } else {
	out_command.cut = sConfFile[index][1];
      }
    }
  }

  // Now go through the rest of that line..
  for (UInt_t i=1; i<sConfFile[index].size(); i++) {
    if(sConfFile[index][i]=="-type") {
      out_command.type = sConfFile[index][i+1];
      i = i+1;
    } else if(sConfFile[index][i]=="-title") {
      // Put the entire title, surrounded by quotes, as one TString
      TString title;
      UInt_t j=0;
      for(j=i+1; j<sConfFile[index].size(); j++) {
	TString word = sConfFile[index][j];
	if( (word.BeginsWith("\"")) && (word.EndsWith("\"")) ) {
	  title = word.ReplaceAll("\"","");
	  out_command.title = title;
	  i = j;
	  break;
	} else if(word.BeginsWith("\"")) {
	  title = word.ReplaceAll("\"","");
	} else if(word.EndsWith("\"")) {
	  title += " " + word.ReplaceAll("\"","");
	  out_command.title = title;
	  i = j;
	  break;
	} else {
	  title += " " + word;
	}
      }
      // If we got here, and out_command.title is null... then just copy the contents
      // of "title" to out_command.title (taking out any "'s along the way)
      if(out_command.title.IsNull())
	out_command.title = title.ReplaceAll("\"","");
    } else if(sConfFile[index][i]=="-tree") {
      out_command.treename = sConfFile[index][i+1];
      i = i+1;
    } else if(sConfFile[index][i]=="-nostat") {
      out_command.nostat = "nostat";
    } else if(sConfFile[index][i]=="-noshowgolden") {
      out_command.noshowgolden = "noshowgolden";
    }
    

#ifdef DEBUG
    cout << endl;
#endif
  }
#ifdef DEBUG
  cout << sConfFile[index].size() << ": ";
  for(UInt_t i=0; i<sConfFile[index].size(); i++) {
    cout << sConfFile[index][i] << " ";
  }
  cout << endl;
#endif
  return out_command;
}

vector <TString> OnlineConfig::SplitString(TString instring,TString delim) 
{
  // Utility to split up a string on the deliminator.
  //  returns a vector of strings.

  vector <TString> v;

  TString remainingString = instring;
  TString tempstring = instring;
  int i;

  while (remainingString.Index(delim) != -1) {
    i = remainingString.Index(delim);
    tempstring.Remove(i);
    v.push_back(tempstring);
    remainingString.Remove(0,i+1);
    while(remainingString.Index(delim) == 0) {
      remainingString.Remove(0,1);
    }
    tempstring = remainingString;
    // Cut out the rest, if it's a comment (starts with #)
    if(TString(remainingString.Strip(TString::kLeading,' ')).BeginsWith("#")) {
      tempstring = "";
      break;
    }
  }

  while(tempstring.EndsWith(delim)) {
    tempstring.Chop();
  }
  
  if(!tempstring.IsNull()) v.push_back(tempstring);

  return v;
}

void OnlineConfig::OverrideRootFile(UInt_t runnumber) 
{
  // Override the ROOT file defined in the cfg file If
  // protorootfile is used, construct filename using it, otherwise
  // uses a helper macro "GetRootFileName.C(UInt_t runnumber)

  if(!protorootfile.IsNull()) {
    TString rn = "";
    rn += runnumber;
    protorootfile.ReplaceAll("XXXXX",rn.Data());
    rootfilename = protorootfile;
  } else {
    rootfilename = GetRootFileName(runnumber);
  }

  cout << "Overridden File name: " << rootfilename << endl;
}

///////////////////////////////////////////////////////////////////
//  Class: OnlineGUI
//
//    Creates a GUI to display the commands used in OnlineConfig
//
//

OnlineGUI::OnlineGUI(OnlineConfig& config, Bool_t printonly, Bool_t rootonly,UInt_t RunNum):
  runNumber(RunNum),
  timer(0),
  fFileAlive(kFALSE)
{
  // Constructor.  Get the config pointer, and make the GUI.

  fConfig = &config;

  if(printonly || rootonly) {
    fPrintOnly=kTRUE;
    PrintPages();
  } else {
    fPrintOnly=kFALSE;
    CreateGUI(gClient->GetRoot(),200,200);
  }
}

void OnlineGUI::CreateGUI(const TGWindow *p, UInt_t w, UInt_t h) 
{
  
  // Open the RootFile.  Die if it doesn't exist.
  //  unless we're watching a file.
  fRootFile.RootFile = new TFile(fConfig->GetRootFile(),"READ");
  if(!fRootFile.RootFile->IsOpen()) {
    cout << "ERROR:  rootfile: " << fConfig->GetRootFile()
	 << " does not exist"
	 << endl;
    if(fConfig->IsMonitor()) {
      cout << "Will wait... hopefully.." << endl;
    } else {
#ifdef STANDALONE
      gApplication->Terminate();
#else
      return;
#endif
    }
  } else {
    fFileAlive = kTRUE;
    ObtainRunNumber();
    // Open the Root Trees.  Give a warning if it's not there..
    GetFileObjects(&fRootFile);
    GetRootTree(&fRootFile);
    GetTreeVars(&fRootFile);
    for(UInt_t i=0; i<fRootFile.RootTree.size(); i++) {
      if(fRootFile.RootTree[i]==0) {
	fRootFile.RootTree.erase(fRootFile.RootTree.begin() + i);
      }
    }

  }
  TString goldenfilename=fConfig->GetGoldenFile();
  if(!goldenfilename.IsNull()) {
    fGoldenFile.RootFile = new TFile(goldenfilename,"READ");
    if(!fGoldenFile.RootFile->IsOpen()) {
      cout << "ERROR: goldenrootfile: " << goldenfilename
	   << " does not exist.  Oh well, no comparison plots."
	   << endl;
      doGolden = kFALSE;
      fGoldenFile.RootFile=NULL;
    } else {
      // Open the Root Trees.  Give a warning if it's not there..
      GetFileObjects(&fGoldenFile);
      GetRootTree(&fGoldenFile);
      GetTreeVars(&fGoldenFile);
      for(UInt_t i=0; i<fGoldenFile.RootTree.size(); i++) {
        if(fGoldenFile.RootTree[i]==0) {
	  fGoldenFile.RootTree.erase(fGoldenFile.RootTree.begin() + i);
        }
      }
      doGolden = kTRUE;
    }
  } else {
    doGolden=kFALSE;
    fGoldenFile.RootFile=NULL;
  }


  // Create the main frame
  fMain = new TGMainFrame(p,w,h);
  fMain->Connect("CloseWindow()", "OnlineGUI", this, "MyCloseWindow()");
  ULong_t lightgreen, lightblue, red, mainguicolor;
  gClient->GetColorByName("lightgreen",lightgreen);
  gClient->GetColorByName("lightblue",lightblue);
  gClient->GetColorByName("red",red);

  UInt_t canvas_width = fConfig->GetCanvasWidth();
  UInt_t canvas_height = fConfig->GetCanvasHeight();

  Bool_t good_color=kFALSE; 
  TString usercolor = fConfig->GetGuiColor();
  if(!usercolor.IsNull()) {
    good_color = gClient->GetColorByName(usercolor,mainguicolor);
  }

  if(!good_color) {
    if(!usercolor.IsNull()) {
      cout << "Bad guicolor (" << usercolor << ").. using default." << endl;
    }
    if(fConfig->IsMonitor()) {
      // Default background color for Online Monitor
      mainguicolor = lightgreen;
    } else {
      // Default background color for Normal Online Display
      mainguicolor = lightblue;
    }
  }

  fMain->SetBackgroundColor(mainguicolor);

  // Top frame, to hold page buttons and canvas
  fTopframe = new TGHorizontalFrame(fMain,200,200);
  fTopframe->SetBackgroundColor(mainguicolor);
  fMain->AddFrame(fTopframe, new TGLayoutHints(kLHintsExpandX 
                                              | kLHintsExpandY,10,10,10,1));

  // Create a verticle frame widget with radio buttons
  //  This will hold the page buttons
  vframe = new TGVerticalFrame(fTopframe,40,200);
  vframe->SetBackgroundColor(mainguicolor);
  TString buff;
  for(UInt_t i=0; i<fConfig->GetPageCount(); i++) {
    buff = fConfig->GetPageTitle(i);
    fRadioPage[i] = new TGRadioButton(vframe,buff,i);
    fRadioPage[i]->SetBackgroundColor(mainguicolor);
  }

  fRadioPage[0]->SetState(kButtonDown);
  current_page = 0;

  for (UInt_t i=0; i<fConfig->GetPageCount(); i++) {
    vframe->AddFrame(fRadioPage[i], 
		     new TGLayoutHints(kLHintsLeft |
				       kLHintsCenterY,5,5,3,4));
    fRadioPage[i]->Connect("Pressed()", "OnlineGUI", this, "DoRadio()");
  }
  if(!fConfig->IsMonitor()) {
    wile = 
      new TGPictureButton(vframe,
			  gClient->GetPicture(guiDirectory+"/hcsmall.png"));
    wile->Connect("Pressed()","OnlineGUI", this,"DoDraw()");
  } else {
    wile = 
      new TGPictureButton(vframe,
			  gClient->GetPicture(guiDirectory+"/panguin.xpm"));
    wile->Connect("Pressed()","OnlineGUI", this,"DoDrawClear(&fRootFile)");
  }
  wile->SetBackgroundColor(mainguicolor);

  vframe->AddFrame(wile,
		   new TGLayoutHints(kLHintsBottom|kLHintsLeft,5,10,4,2));


  fTopframe->AddFrame(vframe,
		      new TGLayoutHints(kLHintsCenterX|
					kLHintsCenterY,2,2,2,2));
  
  // Create canvas widget
  fEcanvas = new TRootEmbeddedCanvas("Ecanvas", fTopframe, canvas_width, canvas_height);
  fEcanvas->SetBackgroundColor(mainguicolor);
  fTopframe->AddFrame(fEcanvas, new TGLayoutHints(kLHintsExpandY,10,10,10,1));
  fCanvas = fEcanvas->GetCanvas();

  // Create the bottom frame.  Contains control buttons
  fBottomFrame = new TGHorizontalFrame(fMain,canvas_width+400,200);
  fBottomFrame->SetBackgroundColor(mainguicolor);
  fMain->AddFrame(fBottomFrame, new TGLayoutHints(kLHintsExpandX,10,10,10,10));
  
  // Create a horizontal frame widget with buttons
  hframe = new TGHorizontalFrame(fBottomFrame,canvas_width+400,40);
  hframe->SetBackgroundColor(mainguicolor);
  fBottomFrame->AddFrame(hframe,new TGLayoutHints(kLHintsExpandX,200,20,2,2));

  fPrev = new TGTextButton(hframe,"Prev");
  fPrev->SetBackgroundColor(mainguicolor);
  fPrev->Connect("Clicked()","OnlineGUI",this,"DrawPrev()");
  hframe->AddFrame(fPrev, new TGLayoutHints(kLHintsCenterX,5,5,1,1));

  fNext = new TGTextButton(hframe,"Next");
  fNext->SetBackgroundColor(mainguicolor);
  fNext->Connect("Clicked()","OnlineGUI",this,"DrawNext()");
  hframe->AddFrame(fNext, new TGLayoutHints(kLHintsCenterX,5,5,1,1));

  fExit = new TGTextButton(hframe,"Exit GUI");
  fExit->SetBackgroundColor(red);
  fExit->Connect("Clicked()","OnlineGUI",this,"CloseGUI()");

  hframe->AddFrame(fExit, new TGLayoutHints(kLHintsCenterX,5,5,1,1));
  
  TString Buff;
  if(runNumber==0) {
    Buff = "";
  } else {
    Buff = "Run #";
    Buff += runNumber;
  }
  TGString labelBuff(Buff);
  
  fRunNumber = new TGLabel(hframe,Buff);
  fRunNumber->SetBackgroundColor(mainguicolor);
  hframe->AddFrame(fRunNumber,new TGLayoutHints(kLHintsCenterX,5,5,1,1));

  fPrint = new TGTextButton(hframe,"Print To &File");
  fPrint->SetBackgroundColor(mainguicolor);
  fPrint->Connect("Clicked()","OnlineGUI",this,"PrintToFile()");
  hframe->AddFrame(fPrint, new TGLayoutHints(kLHintsCenterX,5,5,1,1));


  // Set a name to the main frame
  if(fConfig->IsMonitor()) {
    fMain->SetWindowName("Parity ANalysis GUI moNitor");
  } else {
    fMain->SetWindowName("Online Analysis GUI");
  }

  // Map all sub windows to main frame
  fMain->MapSubwindows();
  
  // Initialize the layout algorithm
  fMain->Resize(fMain->GetDefaultSize());
  
  // Map main frame
  fMain->MapWindow();

#ifdef DEBUG
  fMain->Print();
#endif

  if(fFileAlive) DoDraw();

  if(fConfig->IsMonitor()) {
    timer = new TTimer();
    if(fFileAlive) {
      timer->Connect(timer,"Timeout()","OnlineGUI",this,"TimerUpdate()");
    } else {
      timer->Connect(timer,"Timeout()","OnlineGUI",this,"CheckRootFile()");
    }
    timer->Start(UPDATETIME);
  }

}

void OnlineGUI::DoDraw() 
{
  // The main Drawing Routine.

#ifdef INTERNALSTYLE
  gStyle->SetOptStat(1110);
  gStyle->SetStatFontSize(0.1);
#endif
  if (fConfig->IsLogx(current_page)) {
    gStyle->SetOptLogx(1);
  } else {
    gStyle->SetOptLogx(0);
  }
  if (fConfig->IsLogy(current_page)) {
    gStyle->SetOptLogy(1);
  } else {
    gStyle->SetOptLogy(0);
  }
  if (fConfig->IsLogz(current_page)) {
    gStyle->SetOptLogz(1);