Description: Toggles event region to inactive status
Mapped Command: DEACTIVATE EVENT <label>
FUNCTION __DeaEventRegion(label,clr)
   local handle := __ScanObjects(label)          // get a handle if possible
   if handle > 0                                 // if the object does indeed exist
      _handles_[handle,9] := InactiveObject      // status (inactive)
      do case
      case _handles_[handle,06] == EventRegionObject
         msethot(handle,0,0,0,0)                 // clear the mouse hot region
      case _handles_[handle,06] == IconButtonObject
         __DeaIconButton(label,clr)
      case _handles_[handle,06] == TextButtonObject
         * ...
      endcase
   else                                          // otherwise it's an invalid object
      __HandleError(NoSuchLabel,label)           // branch to the handle error routine
   endif
RETURN(Void)