/*
 * $Header$
 * $Log$
 */

#include <stdlib.h>
#include <sys/stat.h>
#include <sys/types.h>

#include <Riostream.h>
#include <TSystem.h>
#include <TGTab.h>
#include <TGFrame.h>
#include <TGButton.h>
#include <TGWindow.h>
#include <TGButton.h>
#include <TGMsgBox.h>

#include "XSVarious.h"
#include "XSElementDlg.h"
#include "XSReactionDlg.h"

#include "NdbMTDir.h"

//ClassImp(XSReactionDlg)

// Options for filling containers
enum   DirOptions {
      DIROnlyFiles,
      DIROnlyDirectories,
      DIRBoth
   };

// Options for creating the path
enum   PathOptions {
      PATHIsotope,
      PATHProjectile,
      PATHDatabase,
      PATHFile
   };

enum   XSReactionMessages {
      REAC_ELEMENT_STEP,
      REAC_TABLE,
      REAC_OK,
      REAC_EXEC,
      REAC_CLOSE,
      REAC_RESET,
      REAC_PTABLE
   };

enum   ComboIds {
      ISOTOPE_COMBO,
      PROJECTILE_COMBO,
      TEMPERATURE_COMBO,
      DATABASE_COMBO,
      LINE_WIDTH_COMBO,
      LINE_COLOR_COMBO,
      MARKER_STYLE_COMBO,
      MARKER_COLOR_COMBO,
      MARKER_SIZE_COMBO,
      ERRORBAR_COLOR_COMBO,
      REACTION_LISTBOX,
   };

static   Int_t   LastWinX = -1;
static   Int_t   LastWinY = -1;

