// This code implementation is the intellectual property of
// the RD44 GEANT4 collaboration.
//
// By copying, distributing or modifying the Program (or any work
// based on the Program) you indicate your acceptance of this statement,
// and all its terms.
//
// $Id: MyEventActionMessenger.cc,v 2.1 1998/07/12 02:37:16 urbi Exp $
// GEANT4 tag $Name: geant4-00 $
//

#include "MyEventActionMessenger.hh"

#include "MyEventAction.hh"
#include "G4UIparameter.hh"
#include "globals.hh"

MyEventActionMessenger::MyEventActionMessenger(MyEventAction * myEA)
:myEventAction(myEA)
{
  G4UIcommand * command;
  G4UIparameter * param;

  command = new G4UIcommand("/event/Draw",this);
  command->SetGuidance("Set drawFlag to Draw an event.");
  command->SetGuidance("  default value is 0 (false).");
  param = new G4UIparameter("flag (1:true/0:fasle)",'i',true);
  param->SetDefaultValue(0);
  command->SetParameter(param);
  AddUIcommand(command);
}

void MyEventActionMessenger::SetNewValue(G4UIcommand * command,G4String newValues)
{
  if( command->GetCommandName() == "Draw" )
  {
    G4int vl;
    const char* t = newValues;
    istrstream is((char*)t);
    is >> vl;
    myEventAction->SetDrawFlag(vl!=0);
  }
}