mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 07:59:37 +02:00
449 lines
9.1 KiB
ObjectPascal
449 lines
9.1 KiB
ObjectPascal
unit x;
|
|
interface
|
|
|
|
{$LinkLib c}
|
|
{$LinkLib X11}
|
|
|
|
{
|
|
Automatically converted by H2Pas 0.99.15 from x.h
|
|
The following command line parameters were used:
|
|
-p
|
|
-T
|
|
-S
|
|
-d
|
|
-c
|
|
x.h
|
|
}
|
|
|
|
{ Pointers to basic pascal types, inserted by h2pas conversion program.}
|
|
Type
|
|
PLongint = ^Longint;
|
|
PPLongint = ^PLongint;
|
|
PSmallInt = ^SmallInt;
|
|
PByte = ^Byte;
|
|
PPByte = ^PByte;
|
|
PWord = ^Word;
|
|
PDWord = ^DWord;
|
|
PDouble = ^Double;
|
|
PPChar = ^PChar;
|
|
PPPChar = ^PPChar;
|
|
PPWideChar = ^PWideChar;
|
|
PPPWideChar = ^PPWideChar;
|
|
|
|
|
|
{$PACKRECORDS C}
|
|
|
|
|
|
const
|
|
X_PROTOCOL = 11;
|
|
X_PROTOCOL_REVISION = 0;
|
|
type
|
|
|
|
PXID = ^TXID;
|
|
TXID = dword;
|
|
|
|
PMask = ^TMask;
|
|
TMask = dword;
|
|
|
|
PPAtom = ^PAtom;
|
|
PAtom = ^TAtom;
|
|
TAtom = dword;
|
|
|
|
PVisualID = ^TVisualID;
|
|
TVisualID = dword;
|
|
|
|
PTime = ^TTime;
|
|
TTime = dword;
|
|
|
|
PPWindow = ^PWindow;
|
|
PWindow = ^TWindow;
|
|
TWindow = TXID;
|
|
|
|
PDrawable = ^TDrawable;
|
|
TDrawable = TXID;
|
|
|
|
PFont = ^TFont;
|
|
TFont = TXID;
|
|
|
|
PPixmap = ^TPixmap;
|
|
TPixmap = TXID;
|
|
|
|
PCursor = ^TCursor;
|
|
TCursor = TXID;
|
|
|
|
PColormap = ^TColormap;
|
|
TColormap = TXID;
|
|
|
|
PGContext = ^TGContext;
|
|
TGContext = TXID;
|
|
|
|
PKeySym = ^TKeySym;
|
|
TKeySym = TXID;
|
|
|
|
PKeyCode = ^TKeyCode;
|
|
TKeyCode = byte;
|
|
|
|
const
|
|
None = 0;
|
|
ParentRelative = 1;
|
|
CopyFromParent = 0;
|
|
PointerWindow = 0;
|
|
InputFocus = 1;
|
|
PointerRoot = 1;
|
|
AnyPropertyType = 0;
|
|
AnyKey = 0;
|
|
AnyButton = 0;
|
|
AllTemporary = 0;
|
|
CurrentTime = 0;
|
|
NoSymbol = 0;
|
|
NoEventMask = 0;
|
|
KeyPressMask = 1 shl 0;
|
|
KeyReleaseMask = 1 shl 1;
|
|
ButtonPressMask = 1 shl 2;
|
|
ButtonReleaseMask = 1 shl 3;
|
|
EnterWindowMask = 1 shl 4;
|
|
LeaveWindowMask = 1 shl 5;
|
|
PointerMotionMask = 1 shl 6;
|
|
PointerMotionHintMask = 1 shl 7;
|
|
Button1MotionMask = 1 shl 8;
|
|
Button2MotionMask = 1 shl 9;
|
|
Button3MotionMask = 1 shl 10;
|
|
Button4MotionMask = 1 shl 11;
|
|
Button5MotionMask = 1 shl 12;
|
|
ButtonMotionMask = 1 shl 13;
|
|
KeymapStateMask = 1 shl 14;
|
|
ExposureMask = 1 shl 15;
|
|
VisibilityChangeMask = 1 shl 16;
|
|
StructureNotifyMask = 1 shl 17;
|
|
ResizeRedirectMask = 1 shl 18;
|
|
SubstructureNotifyMask = 1 shl 19;
|
|
SubstructureRedirectMask = 1 shl 20;
|
|
FocusChangeMask = 1 shl 21;
|
|
PropertyChangeMask = 1 shl 22;
|
|
ColormapChangeMask = 1 shl 23;
|
|
OwnerGrabButtonMask = 1 shl 24;
|
|
KeyPress = 2;
|
|
KeyRelease = 3;
|
|
ButtonPress = 4;
|
|
ButtonRelease = 5;
|
|
MotionNotify = 6;
|
|
EnterNotify = 7;
|
|
LeaveNotify = 8;
|
|
FocusIn = 9;
|
|
FocusOut = 10;
|
|
KeymapNotify = 11;
|
|
Expose = 12;
|
|
GraphicsExpose = 13;
|
|
NoExpose = 14;
|
|
VisibilityNotify = 15;
|
|
CreateNotify = 16;
|
|
DestroyNotify = 17;
|
|
UnmapNotify = 18;
|
|
MapNotify = 19;
|
|
MapRequest = 20;
|
|
ReparentNotify = 21;
|
|
ConfigureNotify = 22;
|
|
ConfigureRequest = 23;
|
|
GravityNotify = 24;
|
|
ResizeRequest = 25;
|
|
CirculateNotify = 26;
|
|
CirculateRequest = 27;
|
|
PropertyNotify = 28;
|
|
SelectionClear = 29;
|
|
SelectionRequest = 30;
|
|
SelectionNotify = 31;
|
|
ColormapNotify = 32;
|
|
ClientMessage = 33;
|
|
MappingNotify = 34;
|
|
LASTEvent = 35;
|
|
ShiftMask = 1 shl 0;
|
|
LockMask = 1 shl 1;
|
|
ControlMask = 1 shl 2;
|
|
Mod1Mask = 1 shl 3;
|
|
Mod2Mask = 1 shl 4;
|
|
Mod3Mask = 1 shl 5;
|
|
Mod4Mask = 1 shl 6;
|
|
Mod5Mask = 1 shl 7;
|
|
ShiftMapIndex = 0;
|
|
LockMapIndex = 1;
|
|
ControlMapIndex = 2;
|
|
Mod1MapIndex = 3;
|
|
Mod2MapIndex = 4;
|
|
Mod3MapIndex = 5;
|
|
Mod4MapIndex = 6;
|
|
Mod5MapIndex = 7;
|
|
Button1Mask = 1 shl 8;
|
|
Button2Mask = 1 shl 9;
|
|
Button3Mask = 1 shl 10;
|
|
Button4Mask = 1 shl 11;
|
|
Button5Mask = 1 shl 12;
|
|
AnyModifier = 1 shl 15;
|
|
Button1 = 1;
|
|
Button2 = 2;
|
|
Button3 = 3;
|
|
Button4 = 4;
|
|
Button5 = 5;
|
|
NotifyNormal = 0;
|
|
NotifyGrab = 1;
|
|
NotifyUngrab = 2;
|
|
NotifyWhileGrabbed = 3;
|
|
NotifyHint = 1;
|
|
NotifyAncestor = 0;
|
|
NotifyVirtual = 1;
|
|
NotifyInferior = 2;
|
|
NotifyNonlinear = 3;
|
|
NotifyNonlinearVirtual = 4;
|
|
NotifyPointer = 5;
|
|
NotifyPointerRoot = 6;
|
|
NotifyDetailNone = 7;
|
|
VisibilityUnobscured = 0;
|
|
VisibilityPartiallyObscured = 1;
|
|
VisibilityFullyObscured = 2;
|
|
PlaceOnTop = 0;
|
|
PlaceOnBottom = 1;
|
|
FamilyInternet = 0;
|
|
FamilyDECnet = 1;
|
|
FamilyChaos = 2;
|
|
PropertyNewValue = 0;
|
|
PropertyDelete = 1;
|
|
ColormapUninstalled = 0;
|
|
ColormapInstalled = 1;
|
|
GrabModeSync = 0;
|
|
GrabModeAsync = 1;
|
|
GrabSuccess = 0;
|
|
AlreadyGrabbed = 1;
|
|
GrabInvalidTime = 2;
|
|
GrabNotViewable = 3;
|
|
GrabFrozen = 4;
|
|
AsyncPointer = 0;
|
|
SyncPointer = 1;
|
|
ReplayPointer = 2;
|
|
AsyncKeyboard = 3;
|
|
SyncKeyboard = 4;
|
|
ReplayKeyboard = 5;
|
|
AsyncBoth = 6;
|
|
SyncBoth = 7;
|
|
function RevertToNone : longint;
|
|
|
|
function RevertToPointerRoot : longint;
|
|
|
|
|
|
const
|
|
RevertToParent = 2;
|
|
Success = 0;
|
|
BadRequest = 1;
|
|
BadValue = 2;
|
|
BadWindow = 3;
|
|
BadPixmap = 4;
|
|
BadAtom = 5;
|
|
BadCursor = 6;
|
|
BadFont = 7;
|
|
BadMatch = 8;
|
|
BadDrawable = 9;
|
|
BadAccess = 10;
|
|
BadAlloc = 11;
|
|
BadColor = 12;
|
|
BadGC = 13;
|
|
BadIDChoice = 14;
|
|
BadName = 15;
|
|
BadLength = 16;
|
|
BadImplementation = 17;
|
|
FirstExtensionError = 128;
|
|
LastExtensionError = 255;
|
|
InputOutput = 1;
|
|
InputOnly = 2;
|
|
CWBackPixmap = 1 shl 0;
|
|
CWBackPixel = 1 shl 1;
|
|
CWBorderPixmap = 1 shl 2;
|
|
CWBorderPixel = 1 shl 3;
|
|
CWBitGravity = 1 shl 4;
|
|
CWWinGravity = 1 shl 5;
|
|
CWBackingStore = 1 shl 6;
|
|
CWBackingPlanes = 1 shl 7;
|
|
CWBackingPixel = 1 shl 8;
|
|
CWOverrideRedirect = 1 shl 9;
|
|
CWSaveUnder = 1 shl 10;
|
|
CWEventMask = 1 shl 11;
|
|
CWDontPropagate = 1 shl 12;
|
|
CWColormap = 1 shl 13;
|
|
CWCursor = 1 shl 14;
|
|
CWX = 1 shl 0;
|
|
CWY = 1 shl 1;
|
|
CWWidth = 1 shl 2;
|
|
CWHeight = 1 shl 3;
|
|
CWBorderWidth = 1 shl 4;
|
|
CWSibling = 1 shl 5;
|
|
CWStackMode = 1 shl 6;
|
|
ForgetGravity = 0;
|
|
NorthWestGravity = 1;
|
|
NorthGravity = 2;
|
|
NorthEastGravity = 3;
|
|
WestGravity = 4;
|
|
CenterGravity = 5;
|
|
EastGravity = 6;
|
|
SouthWestGravity = 7;
|
|
SouthGravity = 8;
|
|
SouthEastGravity = 9;
|
|
StaticGravity = 10;
|
|
UnmapGravity = 0;
|
|
NotUseful = 0;
|
|
WhenMapped = 1;
|
|
Always = 2;
|
|
IsUnmapped = 0;
|
|
IsUnviewable = 1;
|
|
IsViewable = 2;
|
|
SetModeInsert = 0;
|
|
SetModeDelete = 1;
|
|
DestroyAll = 0;
|
|
RetainPermanent = 1;
|
|
RetainTemporary = 2;
|
|
Above = 0;
|
|
Below = 1;
|
|
TopIf = 2;
|
|
BottomIf = 3;
|
|
Opposite = 4;
|
|
RaiseLowest = 0;
|
|
LowerHighest = 1;
|
|
PropModeReplace = 0;
|
|
PropModePrepend = 1;
|
|
PropModeAppend = 2;
|
|
GXclear = $0;
|
|
GXand = $1;
|
|
GXandReverse = $2;
|
|
GXcopy = $3;
|
|
GXandInverted = $4;
|
|
GXnoop = $5;
|
|
GXxor = $6;
|
|
GXor = $7;
|
|
GXnor = $8;
|
|
GXequiv = $9;
|
|
GXinvert = $a;
|
|
GXorReverse = $b;
|
|
GXcopyInverted = $c;
|
|
GXorInverted = $d;
|
|
GXnand = $e;
|
|
GXset = $f;
|
|
LineSolid = 0;
|
|
LineOnOffDash = 1;
|
|
LineDoubleDash = 2;
|
|
CapNotLast = 0;
|
|
CapButt = 1;
|
|
CapRound = 2;
|
|
CapProjecting = 3;
|
|
JoinMiter = 0;
|
|
JoinRound = 1;
|
|
JoinBevel = 2;
|
|
FillSolid = 0;
|
|
FillTiled = 1;
|
|
FillStippled = 2;
|
|
FillOpaqueStippled = 3;
|
|
EvenOddRule = 0;
|
|
WindingRule = 1;
|
|
ClipByChildren = 0;
|
|
IncludeInferiors = 1;
|
|
Unsorted = 0;
|
|
YSorted = 1;
|
|
YXSorted = 2;
|
|
YXBanded = 3;
|
|
CoordModeOrigin = 0;
|
|
CoordModePrevious = 1;
|
|
Complex = 0;
|
|
Nonconvex = 1;
|
|
Convex = 2;
|
|
ArcChord = 0;
|
|
ArcPieSlice = 1;
|
|
GCFunction = 1 shl 0;
|
|
GCPlaneMask = 1 shl 1;
|
|
GCForeground = 1 shl 2;
|
|
GCBackground = 1 shl 3;
|
|
GCLineWidth = 1 shl 4;
|
|
GCLineStyle = 1 shl 5;
|
|
GCCapStyle = 1 shl 6;
|
|
GCJoinStyle = 1 shl 7;
|
|
GCFillStyle = 1 shl 8;
|
|
GCFillRule = 1 shl 9;
|
|
GCTile = 1 shl 10;
|
|
GCStipple = 1 shl 11;
|
|
GCTileStipXOrigin = 1 shl 12;
|
|
GCTileStipYOrigin = 1 shl 13;
|
|
GCFont = 1 shl 14;
|
|
GCSubwindowMode = 1 shl 15;
|
|
GCGraphicsExposures = 1 shl 16;
|
|
GCClipXOrigin = 1 shl 17;
|
|
GCClipYOrigin = 1 shl 18;
|
|
GCClipMask = 1 shl 19;
|
|
GCDashOffset = 1 shl 20;
|
|
GCDashList = 1 shl 21;
|
|
GCArcMode = 1 shl 22;
|
|
GCLastBit = 22;
|
|
FontLeftToRight = 0;
|
|
FontRightToLeft = 1;
|
|
FontChange = 255;
|
|
XYBitmap = 0;
|
|
XYPixmap = 1;
|
|
ZPixmap = 2;
|
|
AllocNone = 0;
|
|
AllocAll = 1;
|
|
DoRed = 1 shl 0;
|
|
DoGreen = 1 shl 1;
|
|
DoBlue = 1 shl 2;
|
|
CursorShape = 0;
|
|
TileShape = 1;
|
|
StippleShape = 2;
|
|
AutoRepeatModeOff = 0;
|
|
AutoRepeatModeOn = 1;
|
|
AutoRepeatModeDefault = 2;
|
|
LedModeOff = 0;
|
|
LedModeOn = 1;
|
|
KBKeyClickPercent = 1 shl 0;
|
|
KBBellPercent = 1 shl 1;
|
|
KBBellPitch = 1 shl 2;
|
|
KBBellDuration = 1 shl 3;
|
|
KBLed = 1 shl 4;
|
|
KBLedMode = 1 shl 5;
|
|
KBKey = 1 shl 6;
|
|
KBAutoRepeatMode = 1 shl 7;
|
|
MappingSuccess = 0;
|
|
MappingBusy = 1;
|
|
MappingFailed = 2;
|
|
MappingModifier = 0;
|
|
MappingKeyboard = 1;
|
|
MappingPointer = 2;
|
|
DontPreferBlanking = 0;
|
|
PreferBlanking = 1;
|
|
DefaultBlanking = 2;
|
|
DisableScreenSaver = 0;
|
|
DisableScreenInterval = 0;
|
|
DontAllowExposures = 0;
|
|
AllowExposures = 1;
|
|
DefaultExposures = 2;
|
|
ScreenSaverReset = 0;
|
|
ScreenSaverActive = 1;
|
|
HostInsert = 0;
|
|
HostDelete = 1;
|
|
EnableAccess = 1;
|
|
DisableAccess = 0;
|
|
StaticGray = 0;
|
|
GrayScale = 1;
|
|
StaticColor = 2;
|
|
PseudoColor = 3;
|
|
TrueColor = 4;
|
|
DirectColor = 5;
|
|
LSBFirst = 0;
|
|
MSBFirst = 1;
|
|
|
|
implementation
|
|
|
|
function RevertToNone : longint;
|
|
begin
|
|
RevertToNone:=longint(None);
|
|
end;
|
|
|
|
function RevertToPointerRoot : longint;
|
|
begin
|
|
RevertToPointerRoot:=longint(PointerRoot);
|
|
end;
|
|
|
|
|
|
end.
|