/* ----- XSReactionDlg ----- */
XSReactionDlg::XSReactionDlg( const TGWindow *p,
      const TGWindow *main, UInt_t initZ, UInt_t w, UInt_t h)
   : TGTransientFrame(p,main,w,h)
{
   // Remember the main window
   mainWindow = main;

   /* ---------- Prepare the Layout Hints ------- */
   lHFixed = new TGLayoutHints(kLHintsTop | kLHintsLeft,
               3, 3, 2, 2);
   lHExpX = new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandX,
               3, 3, 2, 2);
   lHExpY = new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandY,
               3, 3, 2, 2);
   lHExpXY = new TGLayoutHints(kLHintsTop | kLHintsLeft |
            kLHintsExpandX | kLHintsExpandY,
               3, 3, 2, 2);
   lHBot = new TGLayoutHints(kLHintsBottom | kLHintsRight,
               3, 3, 2, 2);

   lHExpXCen = new TGLayoutHints( kLHintsTop | kLHintsLeft |
            kLHintsExpandX | kLHintsCenterY,
            5, 5, 2, 2);
   lHFixedCen = new TGLayoutHints( kLHintsTop | kLHintsLeft |
            kLHintsCenterY,
            5, 5, 2, 2);

   /* --------- Create the Dialog -------------- */
   buttonFrame = new TGHorizontalFrame(this, 240, 20, kFixedWidth);
   okButton = new TGTextButton(buttonFrame, "&Ok", REAC_OK);
   okButton->Associate(this);
   execButton = new TGTextButton(buttonFrame, "&Execute", REAC_EXEC);
   execButton->Associate(this);
   resetButton = new TGTextButton(buttonFrame, "&Reset", REAC_RESET);
   resetButton->Associate(this);
   closeButton = new TGTextButton(buttonFrame, "&Close", REAC_CLOSE);
   closeButton->Associate(this);

   buttonFrame->AddFrame(okButton, lHExpX);
   buttonFrame->AddFrame(execButton, lHExpX);
   buttonFrame->AddFrame(resetButton, lHExpX);
   buttonFrame->AddFrame(closeButton, lHExpX);
   AddFrame(buttonFrame, lHBot);

   /* ------------ Material --------------- */
   materialGroup = new TGGroupFrame(this,"Material",kVerticalFrame);

   /* ----- First Sub-Frame ---- */
   frm1 = new TGHorizontalFrame(
               materialGroup, w, 36,
               kChildFrame|kFitWidth );
   frm1->ChangeBackground(0xFF00);

   elementLbl = new TGLabel(frm1,"Element:");
   elementLbl->SetTextJustify(kTextRight | kTextCenterY);
   frm1->AddFrame(elementLbl,lHFixedCen);

   elementBuf = new TGTextBuffer(20);
   elementText = new TGTextEntry(frm1,elementBuf);
   elementText->Resize(50, elementText->GetDefaultHeight());
   elementText->Associate(this);
   frm1->AddFrame(elementText,lHFixedCen);

   elementStep = new XSStepButton(frm1,REAC_ELEMENT_STEP);
   elementStep->Associate(this);
   frm1->AddFrame(elementStep,lHFixedCen);

   nameLbl = new TGLabel(frm1,"X",blueBoldGC);
   nameLbl->SetTextJustify(kTextLeft | kTextCenterY);
   frm1->AddFrame(nameLbl,lHExpXCen);

   ptableButton = new TGPictureButton(frm1,
            fClient->GetPicture(PTBL_ICON),
            REAC_PTABLE);
   ptableButton->SetToolTipText(
      "Choose the Element from the Periodic Table");
   ptableButton->Associate(this);
   frm1->AddFrame(ptableButton,lHFixedCen);

   materialGroup->AddFrame(frm1,lHExpX);

   /* ----- Second Sub-Frame ---- */
   frm2 = new TGHorizontalFrame(materialGroup,w,20,
            kChildFrame|kFitWidth);

   Vfrm1 = new TGCompositeFrame(frm2, w, 70,
               kChildFrame|kFitHeight|kFitWidth);
   Vfrm1->SetLayoutManager(new TGMatrixLayout(Vfrm1,0,4));

   chargeLbl = new TGLabel(Vfrm1,"Charge (Z):");
   chargeLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm1->AddFrame(chargeLbl);

   zLbl = new TGLabel(Vfrm1,"ZZZZZZZZ",blueBoldGC);
   zLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm1->AddFrame(zLbl);

   massLbl = new TGLabel(Vfrm1,"Atomic Mass:");
   massLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm1->AddFrame(massLbl);

   massValLbl = new TGLabel(Vfrm1,"ZZZZZZZZ",blueBoldGC);
   massValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm1->AddFrame(massValLbl);

   densityLbl = new TGLabel(Vfrm1,"Density:");
   densityLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm1->AddFrame(densityLbl);

   densityValLbl = new TGLabel(Vfrm1,"ZZZZZZZZ",blueBoldGC);
   densityValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm1->AddFrame(densityValLbl);

   oxidationLbl = new TGLabel(Vfrm1,"Oxidation:");
   oxidationLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm1->AddFrame(oxidationLbl);

   oxidationValLbl = new TGLabel(Vfrm1,"ZZZZZZZZ",blueBoldGC);
   oxidationValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm1->AddFrame(oxidationValLbl);

   meltingPtLbl = new TGLabel(Vfrm1,"Melting Pt (C):");
   meltingPtLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm1->AddFrame(meltingPtLbl);

   meltingValLbl = new TGLabel(Vfrm1,"ZZZZZZZZ",blueBoldGC);
   meltingValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm1->AddFrame(meltingValLbl);

   boilingPtLbl = new TGLabel(Vfrm1,"Boiling Pt (C):");
   boilingPtLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm1->AddFrame(boilingPtLbl);

   boilingValLbl = new TGLabel(Vfrm1,"ZZZZZZZZ",blueBoldGC);
   boilingValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm1->AddFrame(boilingValLbl);

   frm2->AddFrame(Vfrm1,lHExpX);
   materialGroup->AddFrame(frm2,lHExpX);

   /* ----- Fourth Sub-Frame ---- */
   frm3 = new TGHorizontalFrame(materialGroup,w,20,
            kChildFrame|kFitWidth);

   isotopeLbl = new TGLabel(frm3,"Isotope (A):");
   isotopeLbl->SetTextJustify(kTextRight | kTextCenterY);
   frm3->AddFrame(isotopeLbl,lHFixedCen);

   isotopeCombo = new TGComboBox(frm3,ISOTOPE_COMBO);
   isotopeCombo->Resize(80,20);
   isotopeCombo->Associate(this);
   frm3->AddFrame(isotopeCombo,lHFixedCen);

   isotopeInfoLbl = new TGLabel(frm3,"Isotope Info:");
   isotopeInfoLbl->SetTextJustify(kTextRight | kTextCenterY);
   frm3->AddFrame(isotopeInfoLbl,lHFixedCen);

   isotopeInfoValLbl = new TGLabel(frm3,"MMMM",blueBoldGC);
   isotopeInfoValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   frm3->AddFrame(isotopeInfoValLbl,lHExpXCen);

   materialGroup->AddFrame(frm3,lHExpX);

   AddFrame(materialGroup,lHExpX);

   /* --------------- Reaction ------------------ */
   reactionGroup = new TGGroupFrame(this,"Reaction",kVerticalFrame);

   frm4 = new TGHorizontalFrame(reactionGroup,w,60,
               kChildFrame|kFitWidth);

   Vfrm2 = new TGCompositeFrame(frm4, 160, 70,
               kChildFrame|kFitHeight|kFitWidth);

   Vfrm2->SetLayoutManager(new TGMatrixLayout(Vfrm2,0,2));

   projectileLbl = new TGLabel(Vfrm2,"Projectile:");
   projectileLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm2->AddFrame(projectileLbl);

   projectileCombo = new TGComboBox(Vfrm2,PROJECTILE_COMBO);
   projectileCombo->Resize(90,20);
   projectileCombo->Associate(this);
   Vfrm2->AddFrame(projectileCombo);

   temperatureLbl = new TGLabel(Vfrm2,"Temperature:");
   temperatureLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm2->AddFrame(temperatureLbl);

   temperatureCombo = new TGComboBox(Vfrm2,TEMPERATURE_COMBO);
   temperatureCombo->Resize(90,20);
   temperatureCombo->Associate(this);
   Vfrm2->AddFrame(temperatureCombo);

   databaseLbl = new TGLabel(Vfrm2,"Database:");
   databaseLbl->SetTextJustify(kTextRight | kTextCenterY);
   Vfrm2->AddFrame(databaseLbl);

   databaseCombo = new TGComboBox(Vfrm2,DATABASE_COMBO);
   databaseCombo->Resize(90,20);
   databaseCombo->Associate(this);
   Vfrm2->AddFrame(databaseCombo);

   frm4->AddFrame(Vfrm2,lHExpXCen);

   reactionLbl = new TGLabel(frm4,"Reaction:");
   reactionLbl->SetTextJustify(kTextLeft | kTextCenterY);
   frm4->AddFrame(reactionLbl,lHFixedCen);

   reactionList = new TGListBox(frm4,REACTION_LISTBOX);
   reactionList->Resize(70,80);
   //reactionList->SetMultipleSelections(kTRUE);
   reactionList->Associate(this);
   frm4->AddFrame(reactionList,lHExpXCen);

   reactionGroup->AddFrame(frm4,lHExpX);

   // --- Second sub frame ---
   frm5 = new TGHorizontalFrame(reactionGroup,w,20,
               kChildFrame|kFitWidth);
   reactionInfoLbl = new TGLabel(frm5,"Reaction Info:");
   reactionInfoLbl->SetTextJustify(kTextRight | kTextCenterY);
   frm5->AddFrame(reactionInfoLbl,lHFixedCen);

   reactionInfoValLbl = new TGLabel(frm5,"-",blueBoldGC);
   reactionInfoValLbl->SetTextJustify(kTextLeft | kTextCenterY);
   frm5->AddFrame(reactionInfoValLbl,lHExpXCen);

   reactionGroup->AddFrame(frm5,lHExpX);

   AddFrame(reactionGroup,lHExpX);

   /* --------------- Options ------------------ */
   optionGroup = new TGGroupFrame(this,"Options",kVerticalFrame);

   Vfrm3 = new TGCompositeFrame(optionGroup, w, 70,
            kChildFrame|kFitHeight|kFitWidth);

   Vfrm3->SetLayoutManager(new TGMatrixLayout(Vfrm3,0,4));

   lineWidthLbl = new TGLabel(Vfrm3,"Line Width:");
   lineWidthLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm3->AddFrame(lineWidthLbl);

   lineWidthCombo = new TGComboBox(Vfrm3,LINE_WIDTH_COMBO);
   lineWidthCombo->Resize(100,20);
   lineWidthCombo->Associate(this);
   Vfrm3->AddFrame(lineWidthCombo);

   lineColorLbl = new TGLabel(Vfrm3,"    Line Color:");
   lineColorLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm3->AddFrame(lineColorLbl);

   lineColorCombo = new TGComboBox(Vfrm3,LINE_COLOR_COMBO);
   lineColorCombo->Resize(100,20);
   lineColorCombo->Associate(this);
   Vfrm3->AddFrame(lineColorCombo);

   markerStyleLbl = new TGLabel(Vfrm3,"Marker Style:");
   markerStyleLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm3->AddFrame(markerStyleLbl);

   markerStyleCombo = new TGComboBox(Vfrm3,MARKER_STYLE_COMBO);
   markerStyleCombo->Resize(100,20);
   markerStyleCombo->Associate(this);
   Vfrm3->AddFrame(markerStyleCombo);

   markerColorLbl = new TGLabel(Vfrm3,"    Marker Color:");
   markerColorLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm3->AddFrame(markerColorLbl);

   markerColorCombo = new TGComboBox(Vfrm3, MARKER_COLOR_COMBO);
   markerColorCombo->Resize(100,20);
   markerColorCombo->Associate(this);
   Vfrm3->AddFrame(markerColorCombo);

   markerSizeLbl = new TGLabel(Vfrm3,"Marker Size:");
   markerSizeLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm3->AddFrame(markerSizeLbl);

   markerSizeCombo = new TGComboBox(Vfrm3, MARKER_SIZE_COMBO);
   markerSizeCombo->Resize(100,20);
   markerSizeCombo->Associate(this);
   Vfrm3->AddFrame(markerSizeCombo);

   errorbarColorLbl = new TGLabel(Vfrm3,"    ErrorBar Color:");
   errorbarColorLbl->SetTextJustify(kTextLeft | kTextCenterY);
   Vfrm3->AddFrame(errorbarColorLbl);

   errorbarColorCombo = new TGComboBox(Vfrm3,ERRORBAR_COLOR_COMBO);
   errorbarColorCombo->Resize(100,20);
   errorbarColorCombo->Associate(this);
   Vfrm3->AddFrame(errorbarColorCombo);

   optionGroup->AddFrame(Vfrm3,lHExpX);
   AddFrame(optionGroup,lHExpX);

   /* -------------- Information ------------------ */
   infoGroup = new TGGroupFrame(this,"Information",kVerticalFrame);

   infoView = new TGTextView(infoGroup, 200, 100,
            kChildFrame | kSunkenFrame);
   infoGroup->AddFrame(infoView,lHExpXY);

   AddFrame(infoGroup, lHExpXY);

   /* --------- Initialize layout algorithm with Resize() -------- */
   MapSubwindows();
   Resize(GetDefaultSize());

   /* --------- Initialise with Element Z ---------- */
   SetElement(initZ);
   InitCombos();

   /* --------- Set Windows Position --------- */
   int   ax, ay;

   if (LastWinX == -1) {   // Go to the middle of parent window
      Window_t wdum;
      gVirtualX->TranslateCoordinates(main->GetId(), GetParent()->GetId(),
         (((TGFrame *) main)->GetWidth() - fWidth) >> 1,
         (((TGFrame *) main)->GetHeight() - fHeight) >> 1,
         ax, ay, wdum);
      ax = MAX(ax,0);
      ay = MAX(ay,0);
   } else {
      ax = LastWinX;
      ay = LastWinY;
   }
   Move(ax,ay);
   SetWMPosition(ax,ay);

   /* --------- Map everything -------- */
   SetWindowName("Select Element/Reaction");
   MapWindow();

} // XSReactionDlg

