49 :collimator80(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     { collimator80 -> SetInnerRadiusFinalCollimatorIORT
 
   95     (innerRadiusFinalCollimatorIORTCmd -> GetNewDoubleValue(newValue));}
 
   97     else if( command == OuterRadiusFinalCollimatorIORTCmd )
 
   98     { collimator80 -> SetOuterRadiusFinalCollimatorIORT
 
   99     (OuterRadiusFinalCollimatorIORTCmd -> GetNewDoubleValue(newValue));}
 
Collimator80BeamLineMessenger(Collimator80BeamLine *)
 
~Collimator80BeamLineMessenger()
 
void SetNewValue(G4UIcommand *, G4String)