source: branches/start/MagicSoft/Mars/mgui/MGMarsMain.cc@ 9534

#include "MGMarsMain.h"

#include <TApplication.h>  // gROOT->GetApplication()->...

#include <TGTab.h>         // TGTab
#include <TGMenu.h>        // TGPopupMenu
#include <TGMsgBox.h>      // TGMsgBox
#include <TGButton.h>      // TGPictureButton
#include <TGSplitter.h>    // TGHorizontal3DLine

#include "MGDataCheckMain.h"

ClassImp(MGMarsMain)

MGMarsMain::MGMarsMain(const TGWindow *p, UInt_t w, UInt_t h)
  : TGMainFrame(p, w, h)
{ 
  //    First create the MenuBar.   
  
  //     Layout objects for menue. 

  fLayMenuBar = new TGLayoutHints ( kLHintsTop | kLHintsLeft | kLHintsExpandX, 2, 2, 2, 2 ) ; 
  fLayMenuItem = new TGLayoutHints ( kLHintsTop | kLHintsLeft , 0, 4, 0, 0 ) ; 
  
  //  crate the menu bar
  
  fFileMenu = new TGPopupMenu ( fClient->GetRoot() ) ; 
  fFileMenu->AddEntry ("Exit", M_FILE_EXIT ) ; 
  fFileMenu->Associate(this) ; 
  
  //  the button messages are handled by main frame (this) 
  
  fMenuBar = new TGMenuBar ( this, 1, 1, kHorizontalFrame ) ; 
  fMenuBar->AddPopup("File", fFileMenu, fLayMenuItem ) ;   
  AddFrame(fMenuBar, fLayMenuBar ) ; 

  fLineSep = new TGHorizontal3DLine(this) ; 
  AddFrame(fLineSep, new TGLayoutHints(kLHintsTop | kLHintsExpandX) );
  
  //   set up the top part of the main window with the logos

  fTop = new TGHorizontalFrame (this, 300, 100 ) ;

  fPicMagic = new TGPictureButton(fTop, 
                                  gClient->GetPicture("magiclogo.xpm"), M_PICTURE_MAGIC );
  fPicMagic->Associate(this) ; 
  fTop->AddFrame ( fPicMagic, new TGLayoutHints(kLHintsLeft, 10., 10., 20., 10.) ) ; 

  fPicMars = new TGPictureButton(fTop, 
                                 gClient->GetPicture("marslogo.xpm"), M_PICTURE_MARS );
  fPicMars->Associate(this) ;
  fTop->AddFrame ( fPicMars, new TGLayoutHints(kLHintsLeft, 10., 10., 10., 10.) ) ; 

  AddFrame(fTop, new TGLayoutHints(kLHintsTop | kLHintsExpandX ) );  
  
  //  a seperator 

  fLineSep2 = new TGHorizontal3DLine(this) ; 
  AddFrame(fLineSep2, new TGLayoutHints(kLHintsTop | kLHintsExpandX) );

  //   the low part of the frame 

  fLow = new TGHorizontalFrame (this, 300, 100 ) ;

  //    create the first tab

  fTab = new TGTab ( fLow, 400, 400 ) ;   

  TGCompositeFrame *tf = fTab->AddTab("Control") ; 
 
  fTabF1 = new TGVerticalFrame (tf, 300, 100) ; 

  tf->AddFrame(fTabF1, new TGLayoutHints(kLHintsTop | kLHintsExpandX) ) ; 

  //     the buttons to go in the new window

  fTabF2 = new TGVerticalFrame (tf, 300, 100) ; 
  
  fButLayout  = new TGLayoutHints(kLHintsTop | kLHintsCenterX , 10, 10, 10, 10) ; 

  fButEvtDisp = new TGTextButton(fTabF2, "EventDisplay", M_BUTTON_EVTDISP  );
  fButEvtDisp->Associate(this) ;  
  fTabF2->AddFrame(fButEvtDisp, fButLayout ) ; 
 
  fButDataCheck = new TGTextButton(fTabF2, "Data Check", M_BUTTON_DATACHECK  );
  fButDataCheck->Associate(this) ;
  fTabF2->AddFrame(fButDataCheck, fButLayout ) ; 

  fButAnalys = new TGTextButton(fTabF2, "Analysis", M_BUTTON_ANALYSE  );
  fButAnalys->Associate(this) ;
  fTabF2->AddFrame(fButAnalys, fButLayout ) ; 

  fButMonteCarlo = new TGTextButton(fTabF2, "MonteCarlo", M_BUTTON_MONTECARLO  );
  fButMonteCarlo->Associate(this) ;
  fTabF2->AddFrame(fButMonteCarlo, fButLayout ) ; 


   

  tf->AddFrame(fTabF2, new TGLayoutHints(kLHintsTop | kLHintsExpandX) ) ; 
  
  

  fLow->AddFrame ( fTab, new TGLayoutHints(kLHintsBottom | kLHintsExpandX | kLHintsExpandY, 5, 5, 5, 5) );   
  AddFrame(fLow, new TGLayoutHints(kLHintsTop | kLHintsExpandX ) );
  
  //   Map the window, set up the layout, etc. 
  
  SetWMSizeHints(400, 650, 1000, 1000, 10, 10 ) ;  // set the smallest and biggest size of the Main frame
  
  MapSubwindows();
  
  Layout();
  
  SetWindowName("MARS Main Window");
  SetIconName("MARS");
  
  MapWindow();

} 

