[u/mrichter/AliRoot.git] / ANALYSIS / Aliengui / AliFileListFrame.cxx

/**************************************************************************
 * Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
 *                                                                        *
 * Author: The ALICE Off-line Project.                                    *
 * Contributors are mentioned in the code where appropriate.              *
 *                                                                        *
 * Permission to use, copy, modify and distribute this software and its   *
 * documentation strictly for non-commercial purposes is hereby granted   *
 * without fee, provided that the above copyright notice appears in all   *
 * copies and that both the copyright notice and this permission notice   *
 * appear in the supporting documentation. The authors make no claims     *
 * about the suitability of this software for any purpose. It is          *
 * provided "as is" without express or implied warranty.                  *
 **************************************************************************/

/* $Id$ */

//-----------------------------------------------------------------
//           AliFileListFrame class
//   The class that deals with the file list frame of the GUI
//   Origin: Panos Christakoglou, UOA-CERN, Panos.Christakoglou@cern.ch
//-----------------------------------------------------------------

#include <TFile.h>
#include <TGLabel.h>
#include <TGListView.h>
#include <TGMsgBox.h>
#include <TGNumberEntry.h>
#include <TGTableLayout.h>
#include <TGTextEntry.h>
#include <TGrid.h>
#include <TGridResult.h>
#include <TObjArray.h>
#include <TObjString.h>

#include "AliFileListFrame.h"

ClassImp(AliFileListFrame)

//___________________________________________________________________________
AliFileListFrame::AliFileListFrame(const TGWindow *main, UInt_t w, UInt_t h): 
  TGCompositeFrame(main, w, h), 
  fHFrame1(0), fVFrame1(0), fVFrame2(0),
  fHFrame2(0), fLabel1(0), fLabel2(0), fLabel3(0),
  fTextQueryPath(0), fNumMaxResults(0), fTextQueryPattern(0),
  fButtonRun(0), fContents(0), fCanvas(0),
  fTableLayout(0), fTags(0) {
  // Creates a composite frame containing a filelist widget.
   
  // use hierarchical cleaning
  SetCleanup(kDeepCleanup);
  
  fHFrame1 = new TGHorizontalFrame(this, 300, 100, kFixedWidth);
  AddFrame(fHFrame1, new TGLayoutHints(kLHintsTop|kLHintsExpandX));
  
  
  BuildQueryPathFrame();
  
  // creates the Tags for Query display
  
  fTags = new TObjArray();
  
  fTags->Add(new TObjString("type"));
  fTags->Add(new TObjString("owner"));
  fTags->Add(new TObjString("gowner"));
  fTags->Add(new TObjString("perm"));
  fTags->Add(new TObjString("size"));
  fTags->Add(new TObjString("ctime"));
  fTags->Add(new TObjString("lfn"));
  
  Pixel_t white;
  gClient->GetColorByName("white", white);
  
  fCanvas = new TGCanvas(this, 300, 300, kFixedWidth);
  fContents = new TGCompositeFrame(fCanvas->GetViewPort(), 300, 300, 
				   kSunkenFrame | kFixedWidth, white);
  
  fCanvas->SetContainer(fContents);
  AddFrame(fCanvas, new TGLayoutHints(kLHintsBottom|kLHintsExpandX, 5,5,5,0));
  
  MapSubwindows();
  MapWindow();
  Resize();
}

//___________________________________________________________________________
AliFileListFrame::~AliFileListFrame() {
  // AliFileListFrame Destructor
  // Cleanup.
  
  delete fContents;
  DeleteWindow();  // deletes fMain
}

//___________________________________________________________________________
void AliFileListFrame::SetQueryPath(const char* path) {
  // Set the Query Path
  fTextQueryPath->SetText(path);
}

//___________________________________________________________________________
const char* AliFileListFrame::GetQueryPath() {
  // Get the Query Path
  return fTextQueryPath->GetText();
}

//___________________________________________________________________________
const char* AliFileListFrame::GetQueryPattern() {
  // Get the Query Patttern
  return fTextQueryPattern->GetText();
}

