50 vehicleDir -> SetGuidance(
"geometry control.");
53 vehicleCmd -> SetGuidance(
"Assign the geometrical set-up to G4RunManager.");
54 vehicleCmd -> SetParameterName(
"choice",
true);
55 vehicleCmd -> SetCandidates(
"vehicle moon");
59 shieldingCmd -> SetGuidance(
"Add shielding layer in vehicle configuration.");
60 shieldingCmd -> SetParameterName(
"choice",
true);
61 shieldingCmd -> SetCandidates(
"On Off");
65 SPECmd -> SetGuidance(
"Add SPE shelter in vehicle configuration.");
66 SPECmd -> SetParameterName(
"choice",
true);
67 SPECmd -> SetCandidates(
"On Off");
71 roofCmd -> SetGuidance(
"Add the Roof to the moon habitat.");
72 roofCmd -> SetParameterName(
"choice",
true);
73 roofCmd -> SetCandidates(
"On Off");
79 shieldingDir -> SetGuidance(
"shielding control.");
82 thicknessCmd -> SetGuidance(
"Set the thickness of the shielding.");
83 thicknessCmd -> SetParameterName(
"Size",
true);
84 thicknessCmd -> SetRange(
"Size>=0.");
85 thicknessCmd -> SetUnitCategory(
"Length");
89 roofDir -> SetGuidance(
"Roof control.");
91 thicknessRoofCmd -> SetGuidance(
"Set the thickness of the Roof.");
92 thicknessRoofCmd -> SetParameterName(
"Size",
true);
93 thicknessRoofCmd -> SetRange(
"Size>=0.");
94 thicknessRoofCmd -> SetUnitCategory(
"Length");
100 delete thicknessRoofCmd;
113 if(command == vehicleCmd)
114 detector -> ChooseConfiguration(newValue);
116 if(command == shieldingCmd)
117 detector -> AddShielding(newValue);
119 if(command == SPECmd)
120 detector -> AddShelterSPE(newValue);
122 if(command == roofCmd)
123 detector -> AddHabitatRoof(newValue);
125 if(command == thicknessCmd)
126 detector -> ChangeShieldingThickness
127 (thicknessCmd -> GetNewDoubleValue(newValue));
129 if(command == thicknessRoofCmd)
130 detector -> ChangeRoofThickness
131 (thicknessRoofCmd -> GetNewDoubleValue(newValue));