 TYPE
{ Event Definitions. }

    fdt$event_definition = record
      command: fdt$command,
      event_action: fdt$event_action,
      event_name: ost$name,
{     event_label: ost$name,
{ The reassign event capability changed event label to the following fields:
{ event_label, event_trigger_reassignment, and filler.  Only the first six
{ characters of the old event_label were used.  If the screen formatting version
{ is less than fdc$reassign_event_capability, the old definition is used; otherwise
{ the new definition is used. For old definitions, event_trigger_reassigment
{ is assumed true.
      event_label: fdt$event_label_v1,
      event_trigger_reassignment: boolean,
      filler: string (24),
      event_trigger: fdt$event_trigger
    recend;

*copyc fdt$command
*copyc fdt$event_action
*copyc fdt$event_label_v1
*copyc fdt$event_trigger
*copyc ost$name
