Description: Define a click region object
Mapped Command: DEFINE EVENT <label> FROM
FUNCTION __DefEventRegion(label,Pos1_a,Pos1_b,Pos2_a,Pos2_b,activate)
   local handle := __ScanObjects(label)          // see if we can find the object
   handle := if(handle == 0,__FindUnusedHandle(label),handle)
   if __HandleInRange(handle) > 0                // if the handle is valid
      _handles_[handle,01] := Pos1_a
      _handles_[handle,02] := Pos1_b
      _handles_[handle,03] := Pos2_a
      _handles_[handle,04] := Pos2_b
      _handles_[handle,05] := NullString         // n/a in this object type
      _handles_[handle,06] := EventRegionObject  // object type
      _handles_[handle,07] := ShadowOff          // shadow
      _handles_[handle,08] := label              // object name
      _handles_[handle,09] := InactiveObject     // status
      _handles_[handle,10] := NullInteger        // dGE icon number (0 through 7)
      if activate
         __ActEventRegion(label)
      endif
   else                                          // otherwise handle was invalid
      __HandleError(NoHandlesLeft,label)         // branch to handle error routine
   endif                                         // if handle > 0 .and. handle <= maxobjects      // if successful in gettong a get area
RETURN(Void)