Logo ROOT   6.30.04
Reference Guide
 All Namespaces Files Pages
TEveBrowser.cxx
Go to the documentation of this file.
1 // @(#)root/eve:$Id$
2 // Authors: Matevz Tadel & Alja Mrak-Tadel: 2006, 2007
3 
4 /*************************************************************************
5  * Copyright (C) 1995-2007, 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 #include "TEveBrowser.h"
13 
14 #include "TEveUtil.h"
15 #include "TEveElement.h"
16 #include "TEveManager.h"
17 #include "TEveSelection.h"
18 #include "TEveGedEditor.h"
19 #include "TEveWindow.h"
20 #include "TEveWindowManager.h"
21 
22 #include "TGFileBrowser.h"
23 #include "TBrowser.h"
24 
25 #include <Riostream.h>
26 
27 #include "TClass.h"
28 #include "TROOT.h"
29 #include "TStyle.h"
30 #include "TSystem.h"
31 #include "TRint.h"
32 #include "TVirtualX.h"
33 #include "TEnv.h"
34 
35 #include "TApplication.h"
36 #include "TFile.h"
37 #include "TClassMenuItem.h"
38 
39 #include "TColor.h"
40 
41 #include "TGCanvas.h"
42 #include "TGSplitter.h"
43 #include "TGStatusBar.h"
44 #include "TGMenu.h"
45 #include "TGPicture.h"
46 #include "TGToolBar.h"
47 #include "TGLabel.h"
48 #include "TGXYLayout.h"
49 #include "TGNumberEntry.h"
50 #include <KeySymbols.h>
51 
52 #include "TGLSAViewer.h"
53 #include "TGLSAFrame.h"
54 #include "TGTab.h"
55 
56 #include "TGeoVolume.h"
57 #include "TGeoNode.h"
58 
59 /** \class TEveListTreeItem
60 \ingroup TEve
61 Special list-tree-item for Eve.
62 
63 Most state is picked directly from TEveElement, no need to store it
64 locally nor to manage its consistency.
65 
66 Handles also selected/highlighted colors and, in the future, drag-n-drop.
67 */
68 
69 ClassImp(TEveListTreeItem);
70 
71 ////////////////////////////////////////////////////////////////////////////////
72 /// Warn about access to function members that should never be called.
73 /// TGListTree calls them in cases that are not used by Eve.
74 
75 void TEveListTreeItem::NotSupported(const char* func) const
76 {
77  Warning(Form("TEveListTreeItem::%s()", func), "not supported.");
78 }
79 
80 ////////////////////////////////////////////////////////////////////////////////
81 /// Return highlight color corresponding to current state of TEveElement.
82 
83 Pixel_t TEveListTreeItem::GetActiveColor() const
84 {
85  switch (fElement->GetSelectedLevel())
86  {
87  case 1: return TColor::Number2Pixel(kBlue - 2);
88  case 2: return TColor::Number2Pixel(kBlue - 6);
89  case 3: return TColor::Number2Pixel(kCyan - 2);
90  case 4: return TColor::Number2Pixel(kCyan - 6);
91  }
92  return TGFrame::GetDefaultSelectedBackground();
93 }
94 
95 ////////////////////////////////////////////////////////////////////////////////
96 /// Item's check-box state has been toggled ... forward to element's
97 /// render-state.
98 
99 void TEveListTreeItem::Toggle()
100 {
101  fElement->SetRnrState(!IsChecked());
102  fElement->ElementChanged(kTRUE, kTRUE);
103 }
104 
105 /** \class TEveGListTreeEditorFrame
106 \ingroup TEve
107 Composite GUI frame for parallel display of a TGListTree and TEveGedEditor.
108 */
109 
110 ClassImp(TEveGListTreeEditorFrame);
111 
112 TString TEveGListTreeEditorFrame::fgEditorClass("TEveGedEditor");
113 
114 ////////////////////////////////////////////////////////////////////////////////
115 /// Constructor.
116 
117 TEveGListTreeEditorFrame::TEveGListTreeEditorFrame(const TGWindow* p, Int_t width, Int_t height) :
118  TGMainFrame (p ? p : gClient->GetRoot(), width, height),
119  fFrame (0),
120  fLTFrame (0),
121  fListTree (0),
122  fSplitter (0),
123  fEditor (0),
124  fCtxMenu (0),
125  fSignalsConnected (kFALSE)
126 {
127  SetCleanup(kNoCleanup);
128 
129  fFrame = new TGCompositeFrame(this, width, height, kVerticalFrame);
130 
131  // List-tree
132  fLTFrame = new TGCompositeFrame(fFrame, width, 3*height/7, kVerticalFrame);
133  fLTCanvas = new TGCanvas(fLTFrame, 10, 10, kSunkenFrame | kDoubleBorder);
134  fListTree = new TGListTree(fLTCanvas->GetViewPort(), 10, 10, kHorizontalFrame);
135  fListTree->SetCanvas(fLTCanvas);
136  fListTree->Associate(fFrame);
137  fListTree->SetColorMode(TGListTree::EColorMarkupMode(TGListTree::kColorUnderline | TGListTree::kColorBox));
138  fListTree->SetAutoCheckBoxPic(kFALSE);
139  fListTree->SetUserControl(kTRUE);
140  fLTCanvas->SetContainer(fListTree);
141  fLTFrame->AddFrame(fLTCanvas, new TGLayoutHints
142  (kLHintsNormal | kLHintsExpandX | kLHintsExpandY, 1, 1, 1, 1));
143  fFrame ->AddFrame(fLTFrame, new TGLayoutHints
144  (kLHintsNormal | kLHintsExpandX | kLHintsExpandY));
145 
146  // Splitter
147  fSplitter = new TGHSplitter(fFrame);
148  fFrame->AddFrame(fSplitter, new TGLayoutHints(kLHintsTop | kLHintsExpandX, 1,1,2,2));
149 
150  // Editor
151  fFrame->SetEditDisabled(kEditEnable);
152  fFrame->SetEditable();
153  fEditor = (TEveGedEditor*) gROOT->GetClass(fgEditorClass)->New();
154  fEditor->SetGlobal(kFALSE);
155  fEditor->ChangeOptions(fEditor->GetOptions() | kFixedHeight);
156  fFrame->SetEditable(kEditDisable);
157  fFrame->SetEditable(kFALSE);
158  {
159  TGFrameElement *el = 0;
160  TIter next(fFrame->GetList());
161  while ((el = (TGFrameElement *) next())) {
162  if (el->fFrame == fEditor)
163  if (el->fLayout) {
164  el->fLayout->SetLayoutHints(kLHintsTop | kLHintsExpandX);
165  el->fLayout->SetPadLeft(0); el->fLayout->SetPadRight(1);
166  el->fLayout->SetPadTop(2); el->fLayout->SetPadBottom(1);
167  break;
168  }
169  }
170  }
171  fSplitter->SetFrame(fEditor, kFALSE);
172 
173  AddFrame(fFrame, new TGLayoutHints(kLHintsNormal | kLHintsExpandX | kLHintsExpandY));
174 
175  fCtxMenu = new TContextMenu("", "");
176 
177  Layout();
178  MapSubwindows();
179  MapWindow();
180 }
181 
182 ////////////////////////////////////////////////////////////////////////////////
183 /// Destructor.
184 
185 TEveGListTreeEditorFrame::~TEveGListTreeEditorFrame()
186 {
187  DisconnectSignals();
188 
189  delete fCtxMenu;
190 
191  // Should un-register editor, all items and list-tree from gEve ... eventually.
192 
193  delete fEditor;
194  delete fSplitter;
195  delete fListTree;
196  delete fLTCanvas;
197  delete fLTFrame;
198  delete fFrame;
199 }
200 
201 ////////////////////////////////////////////////////////////////////////////////
202 /// Set GED editor class.
203 
204 void TEveGListTreeEditorFrame::SetEditorClass(const char* edclass)
205 {
206  fgEditorClass = edclass;
207 }
208 
209 ////////////////////////////////////////////////////////////////////////////////
210 /// Connect list-tree signals.
211 
212 void TEveGListTreeEditorFrame::ConnectSignals()
213 {
214  fListTree->Connect("MouseOver(TGListTreeItem*, UInt_t)", "TEveGListTreeEditorFrame",
215  this, "ItemBelowMouse(TGListTreeItem*, UInt_t)");
216  fListTree->Connect("Clicked(TGListTreeItem*, Int_t, UInt_t, Int_t, Int_t)", "TEveGListTreeEditorFrame",
217  this, "ItemClicked(TGListTreeItem*, Int_t, UInt_t, Int_t, Int_t)");
218  fListTree->Connect("DoubleClicked(TGListTreeItem*, Int_t)", "TEveGListTreeEditorFrame",
219  this, "ItemDblClicked(TGListTreeItem*, Int_t)");
220  fListTree->Connect("KeyPressed(TGListTreeItem*, ULong_t, ULong_t)", "TEveGListTreeEditorFrame",
221  this, "ItemKeyPress(TGListTreeItem*, UInt_t, UInt_t)");
222 
223  fSignalsConnected = kTRUE;
224 }
225 
226 ////////////////////////////////////////////////////////////////////////////////
227 /// Disconnect list-tree signals.
228 
229 void TEveGListTreeEditorFrame::DisconnectSignals()
230 {
231  if (!fSignalsConnected) return;
232 
233  fListTree->Disconnect("MouseOver(TGListTreeItem*, UInt_t)",
234  this, "ItemBelowMouse(TGListTreeItem*, UInt_t)");
235  fListTree->Disconnect("Clicked(TGListTreeItem*, Int_t, UInt_t, Int_t, Int_t)",
236  this, "ItemClicked(TGListTreeItem*, Int_t, UInt_t, Int_t, Int_t)");
237  fListTree->Disconnect("DoubleClicked(TGListTreeItem*, Int_t)",
238  this, "ItemDblClicked(TGListTreeItem*, Int_t)");
239  fListTree->Disconnect("KeyPressed(TGListTreeItem*, ULong_t, ULong_t)",
240  this, "ItemKeyPress(TGListTreeItem*, UInt_t, UInt_t)");
241 
242  fSignalsConnected = kFALSE;
243 }
244 
245 ////////////////////////////////////////////////////////////////////////////////
246 /// Reconfigure to horizontal layout, list-tree and editor side by side.
247 
248 void TEveGListTreeEditorFrame::ReconfToHorizontal()
249 {
250  UnmapWindow();
251 
252  fFrame->ChangeOptions(kHorizontalFrame);
253  fLTFrame->ChangeOptions(kHorizontalFrame);
254  fListTree->ChangeOptions(kVerticalFrame);
255 
256  TGFrameElement *el = 0;
257  TIter next(fFrame->GetList());
258  while ((el = (TGFrameElement *) next()))
259  {
260  if (el->fFrame == fSplitter)
261  {
262  // This is needed so that splitter window gets destroyed on server.
263  fSplitter->ReparentWindow(fClient->GetDefaultRoot());
264  delete fSplitter;
265  el->fFrame = fSplitter = new TGVSplitter(fFrame);
266  el->fLayout->SetLayoutHints(kLHintsLeft | kLHintsExpandY);
267  el->fLayout->SetPadLeft(2); el->fLayout->SetPadRight (2);
268  el->fLayout->SetPadTop (1); el->fLayout->SetPadBottom(1);
269  }
270  else if (el->fFrame == fEditor)
271  {
272  fEditor->ChangeOptions(fEditor->GetOptions() & (~kFixedHeight));
273  fEditor->ChangeOptions(fEditor->GetOptions() | kFixedWidth);
274  el->fLayout->SetLayoutHints(kLHintsLeft | kLHintsExpandY);
275  }
276  }
277 
278  fEditor->Resize(fEditor->GetWidth() / 2 - 1, fEditor->GetHeight());
279  fSplitter->SetFrame(fEditor, kFALSE);
280 
281  Layout();
282  MapSubwindows();
283  MapWindow();
284 }
285 
286 ////////////////////////////////////////////////////////////////////////////////
287 /// Reconfigure to vertical layout, list-tree above the editor.
288 
289 void TEveGListTreeEditorFrame::ReconfToVertical()
290 {
291  UnmapWindow();
292 
293  fFrame->ChangeOptions(kVerticalFrame);
294  fLTFrame->ChangeOptions(kVerticalFrame);
295  fListTree->ChangeOptions(kHorizontalFrame);
296 
297  TGFrameElement *el = 0;
298  TIter next(fFrame->GetList());
299  while ((el = (TGFrameElement *) next()))
300  {
301  if (el->fFrame == fSplitter)
302  {
303  // This is needed so that splitter window gets destroyed on server.
304  fSplitter->ReparentWindow(fClient->GetDefaultRoot());
305  delete fSplitter;
306  el->fFrame = fSplitter = new TGHSplitter(fFrame);
307  el->fLayout->SetLayoutHints(kLHintsTop | kLHintsExpandX);
308  el->fLayout->SetPadLeft(2); el->fLayout->SetPadRight (2);
309  el->fLayout->SetPadTop (1); el->fLayout->SetPadBottom(1);
310  }
311  else if (el->fFrame == fEditor)
312  {
313  fEditor->ChangeOptions(fEditor->GetOptions() & (~kFixedWidth));
314  fEditor->ChangeOptions(fEditor->GetOptions() | kFixedHeight);
315  el->fLayout->SetLayoutHints(kLHintsTop | kLHintsExpandX);
316  }
317  }
318 
319  fEditor->Resize(fEditor->GetWidth(), fEditor->GetHeight() / 2 - 1);
320  fSplitter->SetFrame(fEditor, kFALSE);
321 
322  Layout();
323  MapSubwindows();
324  MapWindow();
325 }
326 
327 ////////////////////////////////////////////////////////////////////////////////
328 /// Different item is below mouse.
329 
330 void TEveGListTreeEditorFrame::ItemBelowMouse(TGListTreeItem *entry, UInt_t /*mask*/)
331 {
332  TEveElement* el = entry ? (TEveElement*) entry->GetUserData() : 0;
333  gEve->GetHighlight()->UserPickedElement(el, kFALSE);
334 }
335 
336 ////////////////////////////////////////////////////////////////////////////////
337 /// Item has been clicked, based on mouse button do:
338 /// - M1 - select, show in editor;
339 /// - M2 - paste (call gEve->ElementPaste();
340 /// - M3 - popup context menu.
341 
342 void TEveGListTreeEditorFrame::ItemClicked(TGListTreeItem *item, Int_t btn, UInt_t mask, Int_t x, Int_t y)
343 {
344  //printf("ItemClicked item %s List %d btn=%d, x=%d, y=%d\n",
345  // item->GetText(),fDisplayFrame->GetList()->GetEntries(), btn, x, y);
346 
347  static const TEveException eh("TEveGListTreeEditorFrame::ItemClicked ");
348 
349  TEveElement* el = (TEveElement*) item->GetUserData();
350  if (el == 0) return;
351  TObject* obj = el->GetObject(eh);
352 
353  switch (btn)
354  {
355  case 1:
356  gEve->GetSelection()->UserPickedElement(el, mask & kKeyControlMask);
357  break;
358 
359  case 2:
360  if (gEve->ElementPaste(el))
361  gEve->Redraw3D();
362  break;
363 
364  case 3:
365  // If control pressed, show menu for render-element itself.
366  // event->fState & kKeyControlMask
367  // ??? how do i get current event?
368  // !!!!! Have this now ... fix.
369  if (obj) fCtxMenu->Popup(x, y, obj);
370  break;
371 
372  default:
373  break;
374  }
375 }
376 
377 ////////////////////////////////////////////////////////////////////////////////
378 /// Item has been double-clicked, potentially expand the children.
379 
380 void TEveGListTreeEditorFrame::ItemDblClicked(TGListTreeItem* item, Int_t btn)
381 {
382  static const TEveException eh("TEveGListTreeEditorFrame::ItemDblClicked ");
383 
384  if (btn != 1) return;
385 
386  TEveElement* el = (TEveElement*) item->GetUserData();
387  if (el == 0) return;
388 
389  el->ExpandIntoListTree(fListTree, item);
390 
391  TObject* obj = el->GetObject(eh);
392  if (obj)
393  {
394  // Browse geonodes.
395  if (obj->IsA()->InheritsFrom(TGeoNode::Class()))
396  {
397  TGeoNode* n = dynamic_cast<TGeoNode*>(obj);
398  if (item->GetFirstChild() == 0 && n->GetNdaughters())
399  {
400  fListTree->DeleteChildren(item);
401  for (Int_t i=0; i< n->GetNdaughters(); i++)
402  {
403  TString title;
404  title.Form("%d : %s[%d]", i,
405  n->GetDaughter(i)->GetVolume()->GetName(),
406  n->GetDaughter(i)->GetNdaughters());
407 
408  TGListTreeItem* child = fListTree->AddItem(item, title.Data());
409  child->SetUserData(n->GetDaughter(i));
410  }
411  }
412  }
413  }
414 }
415 
416 ////////////////////////////////////////////////////////////////////////////////
417 /// A key has been pressed for an item.
418 ///
419 /// Only <Delete>, <Enter> and <Return> keys are handled here,
420 /// otherwise the control is passed back to TGListTree.
421 
422 void TEveGListTreeEditorFrame::ItemKeyPress(TGListTreeItem *entry, UInt_t keysym, UInt_t mask)
423 {
424  static const TEveException eh("TEveGListTreeEditorFrame::ItemKeyPress ");
425 
426  entry = fListTree->GetCurrent();
427  if (entry == 0) return;
428 
429  TEveElement* el = (TEveElement*) entry->GetUserData();
430 
431  fListTree->SetEventHandled(); // Reset back to false in default case.
432 
433  switch (keysym)
434  {
435  case kKey_Delete:
436  {
437  if (entry->GetParent())
438  {
439  if (el->GetDenyDestroy() > 0 && el->GetNItems() == 1)
440  throw(eh + "DestroyDenied set for this item.");
441 
442  TEveElement* parent = (TEveElement*) entry->GetParent()->GetUserData();
443 
444  if (parent)
445  {
446  gEve->RemoveElement(el, parent);
447  gEve->Redraw3D();
448  }
449  }
450  else
451  {
452  if (el->GetDenyDestroy() > 0)
453  throw(eh + "DestroyDenied set for this top-level item.");
454  gEve->RemoveFromListTree(el, fListTree, entry);
455  gEve->Redraw3D();
456  }
457  break;
458  }
459 
460  case kKey_Enter:
461  case kKey_Return:
462  {
463  gEve->GetSelection()->UserPickedElement(el, mask & kKeyControlMask);
464  break;
465  }
466 
467  default:
468  {
469  fListTree->SetEventHandled(kFALSE);
470  break;
471  }
472  }
473 }
474 
475 
476 /** \class TEveBrowser
477 \ingroup TEve
478 Specialization of TRootBrowser for Eve.
479 */
480 
481 ClassImp(TEveBrowser);
482 
483 ////////////////////////////////////////////////////////////////////////////////
484 /// Add "Export to CINT" into context-menu for class cl.
485 
486 void TEveBrowser::SetupCintExport(TClass* cl)
487 {
488  TList* l = cl->GetMenuList();
489  TClassMenuItem* n = new TClassMenuItem(TClassMenuItem::kPopupUserFunction, cl,
490  "Export to CINT", "ExportToCINT", this, "const char*,TObject*", 1);
491 
492  l->AddFirst(n);
493 }
494 
495 ////////////////////////////////////////////////////////////////////////////////
496 /// Calculate position of a widget for reparenting into parent.
497 
498 void TEveBrowser::CalculateReparentXY(TGObject* parent, Int_t& x, Int_t& y)
499 {
500  UInt_t w, h;
501  Window_t childdum;
502  gVirtualX->GetWindowSize(parent->GetId(), x, y, w, h);
503  gVirtualX->TranslateCoordinates(parent->GetId(),
504  gClient->GetDefaultRoot()->GetId(),
505  0, 0, x, y, childdum);
506 }
507 
508 namespace
509 {
510 enum EEveMenu_e {
511  kNewMainFrameSlot, kNewTabSlot,
512  kNewViewer, kNewScene,
513  kNewBrowser, kNewCanvas, kNewCanvasExt, kNewTextEditor, kNewHtmlBrowser,
514  kSel_PS_Ignore, kSel_PS_Element, kSel_PS_Projectable, kSel_PS_Compound,
515  kSel_PS_PableCompound, kSel_PS_Master, kSel_PS_END,
516  kHil_PS_Ignore, kHil_PS_Element, kHil_PS_Projectable, kHil_PS_Compound,
517  kHil_PS_PableCompound, kHil_PS_Master, kHil_PS_END,
518  kVerticalBrowser,
519  kWinDecorNormal, kWinDecorHide, kWinDecorTitleBar, kWinDecorMiniBar
520 };
521 
522 }
523 
524 ////////////////////////////////////////////////////////////////////////////////
525 /// Constructor.
526 
527 TEveBrowser::TEveBrowser(UInt_t w, UInt_t h) :
528  TRootBrowser(0, "Eve Main Window", w, h, "", kFALSE),
529  fFileBrowser(0),
530  fEvePopup (0),
531  fSelPopup (0),
532  fHilPopup (0)
533 {
534  // Construct Eve menu.
535 
536  fEvePopup = new TGPopupMenu(gClient->GetRoot());
537  fEvePopup->AddEntry("New &MainFrame Slot", kNewMainFrameSlot);
538  fEvePopup->AddEntry("New &Tab Slot", kNewTabSlot);
539  fEvePopup->AddSeparator();
540  fEvePopup->AddEntry("New &Viewer", kNewViewer);
541  fEvePopup->AddEntry("New &Scene", kNewScene);
542  fEvePopup->AddSeparator();
543  fEvePopup->AddEntry("New &Browser", kNewBrowser);
544  fEvePopup->AddEntry("New &Canvas", kNewCanvas);
545  fEvePopup->AddEntry("New Canvas Ext", kNewCanvasExt);
546  fEvePopup->AddEntry("New Text &Editor", kNewTextEditor);
547  // fEvePopup->AddEntry("New HTML Browser", kNewHtmlBrowser);
548  fEvePopup->AddSeparator();
549 
550  {
551  fSelPopup = new TGPopupMenu(gClient->GetRoot());
552  fSelPopup->AddEntry("Ignore", kSel_PS_Ignore);
553  fSelPopup->AddEntry("Element", kSel_PS_Element);
554  fSelPopup->AddEntry("Projectable", kSel_PS_Projectable);
555  fSelPopup->AddEntry("Compound", kSel_PS_Compound);
556  fSelPopup->AddEntry("Projectable and Compound",
557  kSel_PS_PableCompound);
558  fSelPopup->AddEntry("Master", kSel_PS_Master);
559  fSelPopup->RCheckEntry(kSel_PS_Ignore + gEve->GetSelection()->GetPickToSelect(),
560  kSel_PS_Ignore, kSel_PS_END - 1);
561  fEvePopup->AddPopup("Selection", fSelPopup);
562  }
563  {
564  fHilPopup = new TGPopupMenu(gClient->GetRoot());
565  fHilPopup->AddEntry("Ignore", kHil_PS_Ignore);
566  fHilPopup->AddEntry("Element", kHil_PS_Element);
567  fHilPopup->AddEntry("Projectable", kHil_PS_Projectable);
568  fHilPopup->AddEntry("Compound", kHil_PS_Compound);
569  fHilPopup->AddEntry("Projectable and Compound",
570  kHil_PS_PableCompound);
571  fHilPopup->AddEntry("Master", kHil_PS_Master);
572  fHilPopup->RCheckEntry(kHil_PS_Ignore + gEve->GetHighlight()->GetPickToSelect(),
573  kHil_PS_Ignore, kHil_PS_END - 1);
574  fEvePopup->AddPopup("Highlight", fHilPopup);
575  }
576 
577  fEvePopup->AddSeparator();
578  fEvePopup->AddEntry("Vertical browser", kVerticalBrowser);
579  fEvePopup->CheckEntry(kVerticalBrowser);
580  {
581  TGPopupMenu *wd = new TGPopupMenu(gClient->GetRoot());
582  wd->AddEntry("Normal", kWinDecorNormal);
583  wd->AddEntry("Hide", kWinDecorHide);
584  wd->AddEntry("Title bars", kWinDecorTitleBar);
585  wd->AddEntry("Mini bars", kWinDecorMiniBar);
586  fEvePopup->AddPopup("Window decorations", wd);
587  }
588 
589  fEvePopup->Connect("Activated(Int_t)", "TEveBrowser",
590  this, "EveMenu(Int_t)");
591 
592  fMenuBar->AddPopup("&Eve", fEvePopup, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));
593 
594  fPreMenuFrame->ChangeOptions(fPreMenuFrame->GetOptions() | kRaisedFrame);
595  fTopMenuFrame->Layout();
596  fTopMenuFrame->MapSubwindows();
597 
598  // Rename "Close Window" to "Close Eve"
599  fMenuFile->GetEntry(kCloseWindow)->GetLabel()->SetString("Close Eve");
600 }
601 
602 ////////////////////////////////////////////////////////////////////////////////
603 /// Handle events from Eve menu.
604 
605 void TEveBrowser::EveMenu(Int_t id)
606 {
607  switch (id)
608  {
609  case kNewMainFrameSlot: {
610  TEveWindowSlot* ew_slot = TEveWindow::CreateWindowMainFrame(0);
611  gEve->GetWindowManager()->SelectWindow(ew_slot);
612  break;
613  }
614  case kNewTabSlot: {
615  TEveWindowSlot* ew_slot = TEveWindow::CreateWindowInTab(GetTabRight(), 0);
616  gEve->GetWindowManager()->SelectWindow(ew_slot);
617  break;
618  }
619  case kNewViewer: {
620  gEve->SpawnNewViewer("Viewer Pepe");
621  break;
622  }
623  case kNewScene: {
624  gEve->SpawnNewScene("Scena Mica");
625  break;
626  }
627  case kNewBrowser: {
628  gROOT->ProcessLineFast("new TBrowser");
629  break;
630  }
631  case kNewCanvas: {
632  StartEmbedding(1);
633  gROOT->ProcessLineFast("new TCanvas");
634  StopEmbedding();
635  SetTabTitle("Canvas", 1);
636  break;
637  }
638  case kNewCanvasExt: {
639  gROOT->ProcessLineFast("new TCanvas");
640  break;
641  }
642  case kNewTextEditor: {
643  StartEmbedding(1);
644  gROOT->ProcessLineFast(Form("new TGTextEditor((const char *)0, (const TGWindow *)0x%lx)", (ULong_t)gClient->GetRoot()));
645  StopEmbedding();
646  SetTabTitle("Editor", 1);
647  break;
648  }
649  case kNewHtmlBrowser: {
650  gSystem->Load("libGuiHtml");
651  if (gSystem->Load("libRHtml") >= 0)
652  {
653  StartEmbedding(1);
654  gROOT->ProcessLine(Form("new TGHtmlBrowser(\"http://root.cern.ch/root/html/ClassIndex.html\", \
655  (const TGWindow *)0x%lx)", (ULong_t)gClient->GetRoot()));
656  StopEmbedding();
657  SetTabTitle("HTML", 1);
658  }
659  break;
660  }
661  case kSel_PS_Ignore:
662  case kSel_PS_Element:
663  case kSel_PS_Projectable:
664  case kSel_PS_Compound:
665  case kSel_PS_PableCompound:
666  case kSel_PS_Master: {
667  gEve->GetSelection()->SetPickToSelect(id - kSel_PS_Ignore);
668  fSelPopup->RCheckEntry(kSel_PS_Ignore + gEve->GetSelection()->GetPickToSelect(),
669  kSel_PS_Ignore, kSel_PS_END - 1);
670  break;
671  }
672  case kHil_PS_Ignore:
673  case kHil_PS_Element:
674  case kHil_PS_Projectable:
675  case kHil_PS_Compound:
676  case kHil_PS_PableCompound:
677  case kHil_PS_Master: {
678  gEve->GetHighlight()->SetPickToSelect(id - kHil_PS_Ignore);
679  fHilPopup->RCheckEntry(kHil_PS_Ignore + gEve->GetHighlight()->GetPickToSelect(),
680  kHil_PS_Ignore, kHil_PS_END - 1);
681  break;
682  }
683  case kVerticalBrowser: {
684  if (fEvePopup->IsEntryChecked(kVerticalBrowser)) {
685  gEve->GetLTEFrame()->ReconfToHorizontal();
686  fEvePopup->UnCheckEntry(kVerticalBrowser);
687  } else {
688  gEve->GetLTEFrame()->ReconfToVertical();
689  fEvePopup->CheckEntry(kVerticalBrowser);
690  }
691  break;
692  }
693  case kWinDecorNormal: {
694  gEve->GetWindowManager()->ShowNormalEveDecorations();
695  break;
696  }
697  case kWinDecorHide: {
698  gEve->GetWindowManager()->HideAllEveDecorations();
699  break;
700  }
701  case kWinDecorTitleBar: {
702  gEve->GetWindowManager()->SetShowTitleBars(kTRUE);
703  break;
704  }
705  case kWinDecorMiniBar: {
706  gEve->GetWindowManager()->SetShowTitleBars(kFALSE);
707  break;
708  }
709 
710  default: {
711  break;
712  }
713  }
714 }
715 
716 ////////////////////////////////////////////////////////////////////////////////
717 /// Initialize standard plugins.
718 
719 void TEveBrowser::InitPlugins(Option_t *opt)
720 {
721  TString o(opt);
722 
723  // File Browser plugin ... we have to process it here.
724  if (o.Contains('F'))
725  {
726  StartEmbedding(0);
727  TGFileBrowser *fb = MakeFileBrowser();
728  fb->BrowseObj(gROOT);
729  fb->Show();
730  fFileBrowser = fb;
731  StopEmbedding("Files");
732  o.ReplaceAll("F", ".");
733  }
734 
735  TRootBrowser::InitPlugins(o);
736 }
737 
738 ////////////////////////////////////////////////////////////////////////////////
739 /// Create a file-browser. Caller should provide Start/StopEmbedding() calls
740 /// and populate the new browser.
741 ///
742 /// If flag make_default is kTRUE, the default file-browser is set to the
743 /// newly created browser.
744 
745 TGFileBrowser* TEveBrowser::MakeFileBrowser(Bool_t make_default)
746 {
747  TBrowserImp imp;
748  TBrowser *tb = new TBrowser("Pipi", "Strel", &imp);
749  TGFileBrowser *fb = new TGFileBrowser(gClient->GetRoot(), tb, 200, 500);
750  tb->SetBrowserImp((TBrowserImp *)this);
751  fb->SetBrowser(tb);
752  fb->SetNewBrowser(this);
753  gROOT->GetListOfBrowsers()->Remove(tb);
754  // This guy is never used and stays in list-of-cleanups after destruction.
755  // So let's just delete it now.
756  delete tb->GetContextMenu();
757 
758  if (make_default)
759  fFileBrowser = fb;
760 
761  return fb;
762 }
763 
764 ////////////////////////////////////////////////////////////////////////////////
765 /// Returns the default file-browser.
766 
767 TGFileBrowser* TEveBrowser::GetFileBrowser() const
768 {
769  return fFileBrowser;
770 }
771 
772 ////////////////////////////////////////////////////////////////////////////////
773 /// Set the default file browser.
774 
775 void TEveBrowser::SetFileBrowser(TGFileBrowser* b)
776 {
777  fFileBrowser = b;
778 }
779 
780 ////////////////////////////////////////////////////////////////////////////////
781 /// Override from TRootBrowser. We need to be more brutal as fBrowser is
782 /// not set in Eve case.
783 
784 void TEveBrowser::ReallyDelete()
785 {
786  delete this;
787 }
788 
789 ////////////////////////////////////////////////////////////////////////////////
790 /// Virtual from TRootBrowser. Need to intercept closing of Eve tabs.
791 
792 void TEveBrowser::CloseTab(Int_t id)
793 {
794  // Check if this is an Eve window and destroy accordingly.
795  TGCompositeFrame *pcf = fTabRight->GetTabContainer(id);
796  if (pcf)
797  {
798  TGFrameElement *fe = (TGFrameElement *) pcf->GetList()->First();
799  if (fe)
800  {
801  TEveCompositeFrame *ecf = dynamic_cast<TEveCompositeFrame*>(fe->fFrame);
802  if (ecf)
803  {
804  ecf->GetEveWindow()->DestroyWindowAndSlot();
805  return;
806  }
807  }
808  }
809 
810  // Fallback to standard tab destruction
811  TRootBrowser::CloseTab(id);
812 }
813 
814 ////////////////////////////////////////////////////////////////////////////////
815 /// Virtual from TGMainFrame. Calls TEveManager::Terminate().
816 
817 void TEveBrowser::CloseWindow()
818 {
819  TEveManager::Terminate();
820 }
821 
822 ////////////////////////////////////////////////////////////////////////////////
823 /// Hide the bottom tab (usually holding command-line widget).
824 
825 void TEveBrowser::HideBottomTab()
826 {
827  fV2->HideFrame(fHSplitter);
828  fV2->HideFrame(fH2);
829 }
830 
831 ////////////////////////////////////////////////////////////////////////////////
832 /// TRootBrowser keeps (somewhat unnecessarily) counters for number ob tabs
833 /// on each position. Eve bastardizes the right tab so we have to fix the counters
834 /// when a new window is added ... it doesn't seem to be needed when it is removed.
835 
836 void TEveBrowser::SanitizeTabCounts()
837 {
838  fNbTab[TRootBrowser::kRight] = fTabRight->GetNumberOfTabs();
839  fCrTab[TRootBrowser::kRight] = fTabRight->GetNumberOfTabs() - 1;
840 }