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
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