/////////////////////////////////////////////////////////////////////
// TIMER
/////////////////////////////////////////////////////////////////////

#command DEFINE TIMER <name> ;
      [ OBJ <obj> ] ;
      [ <dummy1: OF, PARENT> <parent> ] ;
      [ INTERVAL <interval> ] ;
      [ ACTION <action> ] ;
      [ SUBCLASS <subclass> ] ;
      [ <disabled: DISABLED> ] ;
	=> ;
      [ <obj> := ] _OOHG_SelectSubClass( TTimer(), [ <subclass>() ] ): ;
            Define( <(name)>, <(parent)>, <interval>, <{action}>, <.disabled.> )