PamG4/src/PrimaryGeneratorMessenger.cc


#include "PrimaryGeneratorMessenger.hh"

#include "PrimaryGeneratorAction.hh"
#include "G4UIcmdWithAString.hh"


PrimaryGeneratorMessenger::PrimaryGeneratorMessenger(PrimaryGeneratorAction* Gun)
:Action(Gun)
{ 
  RndmCmd = new G4UIcmdWithAString("/gun/random",this);
  RndmCmd->SetGuidance("Shoot randomly the incident particle.");
  RndmCmd->SetGuidance("  Choice : on(default), off");
  RndmCmd->SetParameterName("choice",true);
  RndmCmd->SetDefaultValue("on");
  RndmCmd->SetCandidates("on off");
  RndmCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
}


PrimaryGeneratorMessenger::~PrimaryGeneratorMessenger()
{
  delete RndmCmd;
}


void PrimaryGeneratorMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
{ 
  if( command == RndmCmd )
   { Action->SetRndmFlag(newValue);}
}

// 2005 by G.I.Vasilyev
1	cafagna	1.1
2			#include "PrimaryGeneratorMessenger.hh"
3
4			#include "PrimaryGeneratorAction.hh"
5			#include "G4UIcmdWithAString.hh"
6
7
8
9			PrimaryGeneratorMessenger::PrimaryGeneratorMessenger(PrimaryGeneratorAction* Gun)
10			:Action(Gun)
11			{
12			RndmCmd = new G4UIcmdWithAString("/gun/random",this);
13			RndmCmd->SetGuidance("Shoot randomly the incident particle.");
14			RndmCmd->SetGuidance(" Choice : on(default), off");
15			RndmCmd->SetParameterName("choice",true);
16			RndmCmd->SetDefaultValue("on");
17			RndmCmd->SetCandidates("on off");
18			RndmCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
19			}
20
21
22
23			PrimaryGeneratorMessenger::~PrimaryGeneratorMessenger()
24			{
25			delete RndmCmd;
26			}
27
28
29
30			void PrimaryGeneratorMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
31			{
32			if( command == RndmCmd )
33			{ Action->SetRndmFlag(newValue);}
34			}
35
36			// 2005 by G.I.Vasilyev