Create minimal GUI for event navigation.
67 {
69
70 TEveBrowser* browser = gEve->GetBrowser();
71 browser->StartEmbedding(TRootBrowser::kLeft);
72
73 TGMainFrame* frmMain = new TGMainFrame(gClient->GetRoot(), 1000, 600);
74 frmMain->SetWindowName("XX GUI");
75 frmMain->SetCleanup(kDeepCleanup);
76 frmMain->SetLayoutBroken(kTRUE);
77 int posy=5;
78 TGLabel *fLabel = new TGLabel(frmMain,"List files");
79 fLabel->MoveResize(5,posy,60,20);
80
81 posy+=20;
82 TGTextButton *fb = new TGTextButton(frmMain,"Update");
83 fb->Connect("Clicked()", "EdbEDAListTab", this, "ReviceFileList()");
84 fb->MoveResize(5,posy,50,20);
85
86
87 fb = new TGTextButton(frmMain,"Read");
88 fb->Connect("Clicked()", "EdbEDAListTab", this, "ReadSelectedList()");
89 fb->MoveResize(60,posy,60,20);
90
91
95
96
97 posy+=25;
98 int dy=100;
99
100
105
106 posy+=dy+10;
107 dy =10;
108 fLabel = new TGLabel(frmMain,"Opened list");
109 fLabel->MoveResize(5,posy,70,dy);
110
111
112 posy+=dy;
113 dy =60;
117
118 posy+=dy+5;
119 dy =20;
120
121 fb = new TGTextButton(frmMain,"Save current track list");
122
123 fb->Connect("Clicked()", "EdbEDAListTab", this, "WriteListFile()");
124 fb->MoveResize(100,posy,130, dy);
125
126 posy+=dy+10;
127 dy =370;
131
132 frmMain->MapSubwindows();
133 frmMain->Resize();
134 frmMain->MapWindow();
135
136 browser->StopEmbedding();
137 browser->SetTabTitle("Lists", 0);
138}
TGListBox * fListFilesOpened
Definition: EdbEDATabs.h:14
TGTextEditor * fListFileEditor
Definition: EdbEDATabs.h:15
TGListBox * fListFiles
Definition: EdbEDATabs.h:13
TGCheckButton * fCheck_list_clear_previous
Definition: EdbEDATabs.h:16
void ReviceFileList()
Definition: EdbEDATabs.C:26
#define NULL
Definition: nidaqmx.h:84