Description: Toggles event region to active status
Mapped Command: ACTIVATE EVENT <label>
FUNCTION __ActEventRegion(label)
   local handle := __ScanObjects(label)          // get a handle if possible
   if handle > 0                                 // find out if the button exists
      _handles_[handle,9] := ActiveObject        // status (active)
      do case
      case _handles_[handle,06] == EventRegionObject
         msethot(handle, ;
            __XdGE(_handles_[handle,2]), ;
            __YdGE(_handles_[handle,3]), ;
            __XdGE_((_handles_[handle,4] - _handles_[handle,2])), ;
            __YdGE_((_handles_[handle,3] - _handles_[handle,1])))
      case _handles_[handle,06] == IconButtonObject
         __ActIconButton(label)
      case _handles_[handle,06] == TextButtonObject
         * ...
      endcase
   else                                          // otherwise the button doesn't exists
      __HandleError(NoSuchLabel,label)           // process the error
   endif
RETURN(Void)