//___________________________________________________________________________
void AliFileListFrame::BuildQueryPathFrame() {
  // Build the Query Path Frame
  
  fHFrame1 = new TGHorizontalFrame(this, 100, 100, kRaisedFrame);
  AddFrame(fHFrame1, new TGLayoutHints(kLHintsTop, 5,5,5,5));
  
  fVFrame1 = new TGVerticalFrame(fHFrame1, 100, 50);
  fHFrame1->AddFrame(fVFrame1, new TGLayoutHints(kLHintsLeft, 5,5,5,5));  
  
  fVFrame2 = new TGVerticalFrame(fHFrame1, 100, 50);
  fHFrame1->AddFrame(fVFrame2, new TGLayoutHints(kLHintsRight, 5,5,5,5));
  
  // fVFrame1, for the labels   
  
  fLabel1 = new TGLabel(fVFrame1, new TGString("Query Path"));
  fVFrame1->AddFrame(fLabel1, new TGLayoutHints(kLHintsTop, 5,5,10,5));
  
  fLabel2 = new TGLabel(fVFrame1, new TGString("Query Pattern"));
  fVFrame1->AddFrame(fLabel2, new TGLayoutHints(kLHintsCenterY, 5,5,10,5));
  
  fLabel3 = new TGLabel(fVFrame1, new TGString("Max. Results"));
  fVFrame1->AddFrame(fLabel3, new TGLayoutHints(kLHintsCenterY, 5,5,10,5));
   
  // fVFrame2 for the text boxes
  
  fTextQueryPath = new TGTextEntry(fVFrame2, new TGTextBuffer(50));
  fTextQueryPath->SetEnabled(false);
  fVFrame2->AddFrame(fTextQueryPath, 
		     new TGLayoutHints(kLHintsTop, 5,5,5,5));
  
  fTextQueryPattern = new TGTextEntry(fVFrame2, new TGTextBuffer(20), 0);
  fVFrame2->AddFrame(fTextQueryPattern, 
		     new TGLayoutHints(kLHintsTop, 5,5,5,5));
  fTextQueryPattern->SetText("*.root");
  
  fNumMaxResults = new TGNumberEntry(fVFrame2, 100);
  fNumMaxResults->SetLimits(TGNumberFormat::kNELLimitMin, 0);
  fVFrame2->AddFrame(fNumMaxResults, 
		     new TGLayoutHints(kLHintsTop, 5,5,5,5));
  
  fButtonRun =  new TGTextButton(fVFrame2, "          Run         ", 0);
  fVFrame2->AddFrame(fButtonRun, 
		     new TGLayoutHints(kLHintsRight, 0,5,0,0));
  
  fButtonRun->Connect("Clicked()", "AliFileListFrame", this, "RunQuery()");
}

//___________________________________________________________________________
void AliFileListFrame::RunQuery() {
  // Run Query
  
  if(!gGrid)
    return;
  
  SetCleanup(kDeepCleanup);   
  
  fContents->Cleanup();
  
  TGridResult *result = gGrid->Query(GetQueryPath(), GetQueryPattern());
  
  if(!result)
    return;

  int nrows = result->GetEntries();
  int ncols = fTags->GetEntries();
  
  if(nrows == 0){ // there is nothing to show
    TString msg = TString("The query of \"");
    (msg+=GetQueryPattern())+="\" pattern is empty ";
    new TGMsgBox(gClient->GetRoot(), this, "Empty query", msg.Data(), 0, kMBOk);
    return;
  }
  
  //if(fTableLayout != NULL) delete fTableLayout;
  fTableLayout = new TGTableLayout(fContents, nrows+1, ncols);
  fContents->SetLayoutManager(fTableLayout);
  
  Pixel_t white;
  gClient->GetColorByName("white", white);
  
  TObjString * tag;
  
  for (int i=0; i < ncols; i++) {
    for (int j=0; j < nrows; j++) {
      tag = (TObjString*) (fTags->At(i));
      TGLabel * label = 
	new TGLabel(fContents, new TGString(result->GetKey(j,tag->GetName())));        
      label->SetBackgroundColor(white);
      TGTableLayoutHints *thint = 
	new TGTableLayoutHints(i,i+1,j+1,j+2, kLHintsExpandX | kLHintsLeft, 5,30,5,5);
      fContents->AddFrame(label,thint);	
    }//for_j
  }//for_i
  
  for (int j=0; j < ncols; j++) {
    tag = (TObjString*) (fTags->At(j));
    TGTextButton * button = new TGTextButton(fContents, tag->GetName(), 0);
    TGTableLayoutHints *thint = 
      new TGTableLayoutHints(j,j+1,0,1, kLHintsFillX, 0,0,0,0);
    fContents->AddFrame(button,thint);
  }
  
  MapSubwindows();
  MapWindow();
  
  Resize();
}