/* ----- ~XSReactionDlg ----- */
XSReactionDlg::~XSReactionDlg()
{
   // --- Delete Layout Hints ---
   delete   lHFixed;
   delete   lHExpX;
   delete   lHExpY;
   delete   lHExpXY;
   delete   lHFixedCen;
   delete   lHExpXCen;

   // --- Delete Material Group ----
   delete   elementLbl;
   delete   elementText;
   delete   elementStep;
   delete   ptableButton;
   delete   chargeLbl;
   delete   zLbl;
   delete   nameLbl;
   delete   massLbl;
   delete   massValLbl;
   delete   densityLbl;
   delete   densityValLbl;
   delete   meltingPtLbl;
   delete   meltingValLbl;
   delete   boilingPtLbl;
   delete   boilingValLbl;
   delete   oxidationLbl;
   delete   oxidationValLbl;
   delete   isotopeInfoLbl;
   delete   isotopeInfoValLbl;
   delete   isotopeLbl;
   delete   isotopeCombo;
   delete   materialGroup;

   // --- Delete Reaction group ---
   delete   projectileLbl;
   delete   projectileCombo;
   delete   temperatureLbl;
   delete   temperatureCombo;
   delete   databaseLbl;
   delete   databaseCombo;
   delete   reactionLbl;
   delete   reactionList;
   delete   reactionInfoLbl;
   delete   reactionInfoValLbl;
   delete   reactionGroup;

   // --- Option Group ----
   delete   lineWidthLbl;
   delete   lineColorLbl;
   delete   markerStyleLbl;
   delete   markerColorLbl;
   delete   markerSizeLbl;
   delete   errorbarColorLbl;

   delete   lineWidthCombo;
   delete   lineColorCombo;
   delete   markerStyleCombo;
   delete   markerColorCombo;
   delete   markerSizeCombo;
   delete   errorbarColorCombo;

   delete   optionGroup;

   // --- Info Group ----
   delete   infoView;
   delete   infoGroup;

   // --- Frames ---
   delete   frm1;
   delete   frm2;
   delete   frm3;
   delete   frm4;
   delete   frm5;

   delete   Vfrm1;
   delete   Vfrm2;
   delete   Vfrm3;

   // --- Buttons ---
   delete   okButton;
   delete   execButton;
   delete   resetButton;
   delete   closeButton;
   delete   buttonFrame;
} // ~XSReactionDlg

