49 :collimator100(beamLine)
54 beamLineDir -> SetGuidance(
"set specification of range shifter");
56 FinalCollimatorIORTDir =
new G4UIdirectory(
"/beamLine/FinalCollimatorIORT/");
57 FinalCollimatorIORTDir -> SetGuidance(
"set specification of final collimator");
60 innerRadiusFinalCollimatorIORTCmd -> SetGuidance(
"Set size of inner radius ( max 21.5 mm)");
61 innerRadiusFinalCollimatorIORTCmd -> SetParameterName(
"Size",
false);
62 innerRadiusFinalCollimatorIORTCmd -> SetDefaultUnit(
"mm");
63 innerRadiusFinalCollimatorIORTCmd -> SetUnitCandidates(
"mm cm m");
64 innerRadiusFinalCollimatorIORTCmd -> AvailableForStates(
G4State_Idle);
67 OuterRadiusFinalCollimatorIORTCmd -> SetGuidance(
"Set size of outer radius ( max 21.5 mm)");
68 OuterRadiusFinalCollimatorIORTCmd -> SetParameterName(
"Size",
false);
69 OuterRadiusFinalCollimatorIORTCmd -> SetDefaultUnit(
"mm");
70 OuterRadiusFinalCollimatorIORTCmd -> SetUnitCandidates(
"mm cm m");
71 OuterRadiusFinalCollimatorIORTCmd -> AvailableForStates(
G4State_Idle);
78 delete OuterRadiusFinalCollimatorIORTCmd;
79 delete innerRadiusFinalCollimatorIORTCmd;
80 delete FinalCollimatorIORTDir;
93 if( command == innerRadiusFinalCollimatorIORTCmd )
94 { collimator100 -> SetInnerRadiusFinalCollimatorIORT
95 (innerRadiusFinalCollimatorIORTCmd -> GetNewDoubleValue(newValue));}
97 else if( command == OuterRadiusFinalCollimatorIORTCmd )
98 { collimator100 -> SetOuterRadiusFinalCollimatorIORT
99 (OuterRadiusFinalCollimatorIORTCmd -> GetNewDoubleValue(newValue));}
~Collimator100BeamLineMessenger()
void SetNewValue(G4UIcommand *, G4String)
Collimator100BeamLineMessenger(Collimator100BeamLine *)