//___________________________________________________________________________
void AliFileListFrame::DisplayObject(const TString& fname,const TString& name) const {
  // Browse object located in file.
  
  TDirectory *sav = gDirectory;
  
  static TFile *file = 0;
  if (file) delete file;     // close
  file = new TFile(fname);   // reopen
  
  TObject* obj = file->Get(name);
  if (obj) {
    if (!obj->IsFolder()) {
      obj->Browse(0);
    } else obj->Print();
  }
  gDirectory = sav;
}

//___________________________________________________________________________
void AliFileListFrame::OnDoubleClick(TGLVEntry *f, Int_t btn) {
  // Handle double click.
  
  if (btn != kButton1) return;
  
  // set kWatch cursor
  ULong_t cur = gVirtualX->CreateCursor(kWatch);
  gVirtualX->SetCursor(fContents->GetId(), cur);
  
  TString name(f->GetTitle());
  const char* fname = (const char*)f->GetUserData();
  
  if (fname) {
    DisplayObject(fname, name);
  } else if (name.EndsWith(".root")) {
    //      DisplayFile(name);
  } else {
    // DisplayDirectory(name);
  }
  
  // set kPointer cursor
  cur = gVirtualX->CreateCursor(kPointer);
  gVirtualX->SetCursor(fContents->GetId(), cur);
}
Commit	Line	Data
c96ff0e6	1	/**************************************************************************
	2	* Copyright(c) 1998-1999, ALICE Experiment at CERN, All rights reserved. *
	3	* *
	4	* Author: The ALICE Off-line Project. *
	5	* Contributors are mentioned in the code where appropriate. *
	6	* *
	7	* Permission to use, copy, modify and distribute this software and its *
	8	* documentation strictly for non-commercial purposes is hereby granted *
	9	* without fee, provided that the above copyright notice appears in all *
	10	* copies and that both the copyright notice and this permission notice *
	11	* appear in the supporting documentation. The authors make no claims *
	12	* about the suitability of this software for any purpose. It is *
	13	* provided "as is" without express or implied warranty. *
	14	**************************************************************************/
	15
	16	/* $Id$ */
	17
	18	//-----------------------------------------------------------------
	19	// AliFileListFrame class
	20	// The class that deals with the file list frame of the GUI
	21	// Origin: Panos Christakoglou, UOA-CERN, Panos.Christakoglou@cern.ch
	22	//-----------------------------------------------------------------
	23
a1e17193	24	#include <TFile.h>
	25	#include <TGLabel.h>
	26	#include <TGListView.h>
	27	#include <TGMsgBox.h>
	28	#include <TGNumberEntry.h>
	29	#include <TGTableLayout.h>
	30	#include <TGTextEntry.h>
	31	#include <TGrid.h>
	32	#include <TGridResult.h>
	33	#include <TObjArray.h>
	34	#include <TObjString.h>
c96ff0e6	35
	36	#include "AliFileListFrame.h"
	37
	38	ClassImp(AliFileListFrame)
	39
	40	//___________________________________________________________________________
