TGdkEventClient

type TGdkEventClient = record

  _type: TGdkEventType;

  window: PGdkWindow;

  send_event: gint8;

  message_type: TGdkAtom;

  data_format: gushort;

  data: record

    case LongInt of

      0: (

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

        );

      1: (

          s: array [0..9] of SmallInt;

        );

      2: (

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

        );

  end;

end;