G4NeutronKillerMessenger.cc

Go to the documentation of this file.
00001 //
00002 // ********************************************************************
00003 // * License and Disclaimer                                           *
00004 // *                                                                  *
00005 // * The  Geant4 software  is  copyright of the Copyright Holders  of *
00006 // * the Geant4 Collaboration.  It is provided  under  the terms  and *
00007 // * conditions of the Geant4 Software License,  included in the file *
00008 // * LICENSE and available at  http://cern.ch/geant4/license .  These *
00009 // * include a list of copyright holders.                             *
00010 // *                                                                  *
00011 // * Neither the authors of this software system, nor their employing *
00012 // * institutes,nor the agencies providing financial support for this *
00013 // * work  make  any representation or  warranty, express or implied, *
00014 // * regarding  this  software system or assume any liability for its *
00015 // * use.  Please see the license in the file  LICENSE  and URL above *
00016 // * for the full disclaimer and the limitation of liability.         *
00017 // *                                                                  *
00018 // * This  code  implementation is the result of  the  scientific and *
00019 // * technical work of the GEANT4 collaboration.                      *
00020 // * By using,  copying,  modifying or  distributing the software (or *
00021 // * any work based  on the software)  you  agree  to acknowledge its *
00022 // * use  in  resulting  scientific  publications,  and indicate your *
00023 // * acceptance of all terms of the Geant4 Software license.          *
00024 // ********************************************************************
00025 //
00026 // $Id: G4NeutronKillerMessenger.cc 69887 2013-05-17 08:17:02Z gcosmo $
00027 //
00028 //---------------------------------------------------------------------------
00029 //
00030 // ClassName:   G4NeutronKillerMessenger
00031 //
00032 // Description: Messenger class
00033 //
00034 // Author:      V.Ivanchenko 26/09/00 for HARP software
00035 //
00036 //----------------------------------------------------------------------------
00037 //
00038 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
00039 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
00040 
00041 #include "G4NeutronKillerMessenger.hh"
00042 #include "G4UIcmdWithADoubleAndUnit.hh"
00043 #include "G4UIdirectory.hh"
00044 #include "G4NeutronKiller.hh"
00045 
00046 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
00047 
00048 G4NeutronKillerMessenger::G4NeutronKillerMessenger(G4NeutronKiller* p)
00049   :killer(p)
00050 {
00051 
00052   dir = new G4UIdirectory("/physics_engine/neutron/");
00053   dir->SetGuidance("control on neutrons");
00054 
00055   eCmd = new G4UIcmdWithADoubleAndUnit("/physics_engine/neutron/energyLimit",this);
00056   eCmd->SetGuidance("Set tracking cut - min energy of a particle.");
00057   eCmd->SetParameterName("energyLimit",false);
00058   eCmd->SetUnitCategory("Energy");
00059   eCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
00060 
00061   tCmd = new G4UIcmdWithADoubleAndUnit("/physics_engine/neutron/timeLimit",this);
00062   tCmd->SetGuidance("Set time limit.");
00063   tCmd->SetParameterName("timeLimit",false);
00064   tCmd->SetUnitCategory("Time");
00065   tCmd->AvailableForStates(G4State_PreInit,G4State_Idle);
00066 }
00067 
00068 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
00069 
00070 G4NeutronKillerMessenger::~G4NeutronKillerMessenger()
00071 {
00072   delete eCmd;
00073   delete tCmd;
00074   delete dir;  
00075 }
00076 
00077 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......
00078 
00079 void G4NeutronKillerMessenger::SetNewValue(G4UIcommand* command, G4String val)
00080 { 
00081   if (command == eCmd)
00082     killer->SetKinEnergyLimit(eCmd->GetNewDoubleValue(val));
00083 
00084   if (command == tCmd)
00085     killer->SetTimeLimit(tCmd->GetNewDoubleValue(val));
00086 }
00087 
00088 //....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo......

Generated on Mon May 27 17:49:05 2013 for Geant4 by  doxygen 1.4.7