a313abd0	41	AliFileListFrame::AliFileListFrame(const TGWindow *main, UInt_t w, UInt_t h):
	42	TGCompositeFrame(main, w, h),
	43	fHFrame1(0), fVFrame1(0), fVFrame2(0),
	44	fHFrame2(0), fLabel1(0), fLabel2(0), fLabel3(0),
	45	fTextQueryPath(0), fNumMaxResults(0), fTextQueryPattern(0),
	46	fButtonRun(0), fContents(0), fCanvas(0),
	47	fTableLayout(0), fTags(0) {
c96ff0e6	48	// Creates a composite frame containing a filelist widget.
	49
	50	// use hierarchical cleaning
	51	SetCleanup(kDeepCleanup);
	52
	53	fHFrame1 = new TGHorizontalFrame(this, 300, 100, kFixedWidth);
	54	AddFrame(fHFrame1, new TGLayoutHints(kLHintsTop\|kLHintsExpandX));
	55
	56
	57	BuildQueryPathFrame();
	58
	59	// creates the Tags for Query display
	60
	61	fTags = new TObjArray();
	62
	63	fTags->Add(new TObjString("type"));
	64	fTags->Add(new TObjString("owner"));
	65	fTags->Add(new TObjString("gowner"));
	66	fTags->Add(new TObjString("perm"));
	67	fTags->Add(new TObjString("size"));
	68	fTags->Add(new TObjString("ctime"));
	69	fTags->Add(new TObjString("lfn"));
	70
	71	Pixel_t white;
	72	gClient->GetColorByName("white", white);
	73
	74	fCanvas = new TGCanvas(this, 300, 300, kFixedWidth);
	75	fContents = new TGCompositeFrame(fCanvas->GetViewPort(), 300, 300,
	76	kSunkenFrame \| kFixedWidth, white);
	77
	78	fCanvas->SetContainer(fContents);
	79	AddFrame(fCanvas, new TGLayoutHints(kLHintsBottom\|kLHintsExpandX, 5,5,5,0));
	80
	81	MapSubwindows();
	82	MapWindow();
	83	Resize();
	84	}
	85
	86	//___________________________________________________________________________
	87	AliFileListFrame::~AliFileListFrame() {
	88	// AliFileListFrame Destructor
	89	// Cleanup.
	90
	91	delete fContents;
	92	DeleteWindow(); // deletes fMain
	93	}
	94
	95	//___________________________________________________________________________
	96	void AliFileListFrame::SetQueryPath(const char* path) {
	97	// Set the Query Path
	98	fTextQueryPath->SetText(path);
	99	}
	100
	101	//___________________________________________________________________________
	102	const char* AliFileListFrame::GetQueryPath() {
	103	// Get the Query Path
	104	return fTextQueryPath->GetText();
	105	}
	106
	107	//___________________________________________________________________________
	108	const char* AliFileListFrame::GetQueryPattern() {
	109	// Get the Query Patttern
	110	return fTextQueryPattern->GetText();
	111	}
