TGdkEventClient

type TGdkEventClient = record

  thetype: TGdkEventType;

  window: PGdkWindow;

  send_event: gint8;

  message_type: TGdkAtom;

  data_format: gushort;

  dummy: gushort;

  data: record

    case LongInt of

      0: (

          b: array [0..19] of char;

        );

      1: (

          s: array [0..9] of system.integer;

        );

      2: (

          l: array [0..4] of LongInt;

        );

  end;

end;