RMidasFrame Class Reference

Inheritance diagram for RMidasFrame:

Collaboration diagram for RMidasFrame:

Public Member Functions
	RMidasFrame (const TGWindow *p, UInt_t w, UInt_t h, char *host="localhost")
	~RMidasFrame ()
void	CloseWindow ()
Bool_t	ProcessMessage (Long_t msg, Long_t param1, Long_t param2)

Private Member Functions
int	ConnectServer ()
void	GetHistoList ()
void	GetHisto (const char *name)
void	ClearHisto (const char *name)

Private Attributes
TGMenuBar *	fMenuBar
TGPopupMenu *	fMenuFile
TGTab *	fTab
TGCompositeFrame *	fTabHisto
TGCompositeFrame *	fTabStatus
TGHorizontalFrame *	fHorz1
TGHorizontalFrame *	fHorz2
TGHorizontalFrame *	fHorz3
TGListBox *	fListBox
TRootEmbeddedCanvas *	fCanvas
TGTextButton *	fBUpdate
TGTextButton *	fBClear
char	fHost [256]
TSocket *	fSock
TObjArray *	fHistoNames
TH1 *	fHisto

Detailed Description

Definition at line 233 of file rmidas.c.

Constructor & Destructor Documentation

RMidasFrame()

RMidasFrame::RMidasFrame	(	const TGWindow *	p,
		UInt_t	w,
		UInt_t	h,
		char *	host = "localhost"
	)

Definition at line 389 of file rmidas.c.

                                    :TGMainFrame(p, w, h)
{
   /* save host name */
   if (host)
      strcpy(fHost, host);
   else
      fHost[0] = 0;
   fSock = NULL;
 
   /* Create Menus */
   fMenuFile = new TGPopupMenu(fClient->GetRoot());
   fMenuFile->AddEntry("&Connect to ...", M_FILE_CONNECT);
   fMenuFile->AddEntry("E&xit", M_FILE_EXIT);
   fMenuFile->Associate(this);
 
   fMenuBar = new TGMenuBar(this, 1, 1, kHorizontalFrame);
   fMenuBar->AddPopup("&File", fMenuFile,
                      new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 4, 0, 0));
 
   AddFrame(fMenuBar,
            new TGLayoutHints(kLHintsTop | kLHintsLeft | kLHintsExpandX, 0, 0, 1, 1));
 
   /* Create tab widget */
   fTab = new TGTab(this, 600, 400);
 
  /*---- histo tab ----*/
 
   TGCompositeFrame *tf = fTab->AddTab("Histo");
   fTabHisto = new TGCompositeFrame(tf, 60, 20, kVerticalFrame);
 
   /* Create a horizonal frame containing histo selection tree and canvas */
   fHorz1 = new TGHorizontalFrame(fTabHisto, 600, 400);
   fTabHisto->AddFrame(fHorz1,
                       new TGLayoutHints(kLHintsExpandX | kLHintsExpandY, 3, 3, 3, 0));
 
   /* Create ListBox widget */
   fListBox = new TGListBox(fHorz1, 1);
   fListBox->Resize(100, 400);
   fListBox->Associate(this);
   fHorz1->AddFrame(fListBox, new TGLayoutHints(kLHintsExpandY, 0, 0, 0, 0));
 
   /* Create an embedded canvas and add to the main frame, centered in x and y */
   fCanvas = new TRootEmbeddedCanvas("Canvas", fHorz1, 400, 400);
   fHorz1->AddFrame(fCanvas,
                    new TGLayoutHints(kLHintsExpandX | kLHintsExpandY, 0, 0, 0, 0));
 
   /* Create a horizonal frame containing text buttons */
   fHorz2 = new TGHorizontalFrame(fTabHisto, 600, 30);
   fTabHisto->AddFrame(fHorz2, new TGLayoutHints(kLHintsExpandX, 0, 0, 0, 0));
 
   /* Create "Update" button */
   fBUpdate = new TGTextButton(fHorz2, "Update", B_UPDATE);
   fBUpdate->Associate(this);
   fHorz2->AddFrame(fBUpdate, new TGLayoutHints(kLHintsCenterX, 10, 10, 4, 4));
 
   /* Create "Clear" button */
   fBClear = new TGTextButton(fHorz2, "Clear", B_CLEAR);
   fBClear->Associate(this);
   fHorz2->AddFrame(fBClear, new TGLayoutHints(kLHintsCenterX, 10, 10, 4, 4));
 
   tf->AddFrame(fTabHisto, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 0, 0, 0));
 
  /*---- status tab ----*/
 
   tf = fTab->AddTab("Status");
   fTabStatus = new TGCompositeFrame(tf, 60, 20, kVerticalFrame);
   /*
      fHorz3 = new TGHorizontalFrame(fTabStatus, 600, 400);
      fTabStatus->AddFrame(fHorz3, new TGLayoutHints(kLHintsExpandX|kLHintsExpandY, 0, 0, 0, 0));
      fHorz3->AddFrame(new TGLabel(fTabStatus, "Test"), new TGLayoutHints(kLHintsExpandX|kLHintsExpandY, 0, 0, 0, 0));
    */
   fTabStatus->
       AddFrame(new TGLabel(fTabStatus, "Here will come the experiment status display"),
                new TGLayoutHints(kLHintsTop, 100, 100, 100, 0));
   tf->AddFrame(fTabStatus, new TGLayoutHints(kLHintsTop | kLHintsLeft, 0, 0, 0, 0));
 
  /*--------------------*/
 
   AddFrame(fTab, new TGLayoutHints(kLHintsExpandX | kLHintsExpandY, 0, 0, 0, 0));
 
   SetWindowName("RMidas");
 
   MapSubwindows();
   Resize(GetDefaultSize());
   MapWindow();
 
   fHisto = 0;
   fHistoNames = 0;
 
   /* connect to MRootServer */
   ConnectServer();
}