112
113	//___________________________________________________________________________
114	void AliFileListFrame::BuildQueryPathFrame() {
115	// Build the Query Path Frame
116
117	fHFrame1 = new TGHorizontalFrame(this, 100, 100, kRaisedFrame);
118	AddFrame(fHFrame1, new TGLayoutHints(kLHintsTop, 5,5,5,5));
119
120	fVFrame1 = new TGVerticalFrame(fHFrame1, 100, 50);
121	fHFrame1->AddFrame(fVFrame1, new TGLayoutHints(kLHintsLeft, 5,5,5,5));
122
123	fVFrame2 = new TGVerticalFrame(fHFrame1, 100, 50);
124	fHFrame1->AddFrame(fVFrame2, new TGLayoutHints(kLHintsRight, 5,5,5,5));
125
126	// fVFrame1, for the labels
127
128	fLabel1 = new TGLabel(fVFrame1, new TGString("Query Path"));
129	fVFrame1->AddFrame(fLabel1, new TGLayoutHints(kLHintsTop, 5,5,10,5));
130
131	fLabel2 = new TGLabel(fVFrame1, new TGString("Query Pattern"));
132	fVFrame1->AddFrame(fLabel2, new TGLayoutHints(kLHintsCenterY, 5,5,10,5));
133
134	fLabel3 = new TGLabel(fVFrame1, new TGString("Max. Results"));
135	fVFrame1->AddFrame(fLabel3, new TGLayoutHints(kLHintsCenterY, 5,5,10,5));
136
137	// fVFrame2 for the text boxes
138
139	fTextQueryPath = new TGTextEntry(fVFrame2, new TGTextBuffer(50));
140	fTextQueryPath->SetEnabled(false);
141	fVFrame2->AddFrame(fTextQueryPath,
142	new TGLayoutHints(kLHintsTop, 5,5,5,5));
143
144	fTextQueryPattern = new TGTextEntry(fVFrame2, new TGTextBuffer(20), 0);
145	fVFrame2->AddFrame(fTextQueryPattern,
146	new TGLayoutHints(kLHintsTop, 5,5,5,5));
147	fTextQueryPattern->SetText("*.root");
148
149	fNumMaxResults = new TGNumberEntry(fVFrame2, 100);
150	fNumMaxResults->SetLimits(TGNumberFormat::kNELLimitMin, 0);
151	fVFrame2->AddFrame(fNumMaxResults,
152	new TGLayoutHints(kLHintsTop, 5,5,5,5));
153
154	fButtonRun = new TGTextButton(fVFrame2, " Run ", 0);
155	fVFrame2->AddFrame(fButtonRun,
156	new TGLayoutHints(kLHintsRight, 0,5,0,0));
157
158	fButtonRun->Connect("Clicked()", "AliFileListFrame", this, "RunQuery()");
159	}
160
161	//___________________________________________________________________________
162	void AliFileListFrame::RunQuery() {
163	// Run Query
164
165	if(!gGrid)
166	return;
167
168	SetCleanup(kDeepCleanup);
169
170	fContents->Cleanup();
171
172	TGridResult *result = gGrid->Query(GetQueryPath(), GetQueryPattern());
173
174	if(!result)
175	return;
176
177	int nrows = result->GetEntries();
178	int ncols = fTags->GetEntries();
179
180	if(nrows == 0){ // there is nothing to show
181	TString msg = TString("The query of \"");
182	(msg+=GetQueryPattern())+="\" pattern is empty ";
183	new TGMsgBox(gClient->GetRoot(), this, "Empty query", msg.Data(), 0, kMBOk);
184	return;
185	}
186
187	//if(fTableLayout != NULL) delete fTableLayout;
188	fTableLayout = new TGTableLayout(fContents, nrows+1, ncols);
189	fContents->SetLayoutManager(fTableLayout);
190
191	Pixel_t white;
192	gClient->GetColorByName("white", white);
193
194	TObjString * tag;
195
196	for (int i=0; i < ncols; i++) {
197	for (int j=0; j < nrows; j++) {
198	tag = (TObjString*) (fTags->At(i));
199	TGLabel * label =
200	new TGLabel(fContents, new TGString(result->GetKey(j,tag->GetName())));
201	label->SetBackgroundColor(white);
202	TGTableLayoutHints *thint =
203	new TGTableLayoutHints(i,i+1,j+1,j+2, kLHintsExpandX \| kLHintsLeft, 5,30,5,5);
204	fContents->AddFrame(label,thint);
205	}//for_j
206	}//for_i
207
208	for (int j=0; j < ncols; j++) {
209	tag = (TObjString*) (fTags->At(j));
210	TGTextButton * button = new TGTextButton(fContents, tag->GetName(), 0);
211	TGTableLayoutHints *thint =
212	new TGTableLayoutHints(j,j+1,0,1, kLHintsFillX, 0,0,0,0);
213	fContents->AddFrame(button,thint);
214	}
215
216	MapSubwindows();
217	MapWindow();
218
219	Resize();
220	}
221
222	//___________________________________________________________________________
223	void AliFileListFrame::DisplayObject(const TString& fname,const TString& name) const {
224	// Browse object located in file.
225
226	TDirectory *sav = gDirectory;
227
228	static TFile *file = 0;
229	if (file) delete file; // close
230	file = new TFile(fname); // reopen
231
232	TObject* obj = file->Get(name);
233	if (obj) {
234	if (!obj->IsFolder()) {
235	obj->Browse(0);
236	} else obj->Print();
237	}
238	gDirectory = sav;
239	}
240
241	//___________________________________________________________________________
242	void AliFileListFrame::OnDoubleClick(TGLVEntry *f, Int_t btn) {
243	// Handle double click.
244
245	if (btn != kButton1) return;
246
247	// set kWatch cursor
248	ULong_t cur = gVirtualX->CreateCursor(kWatch);
249	gVirtualX->SetCursor(fContents->GetId(), cur);
250
251	TString name(f->GetTitle());
252	const char* fname = (const char*)f->GetUserData();
253
254	if (fname) {
255	DisplayObject(fname, name);
256	} else if (name.EndsWith(".root")) {
257	// DisplayFile(name);
258	} else {
259	// DisplayDirectory(name);
260	}
261
262	// set kPointer cursor
263	cur = gVirtualX->CreateCursor(kPointer);
264	gVirtualX->SetCursor(fContents->GetId(), cur);
265	}
266