File indexing completed on 2025-02-23 09:22:14
0001
0002
0003
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033 #include "DetectorMessenger.hh"
0034
0035 #include "DetectorConstruction.hh"
0036
0037 #include "G4UIcmdWithADoubleAndUnit.hh"
0038 #include "G4UIcmdWithAString.hh"
0039 #include "G4UIcmdWithoutParameter.hh"
0040 #include "G4UIdirectory.hh"
0041
0042
0043
0044 DetectorMessenger::DetectorMessenger(DetectorConstruction* det)
0045 : fDetector(det), fTestemDir(0), fDetDir(0), fMaterCmd(0), fThickCmd(0), fUpdateCmd(0)
0046 {
0047 fTestemDir = new G4UIdirectory("/testem/");
0048 fTestemDir->SetGuidance("UI commands specific to this example.");
0049
0050 fDetDir = new G4UIdirectory("/testem/det/");
0051 fDetDir->SetGuidance("detector construction commands");
0052
0053 fMaterCmd = new G4UIcmdWithAString("/testem/det/setMaterial", this);
0054 fMaterCmd->SetGuidance("Select Material of the Scatter Foil");
0055 fMaterCmd->SetParameterName("material", false);
0056
0057 fThickCmd = new G4UIcmdWithADoubleAndUnit("/testem/det/setThickness", this);
0058 fThickCmd->SetGuidance("Set Thickness of the Scatter Foil");
0059 fThickCmd->SetParameterName("thickness", false);
0060 fThickCmd->SetRange("thickness>0.");
0061 fThickCmd->SetUnitCategory("Length");
0062
0063 fUpdateCmd = new G4UIcmdWithoutParameter("/testem/det/update", this);
0064 fUpdateCmd->SetGuidance("Update calorimeter geometry.");
0065 fUpdateCmd->SetGuidance("This command MUST be applied before \"beamOn\" ");
0066 fUpdateCmd->SetGuidance("if you changed geometrical value(s).");
0067 }
0068
0069
0070
0071 DetectorMessenger::~DetectorMessenger()
0072 {
0073 delete fMaterCmd;
0074 delete fThickCmd;
0075 delete fUpdateCmd;
0076 delete fDetDir;
0077 delete fTestemDir;
0078 }
0079
0080
0081
0082 void DetectorMessenger::SetNewValue(G4UIcommand* command, G4String newValue)
0083 {
0084 if (command == fMaterCmd) {
0085 fDetector->SetMaterialScatter(newValue);
0086 }
0087
0088 if (command == fThickCmd) {
0089 fDetector->SetThicknessScatter(fThickCmd->GetNewDoubleValue(newValue));
0090 }
0091
0092 if (command == fUpdateCmd) {
0093 fDetector->UpdateGeometry();
0094 }
0095 }
0096
0097