/*
 * $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