/* ----- InitColorCombo ----- */
void
XSReactionDlg::InitColorCombo(TGComboBox *cb)
{
   // Normaly this should be filled with color entries!!!

   cb->AddEntry("Black",0);
   cb->AddEntry("Red",1);
   cb->AddEntry("Green",2);
   cb->AddEntry("Blue",3);
   cb->AddEntry("Yellow",4);
   cb->AddEntry("Magenta",5);
   cb->AddEntry("Cyan",6);
   // .......
   cb->Select(0);      // <<<< Should find the correct color...
} // InitColorCombos

/* ----- InitCombos ----- */
void
XSReactionDlg::InitCombos()
{
   InitColorCombo(lineColorCombo);
   InitColorCombo(markerColorCombo);
   InitColorCombo(errorbarColorCombo);

   /* ---- Line Widths ----- */
   lineWidthCombo->AddEntry("None",0);
   lineWidthCombo->AddEntry("1",1);
   lineWidthCombo->AddEntry("2",2);
   lineWidthCombo->AddEntry("3",3);
   lineWidthCombo->AddEntry("4",4);
   lineWidthCombo->AddEntry("5",5);
   lineWidthCombo->AddEntry("6",6);
   lineWidthCombo->AddEntry("7",7);
   lineWidthCombo->AddEntry("8",8);
   lineWidthCombo->AddEntry("9",9);
   lineWidthCombo->AddEntry("10",10);
   lineWidthCombo->Select(1);
   // --- Select the correct one ---

   /* ---- Marker Style ----- */
   markerStyleCombo->AddEntry("None",0);
   markerStyleCombo->AddEntry("Bullet",1);
   markerStyleCombo->AddEntry("Triangle Up",2);
   markerStyleCombo->AddEntry("Triangle Down",3);
   markerStyleCombo->AddEntry("Square",4);
   markerStyleCombo->AddEntry("Diamond",5);
   markerStyleCombo->AddEntry("Star",6);
   markerStyleCombo->AddEntry("Empty Bullet",7);
   markerStyleCombo->AddEntry("Empty Tri-Up",8);
   markerStyleCombo->AddEntry("Empty Tri-Down",9);
   markerStyleCombo->AddEntry("Empty Square",10);
   markerStyleCombo->Select(0);
   // --- Select the correct one ---

   /* ---- Marker Size ----- */
   markerSizeCombo->AddEntry("None",0);
   markerSizeCombo->AddEntry("0.1",1);
   markerSizeCombo->AddEntry("0.2",2);
   markerSizeCombo->AddEntry("0.3",3);
   markerSizeCombo->AddEntry("0.4",4);
   markerSizeCombo->AddEntry("0.5",5);
   markerSizeCombo->AddEntry("0.6",6);
   markerSizeCombo->AddEntry("0.7",7);
   markerSizeCombo->AddEntry("0.8",8);
   markerSizeCombo->AddEntry("0.9",9);
   markerSizeCombo->AddEntry("1.0",10);
   markerSizeCombo->Select(0);

   // --- Select the correct one ---
} // InitCombos

