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 // 27 // ------------------------------------------- 28 // GEANT 4 - Underground Dark Matter Detecto 29 // 30 // For information related to this code c 31 // e-mail: alexander.howard@cern.ch 32 // ------------------------------------------- 33 // Comments 34 // 35 // Underground Advanced 36 // by A. Howard and H. Araujo 37 // (27th November 2001) 38 // 39 // StackingActionMessenger program 40 // ------------------------------------------- 41 42 #include "DMXStackingActionMessenger.hh" 43 44 #include <sstream> 45 46 #include "DMXStackingAction.hh" 47 48 #include "G4UIcmdWithABool.hh" 49 #include "G4UIcommand.hh" 50 #include "globals.hh" 51 52 53 DMXStackingActionMessenger::DMXStackingActionM 54 (DMXStackingAction* msa) :DMXAction(msa) { 55 56 KillGammasCmd = new G4UIcmdWithABool("/dmx/K 57 KillGammasCmd-> 58 SetGuidance("Kills gammas produced by neut 59 KillGammasCmd->SetGuidance("Default = false" 60 KillGammasCmd->SetParameterName("KillGammasF 61 KillGammasCmd->SetDefaultValue(false); 62 63 } 64 65 DMXStackingActionMessenger::~DMXStackingAction 66 67 delete KillGammasCmd; 68 } 69 70 void DMXStackingActionMessenger::SetNewValue 71 (G4UIcommand* command, G4String newValue) { 72 73 if(command==KillGammasCmd) { 74 G4int vl; 75 const char* t = newValue; 76 std::istringstream is(t); 77 is >> vl; 78 DMXAction->SetKillGammasFlag(vl!=0); 79 } 80 81 } 82 83