Geant4 Cross Reference |
1 // 1 2 // ******************************************* 3 // * License and Disclaimer 4 // * 5 // * The Geant4 software is copyright of th 6 // * the Geant4 Collaboration. It is provided 7 // * conditions of the Geant4 Software License 8 // * LICENSE and available at http://cern.ch/ 9 // * include a list of copyright holders. 10 // * 11 // * Neither the authors of this software syst 12 // * institutes,nor the agencies providing fin 13 // * work make any representation or warran 14 // * regarding this software system or assum 15 // * use. Please see the license in the file 16 // * for the full disclaimer and the limitatio 17 // * 18 // * This code implementation is the result 19 // * technical work of the GEANT4 collaboratio 20 // * By using, copying, modifying or distri 21 // * any work based on the software) you ag 22 // * use in resulting scientific publicati 23 // * acceptance of all terms of the Geant4 Sof 24 // ******************************************* 25 // 26 /// \file eventgenerator/particleGun/src/Prima 27 /// \brief Implementation of the PrimaryGenera 28 // 29 // 30 //....oooOO0OOooo........oooOO0OOooo........oo 31 //....oooOO0OOooo........oooOO0OOooo........oo 32 33 #include "PrimaryGeneratorMessenger.hh" 34 35 #include "PrimaryGeneratorAction.hh" 36 37 #include "G4UIcmdWithAnInteger.hh" 38 #include "G4UIdirectory.hh" 39 40 //....oooOO0OOooo........oooOO0OOooo........oo 41 42 PrimaryGeneratorMessenger::PrimaryGeneratorMes 43 { 44 fDir = new G4UIdirectory("/gunExample/"); 45 fDir->SetGuidance("this example"); 46 47 fSelectActionCmd = new G4UIcmdWithAnInteger( 48 fSelectActionCmd->SetGuidance("Select primar 49 fSelectActionCmd->SetGuidance("0 uniform in 50 fSelectActionCmd->SetGuidance("1 several ver 51 fSelectActionCmd->SetGuidance("2 Show how to 52 fSelectActionCmd->SetGuidance("3 Divergent b 53 fSelectActionCmd->SetGuidance("4 spherical c 54 fSelectActionCmd->SetParameterName("id", fal 55 fSelectActionCmd->SetRange("id>=0 && id<5"); 56 } 57 58 //....oooOO0OOooo........oooOO0OOooo........oo 59 60 PrimaryGeneratorMessenger::~PrimaryGeneratorMe 61 { 62 delete fSelectActionCmd; 63 delete fDir; 64 } 65 66 //....oooOO0OOooo........oooOO0OOooo........oo 67 68 void PrimaryGeneratorMessenger::SetNewValue(G4 69 { 70 if (command == fSelectActionCmd) 71 fAction->SelectAction(fSelectActionCmd->Ge 72 } 73 74 //....oooOO0OOooo........oooOO0OOooo........oo 75