/*
 * $Header$
 * $Log$
 *
 * Fills a listbox with the elements sorted, by name, mnemonic, or Z
 */

#include <ctype.h>
#include <stdlib.h>
#include <string.h>

#include <TGFrame.h>
#include <TGLayout.h>
#include <TGWidget.h>
#include <TGWindow.h>
#include <TGPicture.h>

#include "XSVarious.h"
#include "XSElementList.h"

//ClassImp(XSElementList);

/* ----- XSElementList ----- */
XSElementList::XSElementList(TGWindow* p, Int_t sortby)
   : TGListBox(p,50,50)
{
   UInt_t   i;
   int   *index = new int[XSelements->GetSize()];

   sortBy = sortby;

   for (i=0; i<XSelements->GetSize(); i++)
      index[i] = i;

   Sort(index);

   for (i=0; i<XSelements->GetSize(); i++) {
      char   str[100];
      Int_t   Z = ElementString(index[i]+1, str);
      TGString   *tgstr = new TGString(str);
      TGTextLBEntry   *lbe = new TGTextLBEntry(fLbc,tgstr,Z,
                                      fixedGC,fixedFontStruct);

      TGLayoutHints   *lhints = new TGLayoutHints(
               kLHintsExpandX | kLHintsTop);

      fItemVsize = TMath::Max(fItemVsize, lbe->GetDefaultHeight());

      AddEntry((TGLBEntry*)lbe, lhints);
   }

   delete [] index;
} // XSElementList

/* ----- ~XSElementList ----- */
XSElementList::~XSElementList()
{
} // ~XSElementList

/* ----- Compare ----- */
Int_t
XSElementList::Compare(int i, int j) const
{
   switch (sortBy) {
      case XSEL_SORTBY_NAME:
         return strcmp(XSelements->Name(i+1),
               XSelements->Name(j+1));

      case XSEL_SORTBY_MNEMONIC:
         return strcmp(XSelements->Mnemonic(i+1),
               XSelements->Mnemonic(j+1));

      case XSEL_SORTBY_Z:
         return   (i<j? -1 : i>j? 1 : 0);

      default:
         return 0;
   }
} // Compare

/* ----- Sort ----- */
void
XSElementList::Sort(int *index)
{
   // --- Perform a bubble sort ---
   for (UInt_t i=0; i<XSelements->GetSize(); i++) {
      int change = 0;
      for (UInt_t j=XSelements->GetSize()-1; j>i; j--) {
         if (Compare(index[j],index[j-1]) < 0) {
            int t      = index[j];
            index[j]   = index[j-1];
            index[j-1] = t;
            change     = 1;
         }
      }
      if (!change)
         return;
   }
} // Sort

/* ----- ElementString ----- */
Int_t
XSElementList::ElementString(Int_t Z, char *buf)
{
   switch (sortBy) {
      case XSEL_SORTBY_NAME:
         sprintf(buf,"%-20s %-4s %d",
            XSelements->Name(Z),
            XSelements->Mnemonic(Z),
            Z);
         break;

      case XSEL_SORTBY_MNEMONIC:
         sprintf(buf,"%-4s %-20s %d",
            XSelements->Mnemonic(Z),
            XSelements->Name(Z),
            Z);
         break;

      case XSEL_SORTBY_Z:
         sprintf(buf,"%3d   %-4s %-20s",
            Z,
            XSelements->Mnemonic(Z),
            XSelements->Name(Z));
         break;
   }
   return Z;
} // ElementString

/* ----- GetZ ------- */
UInt_t
XSElementList::GetZ( TGTextLBEntry *entry )
{
   if (entry == NULL) return 0;

   const TGString   *txt = entry->GetText();
   if (txt == NULL) return 0;

   const char   *str = txt->GetString();
   if (str == NULL) return 0;

   // Search the string for the Z
   while (*str && !isdigit(*str))
      str++;
   return atol(str);
} // GetZ

/* ----- SelectZ ----- */
void
XSElementList::SelectZ( UInt_t Z )
{
   TGTextLBEntry   *f;
   TGFrameElement   *el;

   if (Z<1 || Z>XSelements->GetSize()) return;

   TGLBContainer *ct = (TGLBContainer *) fVport->GetContainer();

   TIter   next(ct->GetList());
   while ((el = (TGFrameElement *) next())) {
      f = (TGTextLBEntry *) el->fFrame;
      if (GetZ(f) == Z) {
         f->Activate(kTRUE);
         return;
      }
   }
   return;
} // SelectZ

/* ----- CurrentZ ----- */
UInt_t
XSElementList::CurrentZ( )
{
        TGTextLBEntry   *entry = (TGTextLBEntry*)(GetSelectedEntry());
   return   GetZ(entry);
} // CurrentZ