Here is the call graph for this function:

~RMidasFrame()

RMidasFrame::~RMidasFrame

(

)

Definition at line 545 of file rmidas.c.

{
   // Clean up
 
   delete fMenuBar;
   delete fMenuFile;
   delete fHisto;
   delete fHistoNames;
   delete fSock;
   delete fBUpdate;
   delete fHorz1;
   delete fHorz2;
   delete fCanvas;
}

Member Function Documentation

ClearHisto()

void RMidasFrame::ClearHisto ( const char *  name )

private

Definition at line 378 of file rmidas.c.

{
   char str[32];
 
   sprintf(str, "CLEAR %s", name);
   fSock->Send(str);
   fSock->Recv(str, sizeof(str));
}

Here is the call graph for this function:

Here is the caller graph for this function:

CloseWindow()

void RMidasFrame::CloseWindow

(

)

Definition at line 483 of file rmidas.c.

{
   // Got close message for this MainFrame. Terminate the application
   // or returns from the TApplication event loop (depending on the
   // argument specified in TApplication::Run()).
 
   gApplication->Terminate(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

ConnectServer()

int RMidasFrame::ConnectServer ( )

private

Definition at line 274 of file rmidas.c.

{
   char str[80];
 
   if (fSock) {
      /* disconnect first */
      fSock->Close();
      delete fSock;
      fSock = NULL;
 
      SetWindowName("RMidas");
 
      fListBox->RemoveEntries(0, 999);
   }
 
   if (fHost[0] == 0) {
      new TGTextDialog(gClient->GetRoot(), this, 100, 100, "&Host name:", fHost);
   }
 
   /* Connect to RMidasServ */
   fSock = new TSocket(fHost, 9090);
 
   if (!fSock->IsValid()) {
      sprintf(str, "Cannot connect to RMidas server on host %s, port 9090\n", fHost);
      new TGMsgBox(gClient->GetRoot(), this, "Error", str, kMBIconExclamation, 0, NULL);
 
      SetWindowName("RMidas");
      return 0;
   } else {
      fSock->Recv(str, sizeof(str));
      if (strncmp(str, "RMSERV", 6)) {
         sprintf(str, "RMidas server not found on host %s, port 9090\n", fHost);
         new TGMsgBox(gClient->GetRoot(), this, "Error", str, kMBIconExclamation, 0,
                      NULL);
 
         fSock->Close();
         delete fSock;
         fSock = NULL;
 
         SetWindowName("RMidas");
         return 0;
      } else {
         sprintf(str, "RMidas connected to %s", fHost);
         SetWindowName(str);
         GetHistoList();
         return 1;
      }
   }
}

Here is the call graph for this function:

Here is the caller graph for this function:

GetHisto()

void RMidasFrame::GetHisto ( const char *  name )

private

Definition at line 351 of file rmidas.c.

{
   TMessage *m;
   char str[32];
 
   sprintf(str, "GET %s", name);
   fSock->Send(str);
   fSock->Recv(m);
 
   if (fHisto)
      delete fHisto;
 
   fHisto = (TH1 *) m->ReadObject(m->GetClass());
 
   if (!fHisto)
      printf("Histo \"%s\" not available\n", name);
   else
      fHisto->Draw();
 
   fCanvas->GetCanvas()->Modified();
   fCanvas->GetCanvas()->Update();
 
   delete m;
}

Here is the call graph for this function:

Here is the caller graph for this function:

GetHistoList()

void RMidasFrame::GetHistoList ( )

private

Definition at line 326 of file rmidas.c.

{
   int i;
 
   fSock->Send("LIST");
 
   TMessage *m;
   fSock->Recv(m);
 
   if (fHistoNames)
      delete fHistoNames;
 
   fHistoNames = (TObjArray *) m->ReadObject(m->GetClass());
 
   for (i = 0; i < fHistoNames->GetLast() + 1; i++)
      fListBox->AddEntry((const char *) ((TObjString *) (fHistoNames->At(i)))->String(),
                         i);
 
   fListBox->MapSubwindows();
   fListBox->Layout();
   delete m;
}

Here is the call graph for this function:

Here is the caller graph for this function:

ProcessMessage()

Bool_t RMidasFrame::ProcessMessage	(	Long_t	msg,
		Long_t	param1,
		Long_t	param2
	)

Definition at line 492 of file rmidas.c.

{
   // Process messages coming from widgets associated with the dialog.
 
   switch (GET_MSG(msg)) {
   case kC_COMMAND:
 
      switch (GET_SUBMSG(msg)) {
      case kCM_MENU:
         switch (param1) {
         case M_FILE_EXIT:
            CloseWindow();
            break;
 
         case M_FILE_CONNECT:
            fHost[0] = 0;
            ConnectServer();
            break;
         }
         break;
 
      case kCM_BUTTON:
         switch (param1) {
         case B_UPDATE:
            if (fHisto)
               GetHisto((char *) fHisto->GetName());
            break;
 
         case B_CLEAR:
            if (fHisto) {
               ClearHisto((char *) fHisto->GetName());
               GetHisto((char *) fHisto->GetName());
            }
            break;
         }
         break;
 
      case kCM_LISTBOX:
         GetHisto((const char *) ((TObjString *) (fHistoNames->At(param2)))->String());
         break;
 
 
      case kCM_TAB:
         //printf("Tab item %ld activated\n", param1);
         break;
      }
      break;
 
   }
 
   return kTRUE;
}

Here is the call graph for this function:

Member Data Documentation

fBClear

TGTextButton* RMidasFrame::fBClear

private

Definition at line 251 of file rmidas.c.

fBUpdate

TGTextButton* RMidasFrame::fBUpdate

private

Definition at line 250 of file rmidas.c.

fCanvas

TRootEmbeddedCanvas* RMidasFrame::fCanvas

private

Definition at line 248 of file rmidas.c.

fHisto

TH1* RMidasFrame::fHisto

private

Definition at line 257 of file rmidas.c.

fHistoNames

TObjArray* RMidasFrame::fHistoNames

private

Definition at line 256 of file rmidas.c.

fHorz1

TGHorizontalFrame* RMidasFrame::fHorz1

private

Definition at line 243 of file rmidas.c.

fHorz2

TGHorizontalFrame* RMidasFrame::fHorz2

private

Definition at line 244 of file rmidas.c.

fHorz3

TGHorizontalFrame* RMidasFrame::fHorz3

private

Definition at line 245 of file rmidas.c.

fHost

char RMidasFrame::fHost[256]

private

Definition at line 253 of file rmidas.c.

fListBox

TGListBox* RMidasFrame::fListBox

private

Definition at line 247 of file rmidas.c.

fMenuBar

TGMenuBar* RMidasFrame::fMenuBar

private

Definition at line 236 of file rmidas.c.

fMenuFile

TGPopupMenu* RMidasFrame::fMenuFile

private

Definition at line 237 of file rmidas.c.

fSock

TSocket* RMidasFrame::fSock

private

Definition at line 254 of file rmidas.c.

fTab

TGTab* RMidasFrame::fTab

private

Definition at line 239 of file rmidas.c.

fTabHisto

TGCompositeFrame* RMidasFrame::fTabHisto

private

Definition at line 240 of file rmidas.c.

fTabStatus

TGCompositeFrame* RMidasFrame::fTabStatus

private

Definition at line 241 of file rmidas.c.

---

The documentation for this class was generated from the following file:

• examples/gui/rmidas.c