packages/gtk2/src/gtk2x11/include/gxid_proto.inc


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52

{%MainUnit ../gdk2x.pas}

{$IFDEF read_interface_rest}

const
   GXID_CLAIM_DEVICE = 1;
   GXID_RELEASE_DEVICE = 2;
   GXID_RETURN_OK = 0;
   GXID_RETURN_ERROR = -(1);

type
   PGxidMessage = ^TGxidMessage;

   PGxidU32 = ^TGxidU32;
   TGxidU32 = dword;

   PGxidI32 = ^TGxidI32;
   TGxidI32 = longint;
   TGxidClaimDevice = record
        _type : TGxidU32;
        length : TGxidU32;
        device : TGxidU32;
        window : TGxidU32;
        exclusive : TGxidU32;
     end;

   TGxidReleaseDevice = record
        _type : TGxidU32;
        length : TGxidU32;
        device : TGxidU32;
        window : TGxidU32;
     end;

   TGxidMessageAny = record
        _type : TGxidU32;
        length : TGxidU32;
     end;

   TGxidMessage = record
       case longint of
          0 : ( any : TGxidMessageAny );
          1 : ( claim : TGxidClaimDevice );
          2 : ( release : TGxidReleaseDevice );
       end;

{$ENDIF read_interface_rest}

//------------------------------------------------------------------------------

{$IFDEF read_implementation}
{$ENDIF read_implementation}