Geant4 Cross Reference |
1 // 2 // ******************************************************************** 3 // * License and Disclaimer * 4 // * * 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. * 10 // * * 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitation of liability. * 17 // * * 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************************************** 25 // 26 // Code developed by 27 // Silvia Pozzi (1), silvia.pozzi@iss.it 28 // Barbara Caccia (1), barbara.caccia@iss.it 29 // Carlo Mancini Terracciano (2), carlo.mancini.terracciano@roma1.infn.it 30 // (1) Istituto Superiore di Sanita' and INFN Roma, Italy 31 // (2) Univ. La Sapienza and INFN Roma, Italy 32 33 #include "StepMax.hh" 34 #include "StepMaxMessenger.hh" 35 36 #include <G4UIcmdWithADoubleAndUnit.hh> 37 38 ///////////////////////////////////////////////////////////////////////////// 39 StepMaxMessenger::StepMaxMessenger(StepMax* stepM) 40 :stepMax(stepM) 41 { 42 StepMaxCmd = new G4UIcmdWithADoubleAndUnit("/Step/waterPhantomStepMax",this); 43 StepMaxCmd->SetGuidance("Set max allowed step length"); 44 StepMaxCmd->SetParameterName("mxStep",false); 45 StepMaxCmd->SetRange("mxStep>0."); 46 StepMaxCmd->SetUnitCategory("Length"); 47 } 48 49 ///////////////////////////////////////////////////////////////////////////// 50 StepMaxMessenger::~StepMaxMessenger() 51 { 52 delete StepMaxCmd; 53 } 54 55 ///////////////////////////////////////////////////////////////////////////// 56 void StepMaxMessenger::SetNewValue(G4UIcommand* command, G4String newValue) 57 { 58 if (command == StepMaxCmd) 59 { stepMax->SetMaxStep(StepMaxCmd->GetNewDoubleValue(newValue));} 60 } 61 62