 FUNCTION [INLINE] fdp$ptr_events (p_form_status: ^fdt$form_status): ^array [1
  .. * ] OF fdt$event_definition;

    IF p_form_status^.p_form_definition^.event_definitions.total_number = 0
          THEN
      fdp$ptr_events := NIL;
    ELSE
      fdp$ptr_events := #PTR (p_form_status^.p_form_definition^.
            event_definitions.p_event_definitions, p_form_status^.
            p_form_module^);
    IFEND;
  FUNCEND fdp$ptr_events;

?? PUSH (LISTEXT := ON) ??
*copyc fdt$form_status
*copyc fdt$event_definition
*copyc fdt$object_definition_key
?? POP ??
