Logo ROOT   6.30.04
Reference Guide
 All Namespaces Files Pages
TSessionDialogs.cxx
Go to the documentation of this file.
1 // @(#)root/sessionviewer:$Id$
2 // Author: Marek Biskup, Jakub Madejczyk, Bertrand Bellenot 10/08/2005
3 
4 /*************************************************************************
5  * Copyright (C) 1995-2005, Rene Brun and Fons Rademakers. *
6  * All rights reserved. *
7  * *
8  * For the licensing terms see $ROOTSYS/LICENSE. *
9  * For the list of contributors see $ROOTSYS/README/CREDITS. *
10  *************************************************************************/
11 
12 //////////////////////////////////////////////////////////////////////////
13 // //
14 // TSessionDialogs //
15 // //
16 // This file defines several dialogs that are used by TSessionViewer. //
17 // The following dialogs are available: TNewChainDlg and TNewQueryDlg. //
18 // //
19 //////////////////////////////////////////////////////////////////////////
20 
21 #include "TSessionDialogs.h"
22 #include "TSessionViewer.h"
23 #include "TROOT.h"
24 #include "TSystem.h"
25 #include "TGButton.h"
26 #include "TList.h"
27 #include "TChain.h"
28 #include "TDSet.h"
29 #include "TGTextEntry.h"
30 #include "TGTextBuffer.h"
31 #include "TGNumberEntry.h"
32 #include "TGLabel.h"
33 #include "TGListView.h"
34 #include "TGPicture.h"
35 #include "TGFSContainer.h"
36 #include "TGFileDialog.h"
37 #include "TGListTree.h"
38 #include "TInterpreter.h"
39 #include "TApplication.h"
40 #include "TKey.h"
41 #include "TGTableLayout.h"
42 #include "TGFileDialog.h"
43 #include "TProof.h"
44 #include "TFileInfo.h"
45 #include "TGMsgBox.h"
46 #include "TRegexp.h"
47 
48 ClassImp(TNewChainDlg);
49 ClassImp(TNewQueryDlg);
50 
51 /* not yet used
52 static const char *gParTypes[] = {
53  "Par files", "*.par",
54  "All files", "*",
55  0, 0
56 };
57 */
58 
59 static const char *gDatasetTypes[] = {
60  "ROOT files", "*.root",
61  "All files", "*",
62  0, 0
63 };
64 
65 static const char *gFileTypes[] = {
66  "C files", "*.[C|c]*",
67  "ROOT files", "*.root",
68  "All files", "*",
69  0, 0
70 };
71 
72 //////////////////////////////////////////////////////////////////////////
73 // New Chain Dialog
74 //////////////////////////////////////////////////////////////////////////
75 
76 ////////////////////////////////////////////////////////////////////////////////
77 /// Create a new chain dialog box. Used to list chains present in memory
78 /// and offers the possibility to create new ones by executing macros
79 /// directly from the associate file container.
80 
81 TNewChainDlg::TNewChainDlg(const TGWindow *p, const TGWindow *main) :
82  TGTransientFrame(p, main, 350, 300, kVerticalFrame)
83 {
84  Pixel_t backgnd;
85  if (!p || !main) return;
86  SetCleanup(kDeepCleanup);
87  fClient->GetColorByName("#F0FFF0", backgnd);
88  AddFrame(new TGLabel(this, new TGHotString("List of Chains in Memory :")),
89  new TGLayoutHints(kLHintsLeft, 5, 5, 7, 2) );
90 
91  // Add TGListView used to show objects in memory
92  fListView = new TGListView(this, 300, 100);
93  fLVContainer = new TGLVContainer(fListView, kSunkenFrame, GetWhitePixel());
94  fLVContainer->Associate(fListView);
95  fLVContainer->SetViewMode(kLVSmallIcons);
96  fLVContainer->SetCleanup(kDeepCleanup);
97  AddFrame(fListView, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY, 4, 4, 4, 4));
98 
99  fListView->Connect("Clicked(TGLVEntry*, Int_t)", "TNewChainDlg",
100  this, "OnElementClicked(TGLVEntry* ,Int_t)");
101 
102  // Add text entry showing type and name of user's selection
103  TGCompositeFrame* frmSel = new TGHorizontalFrame(this, 300, 100);
104  frmSel->SetCleanup(kDeepCleanup);
105  frmSel->AddFrame(new TGLabel(frmSel, new TGHotString("Selected chain :")),
106  new TGLayoutHints(kLHintsLeft | kLHintsCenterY, 5, 5, 5, 5) );
107  fNameBuf = new TGTextBuffer(100);
108  fName = new TGTextEntry(frmSel, fNameBuf);
109  fName->Resize(200, fName->GetDefaultHeight());
110  fName->Associate(this);
111  fName->SetEnabled(kFALSE);
112  fName->ChangeBackground(backgnd);
113  frmSel->AddFrame(fName, new TGLayoutHints(kLHintsLeft | kLHintsCenterY | kLHintsExpandX, 5, 5, 5, 5));
114  AddFrame(frmSel, new TGLayoutHints(kLHintsExpandX, 5, 5, 5, 5));
115 
116  AddFrame(new TGLabel(this, "Double-click on the macro to be executed to create a new Chain:"),
117  new TGLayoutHints(kLHintsCenterX, 5, 5, 5, 2));
118 
119  // Add TGListview / TGFileContainer to allow user to execute Macros
120  // for the creation of new TChains / TDSets
121  TGListView* lv = new TGListView(this, 300, 100);
122  AddFrame(lv,new TGLayoutHints(kLHintsExpandX | kLHintsExpandY, 5, 5, 2, 5));
123 
124  Pixel_t white;
125  gClient->GetColorByName("white",white);
126  fContents = new TGFileContainer(lv, kSunkenFrame, white);
127  fContents->SetCleanup(kDeepCleanup);
128  fContents->SetFilter("*.[C|c]*");
129  fContents->SetViewMode(kLVSmallIcons);
130  fContents->Associate(this);
131  fContents->SetDefaultHeaders();
132  fContents->DisplayDirectory();
133  fContents->AddFile(".."); // up level directory
134  fContents->Resize();
135  fContents->StopRefreshTimer(); // stop refreshing
136 
137  // position relative to the parent's window
138  Window_t wdummy;
139  Int_t ax, ay;
140  gVirtualX->TranslateCoordinates( main->GetId(),
141  fClient->GetDefaultRoot()->GetId(),
142  0, 0, ax, ay, wdummy);
143  Move(ax + 200, ay + 35);
144 
145  TGCompositeFrame *tmp;
146  AddFrame(tmp = new TGCompositeFrame(this, 140, 20, kHorizontalFrame),
147  new TGLayoutHints(kLHintsLeft | kLHintsExpandX));
148  tmp->SetCleanup(kDeepCleanup);
149  // Apply and Close buttons
150  tmp->AddFrame(fOkButton = new TGTextButton(tmp, "&Ok", 0),
151  new TGLayoutHints(kLHintsExpandX, 5, 5, 5, 5));
152  tmp->AddFrame(fCancelButton = new TGTextButton(tmp, "&Cancel", 1),
153  new TGLayoutHints(kLHintsExpandX, 5, 5, 5, 5));
154  fOkButton->Associate(this);
155  fCancelButton->Associate(this);
156  fOkButton->SetEnabled(kFALSE);
157 
158  SetWindowName("Chain Selection Dialog");
159  MapSubwindows();
160  Layout();
161  Resize(GetDefaultSize());
162  MapWindow();
163  UpdateList();
164 }
165 
166 ////////////////////////////////////////////////////////////////////////////////
167 /// Delete chain dialog.
168 
169 TNewChainDlg::~TNewChainDlg()
170 {
171  if (IsZombie()) return;
172  delete fLVContainer;
173  delete fContents;
174  Cleanup();
175 }
176 
177 ////////////////////////////////////////////////////////////////////////////////
178 /// Emits OnElementSelected signal if dset is not zero.
179 
180 void TNewChainDlg::OnElementSelected(TObject *obj)
181 {
182  if (obj && (obj->IsA() == TChain::Class() ||
183  obj->IsA() == TDSet::Class())) {
184  Emit("OnElementSelected(TObject *)", (Long_t)obj);
185  }
186 }
187 
188 ////////////////////////////////////////////////////////////////////////////////
189 /// Handle click in the Memory list view and put the type
190 /// and name of selected object in the text entry.
191 
192 void TNewChainDlg::OnElementClicked(TGLVEntry *entry, Int_t)
193 {
194  fChain = (TObject *)entry->GetUserData();
195  if (fChain->IsA() == TChain::Class()) {
196  TString s = TString::Format("%s : %s" , ((TChain *)fChain)->GetTitle(),
197  ((TChain *)fChain)->GetName());
198  fName->SetText(s);
199  }
200  else if (fChain->IsA() == TDSet::Class()) {
201  TString s = TString::Format("%s : %s" , ((TDSet *)fChain)->GetName(),
202  ((TDSet *)fChain)->GetObjName());
203  fName->SetText(s);
204  }
205  fOkButton->SetEnabled(kTRUE);
206 }
207 
208 ////////////////////////////////////////////////////////////////////////////////
209 /// Update Memory list view.
210 
211 void TNewChainDlg::UpdateList()
212 {
213  TGLVEntry *item=0;
214  TObject *obj = 0;
215  fChains = gROOT->GetListOfDataSets();
216  fLVContainer->RemoveAll();
217  if (!fChains) return;
218  TIter next(fChains);
219  // loop on the list of chains/datasets in memory,
220  // and fill the associated listview
221  while ((obj = (TObject *)next())) {
222  item = 0;
223  if (obj->IsA() == TChain::Class()) {
224  const char *title = ((TChain *)obj)->GetTitle();
225  if (!title[0])
226  ((TChain *)obj)->SetTitle("TChain");
227  item = new TGLVEntry(fLVContainer, ((TChain *)obj)->GetName(),
228  ((TChain *)obj)->GetTitle());
229  }
230  else if (obj->IsA() == TDSet::Class()) {
231  item = new TGLVEntry(fLVContainer, ((TDSet *)obj)->GetObjName(),
232  ((TDSet *)obj)->GetName());
233  }
234  if (item) {
235  item->SetUserData(obj);
236  fLVContainer->AddItem(item);
237  }
238  }
239  fClient->NeedRedraw(fLVContainer);
240  Resize();
241 }
242 
243 ////////////////////////////////////////////////////////////////////////////////
244 /// Display content of directory.
245 
246 void TNewChainDlg::DisplayDirectory(const TString &fname)
247 {
248  fContents->SetDefaultHeaders();
249  gSystem->ChangeDirectory(fname);
250  fContents->ChangeDirectory(fname);
251  fContents->DisplayDirectory();
252  fContents->AddFile(".."); // up level directory
253  Resize();
254 }
255 
256 ////////////////////////////////////////////////////////////////////////////////
257 /// Handle double click in the File container.
258 
259 void TNewChainDlg::OnDoubleClick(TGLVEntry* f, Int_t btn)
260 {
261  if (btn!=kButton1) return;
262  gVirtualX->SetCursor(fContents->GetId(),gVirtualX->CreateCursor(kWatch));
263 
264  TString name(f->GetTitle());
265 
266  // Check if the file is a root macro file type
267  if (name.Contains(".C")) {
268  // form the command
269  TString command = TString::Format(".x %s/%s",
270  gSystem->UnixPathName(fContents->GetDirectory()),
271  name.Data());
272  // and process
273  gApplication->ProcessLine(command.Data());
274  UpdateList();
275  } else {
276  // if double clicked on a directory, then display it
277  DisplayDirectory(name);
278  }
279  gVirtualX->SetCursor(fContents->GetId(),gVirtualX->CreateCursor(kPointer));
280 }
281 
282 ////////////////////////////////////////////////////////////////////////////////
283 /// Process messages for new chain dialog.
284 
285 Bool_t TNewChainDlg::ProcessMessage(Long_t msg, Long_t parm1, Long_t)
286 {
287  switch (GET_MSG(msg)) {
288  case kC_COMMAND:
289  switch (GET_SUBMSG(msg)) {
290  case kCM_BUTTON:
291  switch (parm1) {
292 
293  case 0:
294  // Apply button
295  fOkButton->SetEnabled(kFALSE);
296  OnElementSelected(fChain);
297  DeleteWindow();
298  break;
299 
300  case 1:
301  // Close button
302  fChain = 0;
303  DeleteWindow();
304  break;
305  }
306  break;
307  default:
308  break;
309  }
310  break;
311 
312  case kC_CONTAINER:
313  switch (GET_SUBMSG(msg)) {
314  case kCT_ITEMDBLCLICK:
315  if (parm1==kButton1) {
316  TGLVEntry *lv_entry = (TGLVEntry *)fContents->GetLastActive();
317  if (lv_entry) OnDoubleClick(lv_entry, parm1);
318  }
319  break;
320  }
321  break;
322  default:
323  break;
324  }
325  return kTRUE;
326 }
327 
328 ////////////////////////////////////////////////////////////////////////////////
329 /// Close file dialog.
330 
331 void TNewChainDlg::CloseWindow()
332 {
333  DeleteWindow();
334 }
335 
336 
337 //////////////////////////////////////////////////////////////////////////
338 // New Query Dialog
339 //////////////////////////////////////////////////////////////////////////
340 
341 ////////////////////////////////////////////////////////////////////////////////
342 /// Create a new Query dialog, used by the Session Viewer, to Edit a Query if
343 /// the editmode flag is set, or to create a new one if not set.
344 
345 TNewQueryDlg::TNewQueryDlg(TSessionViewer *gui, Int_t Width, Int_t Height,
346  TQueryDescription *query, Bool_t editmode) :
347  TGTransientFrame(gClient->GetRoot(), gui, Width, Height)
348 {
349  Window_t wdummy;
350  Int_t ax, ay;
351  fEditMode = editmode;
352  fModified = kFALSE;
353  fChain = 0;
354  fQuery = query;
355  if (fQuery && fQuery->fChain) {
356  fChain = fQuery->fChain;
357  }
358  Build(gui);
359  // if in edit mode, update fields with query description data
360  if (editmode && query)
361  UpdateFields(query);
362  else if (!editmode) {
363  TQueryDescription *fquery;
364  fquery = (TQueryDescription *)fViewer->GetActDesc()->fQueries->Last();
365  if(fquery)
366  fTxtQueryName->SetText(fquery->fQueryName);
367  else
368  fTxtQueryName->SetText("Query 1");
369  }
370  MapSubwindows();
371  Resize(Width, Height);
372  // hide options frame
373  fFrmNewQuery->HideFrame(fFrmMore);
374  fBtnMore->SetText(" More >> ");
375  SetWMSizeHints(Width+5, Height+25, Width+5, Height+25, 1, 1);
376  ChangeOptions(GetOptions() | kFixedSize);
377  Layout();
378  SetWindowName("Query Dialog");
379  // Position relative to parent
380  gVirtualX->TranslateCoordinates( fViewer->GetId(),
381  fClient->GetDefaultRoot()->GetId(),
382  0, 0, ax, ay, wdummy);
383  Move(ax + fViewer->GetWidth()/2, ay + 35);
384 }
385 
386 ////////////////////////////////////////////////////////////////////////////////
387 /// Delete query dialog.
388 
389 TNewQueryDlg::~TNewQueryDlg()
390 {
391  if (IsZombie()) return;
392  Cleanup();
393 }
394 
395 ////////////////////////////////////////////////////////////////////////////////
396 /// Build the "new query" dialog.
397 
398 void TNewQueryDlg::Build(TSessionViewer *gui)
399 {
400  TGButton* btnTmp;
401  fViewer = gui;
402  SetLayoutManager(new TGVerticalLayout(this));
403  SetCleanup(kDeepCleanup);
404  SetMinWidth(500);
405  fFrmNewQuery = new TGGroupFrame(this, "New Query");
406  fFrmNewQuery->SetCleanup(kDeepCleanup);
407 
408  AddFrame(fFrmNewQuery, new TGLayoutHints(kLHintsExpandX |
409  kLHintsExpandY, 2, 2, 2, 2));
410  fFrmNewQuery->SetLayoutManager(new TGTableLayout(fFrmNewQuery, 6, 5));
411 
412  // add "Query Name" label and text entry
413  fFrmNewQuery->AddFrame(new TGLabel(fFrmNewQuery, "Query Name :"),
414  new TGTableLayoutHints(0, 1, 0, 1, kLHintsCenterY, 0, 5, 4, 0));
415  fFrmNewQuery->AddFrame(fTxtQueryName = new TGTextEntry(fFrmNewQuery,
416  (const char *)0, 1), new TGTableLayoutHints(1, 2, 0, 1,
417  kLHintsCenterY, 5, 5, 4, 0));
418 
419  // add "TChain" label and text entry
420  fFrmNewQuery->AddFrame(new TGLabel(fFrmNewQuery, "TChain :"),
421  new TGTableLayoutHints(0, 1, 1, 2, kLHintsCenterY, 0, 5, 4, 0));
422  fFrmNewQuery->AddFrame(fTxtChain = new TGTextEntry(fFrmNewQuery,
423  (const char *)0, 2), new TGTableLayoutHints(1, 2, 1, 2,
424  kLHintsCenterY, 5, 5, 4, 0));
425  fTxtChain->SetToolTipText("Specify TChain or TDSet from memory or file");
426  fTxtChain->SetEnabled(kFALSE);
427  // add "Browse" button
428  fFrmNewQuery->AddFrame(btnTmp = new TGTextButton(fFrmNewQuery, "Browse..."),
429  new TGTableLayoutHints(2, 3, 1, 2, kLHintsCenterY, 5, 0, 4, 8));
430  btnTmp->Connect("Clicked()", "TNewQueryDlg", this, "OnBrowseChain()");
431 
432  // add "Selector" label and text entry
433  fFrmNewQuery->AddFrame(new TGLabel(fFrmNewQuery, "Selector :"),
434  new TGTableLayoutHints(0, 1, 2, 3, kLHintsCenterY, 0, 5, 0, 0));
435  fFrmNewQuery->AddFrame(fTxtSelector = new TGTextEntry(fFrmNewQuery,
436  (const char *)0, 3), new TGTableLayoutHints(1, 2, 2, 3,
437  kLHintsCenterY, 5, 5, 0, 0));
438  // add "Browse" button
439  fFrmNewQuery->AddFrame(btnTmp = new TGTextButton(fFrmNewQuery, "Browse..."),
440  new TGTableLayoutHints(2, 3, 2, 3, kLHintsCenterY, 5, 0, 0, 8));
441  btnTmp->Connect("Clicked()", "TNewQueryDlg", this, "OnBrowseSelector()");
442 
443  // add "Less <<" ("More >>") button
444  fFrmNewQuery->AddFrame(fBtnMore = new TGTextButton(fFrmNewQuery, " Less << "),
445  new TGTableLayoutHints(2, 3, 4, 5, kLHintsCenterY, 5, 5, 4, 0));
446  fBtnMore->Connect("Clicked()", "TNewQueryDlg", this, "OnNewQueryMore()");
447 
448  // add (initially hidden) options frame
449  fFrmMore = new TGCompositeFrame(fFrmNewQuery, 200, 200);
450  fFrmMore->SetCleanup(kDeepCleanup);
451 
452  fFrmNewQuery->AddFrame(fFrmMore, new TGTableLayoutHints(0, 3, 5, 6,
453  kLHintsExpandX | kLHintsExpandY));
454  fFrmMore->SetLayoutManager(new TGTableLayout(fFrmMore, 4, 3));
455 
456  // add "Options" label and text entry
457  fFrmMore->AddFrame(new TGLabel(fFrmMore, "Options :"),
458  new TGTableLayoutHints(0, 1, 0, 1, kLHintsCenterY, 0, 5, 0, 0));
459  fFrmMore->AddFrame(fTxtOptions = new TGTextEntry(fFrmMore,
460  (const char *)0, 4), new TGTableLayoutHints(1, 2, 0, 1, 0, 22,
461  0, 0, 8));
462  fTxtOptions->SetText("ASYN");
463 
464  // add "Nb Entries" label and number entry
465  fFrmMore->AddFrame(new TGLabel(fFrmMore, "Nb Entries :"),
466  new TGTableLayoutHints(0, 1, 1, 2, kLHintsCenterY, 0, 5, 0, 0));
467  fFrmMore->AddFrame(fNumEntries = new TGNumberEntry(fFrmMore, 0, 5, -1,
468  TGNumberFormat::kNESInteger, TGNumberFormat::kNEAAnyNumber,
469  TGNumberFormat::kNELNoLimits), new TGTableLayoutHints(1, 2, 1, 2,
470  0, 22, 0, 0, 8));
471  // coverity[negative_returns]: no problem with -1, the format is kNESInteger
472  fNumEntries->SetIntNumber(-1);
473  // add "First Entry" label and number entry
474  fFrmMore->AddFrame(new TGLabel(fFrmMore, "First entry :"),
475  new TGTableLayoutHints(0, 1, 2, 3, kLHintsCenterY, 0, 5, 0, 0));
476  fFrmMore->AddFrame(fNumFirstEntry = new TGNumberEntry(fFrmMore, 0, 5, -1,
477  TGNumberFormat::kNESInteger, TGNumberFormat::kNEANonNegative,
478  TGNumberFormat::kNELNoLimits), new TGTableLayoutHints(1, 2, 2, 3, 0,
479  22, 0, 0, 8));
480 
481  // add "Event list" label and text entry
482  fFrmMore->AddFrame(new TGLabel(fFrmMore, "Event list :"),
483  new TGTableLayoutHints(0, 1, 3, 4, kLHintsCenterY, 0, 5, 0, 0));
484  fFrmMore->AddFrame(fTxtEventList = new TGTextEntry(fFrmMore,
485  (const char *)0, 6), new TGTableLayoutHints(1, 2, 3, 4, 0, 22,
486  5, 0, 0));
487  // add "Browse" button
488  fFrmMore->AddFrame(btnTmp = new TGTextButton(fFrmMore, "Browse..."),
489  new TGTableLayoutHints(2, 3, 3, 4, 0, 6, 0, 0, 8));
490  btnTmp->Connect("Clicked()", "TNewQueryDlg", this, "OnBrowseEventList()");
491 
492  fTxtQueryName->Associate(this);
493  fTxtChain->Associate(this);
494  fTxtSelector->Associate(this);
495  fTxtOptions->Associate(this);
496  fNumEntries->Associate(this);
497  fNumFirstEntry->Associate(this);
498  fTxtEventList->Associate(this);
499 
500  fTxtQueryName->Connect("TextChanged(char*)", "TNewQueryDlg", this,
501  "SettingsChanged()");
502  fTxtChain->Connect("TextChanged(char*)", "TNewQueryDlg", this,
503  "SettingsChanged()");
504  fTxtSelector->Connect("TextChanged(char*)", "TNewQueryDlg", this,
505  "SettingsChanged()");
506  fTxtOptions->Connect("TextChanged(char*)", "TNewQueryDlg", this,
507  "SettingsChanged()");
508  fNumEntries->Connect("ValueChanged(Long_t)", "TNewQueryDlg", this,
509  "SettingsChanged()");
510  fNumFirstEntry->Connect("ValueChanged(Long_t)", "TNewQueryDlg", this,
511  "SettingsChanged()");
512  fTxtEventList->Connect("TextChanged(char*)", "TNewQueryDlg", this,
513  "SettingsChanged()");
514 
515  TGCompositeFrame *tmp;
516  AddFrame(tmp = new TGCompositeFrame(this, 140, 20, kHorizontalFrame),
517  new TGLayoutHints(kLHintsLeft | kLHintsExpandX));
518  tmp->SetCleanup(kDeepCleanup);
519  // Add "Save" and "Save & Submit" buttons if we are in edition mode
520  // or "Add" and "Add & Submit" if we are not in edition mode.
521  if (fEditMode) {
522  fBtnSave = new TGTextButton(tmp, "Save");
523  fBtnSubmit = new TGTextButton(tmp, "Save && Submit");
524  }
525  else {
526  fBtnSave = new TGTextButton(tmp, "Add");
527  fBtnSubmit = new TGTextButton(tmp, "Add && Submit");
528  }
529  tmp->AddFrame(fBtnSave, new TGLayoutHints(kLHintsLeft | kLHintsExpandX,
530  3, 3, 3, 3));
531  tmp->AddFrame(fBtnSubmit, new TGLayoutHints(kLHintsLeft | kLHintsExpandX,
532  3, 3, 3, 3));
533  fBtnSave->Connect("Clicked()", "TNewQueryDlg", this, "OnBtnSaveClicked()");
534  fBtnSubmit->Connect("Clicked()", "TNewQueryDlg", this, "OnBtnSubmitClicked()");
535  tmp->AddFrame(fBtnClose = new TGTextButton(tmp, "Close"),
536  new TGLayoutHints(kLHintsLeft | kLHintsExpandX, 3, 3, 3, 3));
537  fBtnClose->Connect("Clicked()", "TNewQueryDlg", this, "OnBtnCloseClicked()");
538  fBtnSave->SetState(kButtonDisabled);
539  fBtnSubmit->SetState(kButtonDisabled);
540 }
541 
542 ////////////////////////////////////////////////////////////////////////////////
543 /// Called when window is closed via the window manager.
544 
545 void TNewQueryDlg::CloseWindow()
546 {
547  DeleteWindow();
548 }
549 
550 ////////////////////////////////////////////////////////////////////////////////
551 /// Show/hide options frame and update button text accordingly.
552 
553 void TNewQueryDlg::OnNewQueryMore()
554 {
555  if (fFrmNewQuery->IsVisible(fFrmMore)) {
556  fFrmNewQuery->HideFrame(fFrmMore);
557  fBtnMore->SetText(" More >> ");
558  }
559  else {
560  fFrmNewQuery->ShowFrame(fFrmMore);
561  fBtnMore->SetText(" Less << ");
562  }
563 }
564 
565 ////////////////////////////////////////////////////////////////////////////////
566 /// Call new chain dialog.
567 
568 void TNewQueryDlg::OnBrowseChain()
569 {
570  TNewChainDlg *dlg = new TNewChainDlg(fClient->GetRoot(), this);
571  dlg->Connect("OnElementSelected(TObject *)", "TNewQueryDlg",
572  this, "OnElementSelected(TObject *)");
573 }
574 
575 ////////////////////////////////////////////////////////////////////////////////
576 /// Handle OnElementSelected signal coming from new chain dialog.
577 
578 void TNewQueryDlg::OnElementSelected(TObject *obj)
579 {
580  if (obj) {
581  fChain = obj;
582  if (obj->IsA() == TChain::Class())
583  fTxtChain->SetText(((TChain *)fChain)->GetName());
584  else if (obj->IsA() == TDSet::Class())
585  fTxtChain->SetText(((TDSet *)fChain)->GetObjName());
586  }
587 }
588 
589 ////////////////////////////////////////////////////////////////////////////////
590 /// Open file browser to choose selector macro.
591 
592 void TNewQueryDlg::OnBrowseSelector()
593 {
594  TGFileInfo fi;
595  fi.fFileTypes = gFileTypes;
596  new TGFileDialog(fClient->GetRoot(), this, kFDOpen, &fi);
597  if (!fi.fFilename) return;
598  fTxtSelector->SetText(gSystem->UnixPathName(fi.fFilename));
599 }
600 
601 ////////////////////////////////////////////////////////////////////////////////
602 ///Browse event list
603 
604 void TNewQueryDlg::OnBrowseEventList()
605 {
606 }
607 
608 ////////////////////////////////////////////////////////////////////////////////
609 /// Save current settings in main session viewer.
610 
611 void TNewQueryDlg::OnBtnSaveClicked()
612 {
613  // if we are in edition mode and query description is valid,
614  // use it, otherwise create a new one
615  TQueryDescription *newquery;
616  if (fEditMode && fQuery)
617  newquery = fQuery;
618  else
619  newquery = new TQueryDescription();
620 
621  // update query description fields
622  newquery->fSelectorString = fTxtSelector->GetText();
623  if (fChain) {
624  newquery->fTDSetString = fChain->GetName();
625  newquery->fChain = fChain;
626  }
627  else {
628  newquery->fTDSetString = "";
629  newquery->fChain = 0;
630  }
631  newquery->fQueryName = fTxtQueryName->GetText();
632  newquery->fOptions.Form("%s",fTxtOptions->GetText());
633  newquery->fNoEntries = fNumEntries->GetIntNumber();
634  newquery->fFirstEntry = fNumFirstEntry->GetIntNumber();
635  newquery->fNbFiles = 0;
636  newquery->fResult = 0;
637 
638  if (newquery->fChain) {
639  if (newquery->fChain->IsA() == TChain::Class())
640  newquery->fNbFiles = ((TChain *)newquery->fChain)->GetListOfFiles()->GetEntriesFast();
641  else if (newquery->fChain->IsA() == TDSet::Class())
642  newquery->fNbFiles = ((TDSet *)newquery->fChain)->GetListOfElements()->GetSize();
643  }
644  if (!fEditMode) {
645  // if not in editor mode, create a new list tree item
646  // and set user data to the newly created query description
647  newquery->fResult = 0;
648  newquery->fStatus = TQueryDescription::kSessionQueryCreated;
649 
650  TQueryDescription *fquery;
651  fquery = (TQueryDescription *)fViewer->GetActDesc()->fQueries->FindObject(newquery->fQueryName);
652  while (fquery) {
653  int e = 1, j = 0, idx = 0;
654  const char *name = fquery->fQueryName;
655  for (int i=strlen(name)-1;i>0;i--) {
656  if (isdigit(name[i])) {
657  idx += (name[i]-'0') * e;
658  e *= 10;
659  j++;
660  }
661  else
662  break;
663  }
664  if (idx > 0) {
665  idx++;
666  newquery->fQueryName.Remove(strlen(name)-j,j);
667  newquery->fQueryName.Append(Form("%d",idx));
668  }
669  else
670  newquery->fQueryName.Append(" 1");
671  fquery = (TQueryDescription *)fViewer->GetActDesc()->fQueries->FindObject(newquery->fQueryName);
672  }
673  fTxtQueryName->SetText(newquery->fQueryName);
674  fViewer->GetActDesc()->fQueries->Add((TObject *)newquery);
675  TGListTreeItem *item = fViewer->GetSessionHierarchy()->FindChildByData(
676  fViewer->GetSessionItem(), fViewer->GetActDesc());
677  TGListTreeItem *item2 = fViewer->GetSessionHierarchy()->AddItem(item,
678  newquery->fQueryName, fViewer->GetQueryConPict(), fViewer->GetQueryConPict());
679  item2->SetUserData(newquery);
680  fViewer->GetSessionHierarchy()->OpenItem(item);
681  fViewer->GetSessionHierarchy()->ClearHighlighted();
682  fViewer->GetSessionHierarchy()->HighlightItem(item2);
683  fViewer->GetSessionHierarchy()->SetSelected(item2);
684  fViewer->OnListTreeClicked(item2, 1, 0, 0);
685  }
686  else {
687  // else if in editor mode, just update user data with modified
688  // query description
689  TGListTreeItem *item = fViewer->GetSessionHierarchy()->GetSelected();
690  fViewer->GetSessionHierarchy()->RenameItem(item, newquery->fQueryName);
691  item->SetUserData(newquery);
692  }
693  // update list tree
694  fClient->NeedRedraw(fViewer->GetSessionHierarchy());
695  fTxtQueryName->SelectAll();
696  fTxtQueryName->SetFocus();
697  fViewer->WriteConfiguration();
698  fModified = kFALSE;
699 }
700 
701 ////////////////////////////////////////////////////////////////////////////////
702 /// Save and submit query description.
703 
704 void TNewQueryDlg::OnBtnSubmitClicked()
705 {
706  OnBtnSaveClicked();
707  fViewer->GetQueryFrame()->OnBtnSubmit();
708 }
709 
710 ////////////////////////////////////////////////////////////////////////////////
711 /// Close dialog.
712 
713 void TNewQueryDlg::OnBtnCloseClicked()
714 {
715  Int_t result = kMBNo;
716  if (fModified) {
717  new TGMsgBox(fClient->GetRoot(), this, "Modified Settings",
718  "Do you wish to SAVE changes ?", 0,
719  kMBYes | kMBNo | kMBCancel, &result);
720  if (result == kMBYes) {
721  OnBtnSaveClicked();
722  }
723  }
724  if (result == kMBNo) {
725  DeleteWindow();
726  }
727 }
728 
729 ////////////////////////////////////////////////////////////////////////////////
730 /// Display dialog and set focus to query name text entry.
731 
732 void TNewQueryDlg::Popup()
733 {
734  MapWindow();
735  fTxtQueryName->SetFocus();
736 }
737 
738 ////////////////////////////////////////////////////////////////////////////////
739 /// Settings have changed, update GUI accordingly.
740 
741 void TNewQueryDlg::SettingsChanged()
742 {
743  if (fEditMode && fQuery) {
744  if ((strcmp(fQuery->fSelectorString.Data(), fTxtSelector->GetText())) ||
745  (strcmp(fQuery->fQueryName.Data(), fTxtQueryName->GetText())) ||
746  (strcmp(fQuery->fOptions.Data(), fTxtOptions->GetText())) ||
747  (fQuery->fNoEntries != fNumEntries->GetIntNumber()) ||
748  (fQuery->fFirstEntry != fNumFirstEntry->GetIntNumber()) ||
749  (fQuery->fChain != fChain)) {
750  fModified = kTRUE;
751  }
752  else {
753  fModified = kFALSE;
754  }
755  }
756  else {
757  if ((fTxtQueryName->GetText()) &&
758  ((fTxtQueryName->GetText()) ||
759  (fTxtChain->GetText())))
760  fModified = kTRUE;
761  else
762  fModified = kFALSE;
763  }
764  if (fModified) {
765  fBtnSave->SetState(kButtonUp);
766  fBtnSubmit->SetState(kButtonUp);
767  }
768  else {
769  fBtnSave->SetState(kButtonDisabled);
770  fBtnSubmit->SetState(kButtonDisabled);
771  }
772 }
773 
774 ////////////////////////////////////////////////////////////////////////////////
775 /// Update entry fields with query description values.
776 
777 void TNewQueryDlg::UpdateFields(TQueryDescription *desc)
778 {
779  fQuery = desc;
780  fTxtQueryName->SetText(desc->fQueryName);
781  fTxtChain->SetText("");
782  if (desc->fChain)
783  fTxtChain->SetText(desc->fTDSetString);
784  fTxtSelector->SetText(desc->fSelectorString);
785  fTxtOptions->SetText(desc->fOptions);
786  fNumEntries->SetIntNumber(desc->fNoEntries);
787  fNumFirstEntry->SetIntNumber(desc->fFirstEntry);
788  fTxtEventList->SetText(desc->fEventList);
789 }
790 ////////////////////////////////////////////////////////////////////////////////
791 /// Process messages for new query dialog.
792 /// Essentially used to navigate between text entry fields.
793 
794 Bool_t TNewQueryDlg::ProcessMessage(Long_t msg, Long_t parm1, Long_t)
795 {
796  switch (GET_MSG(msg)) {
797  case kC_TEXTENTRY:
798  switch (GET_SUBMSG(msg)) {
799  case kTE_ENTER:
800  case kTE_TAB:
801  switch (parm1) {
802  case 1: // Query Name
803  fTxtChain->SelectAll();
804  fTxtChain->SetFocus();
805  break;
806  case 2: // Chain Name
807  fTxtSelector->SelectAll();
808  fTxtSelector->SetFocus();
809  break;
810  case 3: // Selector Name
811  fTxtOptions->SelectAll();
812  fTxtOptions->SetFocus();
813  break;
814  case 4: // Options
815  fTxtEventList->SelectAll();
816  fTxtEventList->SetFocus();
817  break;
818  case 6: // Event List
819  fTxtQueryName->SelectAll();
820  fTxtQueryName->SetFocus();
821  break;
822  }
823  break;
824 
825  default:
826  break;
827  }
828  break;
829 
830  default:
831  break;
832  }
833  return kTRUE;
834 }
835 
836 //////////////////////////////////////////////////////////////////////////
837 // Upload DataSet Dialog
838 //////////////////////////////////////////////////////////////////////////
839 
840 ////////////////////////////////////////////////////////////////////////////////
841 /// Create a Upload DataSet dialog box. Used to create and upload a dataset
842 
843 TUploadDataSetDlg::TUploadDataSetDlg(TSessionViewer *gui, Int_t w, Int_t h) :
844  TGTransientFrame(gClient->GetRoot(), gui, w, h)
845 {
846  fUploading = kFALSE;
847  if (!gui) return;
848  fViewer = gui;
849 
850  SetCleanup(kDeepCleanup);
851  TGHorizontalFrame *hFrame1 = new TGHorizontalFrame(this);
852  hFrame1->SetCleanup(kDeepCleanup);
853  hFrame1->AddFrame(new TGLabel(hFrame1,"Name of DataSet :"),
854  new TGLayoutHints(kLHintsLeft | kLHintsCenterY,
855  10, 10, 5, 5));
856  fDSetName = new TGTextEntry(hFrame1, new TGTextBuffer(50));
857  fDSetName->SetText("DataSet1");
858  fDSetName->Resize(150, fDSetName->GetDefaultHeight());
859  hFrame1->AddFrame(fDSetName, new TGLayoutHints(kLHintsLeft | kLHintsCenterY,
860  10, 10, 5, 5));
861  AddFrame(hFrame1, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX,
862  2, 2, 2, 2));
863 
864  // "DataSet Files" group frame
865  TGGroupFrame *groupFrame1 = new TGGroupFrame(this, "DataSet Files");
866  groupFrame1->SetCleanup(kDeepCleanup);
867 
868  // horizontal frame for files location URL
869  TGHorizontalFrame *hFrame11 = new TGHorizontalFrame(groupFrame1);
870  hFrame11->SetCleanup(kDeepCleanup);
871  hFrame11->AddFrame(new TGLabel(hFrame11,"Location URL :"),
872  new TGLayoutHints(kLHintsLeft | kLHintsCenterY,
873  10, 10, 5, 5));
874  fLocationURL = new TGTextEntry(hFrame11, new TGTextBuffer(150));
875  fLocationURL->SetToolTipText("Enter location URL (i.e \"root://host//path/to/file.root\")");
876  fLocationURL->Resize(210, fLocationURL->GetDefaultHeight());
877  hFrame11->AddFrame(fLocationURL, new TGLayoutHints(kLHintsLeft |
878  kLHintsCenterY, 10, 10, 5, 5));
879  fAddButton = new TGTextButton(hFrame11, " Add >> ", 0);
880  fAddButton->SetToolTipText("Add file(s) to the list");
881  fAddButton->Associate(this);
882  hFrame11->AddFrame(fAddButton, new TGLayoutHints(kLHintsLeft | kLHintsCenterY |
883  kLHintsExpandX, 5, 10, 5, 5));
884  groupFrame1->AddFrame(hFrame11, new TGLayoutHints(kLHintsLeft | kLHintsTop |
885  kLHintsExpandX, 2, 2, 2, 2));
886  // horizontal frame for the list view displaying list of files
887  // and for a vertical frame with control buttons
888  TGHorizontalFrame *hFrame2 = new TGHorizontalFrame(groupFrame1);
889  hFrame2->SetCleanup(kDeepCleanup);
890 
891  // list view
892  // Add TGListView used to show list of files
893  fListView = new TGListView(hFrame2, 300, 100);
894  fLVContainer = new TGLVContainer(fListView, kSunkenFrame, GetWhitePixel());
895  fLVContainer->Associate(fListView);
896  fLVContainer->SetViewMode(kLVDetails);
897  fLVContainer->SetCleanup(kDeepCleanup);
898  fLVContainer->SetHeaders(1);
899  fLVContainer->SetHeader("File Name", kTextLeft, kTextLeft , 0);
900  hFrame2->AddFrame(fListView, new TGLayoutHints(kLHintsLeft | kLHintsTop |
901  kLHintsExpandX | kLHintsExpandY, 2, 2, 10, 10));
902 
903  // vertical frame for control buttons
904  TGVerticalFrame *vFrame1 = new TGVerticalFrame(hFrame2);
905  vFrame1->SetCleanup(kDeepCleanup);
906 
907  fBrowseButton = new TGTextButton(vFrame1, " Browse... ", 1);
908  fBrowseButton->SetToolTipText("Add file(s) to the list");
909  fBrowseButton->Associate(this);
910  vFrame1->AddFrame(fBrowseButton, new TGLayoutHints(kLHintsLeft | kLHintsTop |
911  kLHintsExpandX, 15, 5, 5, 5));
912  fRemoveButton = new TGTextButton(vFrame1, " Remove ", 2);
913  fRemoveButton->SetToolTipText("Remove selected file from the list");
914  fRemoveButton->Associate(this);
915  vFrame1->AddFrame(fRemoveButton, new TGLayoutHints(kLHintsLeft | kLHintsTop |
916  kLHintsExpandX, 15, 5, 5, 5));
917  fClearButton = new TGTextButton(vFrame1, " Clear ", 3);
918  fClearButton->SetToolTipText("Clear list of files");
919  fClearButton->Associate(this);
920  vFrame1->AddFrame(fClearButton, new TGLayoutHints(kLHintsLeft | kLHintsTop |
921  kLHintsExpandX, 15, 5, 5, 5));
922 
923  fOverwriteDSet = new TGCheckButton(vFrame1, "Overwrite DataSet");
924  fOverwriteDSet->SetToolTipText("Overwrite DataSet");
925  vFrame1->AddFrame(fOverwriteDSet, new TGLayoutHints(kLHintsLeft | kLHintsTop |
926  kLHintsExpandX, 15, 5, 5, 5));
927  fOverwriteFiles = new TGCheckButton(vFrame1, "Overwrite Files");
928  fOverwriteFiles->SetToolTipText("Overwrite files in DataSet");
929  vFrame1->AddFrame(fOverwriteFiles, new TGLayoutHints(kLHintsLeft | kLHintsTop |
930  kLHintsExpandX, 15, 5, 5, 5));
931  fAppendFiles = new TGCheckButton(vFrame1, "Append Files");
932  fAppendFiles->SetToolTipText("Append files in DataSet");
933  vFrame1->AddFrame(fAppendFiles, new TGLayoutHints(kLHintsLeft | kLHintsTop |
934  kLHintsExpandX, 15, 5, 5, 5));
935 
936  fOverwriteDSet->Connect("Toggled(Bool_t)", "TUploadDataSetDlg", this,
937  "OnOverwriteDataset(Bool_t)");
938  fOverwriteFiles->Connect("Toggled(Bool_t)", "TUploadDataSetDlg", this,
939  "OnOverwriteFiles(Bool_t)");
940  fAppendFiles->Connect("Toggled(Bool_t)", "TUploadDataSetDlg", this,
941  "OnAppendFiles(Bool_t)");
942 
943  hFrame2->AddFrame(vFrame1, new TGLayoutHints(kLHintsRight | kLHintsTop |
944  kLHintsExpandY, 2, 2, 2, 2));
945  groupFrame1->AddFrame(hFrame2, new TGLayoutHints(kLHintsLeft | kLHintsTop |
946  kLHintsExpandX | kLHintsExpandY, 2, 2, 2, 2));
947 
948  AddFrame(groupFrame1, new TGLayoutHints(kLHintsLeft | kLHintsTop |
949  kLHintsExpandX, 5, 5, 2, 2));
950 
951  // horizontal frame for destination URL
952  TGHorizontalFrame *hFrame3 = new TGHorizontalFrame(this);
953  hFrame3->SetCleanup(kDeepCleanup);
954  hFrame3->AddFrame(new TGLabel(hFrame3,"Destination URL :"),
955  new TGLayoutHints(kLHintsLeft | kLHintsCenterY,
956  15, 10, 5, 5));
957  fDestinationURL = new TGTextEntry(hFrame3, new TGTextBuffer(150));
958  if (fViewer->GetActDesc()->fConnected &&
959  fViewer->GetActDesc()->fAttached &&
960  fViewer->GetActDesc()->fProof &&
961  fViewer->GetActDesc()->fProof->IsValid()) {
962  // const char *dest = fViewer->GetActDesc()->fProof->GetDataPoolUrl();
963  // fDestinationURL->SetText(dest);
964  }
965  fDestinationURL->SetToolTipText("Enter destination URL ( relative to \" root://host//proofpool/user/ \" )");
966  fDestinationURL->Resize(305, fDestinationURL->GetDefaultHeight());
967  hFrame3->AddFrame(fDestinationURL, new TGLayoutHints(kLHintsLeft |
968  kLHintsCenterY, 10, 15, 5, 5));
969  AddFrame(hFrame3, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX,
970  2, 2, 2, 2));
971 
972  // horizontal frame for upload and close buttons
973  TGHorizontalFrame *hFrame4 = new TGHorizontalFrame(this);
974  hFrame4->SetCleanup(kDeepCleanup);
975  fUploadButton = new TGTextButton(hFrame4, "Upload DataSet", 10);
976  fUploadButton->SetToolTipText("Upload the dataset to the cluster");
977  fUploadButton->Associate(this);
978  hFrame4->AddFrame(fUploadButton, new TGLayoutHints(kLHintsLeft | kLHintsCenterY |
979  kLHintsExpandX, 15, 15, 2, 2));
980  fCloseDlgButton = new TGTextButton(hFrame4, "Close Dialog", 11);
981  fCloseDlgButton->SetToolTipText("Close the dialog");
982  fCloseDlgButton->Associate(this);
983  hFrame4->AddFrame(fCloseDlgButton, new TGLayoutHints(kLHintsLeft | kLHintsCenterY |
984  kLHintsExpandX, 15, 15, 2, 2));
985  AddFrame(hFrame4, new TGLayoutHints(kLHintsLeft | kLHintsTop | kLHintsExpandX,
986  2, 2, 2, 2));
987 
988  // position relative to the parent's window
989  Window_t wdummy;
990  Int_t ax, ay;
991  gVirtualX->TranslateCoordinates( gui->GetId(),
992  fClient->GetDefaultRoot()->GetId(),
993  0, 0, ax, ay, wdummy);
994  Move(ax + 250, ay + 200);
995 
996  SetWindowName("Upload DataSet Dialog");
997  MapSubwindows();
998  MapWindow();
999 
1000  Resize(w, h);
1001  SetWMSizeHints(w+5, h+5, w+5, h+5, 1, 1);
1002  ChangeOptions(GetOptions() | kFixedSize);
1003  Layout();
1004 }
1005 
1006 ////////////////////////////////////////////////////////////////////////////////
1007 /// Delete chain dialog.
1008 
1009 TUploadDataSetDlg::~TUploadDataSetDlg()
1010 {
1011  if (IsZombie()) return;
1012  Cleanup();
1013 }
1014 
1015 ////////////////////////////////////////////////////////////////////////////////
1016 /// Close upload dataset dialog.
1017 
1018 void TUploadDataSetDlg::CloseWindow()
1019 {
1020  if (!fUploading)
1021  DeleteWindow();
1022 }
1023 
1024 ////////////////////////////////////////////////////////////////////////////////
1025 /// Process messages for upload dataset dialog.
1026 
1027 Bool_t TUploadDataSetDlg::ProcessMessage(Long_t msg, Long_t parm1, Long_t)
1028 {
1029  switch (GET_MSG(msg)) {
1030  case kC_COMMAND:
1031  switch (GET_SUBMSG(msg)) {
1032  case kCM_BUTTON:
1033  switch (parm1) {
1034  case 0:
1035  // Add button
1036  if (fLocationURL->GetText())
1037  AddFiles(fLocationURL->GetText());
1038  break;
1039  case 1:
1040  // Add button
1041  BrowseFiles();
1042  break;
1043  case 2:
1044  // Remove button
1045  RemoveFile();
1046  break;
1047  case 3:
1048  // Clear button
1049  ClearFiles();
1050  break;
1051  case 10:
1052  // Upload button
1053  UploadDataSet();
1054  break;
1055  case 11:
1056  // Close button
1057  CloseWindow();
1058  break;
1059  }
1060  break;
1061  default:
1062  break;
1063  }
1064  break;
1065 
1066  default:
1067  break;
1068  }
1069  return kTRUE;
1070 }
1071 
1072 ////////////////////////////////////////////////////////////////////////////////
1073 /// Add File name(s) from the file location URL to the list view.
1074 
1075 void TUploadDataSetDlg::AddFiles(const char *fileName)
1076 {
1077  if (strlen(fileName) < 5)
1078  return;
1079  if (strstr(fileName,"*.")) {
1080  // wildcarding case
1081  void *filesDir = gSystem->OpenDirectory(gSystem->DirName(fileName));
1082  const char* ent;
1083  TString filesExp(gSystem->BaseName(fileName));
1084  filesExp.ReplaceAll("*",".*");
1085  TRegexp rg(filesExp);
1086  while ((ent = gSystem->GetDirEntry(filesDir))) {
1087  TString entryString(ent);
1088  if (entryString.Index(rg) != kNPOS &&
1089  gSystem->AccessPathName(Form("%s/%s", gSystem->DirName(fileName),
1090  ent), kReadPermission) == kFALSE) {
1091  TString text = TString::Format("%s/%s",
1092  gSystem->UnixPathName(gSystem->DirName(fileName)), ent);
1093  if (!fLVContainer->FindItem(text.Data())) {
1094  TGLVEntry *entry = new TGLVEntry(fLVContainer, text.Data(), text.Data());
1095  entry->SetPictures(gClient->GetPicture("rootdb_t.xpm"),
1096  gClient->GetPicture("rootdb_t.xpm"));
1097  fLVContainer->AddItem(entry);
1098  }
1099  }
1100  }
1101  }
1102  else {
1103  // single file
1104  if (!fLVContainer->FindItem(fileName)) {
1105  TGLVEntry *entry = new TGLVEntry(fLVContainer, fileName, fileName);
1106  entry->SetPictures(gClient->GetPicture("rootdb_t.xpm"),
1107  gClient->GetPicture("rootdb_t.xpm"));
1108  fLVContainer->AddItem(entry);
1109  }
1110  }
1111  // update list view
1112  fListView->AdjustHeaders();
1113  fListView->Layout();
1114  fClient->NeedRedraw(fLVContainer);
1115 }
1116 
1117 ////////////////////////////////////////////////////////////////////////////////
1118 /// Add File name(s) from the file location URL to the list view.
1119 
1120 void TUploadDataSetDlg::AddFiles(TList *fileList)
1121 {
1122  TObjString *el;
1123  TIter next(fileList);
1124  while ((el = (TObjString *) next())) {
1125  TString fileName = TString::Format("%s/%s",
1126  gSystem->UnixPathName(gSystem->DirName(el->GetString())),
1127  gSystem->BaseName(el->GetString()));
1128  // single file
1129  if (!fLVContainer->FindItem(fileName.Data())) {
1130  TGLVEntry *entry = new TGLVEntry(fLVContainer, fileName.Data(), fileName.Data());
1131  entry->SetPictures(gClient->GetPicture("rootdb_t.xpm"),
1132  gClient->GetPicture("rootdb_t.xpm"));
1133  fLVContainer->AddItem(entry);
1134  }
1135  }
1136  // update list view
1137  fListView->AdjustHeaders();
1138  fListView->Layout();
1139  fClient->NeedRedraw(fLVContainer);
1140 }
1141 
1142 ////////////////////////////////////////////////////////////////////////////////
1143 /// Opens the TGFileDialog to allow user to select local file(s) to be added
1144 /// in the list view of dataset files.
1145 
1146 void TUploadDataSetDlg::BrowseFiles()
1147 {
1148  TGFileInfo fi;
1149  fi.fFileTypes = gDatasetTypes;
1150  fi.fFilename = strdup("*.root");
1151  new TGFileDialog(fClient->GetRoot(), this, kFDOpen, &fi);
1152  if (fi.fMultipleSelection && fi.fFileNamesList) {
1153  AddFiles(fi.fFileNamesList);
1154  }
1155  else if (fi.fFilename) {
1156  AddFiles(fi.fFilename);
1157  }
1158 }
1159 
1160 ////////////////////////////////////////////////////////////////////////////////
1161 /// Clear content of the list view.
1162 
1163 void TUploadDataSetDlg::ClearFiles()
1164 {
1165  fLVContainer->RemoveAll();
1166  fListView->Layout();
1167  // update list view
1168  fClient->NeedRedraw(fLVContainer);
1169 }
1170 
1171 ////////////////////////////////////////////////////////////////////////////////
1172 /// Notification of Overwrite Dataset check button.
1173 
1174 void TUploadDataSetDlg::OnOverwriteDataset(Bool_t on)
1175 {
1176  if (on && fAppendFiles->IsOn())
1177  fAppendFiles->SetState(kButtonUp);
1178 }
1179 
1180 ////////////////////////////////////////////////////////////////////////////////
1181 /// Notification of Overwrite Files check button.
1182 
1183 void TUploadDataSetDlg::OnOverwriteFiles(Bool_t)
1184 {
1185 }
1186 
1187 ////////////////////////////////////////////////////////////////////////////////
1188 /// Notification of Append Files check button.
1189 
1190 void TUploadDataSetDlg::OnAppendFiles(Bool_t on)
1191 {
1192  if (on && fOverwriteDSet->IsOn())
1193  fOverwriteDSet->SetState(kButtonUp);
1194 }
1195 
1196 ////////////////////////////////////////////////////////////////////////////////
1197 /// Remove the selected entry from the list view.
1198 
1199 void TUploadDataSetDlg::RemoveFile()
1200 {
1201  TGFrame *item = (TGFrame *)fLVContainer->GetLastActive();
1202  fLVContainer->RemoveItem(item);
1203  // update list view
1204  fListView->AdjustHeaders();
1205  fListView->Layout();
1206  fClient->NeedRedraw(fLVContainer);
1207 }
1208 
1209 ////////////////////////////////////////////////////////////////////////////////
1210 /// Upload the dataset to the server.
1211 
1212 void TUploadDataSetDlg::UploadDataSet()
1213 {
1214  Int_t retval;
1215  TString fileList;
1216  const char *dsetName = fDSetName->GetText();
1217  const char *destination = fDestinationURL->GetText();
1218  UInt_t flags = 0;
1219  TList *skippedFiles = new TList();
1220  TList *datasetFiles = new TList();
1221 
1222  if (fUploading)
1223  return;
1224  if (!fViewer->GetActDesc()->fConnected ||
1225  !fViewer->GetActDesc()->fAttached ||
1226  !fViewer->GetActDesc()->fProof ||
1227  !fViewer->GetActDesc()->fProof->IsValid()) {
1228  return;
1229  }
1230  // Format upload flags with user selection
1231  if (fOverwriteDSet->IsOn())
1232  flags |= TProof::kOverwriteDataSet;
1233  else
1234  flags |= TProof::kNoOverwriteDataSet;
1235  if (fOverwriteFiles->IsOn())
1236  flags |= TProof::kOverwriteAllFiles;
1237  else
1238  flags |= TProof::kOverwriteNoFiles;
1239  if (fAppendFiles->IsOn()) {
1240  flags |= TProof::kAppend;
1241  if (flags & TProof::kNoOverwriteDataSet)
1242  flags &= ~TProof::kNoOverwriteDataSet;
1243  }
1244 
1245  Int_t ret = 0;
1246  TIter next(fLVContainer->GetList());
1247  TGFrameElement *el;
1248  TGLVEntry *entry;
1249 
1250  while ((el = (TGFrameElement *)next())) {
1251  entry = (TGLVEntry *) el->fFrame;
1252  const char *fname = gSystem->UnixPathName(entry->GetTitle());
1253  datasetFiles->Add(new TFileInfo(fname));
1254  }
1255  fUploading = kTRUE;
1256  fUploadButton->SetState(kButtonDisabled);
1257  fCloseDlgButton->SetState(kButtonDisabled);
1258 
1259  if (strlen(destination) < 2) destination = 0;
1260 
1261  // GG 17/8/2012 -- BEGIN
1262  // NB: UploadDataSet is obsolete; these changes are the minimal ones to make
1263  // the build after the removal of an obsolete structure in TProof.h;
1264  // but all this needs to be reconsidered.
1265  ret = fViewer->GetActDesc()->fProof->UploadDataSet(dsetName,
1266  datasetFiles, destination, flags, skippedFiles);
1267 #if 0
1268  if (ret == TProof::kDataSetExists) {
1269  // ask user what to do :
1270  // cancel/overwrite and change option
1271  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1272  TString::Format("The dataset \"%s\" already exists on the cluster ! Overwrite ?",
1273  dsetName), kMBIconQuestion, kMBYes | kMBNo | kMBCancel | kMBAppend,
1274  &retval);
1275  if (retval == kMBYes) {
1276  ret = fViewer->GetActDesc()->fProof->UploadDataSet(dsetName,
1277  datasetFiles, destination,
1278  TProof::kOverwriteDataSet |
1279  TProof::kOverwriteNoFiles,
1280  skippedFiles);
1281  }
1282  if (retval == kMBAppend) {
1283  ret = fViewer->GetActDesc()->fProof->UploadDataSet(dsetName,
1284  datasetFiles, destination,
1285  TProof::kAppend |
1286  TProof::kOverwriteNoFiles,
1287  skippedFiles);
1288  }
1289  }
1290 #endif
1291  if (ret != 0) {
1292  // Inform user
1293  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1294  "Failed uploading dataset/files to the cluster",
1295  kMBIconExclamation, kMBOk, &retval);
1296  fUploading = kFALSE;
1297  fUploadButton->SetState(kButtonUp);
1298  fCloseDlgButton->SetState(kButtonUp);
1299  return;
1300  }
1301  // Here we cope with files that existed on the cluster and were skipped.
1302  if (skippedFiles->GetSize()) {
1303  TIter nexts(skippedFiles);
1304  while (TFileInfo *obj = (TFileInfo*)nexts()) {
1305  // Notify user that file: obj->GetFirstUrl()->GetUrl() exists on
1306  // the cluster and ask user what to do
1307  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1308  TString::Format("The file \"%s\" already exists on the cluster ! Overwrite ?",
1309  obj->GetFirstUrl()->GetUrl()), kMBIconQuestion,
1310  kMBYes | kMBNo | kMBYesAll | kMBNoAll | kMBDismiss, &retval);
1311  if (retval == kMBYesAll) {
1312  ret = fViewer->GetActDesc()->fProof->UploadDataSet(dsetName,
1313  skippedFiles, destination,
1314  TProof::kAppend |
1315  TProof::kOverwriteAllFiles);
1316  if (ret != 0) {
1317  // Inform user
1318  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1319  TString::Format("Failed uploading \"%s\" to the cluster",
1320  obj->GetFirstUrl()->GetUrl()), kMBIconExclamation,
1321  kMBOk, &retval);
1322  }
1323  else {
1324  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1325  "Files have been successfully uploaded to the cluster",
1326  kMBIconAsterisk, kMBOk, &retval);
1327  }
1328  fUploading = kFALSE;
1329  fUploadButton->SetState(kButtonUp);
1330  fCloseDlgButton->SetState(kButtonUp);
1331  return;
1332  }
1333  if ((retval == kMBNoAll) || (retval == kMBDismiss)) {
1334  break;
1335  }
1336  if (retval == kMBYes) {
1337  // Append one file to the dataSet
1338  ret = fViewer->GetActDesc()->fProof->UploadDataSet(dsetName,
1339  obj->GetFirstUrl()->GetUrl(), destination,
1340  TProof::kAppend | TProof::kOverwriteAllFiles);
1341  if (ret != 0) {
1342  // Inform user
1343  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1344  TString::Format("Failed uploading \"%s\" to the cluster",
1345  obj->GetFirstUrl()->GetUrl()), kMBIconExclamation,
1346  kMBOk, &retval);
1347  }
1348  else {
1349  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1350  "Files have been successfully uploaded to the cluster",
1351  kMBIconAsterisk, kMBOk, &retval);
1352  }
1353  }
1354  }
1355  skippedFiles->Clear();
1356  }
1357  else {
1358  new TGMsgBox(fClient->GetRoot(), this, "Upload DataSet",
1359  "Files have been successfully uploaded to the cluster",
1360  kMBIconAsterisk, kMBOk, &retval);
1361  }
1362  // GG 17/8/2012 -- END
1363 
1364  // finally, update list of datasets in session viewer
1365  fViewer->GetSessionFrame()->UpdateListOfDataSets();
1366  fUploading = kFALSE;
1367  fUploadButton->SetState(kButtonUp);
1368  fCloseDlgButton->SetState(kButtonUp);
1369 }
1370