
*copyc cst$menu_item_number
*copyc cst$page_event_types
*copyc cst$screen_events
*copyc cst$standard_functions
*copyc cst$application_functions
*copyc cst$locate_resolution
*copyc cst$locate_marking
*copyc cst$mouse_event

  TYPE
    cst$page_event_type = record
      case event_type: cst$page_event_types of
      = csc$locate =
        locate_resolution: cst$locate_resolution,
        locate_marking: cst$locate_marking,
      = csc$page_screen =
        screen_event: cst$screen_events,
      = csc$page_standard_function =
        standard_function: cst$standard_functions,
      = csc$page_application_function =
        application_function: cst$application_functions,
      = csc$page_menu_event =
        menu_item: cst$menu_item_number,
      = csc$page_mouse_event =
        mouse_event: cst$mouse_event,
      casend,
    recend;