/* ----- GetString ------- */
const char *
XSReactionDlg::GetString( int box )
{
   const TGLBEntry   *entry;
   switch  (box) {
      case ISOTOPE_COMBO:
         entry = isotopeCombo->GetSelectedEntry();
         break;

      case PROJECTILE_COMBO:
         entry = projectileCombo->GetSelectedEntry();
         break;

      case TEMPERATURE_COMBO:
         entry = temperatureCombo->GetSelectedEntry();
         break;

      case DATABASE_COMBO:
         entry = databaseCombo->GetSelectedEntry();
         break;

      case LINE_WIDTH_COMBO:
         entry = lineWidthCombo->GetSelectedEntry();
         break;

      case LINE_COLOR_COMBO:
         entry = lineColorCombo->GetSelectedEntry();
         break;

      case MARKER_STYLE_COMBO:
         entry = markerStyleCombo->GetSelectedEntry();
         break;

      case MARKER_COLOR_COMBO:
         entry = markerColorCombo->GetSelectedEntry();
         break;

      case MARKER_SIZE_COMBO:
         entry = markerSizeCombo->GetSelectedEntry();
         break;

      case ERRORBAR_COLOR_COMBO:
         entry = errorbarColorCombo->GetSelectedEntry();
         break;

      case REACTION_LISTBOX:
         entry = reactionList->GetSelectedEntry();
         break;

      default:
         entry = NULL;
   }
   if (entry==NULL) return NULL;

   return ((TGTextLBEntry*)entry)->GetText()->GetString();
} // GetString

