
  TYPE
    dft$display_identifier = RECORD
      CASE display_type: dft$display_type OF
      = dfc$console_display =
        wid: dpt$window_id,
      = dfc$listing_display =
        display_control: clt$display_control,
      = dfc$trace_display =
        ,
      CASEND,
    RECEND;

  TYPE
    dft$display_type = (dfc$console_display, dfc$listing_display,
          dfc$trace_display);

*copyc clt$display_control
*copyc dpt$window_id
