source: trunk/MagicSoft/Mars/mmain/MMonteCarlo.cc@ 854

Last change on this file since 854 was 749, checked in by tbretz, 24 years ago
*** empty log message ***
File size: 2.0 KB
Line 
1/* ======================================================================== *\
2!
3! *
4! * This file is part of MARS, the MAGIC Analysis and Reconstruction
5! * Software. It is distributed to you in the hope that it can be a useful
6! * and timesaving tool in analysing Data of imaging Cerenkov telescopes.
7! * It is distributed WITHOUT ANY WARRANTY.
8! *
9! * Permission to use, copy, modify and distribute this software and its
10! * documentation for any purpose is hereby granted without fee,
11! * provided that the above copyright notice appear in all copies and
12! * that both that copyright notice and this permission notice appear
13! * in supporting documentation. It is provided "as is" without express
14! * or implied warranty.
15! *
16!
17!
18! Author(s): Harald Kornmayer 1/2001 (harald@mppmu.mpg.de)
19! Author(s): Thomas Bretz 12/2000 (tbretz@uni-sw.gwdg.de)
20!
21! Copyright: MAGIC Software Development, 2000-2001
22!
23!
24\* ======================================================================== */
25
26#include "MMonteCarlo.h"
27
28#include <TGButton.h> // TGTextButton
29
30ClassImp(MMonteCarlo)
31
32enum {
33 M_BUTTON_ACTION
34};
35
36MMonteCarlo::MMonteCarlo(const TGWindow *main, const TGWindow *p,
37 const UInt_t w, const UInt_t h )
38 : MBrowser(p, main, w, h)
39{
40
41 fButAction = new TGTextButton(fTop1, "ACTION", M_BUTTON_ACTION );
42 fButAction->Associate(this) ;
43 fTop1->AddFrame (fButAction, new TGLayoutHints(kLHintsTop | kLHintsLeft, 10, 10, 5, 5) );
44
45 MapSubwindows();
46
47 Layout();
48
49 SetWindowName("MonteCarlo Main");
50 SetIconName("MonteCarlo");
51
52 MapWindow();
53}
54
55MMonteCarlo::~MMonteCarlo()
56{
57 delete fButAction;
58}
59
60// ======================================================================
61
62Bool_t MMonteCarlo::ProcessMessage(Long_t msg, Long_t parm1, Long_t parm2)
63{
64 if (GET_MSG(msg) == kC_COMMAND &&
65 GET_SUBMSG(msg) == kCM_BUTTON &&
66 parm1 == M_BUTTON_ACTION)
67 {
68 DisplInfo("Put Intelligence here!");
69 return kTRUE;
70 }
71
72 return MBrowser::ProcessMessage(msg, parm1, parm2);
73}
Note: See TracBrowser for help on using the repository browser.