re-comitting the same file which was apparently committed with CLRFs
authorshahoian <ruben.shahoyan@cern.ch>
Wed, 9 Jul 2014 13:01:40 +0000 (15:01 +0200)
committershahoian <ruben.shahoyan@cern.ch>
Wed, 9 Jul 2014 13:01:40 +0000 (15:01 +0200)
EVE/macros/alieve_online_new.C

index 186e2b9..f5c1baa 100644 (file)
-/**************************************************************************\r
- * Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *\r
- * See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for          *\r
- * full copyright notice.                                                 *\r
- **************************************************************************/\r
-\r
-#include <../../MONITOR/AliSocket.h>\r
-\r
-class TEveProjectionManager;\r
-class TEveGeoShape;\r
-class TEveUtil;\r
-class AliTriggerAnalysis;\r
-class AliSysInfo;\r
-\r
-TH2D* V0StateHistogram;\r
-\r
-Bool_t gCenterProjectionsAtPrimaryVertex = kFALSE;\r
-\r
-void alieve_online_new()\r
-{\r
-    printf("alieve_online_init() ...\n");\r
- printf("================================ Correct macro r ...\n");\r
\r
-       if (gSystem->Getenv("ALICE_ROOT") != 0)\r
-  {\r
-    gInterpreter->AddIncludePath(Form("%s/MUON", gSystem->Getenv("ALICE_ROOT")));\r
-    gInterpreter->AddIncludePath(Form("%s/MUON/mapping", gSystem->Getenv("ALICE_ROOT")));\r
-  }\r
-  \r
-   AliEveEventManager::SetCdbUri("local://$ALICE_ROOT/OCDB");\r
-  \r
-  Info("alieve_init", "Adding standard macros.");\r
-  TString  hack = gSystem->pwd(); // Problem with TGFileBrowser cding\r
-  alieve_init_import_macros();\r
-  gSystem->cd(hack);\r
-  \r
-  new AliEveEventManager("online", -1);\r
-  //AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event()");\r
-  gEve->AddEvent(AliEveEventManager::GetMaster());\r
-  \r
-  \r
-  TEveUtil::AssertMacro("VizDB_scan.C");\r
-  \r
-  gSystem->ProcessEvents();\r
-   \r
-  \r
-  \r
\r
-  \r
-  AliEveMacroExecutor *exec  = AliEveEventManager::GetMaster()->GetExecutor();\r
-  TEveBrowser         *browser = gEve->GetBrowser();\r
-  browser->ShowCloseTab(kFALSE);\r
-  \r
-\r
-  // Gentle-geom loading changes gGeoManager.\r
-  //TEveGeoManagerHolder mgrRestore;\r
-\r
-  AliEveMultiView *multiView = new AliEveMultiView(kTRUE);\r
-\r
-  TEveUtil::LoadMacro("geom_gentle.C");\r
-  multiView->InitGeomGentle(geom_gentle(),\r
-                             geom_gentle_rphi(), \r
-                             geom_gentle_rhoz(),\r
-                             geom_gentle_rhoz());\r
-\r
-  TEveUtil::LoadMacro("geom_gentle_trd.C");\r
-  multiView->InitGeomGentleTrd(geom_gentle_trd());\r
-\r
-  TEveUtil::LoadMacro("geom_gentle_muon.C");\r
-  multiView->InitGeomGentleMuon(geom_gentle_muon(), kFALSE, kFALSE, kTRUE);\r
-\r
-  //============================================================================\r
-  // Standard macros to execute -- not all are enabled by default.\r
-  //============================================================================\r
-\r
-  \r
-   printf("============ Setting macro executor\n");\r
-\r
-  AliEveMacroExecutor *exec = AliEveEventManager::GetMaster()->GetExecutor();\r
-\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex",             "",                kTRUE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse",     "",                kTRUE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box",         "kFALSE, 3, 3, 3", kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex_spd",         "",                kTRUE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_spd", "",                kTRUE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box_spd",     "kFALSE, 3, 3, 3", kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex_tpc",         "",                kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_tpc", "",                kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box_tpc",     "kFALSE, 3, 3, 3", kFALSE));\r
-\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus ITS",   "its_clusters.C",   "its_clusters"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TPC",   "tpc_clusters.C",   "tpc_clusters"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TRD",   "trd_clusters.C",   "trd_clusters"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TOF",   "tof_clusters.C",   "tof_clusters"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus HMPID", "hmpid_clusters.C", "hmpid_clusters"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus MUON",  "muon_clusters.C",  "muon_clusters"));\r
-\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "DIG EMCAL",   "emcal_digits.C",   "emcal_digits"));\r
-\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ITS",     "its_raw.C",     "its_raw"));\r
-  //  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TPC",     "tpc_raw.C",     "tpc_raw"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TOF",     "tof_raw.C",     "tof_raw"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW VZERO",   "vzero_raw.C",   "vzero_raw", "", kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ACORDE",  "acorde_raw.C",  "acorde_raw", "", kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW MUON",    "muon_raw.C",  "muon_raw"));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW FMD",     "fmd_raw.C",     "fmd_raw"));\r
-\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks",             "", kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks_MI",          "", kFALSE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks_by_category", "", kTRUE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track MUON", "esd_muon_tracks.C", "esd_muon_tracks",        "kTRUE,kFALSE", kTRUE));\r
-  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC FMD",        "fmd_esd.C",           "fmd_esd",                "", kTRUE));\r
-\r
-  // ???\r
-  // exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC TRD", "trd_detectors.C", "trd_detectors",         "", kFALSE));\r
-  // trd_tracks disabled due to memory leaks\r
-\r
-  //----------------------------------------------------------------------------\r
-\r
-  slot = TEveWindow::CreateWindowInTab(browser->GetTabRight());\r
-  slot->StartEmbedding();\r
-  AliEveMacroExecutorWindow* exewin = new AliEveMacroExecutorWindow(exec);\r
-  slot->StopEmbedding("DataSelection");\r
-  exewin->PopulateMacros();\r
-\r
-  //============================================================================\r
-  // Final GUI setup\r
-  //============================================================================\r
-\r
-  browser->GetTabRight()->SetTab(1);\r
-\r
-  browser->StartEmbedding(TRootBrowser::kBottom);\r
-  new AliEveEventManagerWindow(AliEveEventManager::GetMaster());\r
-  browser->StopEmbedding("EventCtrl");\r
-\r
-  browser->MoveResize(0, 0, gClient->GetDisplayWidth(),\r
-                     gClient->GetDisplayHeight() - 32);\r
-\r
-  gEve->GetViewers()->SwitchColorSet();\r
-  gEve->FullRedraw3D(kTRUE);\r
-       gSystem->ProcessEvents();\r
-\r
-  TGLViewer *glv1 = multiView->Get3DView()->GetGLViewer();\r
-  TGLViewer *glv2 = multiView->GetRPhiView()->GetGLViewer();\r
-  TGLViewer *glv3 = multiView->GetRhoZView()->GetGLViewer();\r
-\r
-  glv1->CurrentCamera().RotateRad(-0.4, -1.8);\r
-  glv2->CurrentCamera().Dolly(450, kFALSE, kFALSE);\r
-  glv3->CurrentCamera().Dolly(1500, kFALSE, kFALSE);\r
-\r
-  gEve->FullRedraw3D();\r
-  gSystem->ProcessEvents();\r
-  \r
-  // Register command to call on each event.\r
-  // AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event();");\r
-  //AliEveEventManager::GetMaster()->GotoEvent(-1);\r
\r
-  printf("================================ Connecting to Server ...\n");\r
-   \r
-    //AliEveEventManager::ConnectToServer("tcp://137.138.55.173", 5024);\r
-  if(AliEveEventManager::ConnectToServer("tcp://137.138.93.150", 5024))\r
-  {\r
-         printf("\nconnected\n");\r
-  }    else printf("not connected\n");\r
-    \r
-    AliSocket* subscriber = AliEveEventManager::AssertSubscriber();\r
-  \r
-       if(subscriber ==0) {\r
-               printf("===================== Not connected! ====================\n");\r
-    }\r
-\r
-  \r
-\r
-  gEve->Redraw3D(kTRUE);\r
-    \r
-}\r
-\r
-\r
-Int_t      g_pic_id  = 0;\r
-Int_t      g_pic_max = 100;\r
-TTimeStamp g_pic_prev(0, 0);\r
-\r
-void alieve_online_on_new_event()\r
-{\r
-  AliSysInfo::AddStamp("on_new_event_start");\r
\r
-       AliSysInfo::AddStamp("on_new_event_end");\r
-}\r
-\r
-void alieve_init_import_macros()\r
-{\r
-  // Put macros in the list of browsables, add a macro browser to\r
-  // top-level GUI.\r
-\r
-  TString macdir("$(ALICE_ROOT)/EVE/alice-macros");\r
-  gSystem->ExpandPathName(macdir);\r
-\r
-  TFolder* f = gEve->GetMacroFolder();\r
-  void* dirhandle = gSystem->OpenDirectory(macdir.Data());\r
-  if (dirhandle != 0)\r
-  {\r
-    char* filename;\r
-    TPMERegexp re("\\.C$");\r
-    TObjArray names;\r
-    while ((filename = gSystem->GetDirEntry(dirhandle)) != 0)\r
-    {\r
-      if (re.Match(filename))\r
-       names.AddLast(new TObjString(filename));\r
-    }\r
-    names.Sort();\r
-\r
-    for (Int_t ii=0; ii<names.GetEntries(); ++ii)\r
-    {\r
-      TObjString * si = (TObjString*) names.At(ii);\r
-       f->Add(new TEveMacro(Form("%s/%s", macdir.Data(), (si->GetString()).Data())));\r
-    }\r
-  }\r
-  gSystem->FreeDirectory(dirhandle);\r
-\r
-  gROOT->GetListOfBrowsables()->Add(new TSystemDirectory(macdir.Data(), macdir.Data()));\r
-\r
-  {\r
-    TEveBrowser   *br = gEve->GetBrowser();\r
-    TGFileBrowser *fb = 0;\r
-    fb = br->GetFileBrowser();\r
-    fb->GotoDir(macdir);\r
-    {\r
-      br->StartEmbedding(0);\r
-      fb = br->MakeFileBrowser();\r
-      fb->BrowseObj(f);\r
-      fb->Show();\r
-      br->StopEmbedding();\r
-      br->SetTabTitle("Macros", 0);\r
-      br->SetTab(0, 0);\r
-    }\r
-  }\r
-}\r
+/**************************************************************************
+ * Copyright(c) 1998-2008, ALICE Experiment at CERN, all rights reserved. *
+ * See http://aliceinfo.cern.ch/Offline/AliRoot/License.html for          *
+ * full copyright notice.                                                 *
+ **************************************************************************/
+
+#include <../../MONITOR/AliSocket.h>
+
+class TEveProjectionManager;
+class TEveGeoShape;
+class TEveUtil;
+class AliTriggerAnalysis;
+class AliSysInfo;
+
+TH2D* V0StateHistogram;
+
+Bool_t gCenterProjectionsAtPrimaryVertex = kFALSE;
+
+void alieve_online_new()
+{
+    printf("alieve_online_init() ...\n");
+ printf("================================ Correct macro r ...\n");
+       if (gSystem->Getenv("ALICE_ROOT") != 0)
+  {
+    gInterpreter->AddIncludePath(Form("%s/MUON", gSystem->Getenv("ALICE_ROOT")));
+    gInterpreter->AddIncludePath(Form("%s/MUON/mapping", gSystem->Getenv("ALICE_ROOT")));
+  }
+  
+   AliEveEventManager::SetCdbUri("local://$ALICE_ROOT/OCDB");
+  
+  Info("alieve_init", "Adding standard macros.");
+  TString  hack = gSystem->pwd(); // Problem with TGFileBrowser cding
+  alieve_init_import_macros();
+  gSystem->cd(hack);
+  
+  new AliEveEventManager("online", -1);
+  //AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event()");
+  gEve->AddEvent(AliEveEventManager::GetMaster());
+  
+  
+  TEveUtil::AssertMacro("VizDB_scan.C");
+  
+  gSystem->ProcessEvents();
+   
+  
+  
+  
+  AliEveMacroExecutor *exec  = AliEveEventManager::GetMaster()->GetExecutor();
+  TEveBrowser         *browser = gEve->GetBrowser();
+  browser->ShowCloseTab(kFALSE);
+  
+
+  // Gentle-geom loading changes gGeoManager.
+  //TEveGeoManagerHolder mgrRestore;
+
+  AliEveMultiView *multiView = new AliEveMultiView(kTRUE);
+
+  TEveUtil::LoadMacro("geom_gentle.C");
+  multiView->InitGeomGentle(geom_gentle(),
+                             geom_gentle_rphi(), 
+                             geom_gentle_rhoz(),
+                             geom_gentle_rhoz());
+
+  TEveUtil::LoadMacro("geom_gentle_trd.C");
+  multiView->InitGeomGentleTrd(geom_gentle_trd());
+
+  TEveUtil::LoadMacro("geom_gentle_muon.C");
+  multiView->InitGeomGentleMuon(geom_gentle_muon(), kFALSE, kFALSE, kTRUE);
+
+  //============================================================================
+  // Standard macros to execute -- not all are enabled by default.
+  //============================================================================
+
+  
+   printf("============ Setting macro executor\n");
+
+  AliEveMacroExecutor *exec = AliEveEventManager::GetMaster()->GetExecutor();
+
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex",             "",                kTRUE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse",     "",                kTRUE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box",         "kFALSE, 3, 3, 3", kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex_spd",         "",                kTRUE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_spd", "",                kTRUE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box_spd",     "kFALSE, 3, 3, 3", kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX",         "primary_vertex.C", "primary_vertex_tpc",         "",                kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Ellipse", "primary_vertex.C", "primary_vertex_ellipse_tpc", "",                kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC PVTX Box",     "primary_vertex.C", "primary_vertex_box_tpc",     "kFALSE, 3, 3, 3", kFALSE));
+
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus ITS",   "its_clusters.C",   "its_clusters"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TPC",   "tpc_clusters.C",   "tpc_clusters"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TRD",   "trd_clusters.C",   "trd_clusters"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus TOF",   "tof_clusters.C",   "tof_clusters"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus HMPID", "hmpid_clusters.C", "hmpid_clusters"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "REC Clus MUON",  "muon_clusters.C",  "muon_clusters"));
+
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRunLoader, "DIG EMCAL",   "emcal_digits.C",   "emcal_digits"));
+
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ITS",     "its_raw.C",     "its_raw"));
+  //  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TPC",     "tpc_raw.C",     "tpc_raw"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW TOF",     "tof_raw.C",     "tof_raw"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW VZERO",   "vzero_raw.C",   "vzero_raw", "", kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW ACORDE",  "acorde_raw.C",  "acorde_raw", "", kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW MUON",    "muon_raw.C",  "muon_raw"));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kRawReader, "RAW FMD",     "fmd_raw.C",     "fmd_raw"));
+
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks",             "", kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks_MI",          "", kFALSE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track",      "esd_tracks.C",        "esd_tracks_by_category", "", kTRUE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC Track MUON", "esd_muon_tracks.C", "esd_muon_tracks",        "kTRUE,kFALSE", kTRUE));
+  exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC FMD",        "fmd_esd.C",           "fmd_esd",                "", kTRUE));
+
+  // ???
+  // exec->AddMacro(new AliEveMacro(AliEveMacro::kESD, "REC TRD", "trd_detectors.C", "trd_detectors",         "", kFALSE));
+  // trd_tracks disabled due to memory leaks
+
+  //----------------------------------------------------------------------------
+
+  slot = TEveWindow::CreateWindowInTab(browser->GetTabRight());
+  slot->StartEmbedding();
+  AliEveMacroExecutorWindow* exewin = new AliEveMacroExecutorWindow(exec);
+  slot->StopEmbedding("DataSelection");
+  exewin->PopulateMacros();
+
+  //============================================================================
+  // Final GUI setup
+  //============================================================================
+
+  browser->GetTabRight()->SetTab(1);
+
+  browser->StartEmbedding(TRootBrowser::kBottom);
+  new AliEveEventManagerWindow(AliEveEventManager::GetMaster());
+  browser->StopEmbedding("EventCtrl");
+
+  browser->MoveResize(0, 0, gClient->GetDisplayWidth(),
+                     gClient->GetDisplayHeight() - 32);
+
+  gEve->GetViewers()->SwitchColorSet();
+  gEve->FullRedraw3D(kTRUE);
+       gSystem->ProcessEvents();
+
+  TGLViewer *glv1 = multiView->Get3DView()->GetGLViewer();
+  TGLViewer *glv2 = multiView->GetRPhiView()->GetGLViewer();
+  TGLViewer *glv3 = multiView->GetRhoZView()->GetGLViewer();
+
+  glv1->CurrentCamera().RotateRad(-0.4, -1.8);
+  glv2->CurrentCamera().Dolly(450, kFALSE, kFALSE);
+  glv3->CurrentCamera().Dolly(1500, kFALSE, kFALSE);
+
+  gEve->FullRedraw3D();
+  gSystem->ProcessEvents();
+  
+  // Register command to call on each event.
+  // AliEveEventManager::GetMaster()->AddNewEventCommand("alieve_online_on_new_event();");
+  //AliEveEventManager::GetMaster()->GotoEvent(-1);
+  printf("================================ Connecting to Server ...\n");
+   
+    //AliEveEventManager::ConnectToServer("tcp://137.138.55.173", 5024);
+  if(AliEveEventManager::ConnectToServer("tcp://137.138.93.150", 5024))
+  {
+         printf("\nconnected\n");
+  }    else printf("not connected\n");
+    
+    AliSocket* subscriber = AliEveEventManager::AssertSubscriber();
+  
+       if(subscriber ==0) {
+               printf("===================== Not connected! ====================\n");
+    }
+
+  
+
+  gEve->Redraw3D(kTRUE);
+    
+}
+
+
+Int_t      g_pic_id  = 0;
+Int_t      g_pic_max = 100;
+TTimeStamp g_pic_prev(0, 0);
+
+void alieve_online_on_new_event()
+{
+  AliSysInfo::AddStamp("on_new_event_start");
+       AliSysInfo::AddStamp("on_new_event_end");
+}
+
+void alieve_init_import_macros()
+{
+  // Put macros in the list of browsables, add a macro browser to
+  // top-level GUI.
+
+  TString macdir("$(ALICE_ROOT)/EVE/alice-macros");
+  gSystem->ExpandPathName(macdir);
+
+  TFolder* f = gEve->GetMacroFolder();
+  void* dirhandle = gSystem->OpenDirectory(macdir.Data());
+  if (dirhandle != 0)
+  {
+    char* filename;
+    TPMERegexp re("\\.C$");
+    TObjArray names;
+    while ((filename = gSystem->GetDirEntry(dirhandle)) != 0)
+    {
+      if (re.Match(filename))
+       names.AddLast(new TObjString(filename));
+    }
+    names.Sort();
+
+    for (Int_t ii=0; ii<names.GetEntries(); ++ii)
+    {
+      TObjString * si = (TObjString*) names.At(ii);
+       f->Add(new TEveMacro(Form("%s/%s", macdir.Data(), (si->GetString()).Data())));
+    }
+  }
+  gSystem->FreeDirectory(dirhandle);
+
+  gROOT->GetListOfBrowsables()->Add(new TSystemDirectory(macdir.Data(), macdir.Data()));
+
+  {
+    TEveBrowser   *br = gEve->GetBrowser();
+    TGFileBrowser *fb = 0;
+    fb = br->GetFileBrowser();
+    fb->GotoDir(macdir);
+    {
+      br->StartEmbedding(0);
+      fb = br->MakeFileBrowser();
+      fb->BrowseObj(f);
+      fb->Show();
+      br->StopEmbedding();
+      br->SetTabTitle("Macros", 0);
+      br->SetTab(0, 0);
+    }
+  }
+}