/* ----- CreatePath ------ */
char*
XSReactionDlg::CreatePath( int option )
{
   static   char   path[256];

   strlcpy(path, DBDIR,256);   // Initialise directory
   strlcat(path, XSelements->Mnemonic(Z),256);
   strlcat(path, PATHSEP,256);

   if (option == PATHIsotope) return path;

   /* --- add the selected isotope --- */
   strlcat(path, GetString(ISOTOPE_COMBO),256);
   strlcat(path, PATHSEP,256);

   if (option == PATHProjectile) return path;

   /* --- add the selected projectile --- */
   strlcat(path, GetString(PROJECTILE_COMBO),256);
   strlcat(path, PATHSEP,256);

   if (option == PATHDatabase) return path;

   /* --- finally add the file --- */
   strlcat(path, GetString(DATABASE_COMBO),256);

   return path;
} // CreatePath

/* ----- UpdateContainer ----- */
int
XSReactionDlg::UpdateContainer( TGListBox *lb, char *path, int option)
{
   const char *entry;
   FileStat_t st;

   // --- First Remove everything ---
   lb->RemoveEntries(0,1000);

   // Scan directory to update the combo box
   void *dirp = gSystem->OpenDirectory(path);
   if (dirp==NULL) {
      lb->AddEntry("-",0);
      return kTRUE;   // Ooops not found
   }

   int   i=0;
   while ((entry = gSystem->GetDirEntry(dirp))) {
      // Skip the . and .* directory entries
      if (entry[0] == '.') continue;

      char   fn[256];
      strlcpy(fn,path,256);
      strlcat(fn,entry,256);

      gSystem->GetPathInfo(fn, st);
      if (((option == DIROnlyFiles) && !R_ISDIR(st.fMode)) ||
          ((option == DIROnlyDirectories) && R_ISDIR(st.fMode)) ||
          (option == DIRBoth)) {
         lb->AddEntry(entry,i++);
      }
   }
   gSystem->FreeDirectory(dirp);
   if (i==0) {
      lb->AddEntry("None",0);
      return kTRUE;   // Ooops not found
   }
   return kFALSE;
} // UpdateContainer

/* ----- UpdateIsotopes ------ */
void
XSReactionDlg::UpdateIsotopes()
{
   // --- Update the isotopes ---
   UpdateContainer(
      isotopeCombo->GetListBox(),
      CreatePath(PATHIsotope),
      DIROnlyDirectories);
   isotopeCombo->Select(0);
} // UpdateIsotopes

/* ----- UpdateProjectile ------ */
void
XSReactionDlg::UpdateProjectile()
{
   // --- Update the projectiles ---
   UpdateContainer(
      projectileCombo->GetListBox(),
      CreatePath(PATHProjectile),
      DIROnlyDirectories);
   projectileCombo->Select(0);
} // UpdateProjectile

/* ----- UpdateDatabase ------ */
void
XSReactionDlg::UpdateDatabase()
{
   // --- Update the databases ---
   UpdateContainer(
      databaseCombo->GetListBox(),
      CreatePath(PATHDatabase),
      DIRBoth);
   databaseCombo->Select(0);
} // UpdateDatabase

/* ----- UpdateReactions ------ */
void
XSReactionDlg::UpdateReactions()
{
   NdbMTDir   elemDir;

   reactionList->RemoveEntries(0,1000);
   infoView->Clear();

   if (elemDir.LoadENDF(CreatePath(PATHFile)))
      return;

   int id = 0;
   for (int i=0; i<elemDir.Sections(); i++) {
      if (elemDir.DIRMF(i) == 3)
         reactionList->AddEntry(
            XSReactionDesc->GetShort(elemDir.DIRMT(i)),
            id++);
   }
        reactionList->MapSubwindows();
   reactionList->Select(0);

   // ------------------------------------------
   // Prepare a string with information
   TString   info;

   info.Append("Symbol name:\t\t");
   info.Append(elemDir.SymbolName());

   info.Append("\nLaboratory:\t\t");
   info.Append(elemDir.Laboratory());

   info.Append("\nEvaluation Date:\t");
   info.Append(elemDir.EvaluationDate());

   info.Append("\nAuthor(s):\t\t");
   info.Append(elemDir.Author());

   info.Append("\nReference:\t\t");
   info.Append(elemDir.Reference());

   info.Append("\nDistribution Date:\t");
   info.Append(elemDir.DistributionDate());
   info.Append("\nLast Revision Date:\t");
   info.Append(elemDir.LastRevisionDate());
   info.Append("\nMaster Entry Date:\t");
   info.Append(elemDir.MasterEntryDate());
   info.Append("\n\n");
   info.Append(elemDir.GetInfo());

   infoView->LoadBuffer(info.Data());
} // UpdateReactions

