
*copyc cst$field_event_types
*copyc cst$menu_item_number
*copyc cst$screen_events
*copyc cst$standard_functions
*copyc cst$application_functions
*copyc cst$pick_resolution
*copyc cst$pick_marking
*copyc cst$mouse_event

  TYPE
    cst$field_event_type = record
      case event_type: cst$field_event_types of
      = csc$pick =
        pick_resolution: cst$pick_resolution,
        pick_marking: cst$pick_marking,
      = csc$field_screen =
        screen_event: cst$screen_events,
      = csc$field_standard_function =
        standard_function: cst$standard_functions,
      = csc$field_application_function =
        application_function: cst$application_functions,
      = csc$field_menu_event =
        menu_item: cst$menu_item_number,
      = csc$field_mouse_event =
        mouse_event: cst$mouse_event,
      casend,
    recend;

