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