/* ----- UpdateCurIsotope ----- */
void
XSReactionDlg::UpdateCurIsotope()
{
   XSElement   *elem = XSelements->Elem(Z);

   const char *str = GetString(ISOTOPE_COMBO);
   if (str)
      isotopeInfoValLbl->SetText(
         new TGString(elem->IsotopeInfo(str)));
   else
      isotopeInfoValLbl->SetText(new TGString("-"));

   // --- Update combos depending on isotope ---
   UpdateProjectile();
   UpdateDatabase();
   UpdateReactions();
} // UpdateCurIsotope

/* ----- SetElement ----- */
void
XSReactionDlg::SetElement(UInt_t aZ)
{
   char   str[5];

   Z = aZ;
   if (Z<1)
      Z = 1;
   else
   if (Z>XSelements->GetSize())
      Z = XSelements->GetSize();


   XSElement   *elem = XSelements->Elem(Z);

   elementBuf->Clear();
   elementBuf->AddText(0,elem->Symbol());
   fClient->NeedRedraw(elementText);
   nameLbl->SetText(new TGString(elem->Name()));

   snprintf(str,5,"%d",Z);
   zLbl->SetText(new TGString(str));

   // --- Update several values for element ---
   massValLbl->SetText(new TGString(elem->AtomicWeight()));
   densityValLbl->SetText(new TGString(elem->Density()));
   densityValLbl->SetText(new TGString(elem->Density()));
   meltingValLbl->SetText(new TGString(elem->MeltingPt()));
   boilingValLbl->SetText(new TGString(elem->BoilingPt()));
   oxidationValLbl->SetText(new TGString(elem->Oxidation()));

   // --------------------------------
   UpdateIsotopes();
   UpdateCurIsotope();

   // --------------------------------
   // ---Update the rest of combos ---
   // --------------------------------
   temperatureCombo->RemoveEntries(0,1000);
   temperatureCombo->AddEntry("0",0);
   temperatureCombo->AddEntry("293",1);
   temperatureCombo->AddEntry("900",2);
   temperatureCombo->AddEntry("1000",3);
   temperatureCombo->Select(1);


   // Redraw everything
   fClient->NeedRedraw(this);
   Layout();
} // SetElement

/* ----- CloseWindow ----- */
void
XSReactionDlg::CloseWindow()
{
   // --- Remember old position ---
   Window_t wdum;
   gVirtualX->TranslateCoordinates(GetId(), GetParent()->GetId(),
      0, 0, LastWinX, LastWinY, wdum);

   delete this;
} // CloseWindow

/* ----- elementEntryChanged ---- */
void
XSReactionDlg::ElementEntryChanged()
{
   const   char   *name;
   UInt_t   newZ;

   /* --- get contents --- */
   name = elementBuf->GetString();

   /* --- check if it is a number --- */
   newZ = atoi(name);
   if ((newZ>0) && (newZ<=XSelements->GetSize())) {
      SetElement(newZ);
      return;
   }

   /* Search for the specific element */
   newZ = XSelements->Find(name);

   if (newZ == 0) {
      // --- Error Entry ---
      // issue message and put the old one
      char   msg[256];
      int   retval;
      snprintf(msg,256,"Element %s not found!", elementBuf->GetString());
      new TGMsgBox(fClient->GetRoot(),this,"Not found",msg,
            kMBIconAsterisk,kMBOk,&retval);
      SetElement(Z);
   } else
      SetElement(newZ);
} // ElementEntryChanged