// ======================================================================

MGMarsMain::~MGMarsMain()
{
  
  delete  fButLayout, fLayMenuBar, fLayMenuItem ; 
  delete  fButEvtDisp, fButDataCheck, fButAnalys, fButMonteCarlo; 
  delete  fPicMagic, fPicMars; 
  delete  fTabF1, fTabF2; 
  delete  fTab; 
  delete  fLow, fTop; 
  delete  fLineSep2, fLineSep; 
  delete  fFileMenu; 
  delete  fMenuBar; 
}  
// ======================================================================

void MGMarsMain::CloseWindow()
{
   // Got close message for this MainFrame. Calls parent CloseWindow()
   // (which destroys the window) and terminate the application.
   // The close message is generated by the window manager when its close
   // window menu item is selected.

   TGMainFrame::CloseWindow();
   gROOT->GetApplication()->Terminate(0)  ; 
}

Bool_t MGMarsMain::ProcessMessage(Long_t msg, Long_t parm1, Long_t)
{     
  // Process events generated by the buttons in the frame.
  //  printf (" process Message \n" ) ; 

  Int_t   buttons = 4, retval = 0 ; 

  
  switch (GET_MSG(msg)) 
    {
    case kC_COMMAND:
      switch (GET_SUBMSG(msg)) 
        {
        case kCM_BUTTON:
          
          switch (parm1)
            {  

            case M_BUTTON_EVTDISP:
              new TGMsgBox(fClient->GetRoot(), this,
                           "WARNING!", 
                           "EventDisplay not yet implemented!", 
                           kMBIconExclamation, buttons, &retval);
              break ;
              
            case M_BUTTON_DATACHECK:
              new MGDataCheckMain(fClient->GetRoot(), this, 1, 1 ) ; 
              break ;

            case M_BUTTON_ANALYSE:
              new TGMsgBox(fClient->GetRoot(), this,
                           "WARNING!", 
                           "Analysis not yet implemented!", 
                           kMBIconExclamation, buttons, &retval);
              break ;

            case M_BUTTON_MONTECARLO:
              new TGMsgBox(fClient->GetRoot(), this,
                           "WARNING!", 
                           "MONTECARLO not yet implemented!", 
                           kMBIconExclamation, buttons, &retval);
              break ;

            case M_PICTURE_MAGIC:
              new TGMsgBox(fClient->GetRoot(), this,
                           "WARNING!", 
                           "Please open a Netscape to the MAGIC homepage", 
                           kMBIconExclamation, buttons, &retval);
              break ;

            case M_PICTURE_MARS:
              new TGMsgBox(fClient->GetRoot(), this,
                           "WARNING!", 
                           "Please open a Netscape to the MARS homepage", 
                           kMBIconExclamation, buttons, &retval);
              break ;

              
            default:
              break ; 
            } 


        case kCM_MENU:
        
          switch (parm1) {
          case M_FILE_EXIT: 
            CloseWindow() ;
            break; 
          }


        default:
          break ;
        }
    
    default:
      break ;
    }

   return kTRUE;
  
}