| 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 DetectorMessenger.cc
27 /// \brief Implementation of the DetectorMesse
28
29 //....oooOO0OOooo........oooOO0OOooo........oo
30 //....oooOO0OOooo........oooOO0OOooo........oo
31
32 #include "DetectorMessenger.hh"
33
34 #include "DetectorConstruction.hh"
35
36 #include "G4UIcmdWithADoubleAndUnit.hh"
37 #include "G4UIcmdWithAString.hh"
38 #include "G4UIcmdWithAnInteger.hh"
39 #include "G4UIcmdWithoutParameter.hh"
40 #include "G4UIdirectory.hh"
41
42 //....oooOO0OOooo........oooOO0OOooo........oo
43
44 DetectorMessenger::DetectorMessenger(DetectorC
45 {
46 G4bool broadcast = false;
47 fDetDir = new G4UIdirectory("/det/", broadca
48 fDetDir->SetGuidance("Detector control");
49
50 fAbsMaterCmd = new G4UIcmdWithAString("/det/
51 fAbsMaterCmd->SetGuidance("Select Material o
52 fAbsMaterCmd->SetParameterName("AbsMat", fal
53 fAbsMaterCmd->AvailableForStates(G4State_Pre
54
55 fGapMaterCmd = new G4UIcmdWithAString("/det/
56 fGapMaterCmd->SetGuidance("Select Material o
57 fGapMaterCmd->SetParameterName("GapMat", fal
58 fGapMaterCmd->AvailableForStates(G4State_Pre
59
60 fAbsThickCmd = new G4UIcmdWithADoubleAndUnit
61 fAbsThickCmd->SetGuidance("Set Thickness of
62 fAbsThickCmd->SetParameterName("AbsThick", f
63 fAbsThickCmd->SetRange("AbsThick>=0.");
64 fAbsThickCmd->SetUnitCategory("Length");
65 fAbsThickCmd->AvailableForStates(G4State_Pre
66
67 fGapThickCmd = new G4UIcmdWithADoubleAndUnit
68 fGapThickCmd->SetGuidance("Set Thickness of
69 fGapThickCmd->SetParameterName("GapThick", f
70 fGapThickCmd->SetRange("GapThick>=0.");
71 fGapThickCmd->SetUnitCategory("Length");
72 fGapThickCmd->AvailableForStates(G4State_Pre
73
74 fSizeYZCmd = new G4UIcmdWithADoubleAndUnit("
75 fSizeYZCmd->SetGuidance("Set tranverse size
76 fSizeYZCmd->SetParameterName("SizeYZ", false
77 fSizeYZCmd->SetRange("SizeYZ>0.");
78 fSizeYZCmd->SetUnitCategory("Length");
79 fSizeYZCmd->AvailableForStates(G4State_PreIn
80
81 fNbLayersCmd = new G4UIcmdWithAnInteger("/de
82 fNbLayersCmd->SetGuidance("Set number of lay
83 fNbLayersCmd->SetParameterName("NbLayers", f
84 fNbLayersCmd->SetRange("NbLayers>0 && NbLaye
85 fNbLayersCmd->AvailableForStates(G4State_Pre
86 }
87
88 //....oooOO0OOooo........oooOO0OOooo........oo
89
90 DetectorMessenger::~DetectorMessenger()
91 {
92 delete fNbLayersCmd;
93 delete fAbsMaterCmd;
94 delete fGapMaterCmd;
95 delete fAbsThickCmd;
96 delete fGapThickCmd;
97 delete fSizeYZCmd;
98 delete fDetDir;
99 }
100
101 //....oooOO0OOooo........oooOO0OOooo........oo
102
103 void DetectorMessenger::SetNewValue(G4UIcomman
104 {
105 if (command == fAbsMaterCmd) {
106 fDetector->SetAbsorberMaterial(newValue);
107 return;
108 }
109
110 if (command == fGapMaterCmd) {
111 fDetector->SetGapMaterial(newValue);
112 return;
113 }
114
115 if (command == fAbsThickCmd) {
116 fDetector->SetAbsorberThickness(fAbsThickC
117 return;
118 }
119
120 if (command == fGapThickCmd) {
121 fDetector->SetGapThickness(fGapThickCmd->G
122 return;
123 }
124
125 if (command == fSizeYZCmd) {
126 fDetector->SetCalorSizeYZ(fSizeYZCmd->GetN
127 return;
128 }
129
130 if (command == fNbLayersCmd) {
131 fDetector->SetNbOfLayers(fNbLayersCmd->Get
132 return;
133 }
134 }
135
136 //....oooOO0OOooo........oooOO0OOooo........oo
137