#include "TclUtils/TclEventsModule.hh"
// Undefine EXTERN just in case Root headers sneak into APPModule.hh
#ifdef EXTERN
#undef EXTERN
#endif
#include "tcl.h"

TclEventsModule::TclEventsModule(const char* const theName,
				 const char* const theDescription)
    : AppModule(theName, theDescription)
{
}

AppResult TclEventsModule::event(AbsEvent* anEvent)
{
    while (Tcl_DoOneEvent(TCL_DONT_WAIT)) {;}
    return AppResult::OK;
}