22#include "TProfile2D.h"
24#include "TGraphErrors.h"
25#include "TGraphAsymmErrors.h"
26#include "TMultiGraph.h"
29#include "TDirectory.h"
36#include "TObjString.h"
39#include "TVirtualTreePlayer.h"
42#include "TGo4LockGuard.h"
84 Bool_t
Use()
const override {
return kFALSE; }
88 if (
fObject == obj)
return kTRUE;
90 Bool_t updatedone =
false;
93 if ((
fObject->IsA() == obj->IsA()) &&
94 (strcmp(
fObject->GetName(), obj->GetName()) == 0))
102 if (owner)
delete obj;
112 if (!
fObject && !strong)
return;
130 const char *viewpath,
131 Bool_t withRootBrowser)
142 Info(
"~TGo4BrowserProxy",
"Called");
168 Info(
"~TGo4BrowserProxy",
"Finished");
178 gROOT->GetClass(
"TH1");
179 gROOT->GetClass(
"TH1C");
180 gROOT->GetClass(
"TH1D");
181 gROOT->GetClass(
"TH1F");
182 gROOT->GetClass(
"TH1I");
183 gROOT->GetClass(
"TH1S");
184 gROOT->GetClass(
"TH2");
185 gROOT->GetClass(
"TH2C");
186 gROOT->GetClass(
"TH2D");
187 gROOT->GetClass(
"TH2F");
188 gROOT->GetClass(
"TH2I");
189 gROOT->GetClass(
"TH2S");
190 gROOT->GetClass(
"TH3");
191 gROOT->GetClass(
"TH3C");
192 gROOT->GetClass(
"TH3D");
193 gROOT->GetClass(
"TH3F");
194 gROOT->GetClass(
"TH3I");
195 gROOT->GetClass(
"TH3S");
197 gROOT->GetClass(
"TGo4WinCond");
198 gROOT->GetClass(
"TGo4PolyCond");
199 gROOT->GetClass(
"TGo4ShapedCond");
200 gROOT->GetClass(
"TGo4CondArray");
202 gROOT->GetClass(
"TGo4Fitter");
203 gROOT->GetClass(
"TGo4Parameter");
204 gROOT->GetClass(
"TGo4Picture");
206 gROOT->GetClass(
"TGo4DynamicEntry");
207 gROOT->GetClass(
"TGo4HistogramEntry");
208 gROOT->GetClass(
"TGo4TreeHistogramEntry");
209 gROOT->GetClass(
"TLatex");
210 gROOT->GetClass(
"TF1");
211 gROOT->GetClass(
"TGo4AnalysisStatus");
222 fxOM->UnregisterLink(slot);
230 bool ischildevent = source->
IsParent(slot);
234 if ((source!=slot) && !ischildevent) {
247 }
else if ((source != slot) && ischildevent) {
276 return fxOM->GetSlot(slotname.Data());
283 return fxOM->GetSlot(slotname.Data());
317 if (!cl || !cl->IsLoaded())
return 0;
325 return fxOM->RequestObject(src.Data(), tgt.Data(), wait_time);
345 if (!itemslot)
return kFALSE;
348 if (itemslot->
IsParent(memslot) && !tgtpath)
return kFALSE;
351 if (!tgtslot)
return kFALSE;
352 if ((tgtslot == itemslot) || tgtslot->
IsParent(itemslot))
return kFALSE;
358 for (Int_t n = 0; n < itemslot->
NumChilds(); n++)
365 if (!tgtslot)
return kFALSE;
366 if (!tgtslot->
GetSlot(itemslot->GetName(), kTRUE))
return kFALSE;
373 subpath += itemslot->GetName();
375 tgtpath = subpath.Data();
378 for (Int_t n = 0; n <= childs.GetLast(); n++) {
391 if (!tgtslot)
return kFALSE;
392 if (!tgtslot->
IsParent(memslot) && (tgtslot!=memslot))
return kFALSE;
393 if (itemslot->
GetParent() == tgtslot)
return kFALSE;
394 if (memslot!=tgtslot)
402 if (!obj || forcerequest) {
404 if (res == 0)
return kFALSE;
406 if ((res == 1) || !forcerequest)
411 TString res =
SaveToMemory(pathname, obj->Clone(), kTRUE);
412 return res.Length() > 0;
436 if (!itemslot)
return;
439 for (Int_t n = 0; n <=
fxClipboard->GetLast(); n++) {
448 fxClipboard->Add(
new TNamed(itemname,
"clipboard item"));
460 for (Int_t n = 0; n <=
fxClipboard->GetLast(); n++)
466 if (!fname || (*fname == 0))
return;
487 if (!nodename || (*nodename == 0))
return kFALSE;
490 if (!proxy->
Connect(nodename)) {
495 const char *slotname = nodename;
496 if (strncmp(slotname,
"dabc://",7) == 0) slotname+=7;
506 const char *basename,
507 const char *userpass,
521 TString capt =
"HServ_";
524 AddServerProxy(hserv, capt.Data(),
"Connection to histogram server");
539 for (Int_t n = 0; n < slot->
NumChilds(); n++) {
554 for (Int_t n = 0; n < slot->
NumChilds(); n++) {
557 if (pr) arr->Add(pr);
568 for (Int_t n = 0; n < slot->
NumChilds(); n++) {
571 if (pr) arr->Add(pr);
582 for (Int_t n = 0; n < slot->
NumChilds(); n++) {
588 (strncmp(pr->
GetServerName(),
"https://",8) == 0)) arr->Add(pr);
605 TString &createdhistoname)
607 if (!Xexp || strlen(Xexp) == 0)
return;
609 TString varexp(Xexp);
611 if(Yexp && strlen(Yexp) > 0) {
612 varexp = TString(Yexp) + TString(
":") + varexp;
614 varexp = TString(Zexp) + TString(
":") + varexp;
617 int drawdim = varexp.CountChar(
':') + 1;
618 if (drawdim > 3) drawdim = 3;
624 TString analhname(hname);
627 TString anitem =
"abcdef";
628 if (analhname.IsNull())
629 while (anitem.Length() > 0) {
630 analhname =
"hTreeDraw";
631 if (cnt > 0) { analhname+=
"_"; analhname+=cnt; }
636 an->
RemoteTreeDraw(objname.Data(), varexp.Data(), cutcond, analhname.Data());
640 createdhistoname =
"";
647 TString treeslotname;
649 TTree *SelectedTree =
dynamic_cast<TTree *
> (
fxOM->GetObject(treeslotname.Data()));
650 if (!SelectedTree)
return;
652 TString histoname(hname), hslotname;
656 TH1 *histo =
nullptr;
660 if (histo && (drawdim != histo->GetDimension())) {
668 if (!histo && histoname.IsNull())
671 histoname +=
"/hTreeDraw_";
674 hslot =
fxOM->GetSlot(hslotname.Data());
677 TString hfoldername, hobjectname;
681 hobjectname = histo->GetName();
684 varexp += hobjectname;
686 TDirectory *oldhisdir = histo ? histo->GetDirectory() :
nullptr;
687 TDirectory *savdir = gDirectory;
688 gDirectory =
nullptr;
689 TDirectory dummydir(
"DummyTreeDraw",
"Dummy directory to call tree draw");
692 histo->SetDirectory(&dummydir);
694 SelectedTree->Draw(varexp, cutcond,
"goff", 10000000, 0);
697 histo =
dynamic_cast<TH1 *
> (dummydir.FindObject(hobjectname));
699 histo->SetDirectory(
nullptr);
705 histo->SetDirectory(oldhisdir);
725 while (iter.
next()) {
732 if (!serv || ((kind == 1) && !serv->
IsGo4Analysis()))
continue;
741 if (res && !databranch) {
756 if (!slot || !itemname)
770 if (!slot || !itemname)
779 if (!analslot || !objname)
return TString(
"");
782 while (iter.
next()) {
783 if (strcmp(iter.
getname(), objname) != 0)
continue;
797 if (!topslot || !objname)
return TString(
"");
801 if (strcmp(iter.
getname(), objname) == 0)
810 if (!slot)
return nullptr;
825 const char *objectname =
nullptr;
827 TGo4Slot *servslot =
fxOM->FindSlot(slotname.Data(), &objectname);
831 if (!serv)
return nullptr;
833 if (objname) *objname = objectname;
845 if (!slot)
return kFALSE;
848 if (!obj)
return kFALSE;
850 const char *analysisname =
nullptr;
856 anslot =
fxOM->FindSlot(slotname.Data(), &analysisname);
860 analysisname =
nullptr;
871 if (!itemslot)
return;
877 while (iter.
next()) {
883 if (wait_time == 0)
return;
907 if (!guislot)
return nullptr;
911 if ((update == 0) || ((update == 1) && obj))
return obj;
917 fxOM->RequestObject(src.Data(), tgt.Data(), (update < 10) ? 0 : update);
944 if (itemslot->
GetPar(
"::CopyObject") !=
nullptr) {
951 fxOM->DeleteSlot(src.Data());
972 return fxOM->GetSlot(slotname.Data());
980 if (!slot)
return kFALSE;
985 if (cl && cl->InheritsFrom(TTree::Class()))
break;
988 if (!treeslot)
return kFALSE;
997 if (!itemname || !treename)
return kFALSE;
1002 if (!slot)
return kFALSE;
1006 int ilen = strlen(itemname);
1007 int tlen = strlen(treename);
1008 if ((ilen < tlen) || (strncmp(itemname, treename, tlen) != 0))
1011 leafname = slot->GetName();
1017 if (!objname || (*objname == 0))
return kFALSE;
1020 objectitem = objname;
1032 if (*objname!=
'/') searchname+=
"/";
1033 searchname+=objname;
1040 searchname.Append(
";1");
1041 slot =
fxOM->GetSlot(searchname.Data());
1045 objectitem = searchname;
1053 if (strchr(objname,
'/')) {
1055 if ((mask & 2) == 0)
return kFALSE;
1061 const char *slash = strchr(objname,
'/');
1064 slash = strchr(slash+1,
'/');
1068 if (!
DefineRelatedObject(itemname, TString(objname, slash-objname).Data(), diritem, 0))
break;
1070 int kind =
ItemKind(diritem.Data());
1082 if ((mask & 1) == 0)
return kFALSE;
1088 size_t len = strlen(objname);
1089 while (iter.
next()) {
1090 const char *name = iter.
getname();
1092 if (strncmp(objname, name, len) != 0)
continue;
1094 if ((strlen(name) == len) ||
1095 ((strlen(name)==(len+2)) && (strcmp(name+len,
";1") == 0))) {
1103 }
while (searchslot);
1111 if (!slot)
return kFALSE;
1117 if (cl && cl->InheritsFrom(TFile::Class()))
break;
1125 *filepath = itemname + fitemname.Length();
1126 if (**filepath==
'/') (*filepath)++;
1137 if (!slot)
return kFALSE;
1140 if (!obj)
return kFALSE;
1143 if (!fileslot)
return kFALSE;
1146 if (!dircont)
return kFALSE;
1159 if (!slot)
return kFALSE;
1162 if (!obj)
return kFALSE;
1164 TFile *f = TFile::Open(filename,
"UPDATE");
1165 if (!f)
return kFALSE;
1167 TDirectory *dir = f;
1169 if (subfolder && *subfolder) {
1170 dir =
dynamic_cast<TDirectory *
> (f->Get(subfolder));
1175 bool res = dir->WriteTObject(obj, obj->GetName(),
"Overwrite") > 0;
1177 if (obj->InheritsFrom(TH1::Class()))
1178 ((TH1 *) obj)->SetDirectory(
nullptr);
1187 const char *filename,
1188 const char *filedir,
1190 const char *description)
1192 if (!items || (items->GetSize() == 0))
return;
1201 if (convert.Contains(
"ASCII")) {
1204 }
else if (convert.Contains(
"Radware")) {
1207 }
else if (convert.Contains(
"ROOT XML")) {
1210 }
else if (convert.Contains(
"ROOT")) {
1220 TObjString* str =
dynamic_cast<TObjString*
> (items->At(0));
1224 TString fname = filename;
1227 if(!fname.Contains(
".xml")) fname.Append(
".xml");
1229 if(!fname.Contains(
".root")) fname.Append(
".root");
1232 if (itemslot && (itemslot->
NumChilds() > 0)) {
1244 TGo4Log::Message(1,
"Exporting selected browser objects to %s", convert.Data());
1247 for (
int n = 0; n <= items->GetLast(); n++) {
1248 TObjString *str =
dynamic_cast<TObjString *
>(items->At(n));
1259 exman.
Export(&objs, filter);
1265 TString result,folder;
1274 if (convert.Contains(
"ASCII")) {
1277 folder =
"Imports/Ascii";
1278 }
else if (convert.Contains(
"Ortec")) {
1281 folder =
"Imports/OrtecMCA";
1291 result=
SaveToMemory(folder.Data(),histo, kTRUE, kFALSE);
1293 TGo4Log::Message(1,
"Importing %s Histogram from file %s to %s.", convert.Data(), filename ,result.Data());
1302 const char *selectedpath,
1303 const char *description)
1307 if (!toppath)
return kFALSE;
1312 TFile *f = TFile::Open(filename,
"recreate", description);
1313 if (!f)
return kFALSE;
1315 fxOM->SaveDataToFile(f, kTRUE, toppath);
1329 if (!slot)
return kFALSE;
1331 if (!slot->
GetIntPar(
"GUI::Remote", remote))
return kFALSE;
1337 TString analysisname;
1343 if (stime && sdate) {
1344 slot->
SetPar(
"GUI::Time", stime);
1345 slot->
SetPar(
"GUI::Date", sdate);
1350 const char *datetime = t.AsSQLString();
1351 char *time = (
char *) strchr(datetime,
' ');
1353 slot->
SetPar(
"GUI::Time", datetime);
1354 slot->
SetPar(
"GUI::Date", datetime);
1356 slot->
SetPar(
"GUI::Time", time+1);
1358 slot->
SetPar(
"GUI::Date", datetime);
1364 return !slot ? nullptr : slot->
GetPar(
"GUI::Time");
1369 return !slot ? nullptr : slot->
GetPar(
"GUI::Date");
1375 slot->
SetPar(
"::LinkedItem", itemname);
1380 return !slot ? nullptr : slot->
GetPar(
"::LinkedItem");
1399 if (kind >= 0) slot->
SetIntPar(
"GUI::Kind", kind);
1401 slot->
SetPar(
"GUI::Class", classname);
1402 slot->
SetPar(
"GUI::Info", info);
1403 slot->
SetIntPar(
"GUI::SizeInfo", sizeinfo);
1408 return !slot ? nullptr : slot->
GetPar(
"GUI::Info");
1413 if (!slot)
return -1;
1415 if (!slot->
GetIntPar(
"GUI::SizeInfo", sizeinfo))
return -1;
1427 if (!slot)
return 0;
1429 if (!slot->
GetIntPar(
"GUI::CalcSize", size))
return 0;
1445 return !slot ? nullptr : slot->
GetPar(
"GUI::Class");
1460 if (!slot)
return 0;
1463 if (!slot->
GetIntPar(
"GUI::CanDo", cando))
return 0;
1469 if (slot) slot->
SetIntPar(
"GUI::CanDo", cando);
1474 return !slot ? kTRUE : !slot->
GetPar(
"GUI::NotMonitored");
1483 while (iter.
next()) {
1493 slot->
SetPar(
"GUI::NotMonitored",
"1");
1500 return (cando % 1000000000) / 100000000 > 0;
1505 return (cando % 100000000) / 10000000 > 0;
1510 return (cando % 10000000) / 1000000 > 0;
1515 return (cando % 1000000) / 100000 > 0;
1520 return (cando % 100000) / 10000 > 0;
1525 return (cando % 10000) / 1000 > 0;
1530 return (cando % 1000) / 100 > 0;
1535 return (cando % 100) / 10 > 0;
1540 return (cando % 10 > 0);
1545 if (foldername && *foldername)
1548 TString fullpathname;
1551 fxOM->MakeFolder(fullpathname);
1558 if (!itemslot || !newfoldername || (strlen(newfoldername) == 0))
return;
1561 if (!itemslot->
IsParent(memslot) && (memslot!=itemslot))
return;
1575 if (!itemslot || !newname || (strlen(newname) == 0))
return;
1577 if (strchr(newname,
'/') || strchr(newname,
'\\'))
return;
1580 if (!itemslot->
IsParent(memslot))
return;
1588 slot->SetName(newname);
1590 if (n) n->SetName(newname);
1600 if (!itemslot)
return;
1603 if (!itemslot->
IsParent(memslot))
return;
1611 if(ob->InheritsFrom(TH1::Class())) {
1612 TH1 *his =
dynamic_cast<TH1 *
>(ob);
1613 if (his) his->Reset();
1615 if(ob->InheritsFrom(TGo4DynamicEntry::Class())) {
1617 if (entry) entry->
Reset();
1619 if(ob->InheritsFrom(TGo4Picture::Class())) {
1621 if (pic) pic->
Reset();
1623 if(ob->InheritsFrom(TGraph::Class())) {
1624 TGraph *gr =
dynamic_cast<TGraph *
>(ob);
1626 Int_t pn = gr->GetN();
1631 if(ob->InheritsFrom(TMultiGraph::Class())) {
1632 TMultiGraph *mg =
dynamic_cast<TMultiGraph *
>(ob);
1634 TIter liter(mg->GetListOfGraphs());
1635 while(
auto gr = (TGraph *) liter()) {
1636 Int_t pn = gr->GetN();
1652 if (!obj)
return TString(
"");
1655 if (pathname && (*pathname != 0)) {
1662 TString itemname = path;
1664 itemname+=obj->GetName();
1672 TString fullpathname;
1675 TGo4Slot *slot =
fxOM->Add(fullpathname.Data(), obj, ownership, kTRUE);
1692 TString picitemname;
1703 for (Int_t posy = 0; posy < pic->
GetDivY(); posy++)
1704 for (Int_t posx = 0; posx < pic->
GetDivX(); posx++)
1718 TIter iter(gROOT->GetList());
1719 while (
auto obj = iter()) {
1723 gROOT->GetList()->Clear();
1729 if(on) slot->
SetPar(
"GUI::CanDelete",
"1");
1736 return !slot ? kFALSE : slot->
GetPar(
"GUI::CanDelete") !=
nullptr;
1761 if (!viewslot)
return 0;
1765 TObjArray UniqueItems;
1769 while (iter.
next()) {
1775 if (srcslot && srcslot->
IsParent(brslot) && !UniqueItems.FindObject(srcslot))
1776 UniqueItems.Add(srcslot);
1780 Int_t nrequests = 0;
1781 for (
int n = 0; n <= UniqueItems.GetLast(); n++) {
1793 Int_t nrequests = 0;
1797 while (iter.
next()) {
1819 Bool_t anready = kTRUE;
1849 slot->
SetIntPar(
"GUI::DeleteProtect", delprot);
1853 slot->
SetIntPar(
"GUI::ResetProtect", clearprot);
1860 delprot = -1; clearprot = -1;
1862 if (!slot->
GetIntPar(
"GUI::DeleteProtect", delprot)) delprot = -1;
1863 if (!slot->
GetIntPar(
"GUI::ResetProtect", clearprot)) clearprot = -1;
1873 if (!source)
return;
1876 if (!curfold)
return;
1882 const char *EventsFolder =
"EventObjects/Events/";
1887 Bool_t res = iter.
next();
1892 while (levelchange++ < 0) {
1901 if (!curfold)
break;
1908 while (find && (strcmp(iter.
getname(), find->GetName()) != 0))
1914 if (find!=curslot) {
1922 const char *ppp = strstr(fullname, EventsFolder);
1924 ppp += strlen(EventsFolder);
1925 if ((strlen(ppp) != 0) && !strchr(ppp,
'/')) {
1927 classname =
nullptr;
1938 TObject *assobj =
nullptr;
1959 if (curslot && curslot->
IsParent(targetslot))
1978 if (!topslot)
return 0;
1984 for (Int_t n = 0; n < topslot->
NumChilds(); n++)
2009 if (cl->InheritsFrom(TProfile::Class())) { cando = 1110; pixmap =
"profile_t.png"; }
else
2010 if (cl->InheritsFrom(TProfile2D::Class())) { cando = 1110; pixmap =
"col.png"; }
else
2011 if (cl->InheritsFrom(TGo4Picture::Class())) { cando = 110; pixmap =
"picture.png"; }
else
2012 if (cl->InheritsFrom(TGo4Parameter::Class())) { cando = 1011; pixmap =
"parameter.png"; }
else
2013 if (cl->InheritsFrom(TMultiGraph::Class())) { cando = 1110; pixmap =
"superimpose.png"; }
else
2014 if (cl->InheritsFrom(THStack::Class())) { cando = 1110; pixmap =
"superimpose.png"; }
else
2015 if (cl->InheritsFrom(TGraph::Class())) { cando = 1001110; pixmap =
"tgraph.png"; }
else
2016 if (cl->InheritsFrom(TGo4Fitter::Class())) { cando = 11; pixmap =
"fitter.png"; }
else
2017 if (cl->InheritsFrom(TCanvas::Class())) { cando = 110; pixmap =
"canvas.png"; }
else
2018 if (cl->InheritsFrom(TFile::Class())) { pixmap =
"rootdb_t.png"; }
else
2019 if (cl->InheritsFrom(TTree::Class())) { pixmap =
"tree_t.png"; }
else
2020 if (cl->InheritsFrom(TFolder::Class())) { pixmap =
"folder_t.png"; }
else
2021 if (cl->InheritsFrom(TDirectory::Class())) { pixmap =
"folder_t.png"; }
else
2022 if (cl->InheritsFrom(TH3::Class())) { cando = 1101110; pixmap =
"h3_t.png"; }
else
2023 if (cl->InheritsFrom(TH2::Class())) { cando = 1101110; pixmap =
"h2_t.png"; }
else
2024 if (cl->InheritsFrom(TH1::Class())) { cando = 1101110; pixmap =
"h1_t.png"; }
else
2025 if (cl->InheritsFrom(TGo4WinCond::Class())) { cando = 101011; pixmap =
"windcond.png"; }
else
2026 if (cl->InheritsFrom(TGo4PolyCond::Class())) { cando = 101011; pixmap =
"polycond.png"; }
else
2027 if (cl->InheritsFrom(TGo4ShapedCond::Class())) { cando = 101011; pixmap =
"polycond.png"; }
else
2028 if (cl->InheritsFrom(TGo4ListCond::Class())) { cando = 101011; pixmap =
"windcond.png"; }
else
2029 if (cl->InheritsFrom(TGo4CondArray::Class())) { cando = 101011; pixmap =
"windcondarray.png"; }
else
2030 if (cl->InheritsFrom(TGo4TreeHistogramEntry::Class())) { cando = 1011; pixmap =
"dynentryx.png"; }
else
2031 if (cl->InheritsFrom(TGo4HistogramEntry::Class())) { cando = 1011; pixmap =
"dynentryx.png"; }
else
2032 if (cl->InheritsFrom(TLatex::Class())) { cando = 110; pixmap =
"canvas.png"; }
else
2033 if (cl->InheritsFrom(TF1::Class())) { cando = 110; pixmap =
"draw1dline.png"; }
else
2034 if (cl->InheritsFrom(TLeaf::Class())) { cando = 11; pixmap =
"leaf_t.png"; }
else
2035 if (cl->InheritsFrom(TGo4AnalysisStatus::Class())) { cando = 1; pixmap =
"control.png"; }
2038 pixmap =
"folder_t.png";
2039 if (cl && cl->InheritsFrom(TTree::Class())) { cando = 10; pixmap =
"tree_t.png"; }
else
2040 if (cl && cl->InheritsFrom(TCanvas::Class())) { cando = 110; pixmap =
"canvas.png"; }
else
2041 if (cl && cl->InheritsFrom(THStack::Class())) { cando = 110; pixmap =
"superimpose.png"; }
else
2042 if (cl && cl->InheritsFrom(TFile::Class())) { cando = 10000; pixmap =
"rootdb_t.png"; }
else
2043 if (cl && cl->InheritsFrom(TGo4HServProxy::Class())) { cando = 10000; pixmap =
"histserv.png"; }
else
2044 if (cl && cl->InheritsFrom(TGo4DabcProxy::Class())) { cando = 10000; pixmap =
"dabc.png"; }
else
2045 if (cl && cl->InheritsFrom(TGo4AnalysisProxy::Class())) { pixmap =
"analysiswin.png"; }
else
2046 if (cl && cl->InheritsFrom(TGo4ServerProxy::Class())) { cando = 10000; pixmap =
"http.png"; }
2049 pixmap =
"branch_t.png";
2051 cando = 11; pixmap =
"leaf_t.png";
2053 cando = 1011; pixmap =
"parameter.png";
2055 cando = 10; pixmap =
"eventitem.png";
2057 cando = 100010; pixmap =
"eventobj.png";
2059 cando = 100000000; pixmap =
"eventobj.png";
2067 if (v1==v2)
return kTRUE;
2069 return (fabs(v1-v2) <= scale);
2079 if (!ax1 || !ax2)
return 0;
2081 Int_t num1 = ax1->GetNbins();
2082 Int_t num2 = ax2->GetNbins();
2084 Double_t scale = fabs(ax1->GetXmax() - ax1->GetXmin()) / (num1+1.) * 1e-3;
2086 if ((num1 != num2)) {
2088 if ((num1 > num2/2) || (num1 < 2))
return 0;
2090 Int_t rebin = num2/num1;
2091 if (rebin == 0)
return 0;
2094 if ((ax1->GetXbins()->GetSize() != 0) || (ax2->GetXbins()->GetSize() != 0))
return 0;
2101 if (num1*rebin!=num2) xmax = ax2->GetBinUpEdge(num1*rebin);
2102 else xmax = ax2->GetXmax();
2110 if ((ax1->GetXbins()->GetSize() == 0) && (ax2->GetXbins()->GetSize() == 0)) {
2114 for (Int_t n=1;n<=num1;n++)
2116 ax2->GetBinCenter(n), scale))
return 0;
2124 Bool_t tdisp = kFALSE;
2127 if (obj->InheritsFrom(TProfile::Class())) {
2128 auto profile =
dynamic_cast<TProfile *
>(obj);
2129 auto profile2 =
dynamic_cast<TProfile *
>(newobj);
2130 if (!profile || !profile2)
return kFALSE;
2131 if (profile->GetNbinsX() != profile2->GetNbinsX())
return kFALSE;
2132 profile2->Copy(*profile);
2134 }
else if (obj->InheritsFrom(TProfile2D::Class())) {
2135 auto profile =
dynamic_cast<TProfile2D *
>(obj);
2136 auto profile2 =
dynamic_cast<TProfile2D *
>(newobj);
2137 if (!profile || !profile2)
return kFALSE;
2138 if ((profile->GetNbinsX() != profile2->GetNbinsX()) || (profile->GetNbinsY() != profile2->GetNbinsY()))
return kFALSE;
2139 profile2->Copy(*profile);
2141 }
else if (obj->InheritsFrom(TH1::Class())) {
2142 auto histo =
dynamic_cast<TH1 *
>(obj);
2143 auto histo2 =
dynamic_cast<TH1 *
>(newobj);
2144 if (!histo || !histo2)
return kFALSE;
2146 if (
dynamic_cast<TProfile *
>(obj) ||
dynamic_cast<TProfile2D *
>(obj))
return kFALSE;
2148 if (histo->GetDimension() != histo2->GetDimension())
return kFALSE;
2150 histo->SetTitle(histo2->GetTitle());
2152 Int_t rebinx = 1, rebiny = 1;
2154 rebinx =
CompareAxis(histo->GetXaxis(), histo2->GetXaxis());
2155 if (histo->GetDimension()>1)
2156 rebiny =
CompareAxis(histo->GetYaxis(), histo2->GetYaxis());
2157 if (histo->GetDimension()>2)
2158 if (
CompareAxis(histo->GetZaxis(), histo2->GetZaxis())!=1)
return kFALSE;
2160 if ((rebinx == 0) || (rebiny == 0))
return kFALSE;
2164 if ((rebinx>1) || (rebiny>1)) {
2165 if (!hasrebinx || !hasrebiny)
return kFALSE;
2167 TH1 *clon = (TH1 *) histo2->Clone(
"____dummyhisto____");
2168 if (!clon)
return kFALSE;
2169 clon->SetDirectory(
nullptr);
2170 Bool_t rebinres = kFALSE;
2172 if (histo->GetDimension() == 1) {
2173 clon->Rebin(rebinx);
2175 }
else if (histo->GetDimension() == 2) {
2176 TH2 *h2 =
dynamic_cast<TH2 *
>(clon);
2178 h2->Rebin2D(rebinx, rebiny);
2184 *hasrebinx = rebinx;
2185 *hasrebiny = rebiny;
2191 Int_t sz = histo->GetNbinsX()+2;
2192 if (histo->GetDimension()>1)
2193 sz = sz*(histo->GetNbinsY()+2);
2194 if (histo->GetDimension()>2)
2195 sz = sz*(histo->GetNbinsZ()+2);
2196 Bool_t canrebin = histo->CanExtendAllAxes();
2197 histo->SetCanExtend(TH1::kNoAxis);
2199 for (
int n = 0; n < sz; n++) {
2200 Stat_t value = histo2->GetBinContent(n);
2202 histo->SetBinContent(n, value);
2205 if (canrebin) histo->SetCanExtend(TH1::kAllAxes);
2207 histo->SetEntries(sum);
2209 TArrayD *sumw_tgt =
nullptr, *sumw_src =
nullptr;
2211 if (histo2->GetSumw2N() > 0)
2212 sumw_src = histo2->GetSumw2();
2216 histo->GetSumw2()->Set(0);
2218 if(histo->GetSumw2N() == 0)
2220 sumw_tgt = histo->GetSumw2();
2223 if (sumw_src && sumw_tgt)
2224 sumw_tgt->Set(sz, sumw_src->GetArray());
2227 }
else if (obj->InheritsFrom(TGo4Condition::Class())) {
2230 if (!cond || !newcond)
return kFALSE;
2236 }
else if (obj->InheritsFrom(TGraphAsymmErrors::Class())) {
2237 TGraphAsymmErrors* gr =
dynamic_cast<TGraphAsymmErrors*
> (obj);
2238 TGraph *newgr =
dynamic_cast<TGraph *
> (newobj);
2239 if (!gr || !newgr)
return kFALSE;
2241 gr->SetTitle(newgr->GetTitle());
2243 Int_t npoints = newgr->GetN();
2245 Double_t xp, yp, exh, exl, eyh, eyl;
2246 for (Int_t n = 0; n < npoints; n++) {
2247 newgr->GetPoint(n, xp, yp);
2248 gr->SetPoint(n, xp, yp);
2249 exh = newgr->GetErrorXhigh(n);
2250 exl = newgr->GetErrorXlow(n);
2251 eyh = newgr->GetErrorYhigh(n);
2252 eyl = newgr->GetErrorYlow(n);
2253 gr->SetPointError(n, exl, exh, eyl, eyh);
2259 }
else if (obj->InheritsFrom(TGraphErrors::Class())) {
2260 TGraphErrors* gr =
dynamic_cast<TGraphErrors*
> (obj);
2261 TGraph *newgr =
dynamic_cast<TGraph *
> (newobj);
2262 if (!gr || !newgr)
return kFALSE;
2264 gr->SetTitle(newgr->GetTitle());
2266 Int_t npoints = newgr->GetN();
2268 Double_t xp, yp, ex, ey;
2269 for (Int_t n = 0; n < npoints; n++) {
2270 newgr->GetPoint(n, xp, yp);
2271 gr->SetPoint(n, xp, yp);
2272 ex = newgr->GetErrorX(n);
2273 ey = newgr->GetErrorY(n);
2274 gr->SetPointError(n, ex, ey);
2281 }
else if (obj->InheritsFrom(TGraph::Class())) {
2282 TGraph *gr =
dynamic_cast<TGraph *
> (obj);
2283 TGraph *newgr =
dynamic_cast<TGraph *
> (newobj);
2284 if (!gr || !newgr)
return kFALSE;
2288 gr->SetTitle(newgr->GetTitle());
2290 Int_t npoints = newgr->GetN();
2293 for (Int_t n = 0; n < npoints; n++) {
2294 newgr->GetPoint(n, xp, yp);
2295 gr->SetPoint(n, xp, yp);
2301 }
else if (obj->InheritsFrom(TLatex::Class())) {
2302 TLatex *l0 =
dynamic_cast<TLatex *
> (obj);
2303 TLatex *l1 =
dynamic_cast<TLatex *
> (newobj);
2304 if (!l1 || !l0)
return kFALSE;
2306 l0->SetTitle(l1->GetTitle());
2309 }
else if (obj->InheritsFrom(TF1::Class())) {
2310 TF1 *f0 =
dynamic_cast<TF1 *
> (obj);
2311 TF1 *f1 =
dynamic_cast<TF1 *
> (newobj);
2312 if (!f1 || !f0)
return kFALSE;
2323 TH1 *h1 = gr->GetHistogram();
2324 TAxis *xax = h1->GetXaxis();
2325 timedisplay = xax->GetTimeDisplay();
2326 format = xax->GetTimeFormat();
2332 TH1 *h1 = gr->GetHistogram();
2333 TAxis *xax = h1->GetXaxis();
2334 xax->SetTimeDisplay(timedisplay);
2335 xax->SetTimeFormat(format.Data());
2341 if(!oldgr || !newgr)
return;
2342 TList *theFunctions = oldgr->GetListOfFunctions();
2343 TObject *obj =
nullptr;
2344 while ((obj = theFunctions->First()) !=
nullptr) {
2345 while (theFunctions->Remove(obj)) { }
2349 TList *newFunctions = newgr->GetListOfFunctions();
2350 TListIter fiter(newFunctions);
2351 while(
auto fun =
dynamic_cast<TF1 *
>(fiter())) {
2352 TF1 *fclon =
dynamic_cast<TF1 *
>(fun->Clone());
2353 theFunctions->Add(fclon);
2354 fclon->SetParent(oldgr);
2358 TH1 *oldhis = oldgr->GetHistogram();
2359 TH1 *newhis = newgr->GetHistogram();
2360 if(oldhis && newhis) {
2361 oldhis->GetXaxis()->SetTitle(newhis->GetXaxis()->GetTitle());
2362 oldhis->GetYaxis()->SetTitle(newhis->GetYaxis()->GetTitle());
2370 if(!oldh || !newh)
return;
2371 TList *theFunctions = oldh->GetListOfFunctions();
2372 TObject *obj =
nullptr;
2373 while ((obj = theFunctions->First()) !=
nullptr) {
2374 while (theFunctions->Remove(obj)) { }
2378 TList *newFunctions = newh->GetListOfFunctions();
2379 TListIter fiter(newFunctions);
2380 while(
auto fun =
dynamic_cast<TF1 *
>(fiter())) {
2381 TF1 *fclon =
dynamic_cast<TF1 *
>(fun->Clone());
2382 theFunctions->Add(fclon);
2383 fclon->SetParent(oldh);
2392 if (!itemslot)
return;
2398 TNamed *n = (TNamed*)
fxWaitingList->FindObject(itemname.Data());
2400 n->SetTitle(destination);
2402 fxWaitingList->Add(
new TNamed(itemname.Data(), destination));
2412 TNamed *n = (TNamed*)
fxWaitingList->FindObject(itemname.Data());
2414 const char *dest = n->GetTitle();
2415 if (dest && (strlen(dest) == 0)) dest =
nullptr;
2426 TIter next(gROOT->GetListOfCanvases());
2427 while (
auto pad = (TPad *) next()) {
2431 while (
auto subpad = pad->GetPad(number++))
TGo4BrowserObjProxy(TGo4Slot *slot, TObject *obj, Bool_t owner)
Bool_t Use() const override
virtual ~TGo4BrowserObjProxy()
Bool_t AssignObject(TGo4Slot *slot, TObject *obj, Bool_t owner) override
void Update(TGo4Slot *slot, Bool_t strong) override
static Bool_t CompareAxisValues(Double_t v1, Double_t v2, Double_t scale)
virtual ~TGo4BrowserProxy()
void CheckWaitingList(TGo4Slot *source)
Int_t RequestBrowserObject(const char *name, Int_t wait_time=0)
void RenameMemoryItem(const char *itemname, const char *newname)
static bool CanExportItem(int cando)
void ImportObjectFromFile(const char *filename, const char *filedir, const char *format)
Bool_t SaveBrowserToFile(const char *filename, Bool_t prefetch=kFALSE, const char *selectedpath=nullptr, const char *description=nullptr)
Bool_t SaveItemToFile(const char *itemname, const char *filename, const char *subfolder=nullptr)
TGo4AnalysisProxy * FindAnalysis(const char *itemname=nullptr)
Bool_t DefineTreeName(const char *itemname, TString &treename)
Bool_t IsCanDelete(TGo4Slot *slot) const
static void SetLinkedName(TGo4Slot *slot, const char *itemname)
void SetItemKind(TGo4Slot *slot, Int_t kind, const char *classname, const char *info, Int_t sizeinfo)
TGo4Slot * FindServerSlot(Bool_t databranch, Int_t kind=0)
void MakeDabcList(TObjArray *arr)
void PerformTreeDraw(const char *treename, const char *Xexp, const char *Yexp, const char *Zexp, const char *cutcond, const char *hname, TString &createdhistoname)
void Initialize(TGo4Slot *slot) override
Bool_t DeleteDataSource(TGo4Slot *itemslot)
TGo4Slot * BrowserSlot(const char *item=nullptr)
static bool CanCloseItem(int cando)
Bool_t DefineLeafName(const char *itemname, const char *treename, TString &leafname)
TGo4ServerProxy * DefineServerProxy(const char *itemname)
void MakeFilesList(TObjArray *arr)
TGo4Slot * BrowserTopSlot()
TGo4ServerProxy * DefineAnalysisObject(const char *itemname, TString &analysisname)
TGo4Slot * ItemSlot(const char *itemname)
static bool CanExecuteItem(int cando)
Int_t ItemSizeInfo(TGo4Slot *slot)
Bool_t ProduceExplicitCopy(const char *itemname, const char *tgtpath=nullptr, Bool_t forcerequest=kFALSE)
TObject * GetBrowserObject(const char *name, Int_t update=0)
void ToggleMonitoring(Int_t period)
Int_t UpdateAllMonitoredObjects()
void CreateMemoryFolder(const char *foldername=nullptr)
void CreateMemorySubfolder(const char *itemname, const char *newfoldername)
static bool CanExpandItem(int cando)
static void SetItemCanDo(TGo4Slot *slot, Int_t cando)
TString SaveToMemory(const char *pathname, TObject *obj, Bool_t ownership, Bool_t overwrite=kFALSE)
static bool CanClearItem(int cando)
Int_t ItemCanDo(const char *name)
void SetProtectionBits(TGo4Slot *slot, Int_t delprot, Int_t clearprot)
void ExportItemsTo(TObjArray *items, Bool_t fetchitems, const char *filename, const char *filedir, const char *format, const char *description)
Int_t ItemKind(const char *name)
TGo4Slot * DataSlot(const char *item)
static Int_t CompareAxis(TAxis *ax1, TAxis *ax2)
Int_t GetCalcSize(TGo4Slot *slot)
Bool_t ConnectHServer(const char *servername, Int_t portnumber, const char *basename, const char *userpass, const char *filter)
Bool_t DefineFileObject(const char *itemname, TString &filedataslot, const char **filepath)
TGo4Slot * BrowserMemorySlot()
void RedrawItem(const char *itemname)
void SetCanDelete(TGo4Slot *slot, Bool_t on=kTRUE)
void GetProtectionBits(TGo4Slot *slot, Int_t &delprot, Int_t &clearprot)
static const char * ItemTime(TGo4Slot *slot)
void FetchItem(const char *itemname, Int_t wait_time=0)
TGo4ServerProxy * FindServer(const char *itemname=nullptr, Bool_t asanalysis=kTRUE)
void SetItemsFilter(Int_t filter)
void SetItemMonitored(TGo4Slot *slot, Bool_t on=kTRUE)
void CopyClipboard(const char *tgtpath, Bool_t forcerequest=kFALSE)
static void SaveAxisTimeProperties(TGraph *gr, Bool_t &timedisplay, TString &format)
void ClearMemoryItem(const char *itemname)
static const char * ItemInfo(TGo4Slot *slot)
Int_t UpdateVisibleAnalysisObjects(bool checkmonitor)
void BrowserSlotName(const char *item, TString &res) const
void Finalize(TGo4Slot *slot) override
static Bool_t UpdateObjectContent(TObject *obj, TObject *newobj, Int_t *hasrebinx=nullptr, Int_t *hasrebiny=nullptr)
Bool_t UpdateAnalysisItem(const char *itemname, TObject *obj=nullptr)
Bool_t BrowserItemName(TGo4Slot *itemslot, TString &res)
static Int_t DefineItemProperties(Int_t kind, TClass *cl, TString &pixmap)
static void UpdateListOfFunctions(TGraph *oldgr, TGraph *newgr)
preserve fit result functions contained in any graph-like objects
void AddServerProxy(TGo4ServerProxy *serv, const char *slotname, const char *info)
void AddWaitingList(TGo4Slot *itemslot, const char *destination=nullptr)
TVirtualTreePlayer * fDummyTreePlayer
void AddToClipboard(const char *itemname)
Bool_t IsItemRemote(const char *name)
Bool_t DefineRelatedObject(const char *itemname, const char *objectname, TString &objectitem, Int_t mask=3)
static void RestoreAxisTimeProperties(TGraph *gr, Bool_t &timedisplay, TString &format)
void DataSlotName(const char *item, TString &res) const
static bool CanInfoItem(int cando)
static bool CanEditItem(int cando)
static const char * GetLinkedName(TGo4Slot *slot)
static const char * ItemDate(TGo4Slot *slot)
Bool_t ProcessEvent(TGo4Slot *slot, TGo4Slot *source, Int_t id, void *param) override
void InformBrowserUpdate()
Bool_t HandleTimer(TTimer *timer) override
static bool CanDrawItem(int cando)
const char * ItemClassName(const char *name)
TString FindItemInAnalysis(const char *objname)
TGo4ServerProxy * DefineServerObject(const char *itemname, TString *objname=nullptr, Bool_t onlyanalysis=kTRUE)
Int_t CalculateFolderSizes(TGo4Slot *topslot)
Bool_t IsItemMonitored(TGo4Slot *slot) const
TClass * ItemClass(const char *name)
void DoItemMonitor(TGo4Slot *slot)
Bool_t ConnectDabc(const char *nodename)
void RequestObjectStatus(const char *name, TGo4Slot *tgtslot)
TString FindItem(const char *objname)
Bool_t IsAnalysisItem(const char *name)
Bool_t IsClipboard() const
void MakeHttpList(TObjArray *arr)
void UpdateBrowserContent()
void MakeHServerList(TObjArray *arr)
void OpenFile(const char *fname)
static bool CanDragItem(int cando)
void SetCalcSize(TGo4Slot *slot, Int_t size)
void CheckPictureMonitor(TGo4Slot *slot)
static void UpdateHistoListOfFunctions(TH1 *oldh, TH1 *newh)
JAM24: also preserve fit result functions contained in any TH1.
static void SetItemTimeDate(TGo4Slot *slot, const char *stime=nullptr, const char *sdate=nullptr)
Bool_t UpdateObjectInFile(const char *itemname, const char *fileslotname, const char *filepath)
virtual Bool_t UpdateFrom(TGo4Condition *cond, Bool_t counts)
Copy values from cond to this.
virtual void SetChanged(Bool_t on=kTRUE)
Bool_t Connect(const char *nodename)
Bool_t UpdateObjectInFile(const char *filepath, TObject *obj)
ABC for all entries that can be kept in a dynamic list.
virtual void Reset()
Resets this entry to an initial status.
This class manages all export and import conversions of objects to/from different file formats like a...
void SetOutFileComment(const char *comment=nullptr)
void SetStartDir(const char *dir=nullptr)
void SetOutFile(const char *filename=nullptr)
void Export(TObject *ob, Go4Export_t format)
Conversion of object into selected file format in working dir.
void SetCurrentDir(const char *dir=nullptr)
TH1 * ImportHistogram(const char *filename, Go4Import_t format)
create imported histogram from file of given name
void SetHServConfig(const char *servername, Int_t portnumber, const char *basename, const char *userpass, const char *filter)
Bool_t RefreshNamesList() override
Bool_t next(Bool_t goesinto=kTRUE)
const char * getfullname()
TGo4Slot * getslot() const
const char * getclassname()
Int_t getflag(const char *flagname)
Int_t levelchange() const
TGo4Slot * GetLink() const
static const char * Message(Int_t prio, const char *text,...) GO4_PRINTF2_ARGS
Display a message.
Bool_t AssignObject(TGo4Slot *slot, TObject *obj, Bool_t owner) override
Picture cconfiguration in Go4.
Int_t GetNumObjNames() const
const char * GetObjName(Int_t n) const
TGo4Picture * FindPic(Int_t posy, Int_t posx)
virtual const char * GetContainedClassName() const
static TClass * GetClass(const char *classname, Bool_t load=kFALSE)
special base class for remote data servers like DABC, HTTP, hist server
virtual Bool_t IsConnected() const
virtual Bool_t IsGo4Analysis() const
virtual const char * GetServerName() const
virtual void RemoteTreeDraw(const char *treename, const char *varexp, const char *cutcond, const char *hname)
virtual Bool_t RequestObjectStatus(const char *objectname, TGo4Slot *tgtslot)
virtual Bool_t UpdateAnalysisObject(const char *objectname, TObject *obj)
virtual Bool_t DelayedRefreshNamesList(Int_t delay_sec)
virtual Int_t NumberOfWaitingProxyes()
TGo4Slot * GetParent() const
TString GetFullName(TGo4Slot *toparent=nullptr)
virtual TGo4ObjectManager * GetOM() const
virtual void Update(Bool_t strong=kFALSE)
Bool_t GetIntPar(const char *name, Int_t &value) const
Bool_t IsParent(const TGo4Slot *slot) const
TGo4Proxy * GetProxy() const
void SetProxy(TGo4Proxy *cont)
TGo4Slot * GetSlot(const char *name, Bool_t force=kFALSE)
TGo4Slot * FindChild(const char *name) const
void ForwardEvent(TGo4Slot *source, Int_t id, void *param=nullptr)
static void ProduceFolderAndName(const char *fullname, TString &foldername, TString &objectname)
virtual void ProduceFullName(TString &name, TGo4Slot *toparent=nullptr)
Bool_t AssignObject(TObject *obj, Bool_t owner)
Bool_t ShiftSlotBefore(TGo4Slot *slot, TGo4Slot *before)
void DeleteChilds(const char *startedwith=nullptr)
void SetPar(const char *name, const char *value)
void RemovePar(const char *name)
void SetIntPar(const char *name, Int_t value)
TObject * GetAssignedObject()
const char * GetPar(const char *name) const
TGo4Slot * GetChild(Int_t n) const
TGo4Slot * GetNext() const