/* ----- UpdateGraph ---- */
void
XSReactionDlg::UpdateGraph( NdbMTReactionXS *xs )
{
   char title[256];

   //!!! --- Only if new ---
   //!!! --- Else update the old one ---
   XSGraph *gr = new XSGraph(xs);

   // Prepare the title
   snprintf(title,256,"%s-%s %s",
         XSelements->Mnemonic(Z),
         GetString(ISOTOPE_COMBO),
         xs->Description().Data()
      );

   gr->GetGraph()->SetTitle(title);
   gr->GetGraph()->SetFillColor(19);
   gr->GetGraph()->SetLineColor(2);
   gr->GetGraph()->SetLineWidth(2);
   gr->GetGraph()->Draw("ALW");

//   gr->GetGraph()->GetHistogram()->SetXTitle(TString("Energy (eV)"));
//   gr->GetGraph()->GetHistogram()->SetYTitle(TString("Cross Section (barn)"));

   Add2GraphList(gr);
   fClient->NeedRedraw(canvasWindow);
   fClient->NeedRedraw(const_cast<TGWindow*>(mainWindow));
   canvas->Update();
} // UpdateGraph

/* ----- ExecCommand ---- */
Bool_t
XSReactionDlg::ExecCommand()
{
   // --- Load the data base ---
   NdbMTDir   el;
   if (el.LoadENDF(CreatePath(PATHFile)))
      return kTRUE;

   // --- Get the selected reaction ---
   const char *reacstr = GetString(REACTION_LISTBOX);

   // --- Search for the reaction ---
   for (int i=0; i<el.Sections(); i++) {
      if (el.DIRMF(i) == 3 && XSReactionDesc->GetShort(el.DIRMT(i))) {
         if (reacstr && !strcmp(reacstr,
              XSReactionDesc->GetShort(el.DIRMT(i)))) {
            NdbMTReactionXS   xs(el.DIRMT(i), reacstr);
            xs.LoadENDF(CreatePath(PATHFile));

            UpdateGraph(&xs);
         }
      }
   }
   return kFALSE;
} // ExecCommand

/* ----- ProcessButton ----- */
Bool_t
XSReactionDlg::ProcessButton(Long_t param1, Long_t param2)
{
   UInt_t   newZ;
   switch (param1) {
      case REAC_ELEMENT_STEP:
         if (param2==XSSTEPBUTTON_UP) {
            newZ = Z+1;
            if (newZ > XSelements->GetSize()) Z = 1;
         } else {
            newZ = Z-1;
            if (newZ<1) Z = XSelements->GetSize();
         }
         SetElement(newZ);
         break;

      case REAC_OK:
         // Execute the command and close the window
         if (!ExecCommand())
            CloseWindow();
         break;

      case REAC_EXEC:
         // Execute the command, but don't close the window
         ExecCommand();
         break;

      case REAC_RESET:
         SetElement(1);
         break;

      case REAC_CLOSE:
         CloseWindow();
         break;

      case REAC_PTABLE:
         newZ = Z;
         new XSElementDlg(fClient->GetRoot(), this, &newZ);
         if (newZ>0)
            SetElement(newZ);
         break;

      default:
         break;
   }
   return kTRUE;
} // ProcessButton

/* ----- ProcessCombo ------ */
Bool_t
XSReactionDlg::ProcessCombo( Long_t param1, Long_t param2 )
{
   printf("ComboMessage %ld %ld\n",param1,param2);

   switch (param1) {
      case ISOTOPE_COMBO:
         UpdateCurIsotope();
         break;

      case PROJECTILE_COMBO:
         UpdateDatabase();
         UpdateReactions();
         break;

      case DATABASE_COMBO:
         UpdateReactions();
         break;

      case REACTION_LISTBOX:
//////         reactionInfoValLbl->SetText(
//////            new TGString(elem->IsotopeInfo(str)));
         break;

      default:
         // Ooops an error in the code
         break;
   }

   return kTRUE;
} // ProcessCombo

/* ----- ProcessMessage ----- */
Bool_t
XSReactionDlg::ProcessMessage(Long_t msg, Long_t param1, Long_t param2)
{
   printf("Message = %d (%d)\n", GET_MSG(msg), GET_SUBMSG(msg));

   switch (GET_MSG(msg)) {
      case kC_COMMAND:
         switch (GET_SUBMSG(msg)) {
            case kCM_BUTTON:
               ProcessButton(param1,param2);
               break;

            case kCM_COMBOBOX:
               ProcessCombo(param1,param2);
               break;

            default:
               break;
         }
      case kC_TEXTENTRY:
         switch (GET_SUBMSG(msg)) {
            case kTE_ENTER:
               ElementEntryChanged();
               break;
            default:
               break;
         }
      default:
//         printf("Message = %d (%d)\n", GET_MSG(msg), GET_SUBMSG(msg));
         break;
   }
   return kTRUE;
} // ProcessMessage