mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-14 12:49:12 +02:00
* moved x11 files to separate package
This commit is contained in:
peter
parent
e8872314a6
commit
1a67c14f66
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Makefile generated by fpcmake v0.99.13 on 1999-12-22 01:44
|
||||
# Makefile generated by fpcmake v0.99.13 on 1999-12-23 20:20
|
||||
#
|
||||
|
||||
defaultrule: all
|
||||
@ -134,21 +134,13 @@ endif
|
||||
#####################################################################
|
||||
|
||||
|
||||
# Pre Settings
|
||||
|
||||
# Version of forms
|
||||
FORMSVERSION=88
|
||||
#FORMSVERSION=86
|
||||
|
||||
# Targets
|
||||
|
||||
override UNITOBJECTS+=x xresource xlib xutil forms
|
||||
override UNITOBJECTS+=forms
|
||||
override EXEOBJECTS+=fd2pascal
|
||||
|
||||
# Clean
|
||||
|
||||
override EXTRACLEANUNITS+=forms-88 forms-86
|
||||
override EXTRACLEANFILES+=forms$(PASEXT)
|
||||
|
||||
# Install
|
||||
|
||||
@ -171,6 +163,12 @@ endif
|
||||
|
||||
# Packages
|
||||
|
||||
override PACKAGES+=x11
|
||||
ifneq ($(wildcard $(PACKAGEDIR)/x11/$(OS_TARGET)),)
|
||||
override NEEDUNITDIR+=$(PACKAGEDIR)/x11/$(OS_TARGET)
|
||||
else
|
||||
override NEEDUNITDIR+=$(PACKAGEDIR)/x11
|
||||
endif
|
||||
|
||||
# Libraries
|
||||
|
||||
@ -294,6 +292,10 @@ ifdef UNITSDIR
|
||||
override FPCOPT+=-Fu$(UNITSDIR)
|
||||
endif
|
||||
|
||||
ifdef NEEDUNITDIR
|
||||
override FPCOPT+=$(addprefix -Fu,$(NEEDUNITDIR))
|
||||
endif
|
||||
|
||||
# Smartlinking
|
||||
ifdef SMARTLINK
|
||||
override FPCOPT+=-CX
|
||||
@ -666,7 +668,18 @@ rtl_package:
|
||||
endif
|
||||
endif
|
||||
|
||||
.PHONY: rtl_package
|
||||
PACKAGEX11=1
|
||||
ifdef PACKAGEX11
|
||||
ifneq ($(wildcard $(PACKAGEDIR)/x11),)
|
||||
ifeq ($(wildcard $(PACKAGEDIR)/x11/$(FPCMADE)),)
|
||||
override COMPILEPACKAGES+=x11
|
||||
x11_package:
|
||||
$(MAKE) -C $(PACKAGEDIR)/x11 all
|
||||
endif
|
||||
endif
|
||||
endif
|
||||
|
||||
.PHONY: rtl_package x11_package
|
||||
|
||||
#####################################################################
|
||||
# Units
|
||||
@ -750,12 +763,12 @@ fpc_smart:
|
||||
fpc_shared: all
|
||||
ifdef inlinux
|
||||
ifndef LIBNAME
|
||||
@$(ECHO) LIBNAME not set
|
||||
@$(ECHO) "LIBNAME not set"
|
||||
else
|
||||
$(PPUMOVE) $(SHAREDLIBUNITOBJECTS) -o$(LIBNAME)
|
||||
endif
|
||||
else
|
||||
@$(ECHO) Shared Libraries not supported
|
||||
@$(ECHO) "Shared Libraries not supported"
|
||||
endif
|
||||
|
||||
#####################################################################
|
||||
@ -783,19 +796,19 @@ endif
|
||||
|
||||
fpc_showinstall: $(SHOWINSTALLTARGET)
|
||||
ifdef INSTALLEXEFILES
|
||||
@$(ECHO) $(addprefix "\n"$(BININSTALLDIR)/,$(INSTALLEXEFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(BININSTALLDIR)/,$(INSTALLEXEFILES))
|
||||
endif
|
||||
ifdef INSTALLPPUFILES
|
||||
@$(ECHO) $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPUFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPUFILES))
|
||||
ifneq ($(INSTALLPPULINKFILES),)
|
||||
@$(ECHO) $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPULINKFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPULINKFILES))
|
||||
endif
|
||||
ifneq ($(INSTALLPPULIBFILES),)
|
||||
@$(ECHO) $(addprefix "\n"$(LIBINSTALLDIR)/,$(INSTALLPPULIBFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(LIBINSTALLDIR)/,$(INSTALLPPULIBFILES))
|
||||
endif
|
||||
endif
|
||||
ifdef EXTRAINSTALLFILES
|
||||
@$(ECHO) $(addprefix "\n"$(EXTRAINSTALLDIR)/,$(EXTRAINSTALLFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(EXTRAINSTALLDIR)/,$(EXTRAINSTALLFILES))
|
||||
endif
|
||||
|
||||
fpc_install: $(INSTALLTARGET)
|
||||
@ -864,8 +877,8 @@ endif
|
||||
# Note: This will not remove the zipfile first
|
||||
fpc_zipinstalladd:
|
||||
ifndef ZIPNAME
|
||||
@$(ECHO) Please specify ZIPNAME!
|
||||
@exit
|
||||
@$(ECHO) "Please specify ZIPNAME!"
|
||||
@exit 1
|
||||
else
|
||||
$(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR)
|
||||
ifdef inlinux
|
||||
@ -881,8 +894,8 @@ endif
|
||||
# First remove the zip and then install
|
||||
fpc_zipinstall:
|
||||
ifndef ZIPNAME
|
||||
@$(ECHO) Please specify ZIPNAME!
|
||||
@exit
|
||||
@$(ECHO) "Please specify ZIPNAME!"
|
||||
@exit 1
|
||||
else
|
||||
$(DEL) $(DESTZIPDIR)/$(ZIPNAME)
|
||||
$(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR)
|
||||
@ -992,10 +1005,5 @@ endif
|
||||
# Users rules
|
||||
#####################################################################
|
||||
|
||||
forms$(PPUEXT): forms-$(FORMSVERSION)$(PASEXT) x$(PPUEXT) xresource$(PPUEXT) xlib$(PPUEXT)\
|
||||
xutil$(PPUEXT)
|
||||
ln -sf forms-$(FORMSVERSION)$(PASEXT) forms$(PASEXT)
|
||||
$(COMPILER) forms$(PASEXT)
|
||||
|
||||
examples: all
|
||||
$(MAKE) -C demo all
|
||||
|
||||
@ -3,28 +3,15 @@
|
||||
#
|
||||
|
||||
[targets]
|
||||
units=x xresource xlib xutil forms
|
||||
units=forms
|
||||
programs=fd2pascal
|
||||
|
||||
[clean]
|
||||
units=forms-88 forms-86
|
||||
files=forms$(PASEXT)
|
||||
[packages]
|
||||
packages=x11
|
||||
|
||||
[dirs]
|
||||
fpcdir=../..
|
||||
|
||||
|
||||
[presettings]
|
||||
# Version of forms
|
||||
FORMSVERSION=88
|
||||
#FORMSVERSION=86
|
||||
|
||||
|
||||
[rules]
|
||||
forms$(PPUEXT): forms-$(FORMSVERSION)$(PASEXT) x$(PPUEXT) xresource$(PPUEXT) xlib$(PPUEXT)\
|
||||
xutil$(PPUEXT)
|
||||
ln -sf forms-$(FORMSVERSION)$(PASEXT) forms$(PASEXT)
|
||||
$(COMPILER) forms$(PASEXT)
|
||||
|
||||
examples: all
|
||||
$(MAKE) -C demo all
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Makefile generated by fpcmake v0.99.13 on 1999-12-22 01:44
|
||||
# Makefile generated by fpcmake v0.99.13 on 1999-12-23 20:20
|
||||
#
|
||||
|
||||
defaultrule: all
|
||||
@ -159,10 +159,20 @@ endif
|
||||
ifndef COMPONENTDIR
|
||||
COMPONENTDIR=$(FPCDIR)/components
|
||||
endif
|
||||
override NEEDUNITDIR=..
|
||||
|
||||
# Packages
|
||||
|
||||
override PACKAGES+=forms x11
|
||||
ifneq ($(wildcard $(PACKAGEDIR)/forms/$(OS_TARGET)),)
|
||||
override NEEDUNITDIR+=$(PACKAGEDIR)/forms/$(OS_TARGET)
|
||||
else
|
||||
override NEEDUNITDIR+=$(PACKAGEDIR)/forms
|
||||
endif
|
||||
ifneq ($(wildcard $(PACKAGEDIR)/x11/$(OS_TARGET)),)
|
||||
override NEEDUNITDIR+=$(PACKAGEDIR)/x11/$(OS_TARGET)
|
||||
else
|
||||
override NEEDUNITDIR+=$(PACKAGEDIR)/x11
|
||||
endif
|
||||
|
||||
# Libraries
|
||||
|
||||
@ -675,7 +685,28 @@ rtl_package:
|
||||
endif
|
||||
endif
|
||||
|
||||
.PHONY: rtl_package
|
||||
PACKAGEFORMS=1
|
||||
PACKAGEX11=1
|
||||
ifdef PACKAGEFORMS
|
||||
ifneq ($(wildcard $(PACKAGEDIR)/forms),)
|
||||
ifeq ($(wildcard $(PACKAGEDIR)/forms/$(FPCMADE)),)
|
||||
override COMPILEPACKAGES+=forms
|
||||
forms_package:
|
||||
$(MAKE) -C $(PACKAGEDIR)/forms all
|
||||
endif
|
||||
endif
|
||||
endif
|
||||
ifdef PACKAGEX11
|
||||
ifneq ($(wildcard $(PACKAGEDIR)/x11),)
|
||||
ifeq ($(wildcard $(PACKAGEDIR)/x11/$(FPCMADE)),)
|
||||
override COMPILEPACKAGES+=x11
|
||||
x11_package:
|
||||
$(MAKE) -C $(PACKAGEDIR)/x11 all
|
||||
endif
|
||||
endif
|
||||
endif
|
||||
|
||||
.PHONY: rtl_package forms_package x11_package
|
||||
|
||||
#####################################################################
|
||||
# Exes
|
||||
@ -745,12 +776,12 @@ fpc_smart:
|
||||
fpc_shared: all
|
||||
ifdef inlinux
|
||||
ifndef LIBNAME
|
||||
@$(ECHO) LIBNAME not set
|
||||
@$(ECHO) "LIBNAME not set"
|
||||
else
|
||||
$(PPUMOVE) $(SHAREDLIBUNITOBJECTS) -o$(LIBNAME)
|
||||
endif
|
||||
else
|
||||
@$(ECHO) Shared Libraries not supported
|
||||
@$(ECHO) "Shared Libraries not supported"
|
||||
endif
|
||||
|
||||
#####################################################################
|
||||
@ -778,19 +809,19 @@ endif
|
||||
|
||||
fpc_showinstall: $(SHOWINSTALLTARGET)
|
||||
ifdef INSTALLEXEFILES
|
||||
@$(ECHO) $(addprefix "\n"$(BININSTALLDIR)/,$(INSTALLEXEFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(BININSTALLDIR)/,$(INSTALLEXEFILES))
|
||||
endif
|
||||
ifdef INSTALLPPUFILES
|
||||
@$(ECHO) $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPUFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPUFILES))
|
||||
ifneq ($(INSTALLPPULINKFILES),)
|
||||
@$(ECHO) $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPULINKFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPULINKFILES))
|
||||
endif
|
||||
ifneq ($(INSTALLPPULIBFILES),)
|
||||
@$(ECHO) $(addprefix "\n"$(LIBINSTALLDIR)/,$(INSTALLPPULIBFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(LIBINSTALLDIR)/,$(INSTALLPPULIBFILES))
|
||||
endif
|
||||
endif
|
||||
ifdef EXTRAINSTALLFILES
|
||||
@$(ECHO) $(addprefix "\n"$(EXTRAINSTALLDIR)/,$(EXTRAINSTALLFILES))
|
||||
@$(ECHO) -e $(addprefix "\n"$(EXTRAINSTALLDIR)/,$(EXTRAINSTALLFILES))
|
||||
endif
|
||||
|
||||
fpc_install: $(INSTALLTARGET)
|
||||
@ -859,8 +890,8 @@ endif
|
||||
# Note: This will not remove the zipfile first
|
||||
fpc_zipinstalladd:
|
||||
ifndef ZIPNAME
|
||||
@$(ECHO) Please specify ZIPNAME!
|
||||
@exit
|
||||
@$(ECHO) "Please specify ZIPNAME!"
|
||||
@exit 1
|
||||
else
|
||||
$(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR)
|
||||
ifdef inlinux
|
||||
@ -876,8 +907,8 @@ endif
|
||||
# First remove the zip and then install
|
||||
fpc_zipinstall:
|
||||
ifndef ZIPNAME
|
||||
@$(ECHO) Please specify ZIPNAME!
|
||||
@exit
|
||||
@$(ECHO) "Please specify ZIPNAME!"
|
||||
@exit 1
|
||||
else
|
||||
$(DEL) $(DESTZIPDIR)/$(ZIPNAME)
|
||||
$(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR)
|
||||
|
||||
@ -10,9 +10,11 @@ programs=pushme yesno pushbutton touchbutton minput inputall choice butttypes \
|
||||
fbrowse1 fbrowse flclock fonts goodies lalign ll longlabel menu \
|
||||
objinactive objpos newbutton multilabel objreturn
|
||||
|
||||
[packages]
|
||||
packages=forms x11
|
||||
|
||||
[libs]
|
||||
libother=1
|
||||
|
||||
[dirs]
|
||||
fpcdir=../../..
|
||||
unitdir=..
|
||||
|
||||
File diff suppressed because it is too large
Load Diff
File diff suppressed because it is too large
Load Diff
@ -1,568 +0,0 @@
|
||||
unit x;
|
||||
|
||||
{ Changes to the original conversion marked MVC - Michael Van Canneyt}
|
||||
|
||||
{$LinkLib X11}
|
||||
|
||||
interface
|
||||
|
||||
const
|
||||
X_PROTOCOL = 11;
|
||||
|
||||
X_PROTOCOL_REVISION = 0;
|
||||
|
||||
|
||||
type
|
||||
{ Inserted the following by hand. It was under a ifndef _XSERVER64. All
|
||||
were unsigned longs originally
|
||||
-- MVC. }
|
||||
TXID = cardinal ;
|
||||
TMask = cardinal ;
|
||||
TAtom = cardinal ;
|
||||
TVisualID = cardinal ;
|
||||
TTime = cardinal ;
|
||||
{ End of insert }
|
||||
TWindow = TXID;
|
||||
TDrawable = TXID;
|
||||
TFont = TXID;
|
||||
TPixmap = TXID;
|
||||
TCursor = TXID;
|
||||
TColormap = TXID;
|
||||
TGContext = TXID;
|
||||
TKeySym = TXID;
|
||||
TKeyCode = char;
|
||||
PKeyCode = ^TKeyCode;
|
||||
{ Pointers to all these things. Needed for C calls. MVC }
|
||||
PAtom = ^TAtom;
|
||||
PPAtom = ^PAtom;
|
||||
PWindow = ^TWindow;
|
||||
PColormap = ^TColormap;
|
||||
PKeySym = ^TKeysym;
|
||||
PPixmap = ^TPixmap;
|
||||
|
||||
{*****************************************************************
|
||||
* RESERVED RESOURCE AND CONSTANT DEFINITIONS
|
||||
*****************************************************************}
|
||||
{* universal null resource or null atom *}
|
||||
|
||||
const
|
||||
None = 0;
|
||||
{* background pixmap in CreateWindow
|
||||
and ChangeWindowAttributes *}
|
||||
ParentRelative = 1;
|
||||
{* border pixmap in CreateWindow
|
||||
and ChangeWindowAttributes
|
||||
special VisualID and special window
|
||||
class passed to CreateWindow *}
|
||||
CopyFromParent = 0;
|
||||
{* destination window in SendEvent *}
|
||||
PointerWindow = 0;
|
||||
{* destination window in SendEvent *}
|
||||
InputFocus = 1;
|
||||
{* focus window in SetInputFocus *}
|
||||
PointerRoot = 1;
|
||||
{* special Atom, passed to GetProperty *}
|
||||
AnyPropertyType = 0;
|
||||
{* special Key Code, passed to GrabKey *}
|
||||
AnyKey = 0;
|
||||
{* special Button Code, passed to GrabButton *}
|
||||
AnyButton = 0;
|
||||
{* special Resource ID passed to KillClient *}
|
||||
AllTemporary = 0;
|
||||
{* special Time *}
|
||||
CurrentTime = 0;
|
||||
{* special KeySym *}
|
||||
{*****************************************************************
|
||||
* EVENT DEFINITIONS
|
||||
*****************************************************************}
|
||||
{* Input Event Masks. Used as event-mask window attribute and as arguments
|
||||
to Grab requests. Not to be confused with event names. *}
|
||||
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);
|
||||
{* Event names. Used in "type" field in XEvent structures. Not to be
|
||||
confused with event masks above. They start from 2 because 0 and 1
|
||||
are reserved in the protocol for errors and replies. *}
|
||||
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;
|
||||
{* must be bigger than any event # *}
|
||||
{* Key masks. Used as modifiers to GrabButton and GrabKey, results of QueryPointer,
|
||||
state in various key-, mouse-, and button-related events. *}
|
||||
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);
|
||||
{* modifier names. Used to build a SetModifierMapping request or
|
||||
to read a GetModifierMapping request. These correspond to the
|
||||
masks defined above. *}
|
||||
Mod5Mask = (1) shl (7);
|
||||
ShiftMapIndex = 0;
|
||||
LockMapIndex = 1;
|
||||
ControlMapIndex = 2;
|
||||
Mod1MapIndex = 3;
|
||||
Mod2MapIndex = 4;
|
||||
Mod3MapIndex = 5;
|
||||
Mod4MapIndex = 6;
|
||||
{* button masks. Used in same manner as Key masks above. Not to be confused
|
||||
with button names below. *}
|
||||
Mod5MapIndex = 7;
|
||||
Button1Mask = (1) shl (8);
|
||||
Button2Mask = (1) shl (9);
|
||||
Button3Mask = (1) shl (10);
|
||||
Button4Mask = (1) shl (11);
|
||||
Button5Mask = (1) shl (12);
|
||||
{* used in GrabButton, GrabKey *}
|
||||
{* button names. Used as arguments to GrabButton and as detail in ButtonPress
|
||||
and ButtonRelease events. Not to be confused with button masks above.
|
||||
Note that 0 is already defined above as "AnyButton". *}
|
||||
AnyModifier = (1) shl (15);
|
||||
Button1 = 1;
|
||||
Button2 = 2;
|
||||
Button3 = 3;
|
||||
Button4 = 4;
|
||||
{* Notify modes *}
|
||||
Button5 = 5;
|
||||
NotifyNormal = 0;
|
||||
NotifyGrab = 1;
|
||||
NotifyUngrab = 2;
|
||||
NotifyWhileGrabbed = 3;
|
||||
{* for MotionNotify events *}
|
||||
{* Notify detail *}
|
||||
NotifyHint = 1;
|
||||
NotifyAncestor = 0;
|
||||
NotifyVirtual = 1;
|
||||
NotifyInferior = 2;
|
||||
NotifyNonlinear = 3;
|
||||
NotifyNonlinearVirtual = 4;
|
||||
NotifyPointer = 5;
|
||||
NotifyPointerRoot = 6;
|
||||
{* Visibility notify *}
|
||||
NotifyDetailNone = 7;
|
||||
VisibilityUnobscured = 0;
|
||||
VisibilityPartiallyObscured = 1;
|
||||
{* Circulation request *}
|
||||
VisibilityFullyObscured = 2;
|
||||
PlaceOnTop = 0;
|
||||
{* protocol families *}
|
||||
PlaceOnBottom = 1;
|
||||
FamilyInternet = 0;
|
||||
FamilyDECnet = 1;
|
||||
{* Property notification *}
|
||||
FamilyChaos = 2;
|
||||
PropertyNewValue = 0;
|
||||
{* Color Map notification *}
|
||||
PropertyDelete = 1;
|
||||
ColormapUninstalled = 0;
|
||||
{* GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes *}
|
||||
ColormapInstalled = 1;
|
||||
GrabModeSync = 0;
|
||||
{* GrabPointer, GrabKeyboard reply status *}
|
||||
GrabModeAsync = 1;
|
||||
GrabSuccess = 0;
|
||||
AlreadyGrabbed = 1;
|
||||
GrabInvalidTime = 2;
|
||||
GrabNotViewable = 3;
|
||||
{* AllowEvents modes *}
|
||||
GrabFrozen = 4;
|
||||
AsyncPointer = 0;
|
||||
SyncPointer = 1;
|
||||
ReplayPointer = 2;
|
||||
AsyncKeyboard = 3;
|
||||
SyncKeyboard = 4;
|
||||
ReplayKeyboard = 5;
|
||||
AsyncBoth = 6;
|
||||
{* Used in SetInputFocus, GetInputFocus *}
|
||||
SyncBoth = 7;
|
||||
{*****************************************************************
|
||||
* ERROR CODES
|
||||
*****************************************************************}
|
||||
RevertToParent = 2;
|
||||
{* everything's okay *}
|
||||
Success = 0;
|
||||
{* bad request code *}
|
||||
BadRequest = 1;
|
||||
{* int parameter out of range *}
|
||||
BadValue = 2;
|
||||
{* parameter not a Window *}
|
||||
BadWindow = 3;
|
||||
{* parameter not a Pixmap *}
|
||||
BadPixmap = 4;
|
||||
{* parameter not an Atom *}
|
||||
BadAtom = 5;
|
||||
{* parameter not a Cursor *}
|
||||
BadCursor = 6;
|
||||
{* parameter not a Font *}
|
||||
BadFont = 7;
|
||||
{* parameter mismatch *}
|
||||
BadMatch = 8;
|
||||
{* parameter not a Pixmap or Window *}
|
||||
BadDrawable = 9;
|
||||
{* depending on context:
|
||||
- key/button already grabbed
|
||||
- attempt to free an illegal
|
||||
cmap entry
|
||||
- attempt to store into a read-only
|
||||
color map entry.
|
||||
- attempt to modify the access control
|
||||
list from other than the local host.
|
||||
*}
|
||||
BadAccess = 10;
|
||||
{* insufficient resources *}
|
||||
BadAlloc = 11;
|
||||
{* no such colormap *}
|
||||
BadColor = 12;
|
||||
{* parameter not a GC *}
|
||||
BadGC = 13;
|
||||
{* choice not in range or already used *}
|
||||
BadIDChoice = 14;
|
||||
{* font or color name doesn't exist *}
|
||||
BadName = 15;
|
||||
{* Request length incorrect *}
|
||||
BadLength = 16;
|
||||
{* server is defective *}
|
||||
BadImplementation = 17;
|
||||
FirstExtensionError = 128;
|
||||
{*****************************************************************
|
||||
* WINDOW DEFINITIONS
|
||||
*****************************************************************}
|
||||
{* Window classes used by CreateWindow *}
|
||||
{* Note that CopyFromParent is already defined as 0 above *}
|
||||
LastExtensionError = 255;
|
||||
InputOutput = 1;
|
||||
{* Window attributes for CreateWindow and ChangeWindowAttributes *}
|
||||
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);
|
||||
{* ConfigureWindow structure *}
|
||||
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);
|
||||
{* Bit Gravity *}
|
||||
CWStackMode = (1) shl (6);
|
||||
ForgetGravity = 0;
|
||||
NorthWestGravity = 1;
|
||||
NorthGravity = 2;
|
||||
NorthEastGravity = 3;
|
||||
WestGravity = 4;
|
||||
CenterGravity = 5;
|
||||
EastGravity = 6;
|
||||
SouthWestGravity = 7;
|
||||
SouthGravity = 8;
|
||||
SouthEastGravity = 9;
|
||||
{* Window gravity + bit gravity above *}
|
||||
StaticGravity = 10;
|
||||
{* Used in CreateWindow for backing-store hint *}
|
||||
UnmapGravity = 0;
|
||||
NotUseful = 0;
|
||||
WhenMapped = 1;
|
||||
{* Used in GetWindowAttributes reply *}
|
||||
Always = 2;
|
||||
IsUnmapped = 0;
|
||||
IsUnviewable = 1;
|
||||
{* Used in ChangeSaveSet *}
|
||||
IsViewable = 2;
|
||||
SetModeInsert = 0;
|
||||
{* Used in ChangeCloseDownMode *}
|
||||
SetModeDelete = 1;
|
||||
DestroyAll = 0;
|
||||
RetainPermanent = 1;
|
||||
{* Window stacking method (in configureWindow) *}
|
||||
RetainTemporary = 2;
|
||||
Above = 0;
|
||||
Below = 1;
|
||||
TopIf = 2;
|
||||
BottomIf = 3;
|
||||
{* Circulation direction *}
|
||||
Opposite = 4;
|
||||
RaiseLowest = 0;
|
||||
{* Property modes *}
|
||||
LowerHighest = 1;
|
||||
PropModeReplace = 0;
|
||||
PropModePrepend = 1;
|
||||
{*****************************************************************
|
||||
* GRAPHICS DEFINITIONS
|
||||
*****************************************************************}
|
||||
{* graphics functions, as in GC.alu *}
|
||||
PropModeAppend = 2;
|
||||
{* 0 *}
|
||||
GXclear = $0;
|
||||
{* src AND dst *}
|
||||
GXand = $1;
|
||||
{* src AND NOT dst *}
|
||||
GXandReverse = $2;
|
||||
{* src *}
|
||||
GXcopy = $3;
|
||||
{* NOT src AND dst *}
|
||||
GXandInverted = $4;
|
||||
{* dst *}
|
||||
GXnoop = $5;
|
||||
{* src XOR dst *}
|
||||
GXxor = $6;
|
||||
{* src OR dst *}
|
||||
GXor = $7;
|
||||
{* NOT src AND NOT dst *}
|
||||
GXnor = $8;
|
||||
{* NOT src XOR dst *}
|
||||
GXequiv = $9;
|
||||
{* NOT dst *}
|
||||
GXinvert = $a;
|
||||
{* src OR NOT dst *}
|
||||
GXorReverse = $b;
|
||||
{* NOT src *}
|
||||
GXcopyInverted = $c;
|
||||
{* NOT src OR dst *}
|
||||
GXorInverted = $d;
|
||||
{* NOT src OR NOT dst *}
|
||||
GXnand = $e;
|
||||
{* 1 *}
|
||||
{* LineStyle *}
|
||||
GXset = $f;
|
||||
LineSolid = 0;
|
||||
LineOnOffDash = 1;
|
||||
{* capStyle *}
|
||||
LineDoubleDash = 2;
|
||||
CapNotLast = 0;
|
||||
CapButt = 1;
|
||||
CapRound = 2;
|
||||
{* joinStyle *}
|
||||
CapProjecting = 3;
|
||||
JoinMiter = 0;
|
||||
JoinRound = 1;
|
||||
{* fillStyle *}
|
||||
JoinBevel = 2;
|
||||
FillSolid = 0;
|
||||
FillTiled = 1;
|
||||
FillStippled = 2;
|
||||
{* fillRule *}
|
||||
FillOpaqueStippled = 3;
|
||||
EvenOddRule = 0;
|
||||
{* subwindow mode *}
|
||||
WindingRule = 1;
|
||||
ClipByChildren = 0;
|
||||
{* SetClipRectangles ordering *}
|
||||
IncludeInferiors = 1;
|
||||
Unsorted = 0;
|
||||
YSorted = 1;
|
||||
YXSorted = 2;
|
||||
{* CoordinateMode for drawing routines *}
|
||||
YXBanded = 3;
|
||||
{* relative to the origin *}
|
||||
CoordModeOrigin = 0;
|
||||
{* relative to previous point *}
|
||||
{* Polygon shapes *}
|
||||
CoordModePrevious = 1;
|
||||
{* paths may intersect *}
|
||||
Complex = 0;
|
||||
{* no paths intersect, but not convex *}
|
||||
Nonconvex = 1;
|
||||
{* wholly convex *}
|
||||
{* Arc modes for PolyFillArc *}
|
||||
Convex = 2;
|
||||
{* join endpoints of arc *}
|
||||
ArcChord = 0;
|
||||
{* join endpoints to center of arc *}
|
||||
{* GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into
|
||||
GC.stateChanges *}
|
||||
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);
|
||||
{*****************************************************************
|
||||
* FONTS
|
||||
*****************************************************************}
|
||||
{* used in QueryFont -- draw direction *}
|
||||
GCLastBit = 22;
|
||||
FontLeftToRight = 0;
|
||||
FontRightToLeft = 1;
|
||||
{*****************************************************************
|
||||
* IMAGING
|
||||
*****************************************************************}
|
||||
{* ImageFormat -- PutImage, GetImage *}
|
||||
FontChange = 255;
|
||||
{* depth 1, XYFormat *}
|
||||
XYBitmap = 0;
|
||||
{* depth == drawable depth *}
|
||||
XYPixmap = 1;
|
||||
{* depth == drawable depth *}
|
||||
{*****************************************************************
|
||||
* COLOR MAP STUFF
|
||||
*****************************************************************}
|
||||
{* For CreateColormap *}
|
||||
ZPixmap = 2;
|
||||
{* create map with no entries *}
|
||||
AllocNone = 0;
|
||||
{* allocate entire map writeable *}
|
||||
{* Flags used in StoreNamedColor, StoreColors *}
|
||||
AllocAll = 1;
|
||||
DoRed = (1) shl (0);
|
||||
DoGreen = (1) shl (1);
|
||||
{*****************************************************************
|
||||
* CURSOR STUFF
|
||||
*****************************************************************}
|
||||
{* QueryBestSize Class *}
|
||||
DoBlue = (1) shl (2);
|
||||
{* largest size that can be displayed *}
|
||||
CursorShape = 0;
|
||||
{* size tiled fastest *}
|
||||
TileShape = 1;
|
||||
{* size stippled fastest *}
|
||||
{*****************************************************************
|
||||
* KEYBOARD/POINTER STUFF
|
||||
*****************************************************************}
|
||||
StippleShape = 2;
|
||||
AutoRepeatModeOff = 0;
|
||||
AutoRepeatModeOn = 1;
|
||||
AutoRepeatModeDefault = 2;
|
||||
LedModeOff = 0;
|
||||
{* masks for ChangeKeyboardControl *}
|
||||
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;
|
||||
{*****************************************************************
|
||||
* SCREEN SAVER STUFF
|
||||
*****************************************************************}
|
||||
MappingPointer = 2;
|
||||
DontPreferBlanking = 0;
|
||||
PreferBlanking = 1;
|
||||
DefaultBlanking = 2;
|
||||
DisableScreenSaver = 0;
|
||||
DisableScreenInterval = 0;
|
||||
DontAllowExposures = 0;
|
||||
AllowExposures = 1;
|
||||
{* for ForceScreenSaver *}
|
||||
DefaultExposures = 2;
|
||||
ScreenSaverReset = 0;
|
||||
{*****************************************************************
|
||||
* HOSTS AND CONNECTIONS
|
||||
*****************************************************************}
|
||||
{* for ChangeHosts *}
|
||||
ScreenSaverActive = 1;
|
||||
HostInsert = 0;
|
||||
{* for ChangeAccessControl *}
|
||||
HostDelete = 1;
|
||||
EnableAccess = 1;
|
||||
{* Display classes used in opening the connection
|
||||
* Note that the statically allocated ones are even numbered and the
|
||||
* dynamically changeable ones are odd numbered *}
|
||||
DisableAccess = 0;
|
||||
StaticGray = 0;
|
||||
GrayScale = 1;
|
||||
StaticColor = 2;
|
||||
PseudoColor = 3;
|
||||
TrueColor = 4;
|
||||
{* Byte order used in imageByteOrder and bitmapBitOrder *}
|
||||
DirectColor = 5;
|
||||
LSBFirst = 0;
|
||||
MSBFirst = 1;
|
||||
|
||||
{ Pointer Declarations }
|
||||
|
||||
implementation
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load Diff
@ -1,457 +0,0 @@
|
||||
unit xresource;
|
||||
|
||||
interface
|
||||
|
||||
uses xlib;
|
||||
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Quark Management
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
type
|
||||
TXrmQuark = Integer;
|
||||
PXrmQuark = ^TXrmQuark;
|
||||
TXrmQuarkList = PXrmQuark;
|
||||
|
||||
|
||||
Const NULLQUARK = 0 ;
|
||||
|
||||
type TXrmString = Pchar;
|
||||
|
||||
const NULLSTRING = 0;
|
||||
|
||||
{ find quark for string, create new quark if none already exists }
|
||||
Function XrmStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;
|
||||
|
||||
Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark;cdecl;
|
||||
|
||||
{ find string for quark }
|
||||
Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString;cdecl;
|
||||
|
||||
|
||||
Function XrmUniqueQuark : TXrmQuark;cdecl;
|
||||
|
||||
{
|
||||
#define XrmStringsEqual(a1, a2) (strcmp(a1, a2) == 0)
|
||||
}
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Conversion of Strings to Lists
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
type
|
||||
TXrmBinding = integer;
|
||||
TXrmBindingList = ^Integer;
|
||||
Const XrmBindTightly = 0;
|
||||
XrmBindLoosely = 1;
|
||||
|
||||
procedure XrmStringToQuarkList(
|
||||
p1 : pchar { string };
|
||||
p2 : TXrmQuarkList { quarks_return }
|
||||
);cdecl;
|
||||
|
||||
procedure XrmStringToBindingQuarkList(
|
||||
p1 : pchar { string };
|
||||
p2 : TXrmBindingList { bindings_return };
|
||||
p3 : TXrmQuarkList { quarks_return }
|
||||
);cdecl;
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Name and Class lists.
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
type TXrmName = TXrmQuark;
|
||||
TXrmNameList = TXrmQuarkList ;
|
||||
{
|
||||
#define XrmNameToString(name) XrmQuarkToString(name)
|
||||
#define XrmStringToName(string) XrmStringToQuark(string)
|
||||
#define XrmStringToNameList(str, name) XrmStringToQuarkList(str, name)
|
||||
}
|
||||
TXrmClass = TXrmQuark;
|
||||
TXrmClassList = TXrmQuarkList;
|
||||
{
|
||||
#define XrmClassToString(c_class) XrmQuarkToString(c_class)
|
||||
#define XrmStringToClass(c_class) XrmStringToQuark(c_class)
|
||||
#define XrmStringToClassList(str,c_class) XrmStringToQuarkList(str, c_class)
|
||||
}
|
||||
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Resource Representation Types and Values
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
type TXrmRepresentation = TXrmQuark ;
|
||||
PXrmRepresentation = ^TXrmRepresentation;
|
||||
{
|
||||
#define XrmStringToRepresentation(string) XrmStringToQuark(string)
|
||||
#define XrmRepresentationToString(type) XrmQuarkToString(type)
|
||||
}
|
||||
|
||||
type TXrmValue = record
|
||||
size : word;
|
||||
theaddr : TXPointer;
|
||||
end;
|
||||
PXrmValue = ^TXrmValue;
|
||||
TXrmValuePtr = PXrmValue;
|
||||
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Resource Manager Functions
|
||||
*
|
||||
***************************************************************}
|
||||
{
|
||||
typedef struct _XrmHashBucketRec *XrmHashBucket;
|
||||
typedef XrmHashBucket *XrmHashTable;
|
||||
typedef XrmHashTable XrmSearchList[];
|
||||
typedef struct _XrmHashBucketRec *XrmDatabase;
|
||||
}
|
||||
Type TXrmHashBucket = pointer;
|
||||
TXrmHashTable = ^TXrmHashBucket;
|
||||
TXrmSearchList = ^TXrmHashTable;
|
||||
TXrmDatabase = pointer;
|
||||
PXrmDatabase = ^TXrmDatabase;
|
||||
|
||||
procedure XrmDestroyDatabase(
|
||||
p1 : TXrmDatabase { database }
|
||||
);cdecl;
|
||||
|
||||
Procedure XrmQPutResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : TXrmBindingList { bindings };
|
||||
p3 : TXrmQuarkList { quarks };
|
||||
p4 : TXrmRepresentation { type };
|
||||
p5 : PXrmValue { value }
|
||||
);cdecl;
|
||||
|
||||
Procedure XrmPutResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : pchar { specifier };
|
||||
p3 : pchar { type };
|
||||
p4 : PXrmValue { value }
|
||||
);cdecl;
|
||||
|
||||
Procedure XrmQPutStringResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : TXrmBindingList { bindings };
|
||||
p3 : TXrmQuarkList { quarks };
|
||||
p4 : Pchar { value }
|
||||
);cdecl;
|
||||
|
||||
Procedure XrmPutStringResource(
|
||||
P1 : PXrmDatabase { database };
|
||||
p2,p3 : pchar
|
||||
);cdecl;
|
||||
|
||||
Procedure XrmPutLineResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : pchar { line }
|
||||
);cdecl;
|
||||
|
||||
Function XrmQGetResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : TXrmNameList { quark_name };
|
||||
p3 : TXrmClassList { quark_class };
|
||||
p4 : PXrmRepresentation { quark_type_return };
|
||||
p5 : PXrmValue { value_return }
|
||||
) : Integer;cdecl;
|
||||
|
||||
Function XrmGetResource(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2 : pchar { str_name };
|
||||
p3 : pchar { str_class };
|
||||
p4 : ppchar { str_type_return };
|
||||
p5 : PXrmValue { value_return }
|
||||
) : Tbool;cdecl;
|
||||
|
||||
Function XrmQGetSearchList(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2 : TXrmNameList { names };
|
||||
p3 : TXrmClassList { classes };
|
||||
p4 : TXrmSearchList { list_return };
|
||||
p5 : integer { list_length }
|
||||
) : Tbool;cdecl;
|
||||
|
||||
Function XrmQGetSearchResource(
|
||||
P1 : TXrmSearchList { list };
|
||||
p2 : TXrmName { name };
|
||||
p3 : TXrmClass { class };
|
||||
p4 : PXrmRepresentation { type_return };
|
||||
p5 : PXrmValue { value_return }
|
||||
) : TBool;cdecl;
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Resource Database Management
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
procedure XrmSetDatabase(
|
||||
p1 : PDisplay { display };
|
||||
p2 : TXrmDatabase { database }
|
||||
);cdecl;
|
||||
|
||||
Function XrmGetDatabase(
|
||||
p1 : PDisplay { display }
|
||||
) : TXrmDatabase;cdecl;
|
||||
|
||||
Function XrmGetFileDatabase(
|
||||
p1 : pchar { filename }
|
||||
) : TXrmDatabase ;cdecl;
|
||||
|
||||
Function XrmCombineFileDatabase(
|
||||
p1 : pchar { filename };
|
||||
p2 : PXrmDatabase { target };
|
||||
p3 : TBool { override }
|
||||
) : TStatus ;cdecl;
|
||||
|
||||
function XrmGetStringDatabase(
|
||||
p1 : pchar { data } { null terminated string }
|
||||
) : TXrmDatabase ;cdecl;
|
||||
|
||||
Procedure XrmPutFileDatabase(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2: pchar { filename }
|
||||
);cdecl;
|
||||
|
||||
Procedure XrmMergeDatabases(
|
||||
p1 : TXrmDatabase { source_db };
|
||||
p2 : PXrmDatabase { target_db }
|
||||
);cdecl;
|
||||
|
||||
procedure XrmCombineDatabase(
|
||||
p1 : TXrmDatabase { source_db };
|
||||
p2 : PXrmDatabase { target_db };
|
||||
p3 : TBool { override }
|
||||
);cdecl;
|
||||
|
||||
const
|
||||
XrmEnumAllLevels = 0;
|
||||
XrmEnumOneLevel = 1;
|
||||
{
|
||||
Function XrmEnumerateDatabase(
|
||||
XrmDatabase { db };
|
||||
XrmNameList { name_prefix };
|
||||
XrmClassList { class_prefix };
|
||||
int { mode };
|
||||
Bool (*)(#if NeedNestedPrototypes
|
||||
XrmDatabase* { db };
|
||||
XrmBindingList { bindings };
|
||||
XrmQuarkList { quarks };
|
||||
XrmRepresentation* { type };
|
||||
XrmValue* { value };
|
||||
XPointer { closure }
|
||||
|
||||
) { proc };
|
||||
XPointer { closure }
|
||||
) : TBool;
|
||||
}
|
||||
|
||||
Function XrmLocaleOfDatabase(
|
||||
P1 : TXrmDatabase { database }
|
||||
) : Pchar;cdecl;
|
||||
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Command line option mapping to resource entries
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
Const
|
||||
XrmoptionNoArg = 0; { Value is specified in OptionDescRec.value }
|
||||
XrmoptionIsArg = 1; { Value is the option string itself }
|
||||
XrmoptionStickyArg = 2; { Value is characters immediately following option }
|
||||
XrmoptionSepArg = 3; { Value is next argument in argv }
|
||||
XrmoptionResArg = 4; { Resource and value in next argument in argv }
|
||||
XrmoptionSkipArg = 5; { Ignore this option and the next argument in argv }
|
||||
XrmoptionSkipLine = 6; { Ignore this option and the rest of argv }
|
||||
XrmoptionSkipNArgs = 7; { Ignore this option and the next
|
||||
OptionDescRes.value arguments in argv }
|
||||
Type TXrmOptionKind = Integer;
|
||||
|
||||
TXrmOptionDescRec = record
|
||||
option : pchar; { Option abbreviation in argv }
|
||||
specifier : pchar; { Resource specifier }
|
||||
argKind : TXrmOptionKind; { Which style of option it is }
|
||||
value : TXpointer; { Value to provide if XrmoptionNoArg }
|
||||
end;
|
||||
PXrmOptionDescRec= ^TXrmOptionDescRec;
|
||||
TXrmOptionDescList = PXrmOptionDescRec;
|
||||
|
||||
|
||||
Procedure XrmParseCommand(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2 : TXrmOptionDescList { table };
|
||||
p3 : integer { table_count };
|
||||
p4 : pchar { name };
|
||||
p5 : Pointer { argc_in_out };
|
||||
p6 : ppchar { argv_in_out }
|
||||
);cdecl;
|
||||
|
||||
Implementation
|
||||
|
||||
Function XrmStringToQuark( p1 : pchar ) : TXrmQuark; cdecl; external;
|
||||
Function XrmPermStringToQuark( p1 : pchar ) : TXrmQuark; cdecl; external;
|
||||
Function XrmQuarkToString( p1 : TXrmQuark) : TXrmString; cdecl; external;
|
||||
|
||||
Function XrmUniqueQuark : TXrmQuark; cdecl; external;
|
||||
procedure XrmStringToQuarkList(
|
||||
p1 : pchar { string };
|
||||
p2 : TXrmQuarkList { quarks_return }
|
||||
); cdecl; external;
|
||||
|
||||
procedure XrmStringToBindingQuarkList(
|
||||
p1 : pchar { string };
|
||||
p2 : TXrmBindingList { bindings_return };
|
||||
p3 : TXrmQuarkList { quarks_return }
|
||||
); cdecl; external;
|
||||
procedure XrmDestroyDatabase(
|
||||
p1 : TXrmDatabase { database }
|
||||
); cdecl; external;
|
||||
|
||||
Procedure XrmQPutResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : TXrmBindingList { bindings };
|
||||
p3 : TXrmQuarkList { quarks };
|
||||
p4 : TXrmRepresentation { type };
|
||||
p5 : PXrmValue { value }
|
||||
); cdecl; external;
|
||||
|
||||
Procedure XrmPutResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : pchar { specifier };
|
||||
p3 : pchar { type };
|
||||
p4 : PXrmValue { value }
|
||||
); cdecl; external;
|
||||
|
||||
Procedure XrmQPutStringResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : TXrmBindingList { bindings };
|
||||
p3 : TXrmQuarkList { quarks };
|
||||
p4 : Pchar { value }
|
||||
); cdecl; external;
|
||||
|
||||
procedure XrmPutStringResource(
|
||||
P1 : PXrmDatabase { database };
|
||||
p2,p3 : pchar
|
||||
); cdecl; external;
|
||||
|
||||
Procedure XrmPutLineResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : pchar { line }
|
||||
); cdecl; external;
|
||||
|
||||
Function XrmQGetResource(
|
||||
p1 : PXrmDatabase { database };
|
||||
p2 : TXrmNameList { quark_name };
|
||||
p3 : TXrmClassList { quark_class };
|
||||
p4 : PXrmRepresentation { quark_type_return };
|
||||
p5 : PXrmValue { value_return }
|
||||
) : Integer; cdecl; external;
|
||||
|
||||
Function XrmGetResource(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2 : pchar { str_name };
|
||||
p3 : pchar { str_class };
|
||||
p4 : ppchar { str_type_return };
|
||||
p5 : PXrmValue { value_return }
|
||||
) : Tbool; cdecl; external;
|
||||
|
||||
Function XrmQGetSearchList(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2 : TXrmNameList { names };
|
||||
p3 : TXrmClassList { classes };
|
||||
p4 : TXrmSearchList { list_return };
|
||||
p5 : integer { list_length }
|
||||
) : Tbool; cdecl; external;
|
||||
|
||||
Function XrmQGetSearchResource(
|
||||
P1 : TXrmSearchList { list };
|
||||
p2 : TXrmName { name };
|
||||
p3 : TXrmClass { class };
|
||||
p4 : PXrmRepresentation { type_return };
|
||||
p5 : PXrmValue { value_return }
|
||||
) : TBool; cdecl; external;
|
||||
|
||||
procedure XrmSetDatabase(
|
||||
p1 : PDisplay { display };
|
||||
p2 : TXrmDatabase { database }
|
||||
); cdecl; external;
|
||||
|
||||
Function XrmGetDatabase(
|
||||
p1 : PDisplay { display }
|
||||
) : TXrmDatabase; cdecl; external;
|
||||
|
||||
Function XrmGetFileDatabase(
|
||||
p1 : pchar { filename }
|
||||
) : TXrmDatabase ; cdecl; external;
|
||||
|
||||
Function XrmCombineFileDatabase(
|
||||
p1 : pchar { filename };
|
||||
p2 : PXrmDatabase { target };
|
||||
p3 : TBool { override }
|
||||
) : TStatus ; cdecl; external;
|
||||
|
||||
function XrmGetStringDatabase(
|
||||
p1 : pchar { data } { null terminated string }
|
||||
) : TXrmDatabase ; cdecl; external;
|
||||
|
||||
Procedure XrmPutFileDatabase(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2: pchar { filename }
|
||||
); cdecl; external;
|
||||
|
||||
Procedure XrmMergeDatabases(
|
||||
p1 : TXrmDatabase { source_db };
|
||||
p2 : PXrmDatabase { target_db }
|
||||
); cdecl; external;
|
||||
|
||||
procedure XrmCombineDatabase(
|
||||
p1 : TXrmDatabase { source_db };
|
||||
p2 : PXrmDatabase { target_db };
|
||||
p3 : TBool { override }
|
||||
); cdecl; external;
|
||||
|
||||
{
|
||||
Function XrmEnumerateDatabase(
|
||||
XrmDatabase { db };
|
||||
XrmNameList { name_prefix };
|
||||
XrmClassList { class_prefix };
|
||||
int { mode };
|
||||
Bool (*)(#if NeedNestedPrototypes
|
||||
XrmDatabase* { db };
|
||||
XrmBindingList { bindings };
|
||||
XrmQuarkList { quarks };
|
||||
XrmRepresentation* { type };
|
||||
XrmValue* { value };
|
||||
XPointer { closure }
|
||||
|
||||
) { proc };
|
||||
XPointer { closure }
|
||||
) : TBool; cdecl; external;
|
||||
}
|
||||
|
||||
Function XrmLocaleOfDatabase(
|
||||
P1 : TXrmDatabase { database }
|
||||
) : Pchar; cdecl; external;
|
||||
|
||||
Procedure XrmParseCommand(
|
||||
p1 : TXrmDatabase { database };
|
||||
p2 : TXrmOptionDescList { table };
|
||||
p3 : integer { table_count };
|
||||
p4 : pchar { name };
|
||||
p5 : Pointer { argc_in_out };
|
||||
p6 : ppchar { argv_in_out }
|
||||
); cdecl; external;
|
||||
|
||||
end.
|
||||
@ -1,893 +0,0 @@
|
||||
Unit XUtil;
|
||||
|
||||
interface
|
||||
|
||||
uses x,xlib;
|
||||
|
||||
{ You must include <X11/Xlib.h> before including this file }
|
||||
|
||||
{
|
||||
* Bitmask returned by XParseGeometry(). Each bit tells if the corresponding
|
||||
* value (x, y, width, height) was found in the parsed string.
|
||||
}
|
||||
Const
|
||||
NoValue =$0000;
|
||||
XValue =$0001;
|
||||
YValue =$0002;
|
||||
WidthValue =$0004;
|
||||
HeightValue =$0008;
|
||||
AllValues =$000F;
|
||||
XNegative =$0010;
|
||||
YNegative =$0020;
|
||||
|
||||
{
|
||||
* new version containing base_width, base_height, and win_gravity fields;
|
||||
* used with WM_NORMAL_HINTS.
|
||||
}
|
||||
Type
|
||||
long = Cardinal; { Untill we know better. M.}
|
||||
|
||||
Type
|
||||
TAspectRecord = record
|
||||
x,y : integer;
|
||||
end;
|
||||
|
||||
TXSizeHints = record
|
||||
flags : Long; { marks which fields in this structure are defined }
|
||||
x, y : Integer ; { obsolete for new window mgrs, but clients }
|
||||
width, height: Integer ; { should set so old wm's don't mess up }
|
||||
min_width, min_height : Integer ;
|
||||
max_width, max_height : Integer ;
|
||||
width_inc, height_inc : Integer ;
|
||||
min_aspect, max_aspect : TAspectRecord;
|
||||
base_width, base_height : Integer ; { added by ICCCM version 1 }
|
||||
win_gravity : Integer ; { added by ICCCM version 1 }
|
||||
end;
|
||||
PXSizeHints=^TXSizeHints;
|
||||
|
||||
{
|
||||
* The next block of definitions are for window manager properties that
|
||||
* clients and applications use for communication.
|
||||
}
|
||||
|
||||
{ flags argument in size hints }
|
||||
Const
|
||||
USPosition = 1 shl 0; { user specified x, y }
|
||||
USSize = 1 shl 1; { user specified width, height }
|
||||
|
||||
PPosition = 1 shl 2; { program specified position }
|
||||
PSize = 1 shl 3; { program specified size }
|
||||
PMinSize = 1 shl 4; { program specified minimum size }
|
||||
PMaxSize = 1 shl 5; { program specified maximum size }
|
||||
PResizeInc = 1 shl 6; { program specified resize increments }
|
||||
PAspect = 1 shl 7; { program specified min and max aspect ratios }
|
||||
PBaseSize = 1 shl 8; { program specified base for incrementing }
|
||||
PWinGravity = 1 shl 9; { program specified window gravity }
|
||||
|
||||
{ obsolete }
|
||||
PAllHints = PPosition or PSize or PMinSize or PMaxSize or PResizeInc or PAspect;
|
||||
|
||||
Type
|
||||
|
||||
TXWMHints = record
|
||||
flags : long; { marks which fields in this structure are defined }
|
||||
input : TBool ; { does this application rely on the window manager to
|
||||
get keyboard input? }
|
||||
initial_state : Integer ; { see below }
|
||||
icon_pixmap : TPixmap ; { pixmap to be used as icon }
|
||||
icon_window : TWindow ; { window to be used as icon }
|
||||
icon_x, icon_y : Integer ; { initial position of icon }
|
||||
icon_mask : TPixmap ; { icon mask bitmap }
|
||||
window_group : TXID ; { id of related window group }
|
||||
{ this structure may be extended in the future }
|
||||
end;
|
||||
{ definition for flags of XWMHints }
|
||||
|
||||
Const
|
||||
InputHint = 1 shl 0;
|
||||
StateHint = 1 shl 1;
|
||||
IconPixmapHint = 1 shl 2;
|
||||
IconWindowHint = 1 shl 3;
|
||||
IconPositionHint = 1 shl 4;
|
||||
IconMaskHint = 1 shl 5;
|
||||
AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or
|
||||
IconPositionHint or IconMaskHint {or WindowGroupHint};
|
||||
XUrgencyHint = 1 shl 8;
|
||||
|
||||
{ definitions for initial window state }
|
||||
WithdrawnState = 0; { for windows that are not mapped }
|
||||
NormalState = 1; { most applications want to start this way }
|
||||
IconicState = 3; { application wants to start as an icon }
|
||||
|
||||
{
|
||||
* Obsolete states no longer defined by ICCCM
|
||||
}
|
||||
DontCareState = 0; { don't know or care }
|
||||
ZoomState = 2; { application wants to start zoomed }
|
||||
InactiveState = 4; { application believes it is seldom used; }
|
||||
{ some wm's may put it on inactive menu }
|
||||
|
||||
|
||||
{
|
||||
* new structure for manipulating TEXT properties; used with WM_NAME,
|
||||
* WM_ICON_NAME, WM_CLIENT_MACHINE, and WM_COMMAND.
|
||||
}
|
||||
type
|
||||
TXTextProperty = record
|
||||
value : pchar; { same as Property routines }
|
||||
encoding : TAtom; { prop type }
|
||||
format : Integer ; { prop data format: 8, 16, or 32 }
|
||||
nitems : Cardinal; { number of data items in value }
|
||||
end;
|
||||
PXTextProperty = ^TXTextProperty;
|
||||
|
||||
Const
|
||||
|
||||
XNoMemory =-1;
|
||||
XLocaleNotSupported =-2;
|
||||
XConverterNotFound =-3;
|
||||
|
||||
Type
|
||||
TXICCEncodingStyle = Integer;
|
||||
|
||||
Const
|
||||
XStringStyle = 0; { STRING }
|
||||
XCompoundTextStyle = 1; { COMPOUND_TEXT }
|
||||
XTextStyle = 2; { text in owner's encoding (current locale)}
|
||||
XStdICCTextStyle = 3; { STRING, else COMPOUND_TEXT }
|
||||
|
||||
Type
|
||||
TXIconSize = record
|
||||
min_width, min_height,
|
||||
max_width, max_height,
|
||||
width_inc, height_inc : Integer;
|
||||
end;
|
||||
PXIconSize = ^TXIconSize;
|
||||
|
||||
type
|
||||
TXClassHint = record
|
||||
res_name,
|
||||
res_class : pchar;
|
||||
end;
|
||||
PXClassHint = ^TXClassHint;
|
||||
|
||||
{
|
||||
* These macros are used to give some sugar to the image routines so that
|
||||
* naive people are more comfortable with them.
|
||||
}
|
||||
|
||||
{
|
||||
XDestroyImage(ximage) \
|
||||
((*((ximage)->f.destroy_image))((ximage)))
|
||||
XGetPixel(ximage, x, y) \
|
||||
((*((ximage)->f.get_pixel))((ximage), (x), (y)))
|
||||
XPutPixel(ximage, x, y, pixel) \
|
||||
((*((ximage)->f.put_pixel))((ximage), (x), (y), (pixel)))
|
||||
XSubImage(ximage, x, y, width, height) \
|
||||
((*((ximage)->f.sub_image))((ximage), (x), (y), (width), (height)))
|
||||
XAddPixel(ximage, value) \
|
||||
((*((ximage)->f.add_pixel))((ximage), (value)))
|
||||
}
|
||||
{
|
||||
* Compose sequence status structure, used in calling XLookupString.
|
||||
}
|
||||
|
||||
TXComposeStatus = record
|
||||
compose_ptr : TXPointer ; { state table pointer }
|
||||
chars_matched : Integer ; { match state }
|
||||
end;
|
||||
PTXComposeStatus = ^TXComposeStatus;
|
||||
|
||||
{
|
||||
* Keysym macros, used on Keysyms to test for classes of symbols
|
||||
}
|
||||
{
|
||||
IsKeypadKey(keysym) \
|
||||
(((KeySym)(keysym) >= XK_KP_Space) && ((KeySym)(keysym) <= XK_KP_Equal))
|
||||
|
||||
IsPrivateKeypadKey(keysym) \
|
||||
(((KeySym)(keysym) >= 0x11000000) && ((KeySym)(keysym) <= 0x1100FFFF))
|
||||
|
||||
IsCursorKey(keysym) \
|
||||
(((KeySym)(keysym) >= XK_Home) && ((KeySym)(keysym) < XK_Select))
|
||||
|
||||
IsPFKey(keysym) \
|
||||
(((KeySym)(keysym) >= XK_KP_F1) && ((KeySym)(keysym) <= XK_KP_F4))
|
||||
|
||||
IsFunctionKey(keysym) \
|
||||
(((KeySym)(keysym) >= XK_F1) && ((KeySym)(keysym) <= XK_F35))
|
||||
|
||||
IsMiscFunctionKey(keysym) \
|
||||
(((KeySym)(keysym) >= XK_Select) && ((KeySym)(keysym) <= XK_Break))
|
||||
|
||||
IsModifierKey(keysym) \
|
||||
((((KeySym)(keysym) >= XK_Shift_L) && ((KeySym)(keysym) <= XK_Hyper_R)) \
|
||||
or or ((KeySym)(keysym) == XK_Mode_switch) \
|
||||
or or ((KeySym)(keysym) == XK_Num_Lock))
|
||||
}
|
||||
{
|
||||
* opaque reference to Region data type
|
||||
}
|
||||
{
|
||||
typedef struct _XRegion *Region;
|
||||
}
|
||||
|
||||
{ Return values from XRectInRegion() }
|
||||
Const
|
||||
RectangleOut =0;
|
||||
RectangleIn =1;
|
||||
RectanglePart=2;
|
||||
|
||||
|
||||
{
|
||||
* Information used by the visual utility routines to find desired visual
|
||||
* type from the many visuals a display may support.
|
||||
}
|
||||
|
||||
Type
|
||||
TXVisualInfo = record
|
||||
visual : PVisual;
|
||||
visualid : TVisualID ;
|
||||
screen : Integer;
|
||||
depth : Integer;
|
||||
c_class : Integer;
|
||||
red_mask : cardinal;
|
||||
green_mask : cardinal;
|
||||
blue_mask : Cardinal;
|
||||
colormap_size : Integer;
|
||||
bits_per_rgb : Integer;
|
||||
end;
|
||||
PXVisualInfo = ^TXVisualInfo;
|
||||
|
||||
Const
|
||||
VisualNoMask = $0;
|
||||
VisualIDMask = $1;
|
||||
VisualScreenMask = $2;
|
||||
VisualDepthMask = $4;
|
||||
VisualClassMask = $8;
|
||||
VisualRedMaskMask = $10;
|
||||
VisualGreenMaskMask = $20;
|
||||
VisualBlueMaskMask = $40;
|
||||
VisualColormapSizeMask = $80;
|
||||
VisualBitsPerRGBMask = $100;
|
||||
VisualAllMask = $1FF;
|
||||
|
||||
{
|
||||
* This defines a window manager property that clients may use to
|
||||
* share standard color maps of type RGB_COLOR_MAP:
|
||||
}
|
||||
Type
|
||||
TXStandardColormap = record
|
||||
colormap : TColormap ;
|
||||
red_max : Cardinal;
|
||||
red_mult : Cardinal;
|
||||
green_max : Cardinal;
|
||||
green_mult : Cardinal;
|
||||
blue_max : Cardinal;
|
||||
blue_mult : Cardinal;
|
||||
base_pixel : Cardinal;
|
||||
visualid : TVisualID; { added by ICCCM version 1 }
|
||||
killid : TXID ; { added by ICCCM version 1 }
|
||||
end;
|
||||
PXStandardColormap= ^TXStandardColormap;
|
||||
|
||||
Const
|
||||
ReleaseByFreeingColormap = 1; { for killid field above }
|
||||
|
||||
|
||||
{
|
||||
* return codes for XReadBitmapFile and XWriteBitmapFile
|
||||
}
|
||||
BitmapSuccess =0;
|
||||
BitmapOpenFailed =1;
|
||||
BitmapFileInvalid =2;
|
||||
BitmapNoMemory =3;
|
||||
|
||||
{***************************************************************
|
||||
*
|
||||
* Context Management
|
||||
*
|
||||
***************************************************************}
|
||||
|
||||
|
||||
{ Associative lookup table return codes }
|
||||
|
||||
XCSUCCESS =0; { No error. }
|
||||
XCNOMEM =1; { Out of memory }
|
||||
XCNOENT =2; { No entry in table }
|
||||
|
||||
type TXContext = Integer;
|
||||
{
|
||||
XUniqueContext() ((XContext) XrmUniqueQuark())
|
||||
XStringToContext(string) ((XContext) XrmStringToQuark(string))
|
||||
}
|
||||
|
||||
Implementation
|
||||
|
||||
end.
|
||||
{
|
||||
_XFUNCPROTOBEGIN
|
||||
|
||||
{ The following declarations are alphabetized. }
|
||||
|
||||
extern XClassHInteger *XAllocClassHInteger (
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XIconSize *XAllocIconSize (
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSizeHints *XAllocSizeHints (
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XStandardColormap *XAllocStandardColormap (
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XWMHints *XAllocWMHints (
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XClipBox(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r },
|
||||
XRectangle* { rect_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Region XCreateRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern char *XDefaultString(
|
||||
#if NeedFunctionPrototypes
|
||||
void
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XDeleteContext(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
XID { rid },
|
||||
XContext { context }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XDestroyRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XEmptyRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XEqualRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r1 },
|
||||
Region { r2 }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XFindContext(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
XID { rid },
|
||||
XContext { context },
|
||||
XPointer* { data_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetClassHint(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XClassHint* { class_hints_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetIconSizes(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XIconSize** { size_list_return },
|
||||
int* { count_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetNormalHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetRGBColormaps(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XStandardColormap** { stdcmap_return },
|
||||
int* { count_return },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetSizeHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints_return },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetStandardColormap(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XStandardColormap* { colormap_return },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetTextProperty(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { window },
|
||||
XTextProperty* { text_prop_return },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XVisualInfo *XGetVisualInfo(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
long { vinfo_mask },
|
||||
XVisualInfo* { vinfo_template },
|
||||
int* { nitems_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetWMClientMachine(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XWMHints *XGetWMHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetWMIconName(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetWMName(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetWMNormalHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints_return },
|
||||
long* { supplied_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetWMSizeHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints_return },
|
||||
long* { supplied_return },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XGetZoomHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { zhints_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XIntersectRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { sra },
|
||||
Region { srb },
|
||||
Region { dr_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XConvertCase(
|
||||
#if NeedFunctionPrototypes
|
||||
KeySym { sym },
|
||||
KeySym* { lower },
|
||||
KeySym* { upper }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XLookupString(
|
||||
#if NeedFunctionPrototypes
|
||||
XKeyEvent* { event_struct },
|
||||
char* { buffer_return },
|
||||
int { bytes_buffer },
|
||||
KeySym* { keysym_return },
|
||||
XComposeStatus* { status_in_out }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XMatchVisualInfo(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
int { screen },
|
||||
int { depth },
|
||||
int { class },
|
||||
XVisualInfo* { vinfo_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XOffsetRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r },
|
||||
int { dx },
|
||||
int { dy }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Bool XPointInRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r },
|
||||
int { x },
|
||||
int { y }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Region XPolygonRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
XPoint* { points },
|
||||
int { n },
|
||||
int { fill_rule }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XRectInRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r },
|
||||
int { x },
|
||||
int { y },
|
||||
unsigned int { width },
|
||||
unsigned int { height }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XSaveContext(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
XID { rid },
|
||||
XContext { context },
|
||||
_Xconst char* { data }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetClassHint(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XClassHint* { class_hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetIconSizes(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XIconSize* { size_list },
|
||||
int { count }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetNormalHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetRGBColormaps(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XStandardColormap* { stdcmaps },
|
||||
int { count },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetSizeHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetStandardProperties(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
_Xconst char* { window_name },
|
||||
_Xconst char* { icon_name },
|
||||
Pixmap { icon_pixmap },
|
||||
char** { argv },
|
||||
int { argc },
|
||||
XSizeHints* { hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetTextProperty(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetWMClientMachine(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetWMHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XWMHints* { wm_hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetWMIconName(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetWMName(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { text_prop }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetWMNormalHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetWMProperties(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XTextProperty* { window_name },
|
||||
XTextProperty* { icon_name },
|
||||
char** { argv },
|
||||
int { argc },
|
||||
XSizeHints* { normal_hints },
|
||||
XWMHints* { wm_hints },
|
||||
XClassHint* { class_hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XmbSetWMProperties(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
_Xconst char* { window_name },
|
||||
_Xconst char* { icon_name },
|
||||
char** { argv },
|
||||
int { argc },
|
||||
XSizeHints* { normal_hints },
|
||||
XWMHints* { wm_hints },
|
||||
XClassHint* { class_hints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetWMSizeHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { hints },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
GC { gc },
|
||||
Region { r }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XSetStandardColormap(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XStandardColormap* { colormap },
|
||||
Atom { property }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSetZoomHints(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
Window { w },
|
||||
XSizeHints* { zhints }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XShrinkRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { r },
|
||||
int { dx },
|
||||
int { dy }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XStringListToTextProperty(
|
||||
#if NeedFunctionPrototypes
|
||||
char** { list },
|
||||
int { count },
|
||||
XTextProperty* { text_prop_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XSubtractRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { sra },
|
||||
Region { srb },
|
||||
Region { dr_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XmbTextListToTextProperty(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
char** { list },
|
||||
int { count },
|
||||
XICCEncodingStyle { style },
|
||||
XTextProperty* { text_prop_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XwcTextListToTextProperty(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
wchar_t** { list },
|
||||
int { count },
|
||||
XICCEncodingStyle { style },
|
||||
XTextProperty* { text_prop_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern void XwcFreeStringList(
|
||||
#if NeedFunctionPrototypes
|
||||
wchar_t** { list }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Status XTextPropertyToStringList(
|
||||
#if NeedFunctionPrototypes
|
||||
XTextProperty* { text_prop },
|
||||
char*** { list_return },
|
||||
int* { count_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XmbTextPropertyToTextList(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
XTextProperty* { text_prop },
|
||||
char*** { list_return },
|
||||
int* { count_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XwcTextPropertyToTextList(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
XTextProperty* { text_prop },
|
||||
wchar_t*** { list_return },
|
||||
int* { count_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XUnionRectWithRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
XRectangle* { rectangle },
|
||||
Region { src_region },
|
||||
Region { dest_region_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XUnionRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { sra },
|
||||
Region { srb },
|
||||
Region { dr_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern Integer XWMGeometry(
|
||||
#if NeedFunctionPrototypes
|
||||
Display* { display },
|
||||
int { screen_number },
|
||||
_Xconst char* { user_geometry },
|
||||
_Xconst char* { default_geometry },
|
||||
unsigned int { border_width },
|
||||
XSizeHints* { hints },
|
||||
int* { x_return },
|
||||
int* { y_return },
|
||||
int* { width_return },
|
||||
int* { height_return },
|
||||
int* { gravity_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
extern XXorRegion(
|
||||
#if NeedFunctionPrototypes
|
||||
Region { sra },
|
||||
Region { srb },
|
||||
Region { dr_return }
|
||||
#endif
|
||||
);
|
||||
|
||||
_XFUNCPROTOEND
|
||||
|
||||
#endif { _XUTIL_H_ }
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user