* moved x11 files to separate package

packages/forms/Makefile

@@ -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

packages/forms/Makefile.fpc

@@ -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

packages/forms/demo/Makefile

@@ -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)

packages/forms/demo/Makefile.fpc

@@ -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=..

packages/forms/forms-86.pp

@@ -1,3452 +0,0 @@
-
-Unit forms;
-
-Interface
-
-{$LinkLib forms}
-
-uses x,xlib,xutil,xresource;
-
-const 
-  FL_VERSION=0;
-  FL_REVISION=88;
-  FL_FIXLEVEL=1;
-  FL_INCLUDE_VERSION=FL_VERSION * 1000 + FL_REVISION;
-
-{ some general constants }
-    FL_ON = 1;
-    FL_OK = 1;
-    FL_VALID = 1;
-    FL_PREEMPT = 1;
-    FL_AUTO = 2;
-    FL_WHEN_NEEDED = FL_AUTO;
-
-    FL_OFF = 0;
-    FL_NONE = 0;
-    FL_CANCEL = 0;
-    FL_INVALID = 0;
-
-    FL_IGNORE = -1;
-    FL_CLOSE = -2;
-{
- * The screen coordinate unit, FL_Coord, must be of signed type. Without
- * prototype support, a type other than integer might not work right.
- * If FL_Coord is float, FL_CoordIsFloat must be defined to be 1 so that
- * round-off error can be checked. **TODO Float not tested ***
- }
-Type PWord   = ^Word;
-     PDouble = ^Double;
-     PFloat  = ^Real;
-     PLongint = ^Longint;
-          
-type TFL_Coord = Longint {was int};
-     PFL_Coord = ^TFL_Coord;
-{ #define FL_CoordIsFloat 0	 define this if FL_Coord is of type float }
-   TFL_COLOR = longint; { Was cardinal }
-   PFL_COLOR = ^TFL_COLOR;
-
-{
- * Coordinates can be in pixels, milli-meters or points (1/72inch)
- }
-  TFL_COORD_UNIT=Longint {was int};
-  { POssible values }
-Const 
-    FL_COORD_PIXEL=0;		{ default, Pixel           }
-    FL_COORD_MM=1;		{ milli-meter              }
-    FL_COORD_POINT=2;		{ point                    }
-    FL_COORD_centiMM=3;		{ one hundredth of a mm    }
-    FL_COORD_centiPOINT=4;	{ one hundredth of a point }
-
-{
- * All object classes.
- }
-
-type TFL_Class = Longint;
-
-Const { Possible values }
-    FL_INVALID_CLASS=0;
-    FL_BUTTON=1;
-    FL_LIGHTBUTTON=2;
-    FL_ROUNDBUTTON=3;
-    FL_ROUND_3DBUTTON=4;
-    FL_CHECKBUTTON=5;
-    FL_BITMAPBUTTON=6;
-    FL_PIXMAPBUTTON=7;
-    FL_BITMAP=8;
-    FL_PIXMAP=9;
-    FL_BOX=10;
-    FL_TEXT=11;
-    FL_MENU=12;
-    FL_CHART=13;
-    FL_CHOICE=14;
-    FL_COUNTER=15;
-    FL_SLIDER=16;
-    FL_VALSLIDER=17;
-    FL_INPUT=18;
-    FL_BROWSER=19;
-    FL_DIAL=21;
-    FL_TIMER=21;
-    FL_CLOCK=22;
-    FL_POSITIONER=23;
-    FL_FREE=24;
-    FL_XYPLOT=25;
-    FL_FRAME=26;
-    FL_LABELFRAME=27;
-    FL_CANVAS=28;
-    FL_GLCANVAS=29;
-    FL_IMAGECANVAS=30;
-    FL_FOLDER=31;
-    FL_TEXTBOX=32;
-
-{ how to display a form onto screen }
-
-Type
-    TFL_PLace = Longint;
-
-Const
-    FL_PLACE_FREE = 0;		{ size remain resizable      }
-    FL_PLACE_MOUSE = 1;		{ mouse centered on form     }
-    FL_PLACE_CENTER = 2;	{ center of the screen       }
-    FL_PLACE_POSITION = 4;	{ specific size              }
-    FL_PLACE_SIZE = 8;		{ specific size              }
-    FL_PLACE_GEOMETRY = 16;	{ specific position          }
-    FL_PLACE_ASPECT = 32;	{ keep aspect ratio          }
-    FL_PLACE_FULLSCREEN = 64;	{ scale to fit screen        }
-    FL_PLACE_HOTSPOT = 128;	{ so mouse fall on (x,y)     }
-    FL_PLACE_ICONIC = 256;
-    { modifier }
-    FL_FREE_SIZE = 1 shl 14;
-    FL_FIX_SIZE = 1 shl 15;
-
-    FL_PLACE_FREE_CENTER =  FL_PLACE_CENTER or FL_FREE_SIZE;
-    FL_PLACE_CENTERFREE = FL_PLACE_CENTER or FL_FREE_SIZE;
-
-{ Window manager decoration request }
-
-type 
-    TFL_DECORATION = Longint;
-  
-Const { Possible values for FL_DECORATION }
-    FL_FULLBORDER = 1;		{ normal }
-    FL_TRANSIENT = 2;		{ set TRANSIENT_FOR property              }
-    FL_NOBORDER = 3;		{ use override_redirect to supress decor. }
-    FL_MODAL = 1 << 8;
-type
- { All box types }
-    TFL_BOX_TYPE = Longint;
-Const { Possible values }
-    FL_NO_BOX=0;
-    FL_UP_BOX=1;
-    FL_DOWN_BOX=2;
-    FL_BORDER_BOX=3;
-    FL_SHADOW_BOX=4;
-    FL_FRAME_BOX=5;
-    FL_ROUNDED_BOX=6;
-    FL_EMBOSSED_BOX=7;
-    FL_FLAT_BOX=8;
-    FL_RFLAT_BOX=9;
-    FL_RSHADOW_BOX=10;
-    FL_OVAL_BOX=11;
-    FL_ROUNDED3D_UPBOX=12;
-    FL_ROUNDED3D_DOWNBOX=13;
-    FL_OVAL3D_UPBOX=14;
-    FL_OVAL3D_DOWNBOX=15;
-    FL_OSHADOW_BOX=16;
-
-{ How to place text relative to a box }
-Type
-    TFL_ALIGN = Longint;
-
-Const { Possible values for FL_ALIGN } 
-    FL_ALIGN_CENTER = 0;
-    FL_ALIGN_TOP = 1;
-    FL_ALIGN_BOTTOM = 2;
-    FL_ALIGN_LEFT = 4;
-    FL_ALIGN_RIGHT = 8;
-    FL_ALIGN_TOP_LEFT = FL_ALIGN_TOP or FL_ALIGN_LEFT;
-    FL_ALIGN_TOP_RIGHT = FL_ALIGN_TOP or FL_ALIGN_RIGHT;
-    FL_ALIGN_BOTTOM_LEFT = FL_ALIGN_BOTTOM or FL_ALIGN_LEFT;
-    FL_ALIGN_BOTTOM_RIGHT = FL_ALIGN_BOTTOM or FL_ALIGN_RIGHT;
-    FL_ALIGN_INSIDE = (1 shl 13);
-    FL_ALIGN_VERT = (1 shl 14);	{ not functional yet  }
-
-    FL_ALIGN_LEFT_TOP = FL_ALIGN_TOP_LEFT;
-    FL_ALIGN_RIGHT_TOP = FL_ALIGN_TOP_RIGHT;
-    FL_ALIGN_LEFT_BOTTOM = FL_ALIGN_BOTTOM_LEFT;
-    FL_ALIGN_RIGHT_BOTTOM = FL_ALIGN_BOTTOM_RIGHT;
-
-{ Mouse buttons }
-
-FL_MBUTTON1=1; FL_LEFT_MOUSE=FL_MBUTTON1;
-FL_MBUTTON2=2; FL_MIDDLE_MOUSE=FL_MBUTTON2;
-FL_MBUTTON3=3; FL_RIGHT_MOUSE=FL_MBUTTON3;
-FL_MBUTTON4=4;
-FL_MBUTTON5=5;
-
-
-{ control when to reutrn input, slider and dial object. }
-
-    FL_RETURN_END_CHANGED = 0;
-    FL_RETURN_CHANGED = 1;
-    FL_RETURN_END = 2;
-    FL_RETURN_ALWAYS = 3;
-    FL_RETURN_DBLCLICK = 4;
-
-{
- *  Some special color indeces for FL private colormap. It does not matter
- *  what the value of each enum is, but it must start from 0 and be
- *  consecutive.
- }
- 
- 
- 
-Type
-    TFL_DP_COL = Longint;
-Const
-    FL_BLACK		= 0;
-    FL_RED		= 1;
-    FL_GREEN		= 2;
-    FL_YELLOW		= 3;
-    FL_BLUE		= 4;
-    FL_MAGENTA		= 5;
-    FL_CYAN		= 6;
-    FL_WHITE		= 7;
-
-    FL_TOMATO		= 8;
-    FL_INDIANRED	= 9;
-    FL_SLATEBLUE	= 10;
-
-    FL_COL1		= 11;
-    FL_RIGHT_BCOL	= 12;
-    FL_BOTTOM_BCOL	= 13;
-    FL_TOP_BCOL		= 14;
-    FL_LEFT_BCOL	= 15;
-    FL_MCOL		= 16;
-
-    FL_INACTIVE		= 17;
-    FL_PALEGREEN	= 18;
-    FL_DARKGOLD		= 19;
-
-    FL_ORCHID		= 20;
-    FL_DARKCYAN		= 21;
-    FL_DARKTOMATO	= 22;
-    FL_WHEAT		= 23;
-    FL_DARKORANGE	= 24;
-    FL_DEEPPINK		= 25;
-    FL_CHARTREUSE	= 26;
-    FL_DARKVIOLET	= 27;
-    FL_SPRINGGREEN	= 28;
-    FL_DOGERBLUE	= 29;
-
-    FL_FREE_COL1 = 256; 
-    FL_FREE_COL2 = 257;
-    FL_FREE_COL3 = 258; 
-    FL_FREE_COL4 = 259;
-    FL_FREE_COL5 = 260; 
-    FL_FREE_COL6 = 261;
-    FL_FREE_COL7 = 262;
-    FL_FREE_COL8 = 263;
-    FL_FREE_COL9 = 264;
-    FL_FREE_COL10 = 265;
-    FL_FREE_COL11 = 266;
-    FL_FREE_COL12 = 267;
-    FL_FREE_COL13 = 268;
-    FL_FREE_COL14 = 269;
-    FL_FREE_COL15 = 270;
-    FL_FREE_COL16 = 271;
-
-FL_BUILT_IN_COLS  = FL_DOGERBLUE+1;
-FL_INACTIVE_COL =  FL_INACTIVE;
-
-{ Some aliases for the color. This is actually backwards ... }
-
-Const
-FL_GRAY16=FL_RIGHT_BCOL;
-FL_GRAY35      =     FL_BOTTOM_BCOL;
-FL_GRAY80      =     FL_TOP_BCOL;
-FL_GRAY90      =     FL_LEFT_BCOL;
-FL_GRAY63      =     FL_COL1;
-FL_GRAY75      =     FL_MCOL;
-FL_LCOL        =     FL_BLACK;
-
-{
- *  Pop-up menu item attributes. NOTE if more than 8, need to change
- *  choice and menu class where mode is kept by a single byte
- }
-    FL_PUP_NONE = 0;
-    FL_PUP_GREY = 1;
-    FL_PUP_BOX = 2;
-    FL_PUP_CHECK = 4;
-    FL_PUP_RADIO = 8;
-
-FL_PUP_GRAY     = FL_PUP_GREY;
-FL_PUP_TOGGLE   = FL_PUP_BOX;
-FL_PUP_INACTIVE = FL_PUP_GREY;
-
-
-{ Events that a form reacts to.  }
-type TFL_EVENT = Longint;
-Const { Possible values }
-    FL_NOEVENT		= 0;
-    FL_DRAW		= 1;
-    FL_PUSH		= 2;
-    FL_RELEASE		= 3;
-    FL_ENTER		= 4;
-    FL_LEAVE		= 5;
-    FL_MOUSE		= 6;
-    FL_FOCUS		= 7;
-    FL_UNFOCUS		= 8;
-    FL_KEYBOARD		= 9;
-    FL_MOTION		= 10;
-    FL_STEP		= 11;
-    FL_SHORTCUT		= 12;
-    FL_FREEMEM		= 13;
-    FL_OTHER		= 14;		{ property, selection etc }
-    FL_DRAWLABEL	= 15;
-    FL_DBLCLICK		= 16;		{ double click            }
-    FL_TRPLCLICK	= 17;		{ triple click            }
-    FL_PS		= 18;		{ dump a form into EPS    }
-
-const 
-FL_MOVE=FL_MOTION;	{ for compatibility }
-
-{ Resize policies }
-type TFL_RESIZE_T = Longint;
-
-const
-    FL_RESIZE_NONE = 0;
-    FL_RESIZE_X    = 1;
-    FL_RESIZE_Y    = 2;
-
-const
-    FL_RESIZE_ALL = FL_RESIZE_X or FL_RESIZE_Y;
-
-{ Keyboard focus control }
-type
-    TFL_KEY = Longint;
-
-Const { Possible values for FL_KEY_Normal }
-    FL_KEY_NORMAL = 1;		{ normal keys(0-255) - tab +left/right }
-    FL_KEY_TAB = 2;		{ normal keys + 4 direction cursor     }
-    FL_KEY_SPECIAL = 4;		{ only needs special keys(>255)        }
-    FL_KEY_ALL = 7;		{ all keys                             }
-
-    FL_ALT_VAL = (1 shl 17);	{ alt + Key --> FL_ALT_VAL + key }
-
-{ Internal use }
-Type
-    TFL_FIND = Longint;
-Const
-    FL_FIND_INPUT	=0;
-    FL_FIND_AUTOMATIC	=1;
-    FL_FIND_MOUSE	=2;
-    FL_FIND_CANVAS	=3;
-    FL_FIND_KEYSPECIAL	=4;
-
-{******************************************************************
- * FONTS
- *****************************************************************}
-
-Const FL_MAXFONTS=32;	{ max number of fonts }
-
-type TFL_TEXT_STYLE = Longint;
-Const
-    FL_INVALID_STYLE		= -1;
-    FL_NORMAL_STYLE		= 0;
-    FL_BOLD_STYLE		= 1;
-    FL_ITALIC_STYLE		= 2;
-    FL_BOLDITALIC_STYLE 	= 3;
-
-    FL_FIXED_STYLE		= 4;
-    FL_FIXEDBOLD_STYLE 		= 5;
-    FL_FIXEDITALIC_STYLE	= 6;
-    FL_FIXEDBOLDITALIC_STYLE	= 7;
-
-    FL_TIMES_STYLE		= 8;
-    FL_TIMESBOLD_STYLE		= 9;
-    FL_TIMESITALIC_STYLE	= 10;
-    FL_TIMESBOLDITALIC_STYLE	= 11;
-
-    { The following are derived and must differ by multiples of SHADOW,
-       i.e., (FL_ENGRAVED%SHADOW) == 0. All being 2^n has the benefit that
-       (lstyle | FL_SHADOW) == (lstyle + FL_SHADOW). }
-
-Const
-    FL_SHADOW_STYLE = (1 shl 9);
-    FL_ENGRAVED_STYLE = (1 shl 10);
-    FL_EMBOSSED_STYLE = (1 shl 11);
-
-
-Type TFL_FONT_STYLE= TFL_TEXT_STYLE;
-
-{ Standard sizes in XForms }
-Const
-FL_TINY_SIZE     =  8;
-FL_SMALL_SIZE    =  10;
-FL_NORMAL_SIZE   =  12;
-FL_MEDIUM_SIZE   =  14;
-FL_LARGE_SIZE    =  18;
-FL_HUGE_SIZE     =  24;
-
-FL_DEFAULT_SIZE = FL_SMALL_SIZE;
-
-{ Defines for compatibility }
-
-FL_TINY_FONT  = FL_TINY_SIZE;
-FL_SMALL_FONT =  FL_SMALL_SIZE;
-FL_NORMAL_FONT=  FL_NORMAL_SIZE;
-FL_MEDIUM_FONT=  FL_MEDIUM_SIZE;
-FL_LARGE_FONT =  FL_LARGE_SIZE;
-FL_HUGE_FONT  =  FL_HUGE_SIZE;
-
-FL_NORMAL_FONT1 =  FL_SMALL_FONT;
-FL_NORMAL_FONT2 =  FL_NORMAL_FONT;
-FL_DEFAULT_FONT =  FL_SMALL_FONT;
-
-
-const  
-FL_BOUND_WIDTH = 3;	{ Border width of boxes }
-
-cFL_BEGIN_GROUP  =  10000;
-cFL_END_GROUP    =  20000;
-{
- *  Definition of basic struct that holds an object
- }
-
-FL_CLICK_TIMEOUT = 350;	{ double click interval }
-
-Type
-
-TFL_pixmap = record
-    thepixmap : Tpixmap;
-    Thewin    : TWindow;
-    TheVisual : TVisual;
-    x,y       : TFL_Coord;
-    w, h      : word;
-    depth     : Longint;
-end;
-
-Pform     = ^TForm;
-
-{Pfl_pixmap = ^fl_pixmap;
-}
-
-Pflobjs    = ^Tflobjs;
-
-THandle = Function (p1 : Pflobjs; p2 : Longint {was int}; p3 : TFL_Coord; p4 : TFL_Coord;p5 :  Longint {was int}; p6 : pointer) : Longint;
-PHandle = ^THandle;
-TObject_Callback = Procedure  (P1 : Pflobjs;p2 :  longint);
-PObject_Callback = ^TObject_Callback;
-
-Tflobjs = record
-    form : PForm;		{ the form this object belong        }
-    u_vdata : Pointer;
-    u_ldata : longint;
-    
-    objclass : Longint {was int};		{ class of object, button, slider etc }
-    thetype : Longint;		{ type within the class              }
-    boxtype : Longint {was int};		{ what kind of box type              }
-    x, y, w, h : TFL_Coord;	{ obj. location and size             }
-    bw : TFL_Coord;
-    col1, col2 : TFL_color;	{ colors of obj                      }
-    thelabel : pchar;		{ object label                       }
-    lcol : TFL_COLOR;		{ label color                        }
-    align : Longint;
-    lsize, lstyle : Longint;	{ label size and style               }
-
-    shortcut : ^Longint;
-
-    handle     : PHandle;
-    object_callback : PObject_Callback;
-    argument : Longint;
-
-    spec          : pointer;	{ instantiation                      }
-
-    prehandle  : PHandle;
-    posthandle : PHandle;
-
-
-    { re-configure preference }
-    resize    : cardinal;	{ what to do if WM resizes the FORM     }
-    nwgravity : cardinal;	{ how to re-position top-left corner    }
-    segravity : cardinal;	{ how to re-position lower-right corner }
-
-    parent,child,nc : Pflobjs;
-    ischild : longint;
-
-    prev : pflobjs;		{ prev. obj in form                  }
-    next : pflobjs;		{ next. obj in form                  }
-
-    flpixmap      : Pointer;	{ pixmap double buffering stateinfo  }
-    use_pixmap    : Longint;	{ true to use pixmap double buffering }
-
-    double_buffer : Longint;	{ only used by mesa/gl canvas        }
-
-    { some interaction flags }
-    pushed: Longint {was int};
-    focus: Longint {was int};
-    belowmouse: Longint {was int};
-    active: Longint {was int};			{ if accept event }
-    input: Longint {was int};
-    wantkey: Longint {was int};
-    radio: Longint {was int};
-    automatic: Longint {was int};
-    redraw: Longint {was int};
-    visible: Longint {was int};
-    clip: Longint {was int};
-    click_timeout : cardinal;
-    c_vdata : pointer;		{ for class use }
-    c_ldata : longint;		{ for class use }
-    cspec_size : cardinal;
-    
-    reserved : array[0..5] of cardinal;
-    { the following are for application programs }
-end;
-
-TFL_OBJECT = TFlobjs;
-PFL_OBJECT = ^TFL_OBJECT;
-
-TCallback = Procedure (P1 : pflobjs; P2 : pointer);
-PCallback = ^TCallback;
-{ callback function for an entire form }
-PFL_FORMCALLBACKPTR = PCallback;
-
-{ object callback function      }
-PFL_CALLBACKPTR = PCallBack;
-
-{ preemptive callback function  }
-PFL_RAW_CALLBACK = PCallback;
-
-{ at close (WM menu delete/close etc.) }
-PFL_FORM_ATCLOSE = PCallback;
-
-{ deactivate/activate callback }
-PFL_FORM_ATDEACTIVATE = PCallback; 
-
-PFL_FORM_ATACTIVATE = PCallback;
-
-THandlePtr = Procedure ( p1 : PFL_Object; p2 : Longint; p3,p4 : TFL_COORD; p5 : Longint; p6 : pointer);
-PHandlePTR = ^THandlePTR;
-
-PFL_HANDLEPTR = PHandlePTR;
-
-{
-extern FL_OBJECT *FL_EVENT;
-}
-{** FORM ***}
-
-
-Tform = record
-    fdui : Pointer;
-    u_vdata : pointer;		{ for application         }
-    u_ldata : longint;
-    
-    thelabel : pchar;		{ window title            }
-    window : cardinal;	{ X resource ID for window }
-    x, y, w, h : TFL_COORD;	{ current geometry info   }
-    hotx, hoty : TFL_COORD;	{ hot-spot of the form    }
-
-    first,last,focusobj : pflobjs;
-
-    form_callback     : PFL_FORMCALLBACKPTR;
-    activate_callback : PFL_FORM_ATACTIVATE;
-    deactivate_callback: PFL_FORM_ATDEACTIVATE ;
-    form_cb_data, activate_data, deactivate_data : pointer;
-
-    key_callback, 
-    push_callback, 
-    crossing_callback,
-    motion_callback,
-    all_callback: PFL_RAW_CALLBACK ;
-
-    compress_mask : cardinal;
-    evmask : cardinal;
-
-    { WM_DELETE_WINDOW message handler }
-    close_callback : PFL_FORM_ATCLOSE ;
-    close_data : pointer;
-
-
-    flpixmap : pointer;		{ back buffer             }
-
-    icon_pixmap : cardinal;
-    icon_mask : cardinal;
-
-    { interaction and other flags }
-    vmode : Longint {was int};			{ current X visual class  }
-    deactivated : Longint {was int};		{ true if sensitive       }
-    use_pixmap : Longint {was int};		{ true if dbl buffering   }
-    frozen : Longint {was int};			{ true if sync change     }
-    visible : Longint {was int};		{ true if mapped          }
-    wm_border : Longint {was int};		{ window manager info     }
-    prop : cardinal;		{ other attributes        }
-    has_auto : Longint {was int};
-    top : Longint {was int};
-    sort_of_modal : Longint;
-    reserved : array[0..9] of Longint;
-end;
-TFL_FORM = Tform;
-PFL_FORM = ^TFL_FORM;
-
-{
- * Async IO stuff
- }
-
-const
-    FL_READ = 1;
-    FL_WRITE = 2;
-    FL_EXCEPT = 4;
-
-{ IO other than XEvent Q }
-Type
-
-TFL_IO_CALLBACK = Procedure (p1 :Longint {was int};p2 : pointer);
-PFL_IO_CALLBACK = ^TFL_IO_CALLBACK;
-{ function definitions }
-procedure fl_add_io_callback(p1 : Longint {was int} ; p2 : word; p3 : PFL_IO_CALLBACK; p4 : pointer);
-procedure fl_remove_io_callback(p1 : Longint {was int};p2 :  word; p3 : PFL_IO_CALLBACK);
-
-{ signals }
-type 
-
-TFL_SIGNAL_HANDLER = Procedure (p1 : Longint {was int}; p2 : pointer);
-PFL_SIGNAL_HANDLER = ^TFL_SIGNAL_HANDLER ;
-
-procedure fl_add_signal_callback(p1 : LongInt;p2 : PFL_SIGNAL_HANDLER;p3 : pointer);
-procedure fl_remove_signal_callback(p1 : Longint {was int});
-procedure fl_signal_caught(p1 :Longint {was int});
-procedure fl_app_signal_direct(p1 : Longint {was int});
-
-function fl_add_timeout (p1 : longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer) : longint;
-procedure fl_remove_timeout(p1 : Longint);
-
-{  Some utility stuff }
-type 
-
-TFL_VN_PAIR = record
-    val : Longint;
-    name : Pchar;
-end;
-
-PFL_VN_PAIR = ^TFL_VN_PAIR;
-
-function fl_get_vn_value (p1 : PFL_VN_PAIR; p2 : pchar) : Longint;
-function fl_get_vn_name (p1 : PFL_VN_PAIR; p2 : Longint {was int}) : Pchar;
-function fl_msleep (p1 : cardinal) : cardinal;
-
-{
- *  Basic public routine prototypes
- }
-
-procedure fl_library_version(p1,p2 : pointer );
-
-{* Generic routines that deal with FORMS *}
-
-function fl_bgn_form(P1 : Longint {was int}; P2,p3 : TFL_Coord) : PFL_Form;
-Procedure fl_end_form;
-function fl_do_forms : PFL_OBJECT ;
-function fl_check_forms : PFL_OBJECT;
-Function fl_do_only_forms : PFL_OBJECT;
-function fl_check_only_forms : PFL_OBJECT;
-procedure fl_freeze_form(P1 : PFL_FORM);
-
-procedure fl_set_focus_object( P1 : PFL_FORM;p2 : PFL_OBJECT);
-procedure fl_reset_focus_object( p1 : PFL_OBJECT);
-
-{
-#define fl_set_object_focus   fl_set_focus_object
-}
-Function fl_set_form_atclose(p1 : PFL_FORM; p2 : PFL_FORM_ATCLOSE; p3 : pointer) : PFL_FORM_ATCLOSE ;
-Function fl_set_atclose(p1 : PFL_FORM_ATCLOSE; p2:  pointer) : PFL_FORM_ATCLOSE ;
-
-Function fl_set_form_atactivate(p1 : PFL_FORM; P2 : PFL_FORM_ATACTIVATE; P3 : pointer) : PFL_FORM_ATACTIVATE ;
-Function fl_set_form_atdeactivate(p1 : PFL_FORM;p2 : PFL_FORM_ATDEACTIVATE;p3 : pointer) : PFL_FORM_ATDEACTIVATE ;
-
-Procedure fl_unfreeze_form (p1 : PFL_FORM);
-Procedure fl_deactivate_form(p1 : PFL_FORM);
-Procedure fl_activate_form(p1 : PFL_FORM);
-Procedure fl_deactivate_all_forms;
-Procedure fl_activate_all_forms;
-Procedure fl_freeze_all_forms;
-Procedure fl_unfreeze_all_forms;
-Procedure fl_scale_form(p1 : PFL_FORM;p2,p3 : double);
-Procedure fl_set_form_position(p1 : PFL_FORM; p2,p3 : TFL_Coord);
-Procedure fl_set_form_title(p1 : PFL_FORM; p2 : pchar);
-
-procedure fl_set_form_property(p1 : PFL_FORM; p2 : word);
-procedure fl_set_app_mainform( p1 : PFL_FORM);
-function fl_get_app_mainform : PFL_FORM;
-procedure fl_set_app_nomainform(P1 : Longint {was int});
-
-procedure fl_set_form_callback(p1 : PFL_FORM; P2 : PFL_FORMCALLBACKPTR; P3 : pointer);
-{
-#define  fl_set_form_call_back    fl_set_form_callback
-}
-
-procedure fl_set_form_size(p1 : PFL_FORM; p2,p3 : TFL_Coord);
-procedure fl_set_form_hotspot(p1 : PFL_FORM; p2,p3 : TFL_Coord);
-procedure fl_set_form_hotobject(p1 : PFL_FORM; p2 : PFL_OBJECT);
-procedure fl_set_form_minsize(p1 : PFL_FORM ; p2,p3 :TFL_Coord);
-procedure fl_set_form_maxsize(p1 : PFL_FORM; p2,p3 :TFL_Coord);
-procedure fl_set_form_event_cmask(p1 : PFL_FORM; p2 : cardinal);
-function fl_get_form_event_cmask(p1 : PFL_FORM) : cardinal;
-
-procedure fl_set_form_geometry(p1 : PFL_FORM; p2,p3,p4,p5 : TFL_Coord);
-
-{
-#define fl_set_initial_placement fl_set_form_geometry
-}
-
-function fl_show_form (p1 : PFL_FORM; p2,p3 : Longint {was int}; p4 : pchar) : Longint;
-procedure fl_hide_form(p1 : PFL_FORM);
-procedure fl_free_form(p1 : PFL_FORM);
-procedure fl_redraw_form(p1 : PFL_FORM);
-procedure fl_set_form_dblbuffer(p1 : PFL_FORM; p2 : Longint {was int});
-procedure fl_prepare_form_window(p1 : PFL_FORM; p2,p3 :  Longint {was int}; p4 : pchar);
-procedure fl_show_form_window(p1 : PFL_FORM);
-function fl_adjust_form_size(p1 : PFL_FORM) : double;
-function fl_form_is_visibe (p1 : PFL_FORM) : Longint;
-
-function  fl_register_raw_callback(p1 : PFL_FORM; p2 : cardinal; P3 : PFL_RAW_CALLBACK): PFL_RAW_CALLBACK;
-
-{
-#define fl_register_call_back fl_register_raw_callback
-}
-function fl_bgn_group : PFL_OBJECT;
-function fl_end_group : PFL_OBJECT;
-procedure fl_addto_group (p1 : PFL_OBJECT);
-
-{***** Routines that deal with FL_OBJECTS *******}
-
-procedure fl_set_object_boxtype(p1 : PFL_OBJECT; p2 : Longint {was int});
-procedure fl_set_object_bw(p1 : PFL_OBJECT; p2 : Longint {was int});
-procedure fl_set_object_resize(p1 : PFL_OBJECT; p2 : word);
-procedure fl_set_object_gravity(p1 : PFL_OBJECT; p2,p3 : word );
-procedure fl_set_object_lsize(p1 : PFL_OBJECT; p2 : Longint {was int});
-procedure fl_set_object_lstyle(p1 : PFL_OBJECT; p2 : Longint {was int});
-procedure fl_set_object_lcol(p1 : PFL_OBJECT; p2 : TFL_COLOR);
-procedure fl_set_object_return(p1 : PFL_OBJECT; p2 : Longint {was int});
-procedure fl_set_object_lalign(p1 : PFL_OBJECT; p2 : Longint {was int});	{ to be removed }
-procedure fl_set_object_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int});
-procedure fl_set_object_shortcutkey(p1 : PFL_OBJECT; p2 :  word);
-procedure fl_set_object_dblbuffer(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_object_color(p1 : PFL_OBJECT; p2 : TFL_COLOR;p3 : TFL_COLOR);
-procedure fl_set_object_label(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_set_object_position(p1 : PFL_OBJECT; p2,p3 :TFL_Coord);
-procedure fl_set_object_size(p1 : PFL_OBJECT; p2,p3 :TFL_Coord);
-procedure fl_set_object_automatic(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_draw_object_label(p1 : PFL_OBJECT); 
-procedure fl_draw_object_label_outside(p1 : PFL_OBJECT); 
-
-{
-#define  fl_set_object_dblclick(p1 : ob; p2 : timeout)  (p1 : ob)->click_timeout = (p1 : timeout); p3 :p2 : 
-}
-procedure fl_set_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 :TFL_Coord);
-
-
-procedure fl_fit_object_label(p1 : PFL_OBJECT; p2,p3 :TFL_Coord);
-
-{ no much get (p1 : yet ?) }
-
-procedure fl_get_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord );
-procedure fl_get_object_position(p1 : PFL_OBJECT; p2,p3 :PFL_COORD);
-
-{ this one takes into account the label }
-procedure fl_get_object_bbox (p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD);
-
-procedure fl_call_object_callback(p1 : PFL_OBJECT); 
-function fl_set_object_prehandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR) : PFL_HANDLEPTR ;
-function fl_set_object_posthandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR): PFL_HANDLEPTR ;
-function fl_set_object_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint) : PFL_CALLBACKPTR ;
-{
-#define fl_set_object_align   fl_set_object_lalign
-#define fl_set_call_back      fl_set_object_callback
-}
-procedure fl_redraw_object(p1 : PFL_OBJECT);
-procedure fl_scale_object(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_show_object(p1 : PFL_OBJECT); 
-procedure fl_hide_object(p1 : PFL_OBJECT);
-procedure fl_free_object(p1 : PFL_OBJECT);  
-procedure fl_delete_object(p1 : PFL_OBJECT);  
-procedure fl_trigger_object(p1 : PFL_OBJECT);  
-procedure fl_activate_object(p1 : PFL_OBJECT);  
-procedure fl_deactivate_object(p1 : PFL_OBJECT);
-
-Type TFL_ENUMERATEPTR = procedure (p : pchar); 
-     PFL_ENUMERATEPTR = ^TFL_ENUMERATEPTR;
-
-procedure fl_enumerate_fonts (p1 : PFL_ENUMERATEPTR; p2 :  longint);
-
-function  fl_set_font_name(p1 : Longint {was int}; p2 :  pchar) : longint;
-procedure fl_set_font(p1 : Longint {was int}; p2 :  Longint {was int});
-
-{ routines that facilitate free object }
-
-function fl_get_char_height(p1,p2 : Longint {was int}; p3,p4 : pointer) : Longint {was int};
-function fl_get_char_width(p1,p2 :  Longint {was int}) : Longint;
-function fl_get_string_height(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int};
-function fl_get_string_width(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int};
-function fl_get_string_widthTAB(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int};
-function fl_get_string_dimension(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int};
-{
-#define fl_get_string_size  fl_get_string_dimension
-}
-procedure fl_get_align_xy(p1,p2,p3,p4,p5,p6,p7,p8,p9 : Longint {was int}; p10,p11 : pointer);
-
-procedure fl_drw_text(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar);
-
-procedure fl_drw_text_beside(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar);
-{
-#define fl_draw_text(p1 : a; p2 : x;y;w;h;c;st;sz;s)    \
-      (p1 : (p1 : (p1 : a) & FL_ALIGN_INSIDE) ? fl_drw_text:fl_drw_text_beside)\
-      (p1 : a; p2 : x;y;w;h;c;st;sz;s)
-}
-
-procedure fl_drw_text_cursor(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7,p8: Longint {was int}; p9 : Pchar; p10,p11: Longint {was int});
-
-procedure fl_drw_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7 : Longint {was int});
-
-type
-
-FL_DRAWPTR = Procedure (p1,p2,p3,p4 : TFL_Coord; p5 : Longint {was int};p6: TFL_COLOR);
-PFL_DRAWPTR = ^FL_DRAWPTR;
-
-function fl_add_symbol(p1 : pchar; p2 : PFL_DRAWPTR; p3 :Longint {was int}) : Longint {was int};
-function fl_draw_symbol(p1 : pchar; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR) : Longint {was int};
-
-const
-  FL_SLIDER_NONE = 0;
-  FL_SLIDER_BOX = 1;
-  FL_SLIDER_KNOB = 2;
-  FL_SLIDER_UP = 4;
-  FL_SLIDER_DOWN = 8;
-  FL_SLIDER_ALL = 15;
-  
-procedure fl_drw_slider (p1 :longint; p2,p3,P4,p5 : TFL_COORD; p6,p7 : TFL_COLOR;
-                         p8 : Longint; p9,p10 : double; P11 : pchar; p12,p13,p14 : Longint);
-                         
-
-function fl_mapcolor(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}) : cardinal;
-function fl_mapcolorname(p1 : TFL_COLOR; p2 :  pchar) : longint;
-{
-#define fl_mapcolor_name  fl_mapcolorname
-}
-function fl_getmcolor(p1 : TFL_COLOR; p2,p3,p4 : pointer) : cardinal;
-procedure fl_free_colors(p1 : PFL_COLOR; p2 :  Longint {was int});
-procedure fl_free_pixels(p1 : pcardinal; p2 :  Longint {was int});
-procedure fl_set_color_leak(p1 : Longint {was int}); 
-function fl_get_pixel(p1 : TFL_COLOR): cardinal; 
-{
-#define fl_get_flcolor   fl_get_pixel
-}
-procedure fl_get_icm_color(p1 : TFL_COLOR; p2,p3,p4 : pointer);
-procedure fl_set_icm_color(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int});
-
-procedure fl_color(p1 : TFL_COLOR);
-procedure fl_bk_color(p1 : TFL_COLOR); 
-procedure fl_textcolor(p1 : TFL_COLOR); 
-procedure fl_bk_textcolor(p1 : TFL_COLOR); 
-procedure fl_set_gamma(p1,p2,p3 :double);
-
-procedure fl_show_errors(p1 : Longint {was int}); 
-
-{ Some macros }
-{
-#define FL_max(p1 : a; p2 : b)      (p1 :  (p1 : a) > (p1 : b) ? (p1 : a):(p1 : b) )
-#define FL_min(p1 : a; p2 : b)      (p1 :  (p1 : a) < (p1 : b) ? (p1 : a):(p1 : b) )
-#define FL_abs(p1 : a)        (p1 :  (p1 : a) > 0 ? (p1 : a):(p1 : -(p1 : a)))
-#define FL_nint(p1 : a)       (p1 :  (p1 : a) > 0 ? (p1 : (p1 : a) + 0.5):(p1 : (p1 : a) - 0.5))
-}
-type TFL_FSCB = function (p1 : pchar; p2 : pointer) : Longint;
-PFL_FSCB = ^TFL_FSCB;
-
-{ utilities for new objects }
-function fl_current_form : PFL_FORM;
-procedure fl_add_object(p1 : PFL_FORM; p2 : PFL_OBJECT);
-procedure fl_addto_form(p1 : PFL_FORM); 
-function fl_make_object(p1 : Longint {was int}; p2,p3,p4,p5,p6 : TFL_Coord; p7 : pchar; P8 : PFL_HANDLEPTR) : PFL_OBJECT;
-
-procedure fl_set_coordunit(p1 : Longint {was int});
-function fl_get_coordunit : Longint {was int}; 
-procedure fl_set_border_width(p1 : Longint {was int}); 
-function fl_get_border_width : Longint {was int};  
-procedure fl_flip_yorigin; 
-
-procedure fl_ringbell ( p1 : longint);
-procedure fl_gettime (p1,p2 : Plongint);
-function fl_mouse_button : longint;
-
-
-{ this gives more flexibility for future changes }
-
-{
-#define fl_free       free
-#define fl_malloc     malloc
-#define fl_calloc     calloc
-#define fl_realloc    realloc
-}
-{
- * $Id$
- *
- *  X Window dependent stuff
- *
- }
-
-{
-#include <X11/Xlib.h>
-#include <X11/Xutil.h>
-#include <X11/Xatom.h>
-#include <X11/keysym.h>
-#include <X11/Xresource.h>
-}
-Const
- FL_MINDEPTH = 1;
-
-
-{ FL_xxx does not do anything anymore; but kept for compatibility }
-    FL_illegalVisual = -1;
-    FL_StaticGray = StaticGray;
-    FL_GrayScale = GrayScale;
-    FL_StaticColor = StaticColor;
-    FL_PseudoColor = PseudoColor;
-    FL_TrueColor = TrueColor;
-    FL_DirectColor = DirectColor;
-    FL_DefaultVisual = 10;	{ special request }
-
-    FL_North = NorthGravity;
-    FL_NorthEast = NorthEastGravity;
-    FL_NorthWest = NorthWestGravity;
-    FL_South = SouthGravity;
-    FL_SouthEast = SouthEastGravity;
-    FL_SouthWest = SouthWestGravity;
-    FL_East = EastGravity;
-    FL_West = WestGravity;
-    FL_NoGravity = ForgetGravity;
-    FL_ForgetGravity = ForgetGravity;
-
-{
-#define FL_is_gray(p1 : v)  (p1 : v==GrayScale || v==StaticGray)
-#define FL_is_rgb(p1 : v)   (p1 : v==TrueColor || v==DirectColor)
-}
-
-{
- * Internal colormap size. Not really very meaningful as fl_mapcolor
- * and company allow color "leakage"; that is; although only FL_MAX_COLS
- * are kept in the internal colormap; the server might have substantially
- * more colors allocated
- }
-
-FL_MAX_COLS =  1024;
-
-{
- * FL graphics state information. Some are redundant.
- }
-
-type
-TFL_STATE = record
-    xvinfo : PXVisualInfo;
-    cur_fnt : PXFontStruct;	{ current font in default GC       }
-    colormap : TColormap ;		{ colormap valid for xvinfo        }
-    trailblazer : TWindow ;		{ a valid window for xvinfo        }
-    vclass, depth,		{ visual class and color depth     }
-    rgb_bits,		{ primary color resolution         }
-    dithered,		{ true if dithered color           }
-    pcm : Longint;			{ true if colormap is not shared   }
-    gc : Array [0..16] of TGC;			{ working GC                       }
-    textgc : array [0..16] of TGC;		{ GC used exclusively for text     }
-    dimmedGC : TGC;		{ A GC having a checkboard stipple }
-    lut :array [0..FL_MAX_COLS] of cardinal;	{ secondary lookup table         }
-    rshift : word; 
-    rmask, rbits : Longint;
-    gshift : word;
-    gmask,gbits : Longint {was int};
-    bshift : word; 
-    bmask, bbits : Longint {was int};
-end;
-PFL_State = ^TFL_State;
-
-{
-#define FL_State FL_STATE	{ for compatibility }
-}
-
-{**** Global variables *****}
-
-Var
-
-fl_display : PDisplay;
-fl_screen : Longint;
-fl_root : TWindow;		{ root window                }
-fl_vroot : TWindow;		{ virtual root window        }
-fl_scrh : Longint; 
-fl_scrw : Longint;	{ screen dimension in pixels }
-fl_vmode : Longint {was int};
-
-{ current version only runs in single visual mode }
-{
-#define  fl_get_vclass(p1 : )        fl_vmode
-#define  fl_get_form_vclass(p1 : a)  fl_vmode
-}
-{
-fl_state[] : PFL_State ;
-fl_ul_magic_char : pchar;
-}
-
-function fl_mode_capable(p1,p2 : longint ) : longint;
-
-{
-#define fl_default_win(p1 : )       (p1 : fl_state[fl_vmode].trailblazer)
-#define fl_default_window(p1 : )    (p1 : fl_state[fl_vmode].trailblazer)
-}
-{
- * All pixmaps used by FL_OBJECT to simulate double buffering have the
- * following entries in the structure. TFL_Coord x;y are used to shift
- * the origin of the drawing routines
- }
-
-
-{ fonts related }
-Const
-FL_MAX_FONTSIZES=10;
-
-type
- FL_FONT = record
-    fs : array[0..FL_MAX_FONTSIZES] of PXFontStruct;	{ cached fontstruct }
-    size : array [0..FL_MAX_FONTSIZES] of byte;	{ cached sizes      }
-    nsize : byte;		{ cached so far     }
-    fname : Array[1..80] of char;		{ without size info     }
-end;
-
-{
- * Some basic drawing routines
- }
-
-type TFL_POINT = TXPoint;
-     PFL_Point = ^TFL_Point;
-     TFL_RECT = TXRECTANGLE;
-     PFL_RECT = ^TFL_RECT;     
-     
-{ rectangles }
-procedure fl_rectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR);
-procedure fl_rectbound(p1,p2,p3,p4 : TFL_Coord;p5 : TFL_COLOR);
-
-procedure fl_rectf(x,y,w,h : TFL_COORD;c : TFL_COLOR);
-procedure fl_rect(x,y,w,h : TFL_COORD;c : TFL_COLOR);
-
-
-{ rectangle with rounded-corners }
-procedure fl_roundrectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 :TFL_COLOR);
-
-{
-#define fl_roundrectf(p1 : x; p2 : y;w;h;c) fl_roundrectangle(p1 : 1; p2 : x;y;w;h;c)
-#define fl_roundrect(p1 : x; p2 : y;w;h;c) fl_roundrectangle(p1 : 0; p2 : x;y;w;h;c)
-}
-{ general polygon and polylines }
-procedure fl_polygon(p1 : Longint {was int}; p2 : PFL_POINT; p3 : Longint {was int}; p4 : TFL_COLOR);
-
-{
-#define fl_polyf(p1 : p; p2 : n;c)  fl_polygon(p1 : 1; p2 : p; p3 : n; p4 : c)
-#define fl_polyl(p1 : p; p2 : n;c)  fl_polygon(p1 : 0; p2 : p; p3 : n; p4 : c)
-#define fl_polybound(p1 : p; p2 : n;c) do {fl_polyf(p1 : p; p2 : n;c);fl_polyl(p1 : p; p2 : n;FL_BLACK);}while(p1 : 0)
-}
-
-procedure fl_lines(p1 : TFL_POINT; p2 : Longint {was int}; p3 :TFL_COLOR);
-procedure fl_line(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR);
-{
-#define fl_simple_line fl_line
-}
-procedure fl_dashedlinestyle(p1 : pchar; p2 :  Longint {was int});
-procedure fl_drawmode(p1 : Longint {was int}); 
-
-{
-#define fl_diagline(p1 : x; p2 : y;w;h;c) fl_line(p1 : x; p2 : y;(p1 : x)+(p1 : w)-1; p2 : (p1 : y)+(p1 : h)-1; p2 : c)
-}
-{ line attributes }
-procedure fl_linewidth(p1 : Longint {was int}); 
-procedure fl_linestyle(p1 : Longint {was int}); 
-
-function fl_get_linewidth : longint;
-function fl_get_linestyle : longint;
-
-
-{* ellipses *}
-procedure fl_oval(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR);
-procedure fl_ovalbound(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR);
-procedure fl_ovalarc(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6,p7 : Longint; p8 : TFL_COLOR);
-
-{
-#define fl_ovalf(p1 : x; p2 : y;w;h;c)     fl_oval(p1 : 1; p2 : x;y;w;h;c)
-#define fl_ovall(p1 : x; p2 : y;w;h;c)     fl_oval(p1 : 0; p2 : x;y;w;h;c)
-#define fl_oval_bound           fl_ovalbound
-
-#define fl_circf(p1 : x; p2 : y;r;col)  fl_oval(p1 : 1; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : 2*(p1 : r); p2 : 2*(p1 : r); p2 : col)
-#define fl_circ(p1 : x; p2 : y;r;col)   fl_oval(p1 : 0; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : 2*(p1 : r); p2 : 2*(p1 : r); p2 : col)
-}
-
-{ arcs }
-procedure fl_pieslice(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7 :Longint {was int}; p8 : TFL_COLOR);
-{
-#define fl_arcf(p1 : x; p2 : y;r;a1;a2;c)  fl_pieslice(p1 : 1; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : \
-                                (p1 : 2*(p1 : r)); p2 : (p1 : 2*(p1 : r)); p2 :  a1;a2;c)
-
-#define fl_arc(p1 : x; p2 : y;r;a1;a2;c)  fl_pieslice(p1 : 0; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 :  \
-                               (p1 : 2*(p1 : r)); p2 : (p1 : 2*(p1 : r)); p2 :  a1;a2;c)
-}
-{ misc. stuff }
-procedure fl_add_vertex(p1,p2 :  TFL_Coord);
-procedure fl_add_float_vertex(p1,p2 :  real);
-procedure fl_reset_vertex; 
-procedure fl_endline;
-procedure fl_endpolygon;
-procedure fl_endclosedline; 
-
-{
-#define fl_bgnline       fl_reset_vertex
-#define fl_bgnclosedline fl_reset_vertex
-#define fl_bgnpolygon    fl_reset_vertex
-#define fl_v2s(p1 : v)        fl_add_vertex(p1 : v[0]; p2 :  v[1])
-#define fl_v2i(p1 : v)        fl_add_vertex(p1 : v[0]; p2 :  v[1])
-#define fl_v2f(p1 : v)        fl_add_float_vertex(p1 : v[0]; p2 :  v[1])
-#define fl_v2d(p1 : v)        fl_add_float_vertex(p1 : v[0]; p2 :  v[1])
-}
-
-{ high level drawing routines }
-procedure fl_drw_frame(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR; p7 : Longint {was int});
-procedure fl_drw_checkbox(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR;p7 : Longint {was int});
-
-{
- * Interfaces
- }
-function fl_get_fontstruct(p1,p2 :  Longint {was int}) : PXFontStruct;
-{
-#define fl_get_font_struct fl_get_fontstruct
-#define fl_get_fntstruct fl_get_font_struct
-}
-
-function fl_get_mouse(p1,p2 : PFL_COORD; p3 : pword) : TWindow;
-procedure fl_set_mouse(p1,p2 :  TFL_Coord);
-function fl_get_win_mouse(p1 : TWindow; p2,p3 : PFL_COORD; p4 : pword) : TWindow;
-function fl_get_form_mouse(p1 : PFL_FORM; p2,p3 : PFL_COORD; p4 : pWord) : TWindow;
-function fl_win_to_form(p1 : TWindow) : PFL_form; 
-procedure fl_set_form_icon(p1 : PFL_FORM; p2 : TPixmap; p3 :TPixmap);
-
-{
-#define fl_raise_form(p1 : f) if(p1 : f->window) XRaiseWindow(p1 : fl_display; p2 : f->window)
-#define fl_lower_form(p1 : f) if(p1 : f->window) XLowerWindow(p1 : fl_display; p2 : f->window)
-}
-{
-#define fl_set_foreground(p1 : gc; p2 : c) XSetForeground(p1 : fl_display; p2 : gc;fl_get_pixel(p1 : c))
-#define fl_set_background(p1 : gc; p2 : c) XSetBackground(p1 : fl_display; p2 : gc;fl_get_pixel(p1 : c))
-}
-{ General windowing support }
-
-function fl_wincreate(p1 : pchar) : TWindow; 
-function fl_winshow(p1 : TWindow) : TWindow; 
-function fl_winopen(p1 : pchar) : TWindow; 
-procedure fl_winhide(p1 : TWindow); 
-procedure fl_winclose(p1 : TWindow);  
-procedure fl_winset(p1 : TWindow); 
-function fl_winget : Twindow; 
-
-procedure fl_winresize(p1 : TWindow; p2,p3 :TFL_Coord);
-procedure fl_winmove(p1 : TWindow; p2,p3 :TFL_Coord);
-procedure fl_winreshape(p1 : TWindow; p2,p3,p4,p5 : TFL_Coord);
-procedure fl_winicon(p1 : TWindow; p2 : TPixmap; p3 :TPixmap);
-procedure fl_winbackground(p1 : TWindow; p2 :  cardinal);
-procedure fl_winstepunit(p1 : TWindow; p2,p3 :TFL_Coord);
-procedure fl_winisvalid(p1 : TWindow); 
-procedure fl_wintitle(p1 : TWindow; p2 :  pchar);
-procedure fl_winposition(p1,p2 :  TFL_Coord);
-
-{
-#define fl_pref_winposition fl_winposition
-#define fl_win_background     fl_winbackground
-#define fl_set_winstepunit    fl_winstepunit
-}
-
-
-procedure fl_winminsize(p1 : TWindow; p2,p3 :TFL_Coord);
-procedure fl_winmaxsize(p1 : TWindow; p2,p3 :TFL_Coord);
-procedure fl_winaspect(p1 : TWindow; p2,p3 :TFL_Coord);
-procedure fl_reset_winconstraints(p1 : TWindow); 
-
-procedure fl_winsize(p1,p2 :  TFL_Coord);
-procedure fl_initial_winsize(p1,p2 :  TFL_Coord);
-{
-#define fl_pref_winsize  fl_winsize
-}
-procedure fl_initial_winstate(p1 : Longint {was int}); 
-
-function fl_create_colormap(p1 : PXVisualInfo; p2 :  Longint {was int}) : TColormap;
-
-
-procedure fl_wingeometry(p1,p2,p3,p4 : TFL_Coord);
-{
-#define fl_pref_wingeometry  fl_wingeometry
-}
-procedure fl_initial_wingeometry(p1,p2,p3,p4 : TFL_Coord);
-
-{
-procedure fl_noborder;
-procedure fl_transient;
-}
-
-procedure fl_get_winsize(p1 : TWindow; p2,p3 :PFL_COORD);
-procedure fl_get_winorigin(p1 : TWindow; p2,p3 :PFL_COORD);
-procedure fl_get_wingeometry(p1 : TWindow; p2,p3,p4,p5 : PFL_COORD);
-
-{ for compatibility }
-{
-#define fl_get_win_size          fl_get_winsize
-#define fl_get_win_origin        fl_get_winorigin
-#define fl_get_win_geometry      fl_get_wingeometry
-#define fl_initial_winposition   fl_pref_winposition
-
-#define fl_get_display(p1 : )           fl_display
-#define FL_FormDisplay(p1 : form)       fl_display
-#define FL_ObjectDisplay(p1 : object)   fl_display
-}
-
-{ the window an object belongints }
-
-Function FL_ObjWin ( P : PFL_Object) : TWindow;
-
-{
-#define FL_OBJECT_WID  FL_ObjWin
-}
-
-{  all registerable events; including Client Message }
-const FL_ALL_EVENT = (KeyPressMask or KeyReleaseMask or
-                      ButtonPressMask or ButtonReleaseMask or
-                      EnterWindowMask or LeaveWindowMask or
-                      ButtonMotionMask or PointerMotionMask);
-
-{ Timer related }
-
- FL_TIMER_EVENT = $40000000;
-
-
-function fl_XNextEvent(p1 : PXEvent) : Longint; 
-function fl_XPeekEvent(p1 : PXEvent) : Longint; 
-function fl_XEventsQueued(p1 : Longint {was int}) : Longint; 
-procedure fl_XPutBackEvent(p1 : PXEvent);  
-function fl_last_event : PXEvent ; 
-
-type
-TFL_APPEVENT_CB = procedure (p1 : PXEvent; p2 : pointer);
-PFL_APPEVENT_CB = ^TFL_APPEVENT_CB;
-
-function fl_set_event_callback(p1 : PFL_APPEVENT_CB; p2 : pointer) : PFL_APPEVENT_CB ;
-function fl_set_idle_callback(p1 : PFL_APPEVENT_CB; p2 :  pointer) : PFL_APPEVENT_CB ;
-function fl_addto_selected_xevent(p1 : TWindow; p2 :  longint) : Cardinal;
-function fl_remove_selected_xevent(p1 : TWindow; p2 :  longint) : cardinal;
-{
-#define fl_add_selected_xevent  fl_addto_selected_xevent
-}
-{
- * Group some WM stuff into a structure for easy maintainance
- }
-const
-    FL_WM_SHIFT = 1;
-    FL_WM_NORMAL = 2;
-
-type TFL_WM_STUFF = record
-    rpx, rpy,		{ reparenting offset for full border }
-    trpx, trpy,		{ reparenting offset for transient   }
-    bw,			{ additional border                  }
-    rep_method : Longint;		{ 1 for shifting; 2 for normal       }
-    pos_request : word;	{ USPOSITION or PPOSITION            }
-end;
-PFL_WM_STUFF = ^TFL_WM_STUFF;
-
-
-function fl_add_event_callback(p1 : TWindow; p2 :  Longint {was int}; p3 : PFL_APPEVENT_CB; p4 : pointer) : PFL_APPEVENT_CB ;
-
-procedure fl_remove_event_callback(p1 : TWindow; p2 :  Longint {was int});
-procedure fl_activate_event_callbacks(p1 : TWindow); 
-
-function fl_print_xevent_name(p1 : pchar; p2 : PXEvent) : PXEvent;
-
-{
-#define metakey_down(p1 : mask)     (p1 : (p1 : mask) & Mod1Mask)
-#define shiftkey_down(p1 : mask)    (p1 : (p1 : mask) & ShiftMask)
-#define controlkey_down(p1 : mask)  (p1 : (p1 : mask) & ControlMask)
-#define button_down(p1 : mask)      (p1 : (p1 : (p1 : mask) & Button1Mask) || \
-                               (p1 : (p1 : mask) & Button2Mask) || \
-			       (p1 : (p1 : mask) & Button3Mask))
-#define fl_keypressed          fl_keysym_pressed
-}
-{***************** Resources **************}
-
-
-{ bool is Longint {was int}. FL_NONE is defined elsewhere }
-const
-    FL_SHORT  = 10; 
-    FL_BOOL   = 11; 
-    FL_INT    = 12;
-    FL_LONG   = 13; 
-    FL_FLOAT  = 14; 
-    FL_STRING = 15;
-    
-Type  TFL_RTYPE = Longint;
-
-TFL_RESOURCE = record
-    res_name,			{ resource name                        }
-    res_class : Pchar;		{ resource class                       }
-    rtype : TFL_RTYPE;		{ FL_INT; FL_FLOAT; FL_BOOL;FL_STRING  }
-    thevar : pointer;		{ address for the variable             }
-    defval : pchar;		{ default setting in string form       }
-    bytes : Longint {was int}		{ used only for strings                }
-end;
-PFL_RESOURCE = ^TFL_RESOURCE;
-
-Type
- TFL_CMD_OPT = TXrmOptionDescRec;
- PFL_CMD_OPT = ^TFL_CMD_OPT;
- 
-function fl_initialize(p1 : pointer; p2 : ppchar; p3 :pchar; p4 : PFL_CMD_OPT; p5 : Longint {was int}) : Pdisplay;
-procedure fl_finish;  
-
-{ addfromhere }
-
-function fl_get_resource(p1 : pchar; p2 :  pchar; p3 : TFL_RTYPE; p4 : pchar; p5 : pointer; p6 :Longint {was int}) : pchar;
-procedure fl_set_resource(p1 : pchar; p2 :  pchar);
-
-procedure fl_get_app_resources(p1 : PFL_resource; p2 : Longint {was int});
-procedure fl_set_graphics_mode(p1 : Longint {was int}; p2 :  Longint {was int});
-procedure fl_set_visualID(p1 : longint);  
-function fl_keysym_pressed(p1 : TKeySym) : Longint; 
-
-{
-#define buttonLabelSize  buttonFontSize
-#define sliderLabelSize  sliderFontSize
-#define inputLabelSize   inputFontSize
-}
-{ All Form control variables. Named closely as its resource name }
-Type TFL_IOPT =  record
-    rgamma, ggamma, bgamma : Real;
-    debug, sync,
-    depth, vclass, doubleBuffer,
-    ulPropWidth, ulThickness,	{ underline stuff       }
-    buttonFontSize,
-    sliderFontSize,
-    inputFontSize,
-    browserFontSize,
-    menuFontSize,
-    choiceFontSize,
-    labelFontSize,		{ all other labels fonts }
-    pupFontSize, pupFontStyle,	{ font for pop-up menus  }
-    privateColormap,
-    sharedColormap,
-    standardColormap,
-    leftScrollBar,
-    backingStore,
-    coordUnit,
-    borderWidth,
-    safe,
-    xFirst : Longint {was int};
-    rgbfile : pchar;		{ where RGB file is     }
-    vname : array [0..24] of char;
-end;
-PFL_IOPT = ^TFL_IOPT; 
-
-
-Const
-
-{ program default masks }
-
-    FL_PDDepth = 1 shl 1 ; 
-    FL_PDClass = 1 shl 2 ; 
-    FL_PDDouble = 1 shl 3 ; 
-    FL_PDSync = 1 shl 4 ; 
-    FL_PDPrivateMap = 1 shl 5 ; 
-    FL_PDLeftScrollBar = 1 shl 6 ; 
-    FL_PDPupFontSize = 1 shl 7 ; 
-    FL_PDButtonFontSize = 1 shl 8 ; 
-    FL_PDInputFontSize = 1 shl 9 ; 
-    FL_PDSliderFontSize = 1 shl 10 ; 
-    FL_PDVisual = 1 shl 11 ; 
-    FL_PDULThickness = 1 shl 12 ; 
-    FL_PDULPropWidth = 1 shl 13 ; 
-    FL_PDBS = 1 shl 14 ; 
-    FL_PDCoordUnit = 1 shl 15 ; 
-    FL_PDDebug = 1 shl 16 ; 
-    FL_PDSharedMap = 1 shl 17 ; 
-    FL_PDStandardMap = 1 shl 18 ; 
-    FL_PDBorderWidth = 1 shl 19 ; 
-    FL_PDSafe = 1 shl 20 ; 
-    FL_PDMenuFontSize = 1 shl 21 ; 
-    FL_PDBrowserFontSize = 1 shl 22 ; 
-    FL_PDChoiceFontSize = 1 shl 23 ; 
-    FL_PDLabelFontSize = 1 shl 24;
-    FL_PDButtonLabelSize = FL_PDButtonFontSize;
-    FL_PDSliderLabelSize = FL_PDSliderFontSize;
-    FL_PDInputLabelSize  = FL_PDInputFontSize;
-    FL_PDButtonLabel  = FL_PDButtonLabelSize;
- 
-procedure fl_set_defaults(p1 : cardinal; p2 :  PFL_IOPT);
-procedure fl_set_tabstop(p1 : pchar); 
-procedure fl_get_defaults(p1 : PFL_IOPT); 
-function fl_get_visual_depth : Longint; 
-function fl_vclass_name(p1 : Longint {was int}) : pchar; 
-function fl_vclass_val(p1 : pchar) : Longint {was int}; 
-procedure fl_set_ul_property(p1 : Longint {was int}; p2 :  Longint {was int});
-procedure fl_set_clipping(p1 : TFL_Coord; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord);
-procedure fl_set_gc_clipping(p1 : TGC; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord);
-procedure fl_unset_gc_clipping(p1 : TGC); 
-procedure fl_set_clippings(p1 : PFL_RECT; p2 :  Longint {was int});
-procedure fl_unset_clipping; 
-
-function fl_textgc : TGC;
-{
-#define fl_set_text_clipping(p1 : a; p2 : b;c;d)   fl_set_gc_clipping(p1 : fl_textgc; p2 : a;b;c;d)
-#define fl_unset_text_clipping(p1 : ) fl_unset_gc_clipping(p1 : fl_textgc)
-}
-
-Const
- FL_NORMAL_BITMAP = 0;
-
-{**** Defaults ****}
-FL_BITMAP_BOXTYPE	=FL_NO_BOX;
-FL_BITMAP_COL1		=FL_COL1;	{ background of bitmap }
-FL_BITMAP_COL2		=FL_COL1;	{ not used currently   }
-FL_BITMAP_LCOL		=FL_LCOL;	{ foreground of bitmap }
-FL_BITMAP_ALIGN		=FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
-{FL_BITMAP_MAXSIZE	= 128*128;}
-
-{**** Routines ****}
-function fl_create_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-function fl_add_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-procedure fl_set_bitmap_data(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : pointer);
-procedure fl_set_bitmap_file(p1 : PFL_OBJECT; p2 :  pchar);
-function fl_read_bitmapfile(p1 : TWindow; p2 :  pchar; p3,p4 : pword; p5,p6 : pointer) : TPixmap ;
-
-{
-#define fl_create_from_bitmapdata(p1 : win; p2 : data; p3 : w; p4 : h)\
-                   XCreateBitmapFromData(p1 : fl_get_display(p1 : ); p2 : win; p3 :\
-                   (p1 : char *)data; p2 : w; p3 :h)
-
-{ for compatibility }
-#define fl_set_bitmap_datafile fl_set_bitmap_file
-}
-
-{ PIXMAP stuff }
-
-Const
-FL_NORMAL_PIXMAP   = 0;
-
-function fl_create_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6  :pchar) : PFL_OBJECT;
-function fl_add_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-procedure fl_set_pixmap_data(p1 : PFL_OBJECT; p2 :  ppchar);
-procedure fl_set_pixmap_file(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_set_pixmap_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int});
-procedure fl_set_pixmap_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap);
-procedure fl_set_pixmap_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_free_pixmap_pixmap(p1 : PFL_OBJECT); 
-function fl_get_pixmap_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ;
-
-function fl_read_pixmapfile(p1 : TWindow; p2 :  pchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR)  : TPixmap ;
-function fl_create_from_pixmapdata(p1 : TWindow; p2 :  ppchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR) : TPixmap ;
-{
-#define fl_free_pixmap(p1 : id)  if(p1 : id != None) XFreePixmap(p1 : fl_display; p2 :  id);
-}
-
-function fl_create_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-function fl_add_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-Type TFL_BROWSER_TYPE = Longint;
-
-Const
-    FL_NORMAL_BROWSER = 0;
-    FL_SELECT_BROWSER = 1;
-    FL_HOLD_BROWSER   = 2;
-    FL_MULTI_BROWSER  = 3;
-
-{**** Defaults ****}
-
- FL_BROWSER_BOXTYPE	= FL_DOWN_BOX;
- FL_BROWSER_COL1	= FL_COL1;
- FL_BROWSER_COL2	= FL_YELLOW;
- FL_BROWSER_LCOL	= FL_LCOL;
- FL_BROWSER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
- FL_BROWSER_SLCOL	= FL_COL1;
- FL_BROWSER_LINELENGTH	= 1024;
- FL_BROWSER_FONTSIZE    = FL_SMALL_FONT;
-
-{ as of .86
- FL_SCROLLBAR_OFF = 0;
- FL_SCROLLBAR_ON = 1;
- FL_SCROLLBAR_ALWAYS_ON = 2;
-}
-
-{**** Routines ****}
-
-function fl_create_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_add_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6:  pchar) : PFL_OBJECT;
-procedure fl_clear_browser(p1 : PFL_OBJECT);
-procedure fl_add_browser_line(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_addto_browser(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_addto_browserchars(p1 : PFL_OBJECT; p2 :  pchar);
-
-procedure fl_insert_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);
-procedure fl_delete_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_replace_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);
-function fl_get_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar;
-function fl_load_browser(p1 : PFL_OBJECT; p2 :  pchar ) : Longint ;
-
-procedure fl_select_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_deselect_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_deselect_browser(p1 : PFL_OBJECT); 
-function fl_isselected_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Longint ;
-
-function fl_get_browser_topline(p1 : PFL_OBJECT ) : Longint ; 
-function fl_get_browser(p1 : PFL_OBJECT ) : Longint ;
-function fl_get_browser_maxline(p1 : PFL_OBJECT ) : Longint ; 
-function fl_get_browser_screenlines(p1 : PFL_OBJECT ) : Longint ;
-
-procedure fl_set_browser_topline(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_specialkey(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_leftslider(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_browser_line_selectable(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_get_browser_dimension(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD);
-procedure fl_set_browser_dblclick_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint);
-{
-#define fl_set_browser_leftscrollbar fl_set_browser_leftslider
-}
-procedure fl_set_browser_xoffset(p1 : PFL_OBJECT; p2 :  TFL_Coord);
-procedure fl_set_browser_scrollbarsize (p1 : PFL_OBJECT;p2,p3 : longint);
-
-type
- TFL_BUTTON_TYPE= Longint;
-
-Const
-    FL_NORMAL_BUTTON	= 0;
-    FL_PUSH_BUTTON	= 1;
-    FL_RADIO_BUTTON	= 2;
-    FL_HIDDEN_BUTTON	= 3;
-    FL_TOUCH_BUTTON	= 4;
-    FL_INOUT_BUTTON	= 5;
-    FL_RETURN_BUTTON	= 6;
-    FL_HIDDEN_RET_BUTTON= 7;
-    FL_MENU_BUTTON	= 8;
-
-type TFL_BUTTON_SPEC = record
-    pixmap,mask :  TPixmap;
-    bits_w, bits_h : Cardinal;
-    val,			{ whether on }
-    mousebut,		{ mouse button that caused the push     }
-    timdel,			{ time since last touch (p1 : TOUCH buttons) }
-    event : Longint;			{ what event triggers redraw            }
-    cspecl : longint;		{ reserved for class specfic stuff      }
-    cspecv : pointer;		{ misc. things                          }
-    filename : pchar;
-end;
-TFL_BUTTON_STRUCT = TFL_BUTTON_SPEC;
-PFL_BUTTON_STRUCT = ^TFL_BUTTON_STRUCT;
-
-TFL_DrawButton = procedure  (p1 : PFL_OBJECT); 
-PFL_DrawButton  = ^TFL_DrawButton;
-TFL_CleanupButton = procedure (p1 : PFL_BUTTON_STRUCT); 
-PFL_CleanupButton= ^TFL_CleanupButton;
-
-Const
-FL_BUTTON_BOXTYPE	= FL_UP_BOX;
-FL_BUTTON_COL1		= FL_COL1;
-FL_BUTTON_COL2		= FL_COL1;
-FL_BUTTON_LCOL		= FL_LCOL;
-FL_BUTTON_ALIGN		= FL_ALIGN_CENTER;
-
-FL_BUTTON_MCOL1		= FL_MCOL;
-FL_BUTTON_MCOL2		= FL_MCOL;
-
-FL_BUTTON_BW		= FL_BOUND_WIDTH;
-
-{
- *  light button defaults
- }
-FL_LIGHTBUTTON_BOXTYPE	= FL_UP_BOX;
-FL_LIGHTBUTTON_COL1	= FL_COL1;
-FL_LIGHTBUTTON_COL2	= FL_YELLOW;
-FL_LIGHTBUTTON_LCOL	= FL_LCOL;
-FL_LIGHTBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-{**** Others   ****}
-
-FL_LIGHTBUTTON_TOPCOL	= FL_COL1;
-FL_LIGHTBUTTON_MCOL	= FL_MCOL;
-FL_LIGHTBUTTON_MINSIZE	= 12;
-
-{* round button defaults **}
-
-  FL_ROUNDBUTTON_BOXTYPE	= FL_NO_BOX;
-  FL_ROUNDBUTTON_COL1	= FL_MCOL;
-  FL_ROUNDBUTTON_COL2	= FL_YELLOW;
-  FL_ROUNDBUTTON_LCOL	= FL_LCOL;
-  FL_ROUNDBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-  FL_ROUNDBUTTON_TOPCOL	= FL_COL1;
-  FL_ROUNDBUTTON_MCOL	= FL_MCOL;
-
-{* round3d button defaults **}
-
-  FL_ROUND3DBUTTON_BOXTYPE	= FL_NO_BOX;
-  FL_ROUND3DBUTTON3D_COL1	= FL_MCOL;
-  FL_ROUND3DBUTTON_COL2	= FL_YELLOW;
-  FL_ROUND3DBUTTON_LCOL	= FL_LCOL;
-  FL_ROUND3DBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-  FL_ROUND3DBUTTON_TOPCOL	= FL_COL1;
-  FL_ROUND3DBUTTON_MCOL	= FL_MCOL;
-
-{* check button defaults **}
-
-  FL_CHECKBUTTON_BOXTYPE	= FL_NO_BOX;
-  FL_CHECKBUTTON_COL1	= FL_COL1;
-  FL_CHECKBUTTON_COL2	= FL_YELLOW;
-  FL_CHECKBUTTON_LCOL	= FL_LCOL;
-  FL_CHECKBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-  FL_CHECKBUTTON_TOPCOL	= FL_COL1;
-  FL_CHECKBUTTON_MCOL	= FL_MCOL;
-
-{* bitmap button defaults *}
-  FL_BITMAPBUTTON_BOXTYPE	= FL_UP_BOX;
-  FL_BITMAPBUTTON_COL1	= FL_COL1;	{ bitmap background  }
-  FL_BITMAPBUTTON_COL2	= FL_BLUE;	{ "focus" color       }
-  FL_BITMAPBUTTON_LCOL	= FL_LCOL;	{ bitmap foreground   }
-  FL_BITMAPBUTTON_ALIGN	= FL_ALIGN_BOTTOM;
-
-{* bitmap button defaults *}
-  FL_PIXMAPBUTTON_BOXTYPE	= FL_UP_BOX;
-  FL_PIXMAPBUTTON_COL1	= FL_COL1;	{ box col    }
-  FL_PIXMAPBUTTON_COL2	= FL_YELLOW;	{ bound rect }
-  FL_PIXMAPBUTTON_LCOL	= FL_LCOL;
-  FL_PIXMAPBUTTON_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Routines ****}
-
-function fl_create_button(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_bitmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT;
-
-function fl_add_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;
-function fl_add_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;
-
-function fl_add_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;
-function fl_add_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;
-function fl_add_button(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;
-
-
-procedure fl_set_bitmapbutton_data (p1 : PFL_OBJECT; p2,p3 : Longint {was int};   p4 : pchar);
-procedure fl_set_bitmapbutton_file (p1 : PFL_OBJECT; p2: pchar);
-function  fl_add_bitmapbutton (p1 : longint; p2,p3,p4,p5: TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-{
-#define fl_set_bitmapbutton_datafile  fl_set_bitmapbutton_file
-}
-
-function fl_add_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-procedure fl_set_pixmapbutton_data(p1 : PFL_OBJECT; p2 :  ppchar);
-procedure fl_set_pixmapbutton_file(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_set_pixmapbutton_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int});
-procedure fl_set_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap);
-procedure fl_set_pixmapbutton_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_free_pixmapbutton_pixmap(p1 : PFL_OBJECT); 
-function fl_get_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ;
-
-function fl_get_button(p1 : PFL_OBJECT ) : Longint ;  
-procedure fl_set_button(p1 : PFL_OBJECT; p2 :  Longint {was int});
-function fl_get_button_numb(p1 : PFL_OBJECT ) : Longint ;
-
-procedure fl_set_button_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int});
-
-function fl_create_generic_button(p1,p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord;p7 : pchar) : PFL_OBJECT;
-procedure fl_add_button_class(p1 : Longint {was int}; p2 : PFL_DRAWBUTTON; p3 : PFL_CLEANUPBUTTON);
-
-
-{
- * $Id$
- *
- * Header for FL_CANVAS
- *
- }
-
-
-
-type TFL_CANVAS_TYPE = Longint;
-
-const 
-    FL_NORMAL_CANVAS = 0;
-    FL_SCROLLED_CANVAS = 1;
-
-Type
-TFL_HANDLE_CANVAS = Procedure (PFL_OBJECT; TWindow; Longint {was int}; Longint {was int};
-				 PXEvent; pointer);
-PFL_HANDLE_CANVAS = ^TFL_HANDLE_CANVAS;
-
-TFL_MODIFY_CANVAS_PROP = Procedure (p1 : PFL_OBJECT);
-PFL_MODIFY_CANVAS_PROP = ^TFL_MODIFY_CANVAS_PROP;
-
-{******************* Default ********************}
-
-Const   FL_CANVAS_BOXTYPE  =  FL_NO_BOX;
-        FL_CANVAS_ALIGN    =  FL_ALIGN_TOP;
-
-
-{*********** Interfaces    ***********************}
-
-
-function fl_create_generic_canvas(p1 : Longint; p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord; p7 : pchar) : PFL_OBJECT;
-
-function fl_add_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT;
-
-function fl_create_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-
-function fl_create_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT;
-
-function fl_add_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-
-
-procedure fl_set_canvas_decoration(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_canvas_colormap(p1 : PFL_OBJECT; p2 :  TColormap);
-procedure fl_set_canvas_visual(p1 : PFL_OBJECT; p2 :  PVisual);
-procedure fl_set_canvas_depth(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_canvas_attributes(p1 : PFL_OBJECT; p2 : word;  p3 : PXSetWindowAttributes);
-
-function fl_add_canvas_handler(p1 : PFL_OBJECT; p2 :  Longint {was int}; p3 : PFL_HANDLE_CANVAS; p4 : pointer) : PFL_HANDLE_CANVAS ;
-
-function fl_get_canvas_id(p1 : PFL_OBJECT ) : TWindow ;
-function fl_get_canvas_colormap(p1 : PFL_OBJECT ) : TColormap; 
-function fl_get_canvas_depth(p1 : PFL_OBJECT ) : Longint ; 
-procedure fl_remove_canvas_handler(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : PFL_HANDLE_CANVAS);
-procedure fl_hide_canvas(p1 : PFL_OBJECT); 	{ internal use only }
-procedure fl_canvas_yield_to_shortcut(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_modify_canvas_prop(p1 : PFL_OBJECT; 
-				  P2 : PFL_MODIFY_CANVAS_PROP;
-				  p3 : PFL_MODIFY_CANVAS_PROP;
-				  p4 : PFL_MODIFY_CANVAS_PROP);
-
-{ OpenGL canvases }
-function fl_create_glcanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-function fl_add_glcanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-
-procedure fl_set_glcanvas_defaults(p1 : pointer); 
-procedure fl_get_glcanvas_defaults(p1 : pointer); 
-procedure fl_set_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer);
-procedure fl_get_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer);
-procedure fl_set_glcanvas_direct(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_activate_glcanvas(p1 : PFL_OBJECT);
-
-function fl_get_glcanvas_xvisualinfo(p1 : PFL_OBJECT ) : PXVisualInfo; 
-
-{
-# if defined(p1 : __GLX_glx_h__) || defined(p1 : GLX_H)
-function fl_get_glcanvas_context(p1 : PFL_OBJECT ob ) : GLXContext ; 
-function fl_glwincreate(p1 : *; p2 : GLXContext *; p3 : Longint {was int}; p4 : Longint {was int} ) : TWindow ;
-function fl_glwinopen(p1 : *; p2 : GLXContext *; p3 : Longint {was int}; p4 : Longint {was int} ) : TWindow ;
-}
-
-
-
-{
- * $Id$
- *
- * Object Class: Chart
- *
- }
-
-
-const
-    FL_BAR_CHART	= 0;
-    FL_HORBAR_CHART	= 1;
-    FL_LINE_CHART	= 2;
-    FL_FILL_CHART	= 3;
-    FL_SPIKE_CHART	= 4;
-    FL_PIE_CHART	= 5;
-    FL_SPECIALPIE_CHART	= 6;
-     
-Type  TFL_CHART_TYPE = Longint;
-
-{**** Defaults ****}
-
-Const  
-  FL_CHART_BOXTYPE	= FL_BORDER_BOX;
-  FL_CHART_COL1		= FL_COL1;
-  FL_CHART_LCOL		= FL_LCOL;
-  FL_CHART_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-  FL_CHART_MAX		= 512;
-
-{**** Routines ****}
-
-function fl_create_chart(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 :  pchar) : PFL_OBJECT;
-function fl_add_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-
-procedure fl_clear_chart(p1 : PFL_OBJECT);
-procedure fl_add_chart_value(p1 : PFL_OBJECT; p2 : double; p3 : pchar; p4 : Longint {was int});
-procedure fl_insert_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int});
-procedure fl_replace_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int});
-procedure fl_set_chart_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_set_chart_maxnumb(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_chart_autosize(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_chart_lstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_chart_lsize(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_chart_lcolor(p1 : PFL_OBJECT; p2 :  TFL_COLOR);
-
-
-
-{
- * $Id$
- *
- }
-
-
-const
-  FL_NORMAL_CHOICE	= 0;
-  FL_NORMAL_CHOICE2     = 1;
-  FL_DROPLIST_CHOICE	= 2;
-
-Type
- TFL_CHOICE_TYPE = Longint;
-
-Const
-  FL_SIMPLE_CHOICE  	= FL_NORMAL_CHOICE;
-
-{**** Defaults ****}
-
- FL_CHOICE_BOXTYPE	= FL_ROUNDED_BOX;
- FL_CHOICE_COL1		= FL_COL1;
- FL_CHOICE_COL2		= FL_LCOL;
- FL_CHOICE_LCOL		= FL_LCOL;
- FL_CHOICE_ALIGN	= FL_ALIGN_LEFT;
-
-{**** Others   ****}
-
- FL_CHOICE_MCOL		= FL_MCOL;
- FL_CHOICE_MAXITEMS	= 63;
-
-{**** Routines ****}
-
-function fl_create_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) :  PFL_OBJECT;
-
-function fl_add_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar ) : PFL_OBJECT;
-procedure fl_clear_choice(p1 : PFL_OBJECT);  
-procedure fl_addto_choice(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_replace_choice(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);
-procedure fl_delete_choice(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_choice(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_choice_text(p1 : PFL_OBJECT; p2 :  pchar);
-function fl_get_choice(p1 : PFL_OBJECT ) : Longint ;
-function fl_get_choice_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar;
-function fl_get_choice_maxitems(p1 : PFL_OBJECT ) : Longint ; 
-function fl_get_choice_text(p1 : PFL_OBJECT ) : pchar;
-procedure fl_set_choice_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_choice_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_choice_align(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_choice_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : word);
-procedure fl_set_choice_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);
-
-
-
-{
- * $Id$
- *
- }
-
-
-Const
-    FL_ANALOG_CLOCK	= 0;
-    FL_DIGITAL_CLOCK	= 1;
-
- FL_CLOCK_BOXTYPE   = FL_UP_BOX;
- FL_CLOCK_COL1      = FL_INACTIVE_COL;
- FL_CLOCK_COL2      = FL_BOTTOM_BCOL;
- FL_CLOCK_LCOL      = FL_BLACK;
- FL_CLOCK_ALIGN     = FL_ALIGN_BOTTOM;
-
- FL_CLOCK_TOPCOL    = FL_COL1;
-
-function fl_create_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-
-function fl_add_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-procedure fl_get_clock(p1 : PFL_OBJECT; p2,p3,p4 : pointer);
-
-
-
-{
- * $Id$
- *
- }
-
-
-Const
-    FL_NORMAL_COUNTER = 0;
-    FL_SIMPLE_COUNTER = 1;
-    
-type TFL_COUNTER_TYPE = Longint;
-
-{**** Defaults ****}
-Const
- FL_COUNTER_BOXTYPE	= FL_UP_BOX;
- FL_COUNTER_COL1	= FL_COL1;
- FL_COUNTER_COL2	= FL_BLUE;	{ ct label     }
- FL_COUNTER_LCOL	= FL_LCOL;	{ ct reporting }
- FL_COUNTER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
- FL_COUNTER_BW		= FL_BOUND_WIDTH-1;
-
-{**** Routines ****}
-
-function fl_create_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-function fl_add_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT;
-
-procedure fl_set_counter_value(p1 : PFL_OBJECT; p2 :  double);
-procedure fl_set_counter_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_set_counter_step(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_set_counter_precision(p1 : PFL_OBJECT; p2 :  Longint {was int});
-function fl_get_counter_value(p1 : PFL_OBJECT ) : double ; 
-procedure fl_get_counter_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble);
-procedure fl_set_counter_return(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_counter_filter(p1 : PFL_OBJECT;p2 : pointer); {!!!!}
-{
-				  pchar(p1 : *)(p1 : PFL_OBJECT; p2 : double; p3 :Longint {was int}));
-}
-
-{
- * $Id$
- *
- * Cursor defs and prototypes
- *
- }
-
-
-{$i cursorfont.inc}
-
-const FL_DEFAULT_CURSOR = -1;
-      FL_INVISIBLE_CURSOR = -2;
-
-procedure fl_set_cursor(p1 : TWindow; p2 :  Longint {was int});
-procedure fl_set_cursor_color(p1 : longint; p2 : TFL_COLOR; p3 :TFL_COLOR);
-function fl_create_bitmap_cursor(p1 : pchar; p2 :  pchar; p3,p4,p5,p6 : Longint {was int}) : TCursor;
-function fl_get_cursor_byname(p1 : longint ) : TCursor; 
-{
-#define fl_reset_cursor(p1 : win) fl_set_cursor(p1 : win; p2 :  -1);
-}
-
-
-
-{
- * $Id$
- }
-
-
-Const
-    FL_NORMAL_DIAL = 0;
-    FL_LINE_DIAL   = 1;
-    FL_FILL_DIAL   = 2;
-    
-    FL_DIAL_CW  = 0;
-    FL_DIAL_CCW = 1;
-
-Type
-  TFL_DIAL_TYPE = Longint;
-
-{**** Defaults ****}
-Const
-
- FL_DIAL_BOXTYPE	= FL_FLAT_BOX;
- FL_DIAL_COL1		= FL_COL1;
- FL_DIAL_COL2		= FL_RIGHT_BCOL;
- FL_DIAL_LCOL		= FL_LCOL;
- FL_DIAL_ALIGN		= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
- FL_DIAL_TOPCOL		= FL_COL1;
-
-{**** Routines ****}
-
-function fl_create_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 :pchar) : PFL_OBJECT;
-function fl_add_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT;
-
-procedure fl_set_dial_value(p1 : PFL_OBJECT; p2 :  double);
-function fl_get_dial_value(p1 : PFL_OBJECT ) : double ; 
-procedure fl_set_dial_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_get_dial_bounds(p1 : PFL_OBJECT; p2 : pdouble; p3 :pdouble);
-
-procedure fl_set_dial_step(p1 : PFL_OBJECT; p2 :  double);
-procedure fl_set_dial_return(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_dial_angles(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_set_dial_cross(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_dial_direction (p1 : PFL_OBJECT; p2 : Longint);
-
-{
- * $Id$
- *
- *  Convenience functions to read a directory
- }
-
-
-{  File types }
-
-Const
-    FT_FILE  = 0; 
-    FT_DIR   = 1; 
-    FT_LINK  = 2; 
-    FT_SOCK  = 3;
-    FT_FIFO  = 4; 
-    FT_BLK   = 5;
-    FT_CHR   = 6; 
-    FT_OTHER = 7;
-
-type TFL_Dirlist = record
-    name : pchar;			{ entry name }
-    ftype : longint;			{ FILE_TYPE  }
-    dl_mtime : longint;
-    dl_size : cardinal;
-    filler : array[0..2] of longint;
-    end;
-    PFL_Dirlist = ^TFL_Dirlist;
-
-    
-TFL_DIRLIST_FILTER = procedure (p1 : pchar; p2 :  Longint {was int});
-PFL_DIRLIST_FILTER = ^TFL_DIRLIST_FILTER;
-
-Const
-  FL_ALPHASORT  = 1;
-  FL_RALPHASORT = 2;
-  FL_MTIMESORT  = 3;
-  FL_RMTIMESORT = 4;
-  FL_SIZESORT  = 5;
-  FL_RSIZESORT = 6;
-  
-
-{ read dir with pattern filtering. All dirs read might be cached.
- * must not change dirlist in anyway.
- }
-function fl_get_dirlist(p1 : pchar; p2 : pchar;	p3 : pointer;p4	:longint) : PFL_Dirlist;	{ rescan }
-
-
-function fl_set_dirlist_filter (p1 : PFL_DIRLIST_FILTER ) : PFL_DIRLIST_FILTER ;
-procedure fl_set_dirlist_sort ( p1 : longint);
-
-procedure fl_free_dirlist(p1 : PFL_Dirlist); 
-
-{ Free all directory caches }
-procedure fl_free_all_dirlist; 
-
-function fl_is_valid_dir(p1 : pchar ) : Longint;
-function fl_fmtime(p1 : pchar ) : cardinal ; 
-function fl_fix_dirname(p1 : pchar) : pchar; 
-
-
-{
- * $Id$
- *
- }
-
-
-{ types of frames }
-Const
-    FL_NO_FRAME		= 0;
-    FL_UP_FRAME		= 1;
-    FL_DOWN_FRAME	= 2;
-    FL_BORDER_FRAME	= 3;
-    FL_SHADOW_FRAME	= 4;
-    FL_ENGRAVED_FRAME	= 5;
-    FL_ROUNDED_FRAME	= 6;
-    FL_EMBOSSED_FRAME	= 7;
-    FL_OVAL_FRAME	= 8;
-
-    FL_FRAME_COL1 = FL_BLACK;
-    FL_FRAME_COL2 = FL_COL1;
-    FL_FRAME_LCOL = FL_BLACK;
-
-function fl_create_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-function fl_add_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-function fl_create_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-function fl_add_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-
-{
- * $Id$
- *
- *  Object Class: Free
- }
-
-Const
-    FL_NORMAL_FREE	= 0;
-    FL_INACTIVE_FREE	= 1;
-    FL_INPUT_FREE	= 2;
-    FL_CONTINUOUS_FREE	= 3;
-    FL_ALL_FREE		= 4;
-Type
-   TFL_FREE_TYPE = Longint;
-   PFL_FREE_TYPE = ^TFL_FREE_TYPE;
-
-Const FL_SLEEPING_FREE =  FL_INACTIVE_FREE;
-
-
-function fl_create_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar; p7 : PFL_HANDLEPTR) : PFL_OBJECT;
-function fl_add_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar; P7 : PFL_HANDLEPTR) : PFL_OBJECT;
-
-{
- * $Id$
- }
-
-Const
- FLAlertDismissLabel = 'flAlert.dismiss.label';
- FLQuestionYesLabel  = 'flQuestion.yes.label';
- FLQuestionNoLabel   = 'flQuestion.no.label';
- FLOKLabel           = 'flInput.ok.label';
- FLInputClearLabel   = 'flInput.clear.label';
- FLInputCancelLabel   = 'flInput.cancel.label';
-
-{ from goodies.c }
-procedure fl_set_goodies_font(p1 : LongInt; p2 :  Longint {was int});
-procedure fl_show_message(p1 : pchar; p2 : pchar; p3 :pchar);
-procedure fl_show_messages(p1 : pchar);
-procedure fl_show_alert(p1 : pchar; p2 : pchar; p3 : pchar; p4 : Longint {was int});
-function fl_show_question(p1 : pchar; p2 : longint) : Longint ;
-function fl_show_input(p1 : pchar; p2 :  pchar ) : pchar;
-function fl_show_simple_input(p1 : pchar; p2 :  pchar ) : pchar;
-function fl_show_colormap(p1 : Longint ) : Longint ;  
-function fl_show_choice(p1,p2,p3 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint;
-function fl_show_choices(p1 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint;
-procedure fl_set_choices_shortcut(p1,p2,p3 :pchar);
-
-procedure fl_show_oneliner(p1 : pchar; p2 : TFL_Coord; p3 :TFL_Coord);
-procedure fl_hide_oneliner; 
-procedure fl_set_oneliner_font(p1 : LongInt; p2 :  Longint {was int});
-procedure fl_set_oneliner_color(p1 : TFL_COLOR; p2 :  TFL_COLOR);
-
-type TFD_CMDLOG = record
-    form : PFL_FORM;
-    browser,close_browser,clear_browser : PFL_OBJECT;
-end;
-PFD_CMDLOG = ^TFD_CMDLOG;
-
-function fl_exe_command(p1 : pchar; p2 : Longint) : Longint;
-function fl_end_command(p1 : longint) : Longint;
-Function fl_end_all_command : Longint;
-procedure fl_show_command_log(p1 : Longint);
-procedure fl_hide_command_log;
-procedure fl_clear_command_log;
-procedure fl_addto_command_log(p1 : pchar);
-procedure fl_set_command_log_position(p1,p2 :longint);
-Function fl_get_command_log_fdstruct : PFD_CMDLOG;
-
-{ aliases }
-{
-#define fl_open_command    fl_exe_command
-#define fl_close_command   fl_end_command
-}
-
-{****** from file selector ****************}
-
-Const  FL_MAX_FSELECTOR =  6;
-
-type TFD_FSELECTOR = record
-    fselect : PFL_FORM;
-    browser, theinput, prompt, resbutt,
-    patbutt,dirbutt, cancel, ready : PFL_OBJECT;
-    dirlabel,patlabel : PFL_OBJECT;
-    appbut : array[0..2] of PFL_OBJECT;
-end;
-
-PFD_FSELECTOR = ^TFD_FSELECTOR;
-
-function fl_use_fselector(p1 : LongInt ) : LongInt; 
-function fl_show_fselector(p1,p2,p3,p4 :  pchar) : pchar;
-
-procedure fl_set_fselector_fontsize (p1 : Longint);
-procedure fl_set_fselector_fontstyle (p1 : longint);
-procedure fl_set_fselector_placement(p1 : LongInt); 
-procedure fl_set_fselector_border(p1 : LongInt); 
-
-{
-#define fl_set_fselector_transient(p1 : b)   \
-                     fl_set_fselector_border(p1 : (p1 : b)?FL_TRANSIENT:FL_FULLBORDER)
-}
-
-Type TFSelector_Callback = Function (P1 : Pchar; P2 : Pointer) : Longint; 
-     PFSelector_Callback = ^TFSelector_Callback;
-     TFL_Procedure = Procedure;
-     PFL_Procedure = ^TFL_Procedure;
-
-procedure fl_set_fselector_callback( p1 : PFSelector_Callback; p2 : pointer);
-function fl_get_filename : pchar;
-function fl_get_directory : pchar; 
-function fl_get_pattern : pchar;  
-function fl_set_directory (p1 : pchar ) : LongInt; 
-procedure fl_set_pattern (p1 : pchar);
-procedure fl_refresh_fselector; 
-procedure fl_add_fselector_appbutton(p1 : pchar; p2 : PFL_Procedure; p3 : pointer);
-procedure fl_remove_fselector_appbutton(p1 : pchar);
-procedure fl_disable_fselector_cache(p1 : LongInt); 
-procedure fl_invalidate_fselector_cache; 
-function fl_get_fselector_form : PFL_FORM; 
-function fl_get_fselector_fdstruct  : PFD_FSELECTOR; 
-procedure fl_hide_fselector; 
-
-
-procedure fl_set_fselector_filetype_marker(p1,p2,p3,p4,p5 : Longint);
-
-{
-#define fl_show_file_selector     fl_show_fselector
-#define fl_set_fselector_cb       fl_set_fselector_callback
-#define fl_set_fselector_title(p1 : s) fl_set_form_title(p1 : fl_get_fselector_form(p1 : ); p2 : s)
-}
-
-
-
-{
- * $Id$
- *
- }
-
-
-{**** Types    ****}
-
-Const 
-    FL_NORMAL_INPUT	= 0;
-    FL_FLOAT_INPUT	= 1;
-    FL_INT_INPUT	= 2;
-    FL_DATE_INPUT	= 3;
-    FL_MULTILINE_INPUT	= 4;
-    FL_HIDDEN_INPUT	= 5;
-    FL_SECRET_INPUT	= 6;
-    
-    FL_INPUT_MMDD       = 0;
-    FL_INPUT_DDMM	= 1;
-    
-Type TFL_INPUT_TYPE = Longint;
-
-{**** Defaults ****}
-
-Const
-   FL_INPUT_BOXTYPE		= FL_DOWN_BOX;
-   FL_INPUT_COL1		= FL_COL1;
-   FL_INPUT_COL2		= FL_MCOL;
-   FL_INPUT_LCOL		= FL_LCOL;
-   FL_INPUT_ALIGN		= FL_ALIGN_LEFT;
-
-{**** Others   ****}
-
-   FL_INPUT_TCOL		= FL_LCOL;
-   FL_INPUT_CCOL		= FL_BLUE;
-
-   cFL_RINGBELL             = (1 shl 4);
-
-{**** Routines ****}
-
-function fl_create_input(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6: pchar) : PFL_OBJECT;
-
-function fl_add_input(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar ) : PFL_OBJECT;
-
-procedure fl_set_input(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_set_input_color(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_set_input_return(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_scroll(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_cursorpos(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_set_input_selected(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_selected_range(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_set_input_maxchars(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_format(p1 : PFL_OBJECT; p2,p3 :  Longint {was int});
-procedure fl_set_input_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_xoffset(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_topline(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_input_scrollbarsize(p1 : PFL_OBJECT; p2,p3 :  Longint {was int});
-
-function fl_get_input(p1 : PFL_OBJECT ) : pchar;  
-function fl_get_input_cursorpos(p1 : PFL_OBJECT; p2,p3 : Pointer ) : LongInt;
-function fl_get_input_topline(p1 : PFL_OBJECT;p2,p3 : PLongint) : Longint;
-function fl_get_input_screenlines(p1 : PFL_OBJECT) : Longint;
-function fl_get_input_numberoflines(p1 : PFL_OBJECT) : Longint;
-procedure fl_get_input_format(p1 : PFL_OBJECT;p2,p3 : PLongint);
-
-
-
-type
- TFL_INPUTVALIDATOR = Procedure (p1 : PFL_OBJECT; p2,p3 : pchar; p4 : Longint {was int});
- PFL_INPUTVALIDATOR= ^TFL_INPUTVALIDATOR;
-
-function fl_set_input_filter(p1 : PFL_OBJECT; p2 :  PFL_INPUTVALIDATOR ) : PFL_INPUTVALIDATOR ;
-
-{
-#define fl_set_input_shortcut fl_set_object_shortcut
-#define ringbell(p1 : )  XBell(p1 : fl_display; p2 :  0)
-}
-
-type TFL_EditKeymap = record
-    { basic editing }
-    del_prev_char : Longint;		{ delete previous char    }
-    del_next_char : Longint;		{ delete next char        }
-    del_prev_word : Longint;		{ delete previous word    }
-    del_next_word : Longint;		{ delete next word        }
-
-    { movement }
-    moveto_prev_line : Longint;	{ one line  up             }
-    moveto_next_line : Longint;	{ one line down            }
-    moveto_prev_char : Longint;	{ one char left            }
-    moveto_next_char : Longint;	{ one char right           }
-    moveto_prev_word : Longint;	{ one word left            }
-    moveto_next_word : Longint;	{ one word right           }
-    moveto_prev_page : Longint;	{ one page up              }
-    moveto_next_page : Longint;	{ one page down            }
-    moveto_bol : Longint;		{ move to begining of line }
-    moveto_eol : Longint;		{ move to end of line      }
-    moveto_bof : Longint;		{ move to begin of file    }
-    moveto_eof : Longint;		{ move to end of file      }
-
-    { misc. stuff }
-    transpose : Longint;		{ switch two char positions }
-    paste : Longint;			{ paste the edit buffer    }
-    backspace : Longint;		{ another  del_prev_char   }
-    del_to_bol : Longint;		{ cut to begining of line  }
-    del_to_eol : Longint;		{ cut to end of line       }
-    clear_field : Longint;		{ delete everything        }
-    del_to_eos : Longint;		{ not implemented          }
-    reserverd : array[0..3] of Longint;		{ fillter                  }
-end;
-PFL_EditKeymap = ^TFL_EditKeymap;
-
-procedure fl_set_input_editkeymap(PFL_EditKeymap);
-
-
-
-
-{
- * $Id$
- *
- }
-
-
-{***********   Object Class: Menu         ***********}
-
-Const
-    FL_TOUCH_MENU	= 0;
-    FL_PUSH_MENU	= 1;
-    FL_PULLDOWN_MENU	= 2;
-    
-Type TFL_MENU_TYPE = Longint;
-
-{**** Defaults ****}
-
-Const
-  FL_MENU_BOXTYPE	= FL_BORDER_BOX;
-  FL_MENU_COL1		= FL_COL1;
-  FL_MENU_COL2		= FL_MCOL;
-  FL_MENU_LCOL		= FL_LCOL;
-  FL_MENU_ALIGN		= FL_ALIGN_CENTER;
-
-{**** Others   ****}
-
-  FL_MENU_MAXITEMS	= 128;
-  FL_MENU_MAXSTR	= 64;
-
-{**** Routines ****}
-
-function fl_create_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT;
-
-function fl_add_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT;
-
-procedure fl_clear_menu(p1 : PFL_OBJECT); 
-procedure fl_set_menu(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_addto_menu(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_replace_menu_item(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);
-procedure fl_delete_menu_item(p1 : PFL_OBJECT; p2 :  Longint {was int});
-
-procedure fl_set_menu_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);
-procedure fl_set_menu_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Cardinal);
-procedure fl_show_menu_symbol(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_menu_popup(p1 : PFL_OBJECT; p2 :  Longint {was int});
-
-function fl_get_menu(p1 : PFL_OBJECT ) : Longint ; 
-function fl_get_menu_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar;
-function fl_get_menu_maxitems(p1 : PFL_OBJECT ) : Longint ; 
-function fl_get_menu_item_mode(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Cardinal ;
-function fl_get_menu_text(p1 : PFL_OBJECT ) : pchar;
-
-
-
-{
- *  $Id$
- *
- }
-{
- * $Id$
- *
- *  Prototypes for pop-up menus
- }
-
-
-Const
- FL_MAXPUPI   = 64;	{ max item each pup        }
- FL_PUP_PADH  =  4;	{ space between each items }
-
-type
- TFL_PUP_CB = Procedure  (p1 : Longint);  	{ call back prototype  }
- PFL_PUP_CB = ^TFL_PUP_CB;
-
-function fl_newpup(p1 : TWindow ) : LongInt; 
-
-function fl_defpup(p1 : TWindow; p2 :  pchar) : LongInt;
-function fl_addtopup(p1 : longint; p2 :  pchar) : LongInt;
-
-function fl_setpup_mode(p1 : Longint; p2 : Longint {was int}; p3 : Cardinal) : Longint;
-procedure fl_freepup(p1 : Longint); 
-function fl_dopup(p1 : Longint ) : LongInt; 
-
-procedure fl_setpup_shortcut(p1 : Longint; p2 : Longint {was int}; p3 :pchar);
-procedure fl_setpup_position(p1 : Longint; p2 :  Longint {was int});
-procedure fl_setpup_selection(p1 : Longint; p2 :  Longint {was int});
-function fl_setpup_fontsize(p1 : LongInt) : Longint; 
-function fl_setpup_fontstyle(p1 : LongInt) : Longint;  
-procedure fl_setpup_shadow(p1 : LongInt; p2 :  Longint {was LongInt});
-procedure fl_setpup_softedge(p1 : LongInt; p2 :  Longint {was int});
-procedure fl_setpup_color(p1 : TFL_COLOR; p2 :  TFL_COLOR);
-procedure fl_setpup_checkcolor(p1 : TFL_COLOR); 
-procedure fl_setpup_title(p1 : LongInt; p2 :  pchar);
-procedure fl_setpup_bw(p1 : LongInt; p2 :  Longint {was int});
-procedure fl_setpup_pad(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int});
-function fl_setpup_cursor(p1 : LongInt; p2 :  Longint {was int} ) : TCursor ;
-function fl_setpup_default_cursor(p1 : LongInt ) : TCursor ; 
-function fl_setpup_maxpup(p1 : LongInt ) : LongInt; 
-function fl_getpup_mode(p1 : LongInt; p2 :  Longint {was int} ) : Cardinal;
-function fl_getpup_text(p1 : LongInt; p2 :  Longint {was int} ) : pchar;
-procedure fl_showpup(p1 : LongInt); 
-procedure fl_hidepup(p1 : LongInt);
-
-{
-#define fl_setpup_hotkey    fl_setpup_shortcut
-}
-
-function fl_setpup_itemcb(p1 : LongInt; p2 : Longint {was int}; p3 :PFL_PUP_CB ) : PFL_PUP_CB ;
-function fl_setpup_menucb(p1 : LongInt; p2 :  PFL_PUP_CB ) : PFL_PUP_CB ;
-procedure fl_setpup_submenu(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int});
-
-{
-#define fl_setpup    fl_setpup_mode
-}
-
-
-
-{
- * $Id$
- *
- }
-
-Const
- FL_NORMAL_POSITIONER	= 0;
-
-{**** Defaults ****}
-
- FL_POSITIONER_BOXTYPE	= FL_DOWN_BOX;
- FL_POSITIONER_COL1	= FL_COL1;
- FL_POSITIONER_COL2	= FL_RED;
- FL_POSITIONER_LCOL	= FL_LCOL;
- FL_POSITIONER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
-
-{**** Routines ****}
-
-function fl_create_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-function fl_add_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-
-procedure fl_set_positioner_xvalue(p1 : PFL_OBJECT; p2 :  double);
-function fl_get_positioner_xvalue(p1 : PFL_OBJECT ) : double ;
-procedure fl_set_positioner_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_get_positioner_xbounds(p1 : PFL_OBJECT; p2 : pdouble ; p3 : pdouble);
-procedure fl_set_positioner_yvalue(p1 : PFL_OBJECT; p2 :  double);
-function fl_get_positioner_yvalue(p1 : PFL_OBJECT ) : double ;
-procedure fl_set_positioner_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_get_positioner_ybounds(p1 : PFL_OBJECT; p2 ,p3 :pdouble);
-procedure fl_set_positioner_xstep(p1 : PFL_OBJECT; p2 :  double);
-procedure fl_set_positioner_ystep(p1 : PFL_OBJECT; p2 :  double);
-procedure fl_set_positioner_return(p1 : PFL_OBJECT; p2 :  Longint {was int});
-
-
-{
- * $Id$
- *
- * Object Class: Slider
- *
- }
-
-
-Const
-    FL_VERT_SLIDER	= 0;
-    FL_HOR_SLIDER	= 1;
-    FL_VERT_FILL_SLIDER	= 2;
-    FL_HOR_FILL_SLIDER	= 3;
-    FL_VERT_NICE_SLIDER	= 4;
-    FL_HOR_NICE_SLIDER	= 5;
-    FL_HOR_BROWSER_SLIDER = 6;
-    FL_VERT_BROWSER_SLIDER = 7;
-    FL_HOR_BROWSER_SLIDER2	= 8;	{ for Longint {was int}ernal use only }
-    FL_VERT_BROWSER_SLIDER2	= 9;	{ for Longint {was int}ernal use only }
-
-Type
- TFL_SLIDER_TYPE = Longint;
- PFL_SLIDER_TYPE = ^TFL_SLIDER_TYPE; 
-
-
-{**** Defaults ****}
-Const
-  FL_SLIDER_BW1         = FL_BOUND_WIDTH;
-  FL_SLIDER_BW2         = FL_BOUND_WIDTH-1;
-
-  FL_SLIDER_BOXTYPE	= FL_DOWN_BOX;
-  FL_SLIDER_COL1	= FL_COL1;
-  FL_SLIDER_COL2	= FL_COL1;
-  FL_SLIDER_LCOL	= FL_LCOL;
-  FL_SLIDER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
-  FL_SLIDER_FINE		= 0.05;
-  FL_SLIDER_WIDTH		= 0.10;
-
-
-{**** Routines ****}
-
-function fl_create_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT;
-function fl_add_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT;
-
-function fl_create_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar): PFL_OBJECT;
-function fl_add_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;P6: pchar) : PFL_OBJECT;
-
-procedure fl_set_slider_value(p1 : PFL_OBJECT; p2 :  double);
-function fl_get_slider_value(p1 : PFL_OBJECT ) : double ; 
-procedure fl_set_slider_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_get_slider_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble);
-
-procedure fl_set_slider_return(p1 : PFL_OBJECT; p2 :  Longint {was int});
-
-procedure fl_set_slider_step(p1 : PFL_OBJECT; p2 :  double);
-procedure fl_set_slider_increment(p1 : PFL_OBJECT; p2,p3 :  double);
-procedure fl_set_slider_size(p1 : PFL_OBJECT; p2 :  double);
-procedure fl_set_slider_precision(p1 : PFL_OBJECT; p2 :  Longint {was int});
-
-Type
-  TFL_SLIDER_FILTER = procedure (p1 : PFL_OBJECT; p2 : double; p3 :Longint {was int});
-  PTFL_SLIDER_FILTER= ^TFL_SLIDER_FILTER  ;
-  
-procedure fl_set_slider_filter(p1 : PFL_OBJECT; p2 : PTFL_SLIDER_FILTER);
-
-
-{
- * $Id$
- *
- }
-
-Const
-    FL_NORMAL_TEXT = 0;
-
- FL_TEXT_BOXTYPE    = FL_FLAT_BOX;
- FL_TEXT_COL1       = FL_COL1;
- FL_TEXT_COL2       = FL_MCOL;
- FL_TEXT_LCOL       = FL_LCOL;
- FL_TEXT_ALIGN      = FL_ALIGN_LEFT;
-
-function fl_create_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;
-function fl_add_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT;
-
-
-
-{
- * $Id$
- *
- *  Object Class: Timer
- *
- }
-
-
-Const 
-    FL_NORMAL_TIMER = 0;
-    FL_VALUE_TIMER  = 1;
-    FL_HIDDEN_TIMER = 2;
-    
-Type TFL_TIMER_TYPE = Longint;
-
-{**** Defaults ****}
-Const
-
-FL_TIMER_BOXTYPE	= FL_DOWN_BOX;
-FL_TIMER_COL1		= FL_COL1;
-FL_TIMER_COL2		= FL_RED;
-FL_TIMER_LCOL		= FL_LCOL;
-FL_TIMER_ALIGN		= FL_ALIGN_CENTER;
-
-{**** Others   ****}
-
-  FL_TIMER_BLINKRATE	= 0.2;
-  
-Type TFL_TIMER_FILTER = Function (P1 : PFL_OBJECT;p2 : double) : pchar;
-     PFL_TIMER_FILTER = ^TFL_TIMER_FILTER;  
-
-{**** Routines ****}
-
-function fl_create_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;
-
-function fl_add_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT;
-
-procedure fl_set_timer(p1 : PFL_OBJECT; p2 :  double);
-function fl_get_timer(p1 : PFL_OBJECT ) : double ; 
-procedure fl_set_timer_countup(p1 : PFL_OBJECT; p2 :  Longint);
-function fl_set_timer_filter (p1 : PFL_OBJECT; p2 : PFL_TIMER_FILTER) : PFL_TIMER_FILTER;
-procedure fl_suspend_timer(p1 : PFL_OBJECT);
-procedure fl_resume_timer(p1 : PFL_OBJECT);
-
-{
- * $Id$
- *
- }
-
-
-{
- * Class FL_XYPLOT
- }
-
-Const
-    FL_NORMAL_XYPLOT	= 0;		{ solid line                        }
-    FL_SQUARE_XYPLOT	= 1;		{ with added square                 }
-    FL_CIRCLE_XYPLOT	= 2;		{ with added circle                 }
-    FL_FILL_XYPLOT	= 3;		{ fill completely                   }
-    FL_POINTS_XYPLOT	= 4;		{ only data points                  }
-    FL_DASHED_XYPLOT	= 5;		{ dashed line                       }
-    FL_IMPULSE_XYPLOT	= 6;
-    FL_ACTIVE_XYPLOT	= 7;		{ accepts Longint {was int}eractive manipulations }
-    FL_EMPTY_XYPLOT	= 8;
-Type 
-    TFL_XYPLOT_TYPE = Longint;
-
-Const
-    FL_LINEAR = 0;
-    FL_LOG    = 1;
-
-Const
-    FL_GRID_NONE  = 0;
-    FL_GRID_MAJOR = 1;
-    FL_GRID_MINOR = 2;
- 
-{**** Defaults ****}
-
- FL_XYPLOT_BOXTYPE       = FL_FLAT_BOX;
- FL_XYPLOT_COL1          = FL_COL1;
- FL_XYPLOT_LCOL          = FL_LCOL;
- FL_XYPLOT_ALIGN         = FL_ALIGN_BOTTOM;
- FL_MAX_XYPLOTOVERLAY    = 32;
-
-{**** Others   ****}
-
-function fl_create_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6: pchar) : PFL_OBJECT;
-function fl_add_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar ) : PFL_OBJECT;
-procedure fl_set_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : Longint {was int}; p5,p6,p7 : pchar);
-procedure fl_set_xyplot_file(p1 : PFL_OBJECT; p2,p3,p4,p5 :pchar);
-
-procedure fl_set_xyplot_return(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_xyplot_xtics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_set_xyplot_ytics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});
-procedure fl_set_xyplot_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-procedure fl_set_xyplot_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double);
-function  fl_set_xyplot_maxoverlays(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Longint ;
-procedure fl_set_xyplot_overlay_type(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int});
-procedure fl_set_xyplot_interpolate(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : double);
-procedure fl_set_xyplot_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_xyplot_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_xyplot_inspect(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_xyplot_symbolsize(p1 : PFL_OBJECT; p2 :  Longint {was int});
-procedure fl_set_xyplot_xscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double);
-procedure fl_set_xyplot_yscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double);
-
-procedure fl_set_xyplot_linewidth(p1 : PFL_OBJECT; p2,p3 : Longint);
-procedure fl_set_xyplot_xgrid(p1 : PFL_OBJECT; p2 : Longint);
-procedure fl_set_xyplot_ygrid(p1 : PFL_OBJECT; p2 : Longint);
-procedure fl_set_xyplot_alphaxtics(p1 : PFL_OBJECT; p2,p3 : pchar);
-procedure fl_set_xyplot_alphaytics(p1 : PFL_OBJECT; p2,p3 : pchar);
-procedure fl_set_xyplot_fixed_xaxis(p1 : PFL_OBJECT; p2,p3 : pchar);
-procedure fl_set_xyplot_fixed_yaxis(p1 : PFL_OBJECT; p2,p3 : pchar);
-
-
-procedure fl_get_xyplot_xbounds(p1 : PFL_OBJECT; p2,p3 : pfloat );
-procedure fl_get_xyplot_ybounds(p1 : PFL_OBJECT; p2,p3 : pfloat );
-procedure fl_get_xyplot(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer);
-procedure fl_get_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer);
-procedure fl_get_xyplot_xmapping(p1 : PFL_OBJECT; p2,p3 : pfloat);
-procedure fl_get_xyplot_ymapping(p1 : PFL_OBJECT; p2,p3 : pfloat);
-
-{
-#define fl_set_xyplot_datafile fl_set_xyplot_file
-}
-procedure fl_add_xyplot_text(p1 : PFL_OBJECT; p2,p3 : double; p4 : pchar;p5 : Longint {was int}; p6 :TFL_COLOR);
-procedure fl_add_xyplot_overlay(p1 : PFL_OBJECT; p2 : Longint {was int}; p3,p4 : pfloat; p5 : Longint {was int}; p6 :TFL_COLOR);
-procedure fl_delete_xyplot_text(p1 : PFL_OBJECT; p2 :  pchar);
-procedure fl_delete_xyplot_overlay(p1 : PFL_OBJECT; p2 :  Longint {was int});
-
-procedure fl_replace_xyplot_point(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : double);
-function  fl_interpolate(p1,p2 : pfloat; p3 :Longint {was int};p4,p5 : pfloat; p6 : double; p7 : Longint {was int}) : Longint;
-procedure fl_xyplot_s2w(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat);
-procedure fl_xyplot_w2s(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat);
-
-implementation
-
-procedure fl_add_io_callback(p1 : Longint {was int} ; p2 : word; p3 : PFL_IO_CALLBACK; p4 : pointer); [ C ];
-procedure fl_remove_io_callback(p1 : Longint {was int};p2 :  word; p3 : PFL_IO_CALLBACK); [ C ];
-procedure fl_add_signal_callback(p1 : Longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer); [ C ];
-procedure fl_remove_signal_callback(p1 : Longint {was int}); [ C ];
-procedure fl_signal_caught(p1 :Longint {was int}); [ C ];
-procedure fl_app_signal_direct(p1 : Longint {was int}); [ C ];
-function fl_add_timeout (p1 : longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer) : longint;[ C ];
-procedure fl_remove_timeout(p1 : Longint);[ C ];
-
-function fl_get_vn_value (p1 : PFL_VN_PAIR; p2 : pchar) : Longint; [ C ];
-function fl_get_vn_name (p1 : PFL_VN_PAIR; p2 : Longint {was int}) : Pchar; [ C ];
-function fl_msleep (p1 : cardinal) : cardinal; [ C ];
-procedure fl_library_version(p1,p2 : pointer ); [ C ];
-function fl_bgn_form(P1 : Longint {was int}; P2,p3 : TFL_Coord) : PFL_Form; [ C ];
-Procedure fl_end_form; [ C ];
-function fl_do_forms : PFL_OBJECT ; [ C ];
-function fl_check_forms : PFL_OBJECT; [ C ];
-Function fl_do_only_forms : PFL_OBJECT; [ C ];
-function fl_check_only_forms : PFL_OBJECT; [ C ];
-procedure fl_freeze_form(P1 : PFL_FORM); [ C ];
-procedure fl_set_focus_object( P1 : PFL_FORM;p2 : PFL_OBJECT); [ C ];
-procedure fl_reset_focus_object( p1 : PFL_OBJECT);[ C ];
-
-Function fl_set_form_atclose(p1 : PFL_FORM; p2 : PFL_FORM_ATCLOSE; p3 : pointer) : PFL_FORM_ATCLOSE ; [ C ];
-Function fl_set_atclose(p1 : PFL_FORM_ATCLOSE; p2:  pointer) : PFL_FORM_ATCLOSE ; [ C ];
-Function fl_set_form_atactivate(p1 : PFL_FORM; P2 : PFL_FORM_ATACTIVATE; P3 : pointer) : PFL_FORM_ATACTIVATE ; [ C ];
-Function fl_set_form_atdeactivate(p1 : PFL_FORM;p2 : PFL_FORM_ATDEACTIVATE;p3 : pointer) : PFL_FORM_ATDEACTIVATE ; [ C ];
-Procedure fl_unfreeze_form (p1 : PFL_FORM); [ C ];
-Procedure fl_deactivate_form(p1 : PFL_FORM); [ C ];
-Procedure fl_activate_form(p1 : PFL_FORM); [ C ];
-Procedure fl_deactivate_all_forms; [ C ];
-Procedure fl_activate_all_forms; [ C ];
-Procedure fl_freeze_all_forms; [ C ];
-Procedure fl_unfreeze_all_forms; [ C ];
-Procedure fl_scale_form(p1 : PFL_FORM;p2,p3 : double); [ C ];
-Procedure fl_set_form_position(p1 : PFL_FORM; p2,p3 : TFL_Coord); [ C ];
-Procedure fl_set_form_title(p1 : PFL_FORM; p2 : pchar); [ C ];
-procedure fl_set_form_property(p1 : PFL_FORM; p2 : word); [ C ];
-procedure fl_set_app_mainform( p1 : PFL_FORM); [ C ];
-function fl_get_app_mainform : PFL_FORM; [ C ];
-procedure fl_set_app_nomainform(P1 : Longint {was int}); [ C ];
-procedure fl_set_form_callback(p1 : PFL_FORM; P2 : PFL_FORMCALLBACKPTR; P3 : pointer); [ C ];
-procedure fl_set_form_size(p1 : PFL_FORM; p2,p3 : TFL_Coord); [ C ];
-procedure fl_set_form_hotspot(p1 : PFL_FORM; p2,p3 : TFL_Coord); [ C ];
-procedure fl_set_form_hotobject(p1 : PFL_FORM; p2 : PFL_OBJECT); [ C ];
-procedure fl_set_form_minsize(p1 : PFL_FORM ; p2,p3 :TFL_Coord); [ C ];
-procedure fl_set_form_maxsize(p1 : PFL_FORM; p2,p3 :TFL_Coord); [ C ];
-procedure fl_set_form_event_cmask(p1 : PFL_FORM; p2 : cardinal); [ C ];
-function fl_get_form_event_cmask(p1 : PFL_FORM) : cardinal; [ C ];
-procedure fl_set_form_geometry(p1 : PFL_FORM; p2,p3,p4,p5 : TFL_Coord); [ C ];
-function fl_show_form (p1 : PFL_FORM; p2,p3 : Longint {was int}; p4 : pchar) : longint; [ C ];
-procedure fl_hide_form(p1 : PFL_FORM); [ C ];
-procedure fl_free_form(p1 : PFL_FORM); [ C ];
-procedure fl_redraw_form(p1 : PFL_FORM); [ C ];
-procedure fl_set_form_dblbuffer(p1 : PFL_FORM; p2 : Longint {was int}); [ C ];
-procedure fl_prepare_form_window(p1 : PFL_FORM; p2,p3 :  Longint {was int}; p4 : pchar); [ C ];
-procedure fl_show_form_window(p1 : PFL_FORM); [ C ];
-function fl_adjust_form_size(p1 : PFL_FORM) : double; [ C ];
-function fl_form_is_visibe (p1 : PFL_FORM) : Longint; [ C ];
-
-function  fl_register_raw_callback(p1 : PFL_FORM; p2 : cardinal; P3 : PFL_RAW_CALLBACK): PFL_RAW_CALLBACK; [ C ];
-function fl_bgn_group : PFL_OBJECT; [ C ];
-function fl_end_group : PFL_OBJECT; [ C ];
-procedure fl_addto_group (p1 : PFL_OBJECT); [ C ];
-procedure fl_set_object_boxtype(p1 : PFL_OBJECT; p2 : Longint {was int}); [ C ];
-procedure fl_set_object_bw(p1 : PFL_OBJECT; p2 : Longint {was int}); [ C ];
-procedure fl_set_object_resize(p1 : PFL_OBJECT; p2 : word); [ C ];
-procedure fl_set_object_gravity(p1 : PFL_OBJECT; p2,p3 : word ); [ C ];
-procedure fl_set_object_lsize(p1 : PFL_OBJECT; p2 : Longint {was int}); [ C ];
-procedure fl_set_object_lstyle(p1 : PFL_OBJECT; p2 : Longint {was int}); [ C ];
-procedure fl_set_object_lcol(p1 : PFL_OBJECT; p2 : TFL_COLOR); [ C ];
-procedure fl_set_object_return(p1 : PFL_OBJECT; p2 : Longint {was int}); [ C ];
-procedure fl_set_object_lalign(p1 : PFL_OBJECT; p2 : Longint {was int}); [ C ];
-procedure fl_set_object_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int}); [ C ];
-procedure fl_set_object_shortcutkey(p1 : PFL_OBJECT; p2 :  word); [ C ];
-procedure fl_set_object_dblbuffer(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_object_color(p1 : PFL_OBJECT; p2 : TFL_COLOR;p3 : TFL_COLOR); [ C ];
-procedure fl_set_object_label(p1 : PFL_OBJECT; p2 :  pchar); [ C ];
-procedure fl_set_object_position(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); [ C ];
-procedure fl_set_object_size(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); [ C ];
-procedure fl_set_object_automatic(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_draw_object_label(p1 : PFL_OBJECT); [ C ];
-procedure fl_draw_object_label_outside(p1 : PFL_OBJECT); [ C ];
-
- procedure fl_set_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 :TFL_Coord); [ C ];
-procedure fl_fit_object_label(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); [ C ];
-procedure fl_get_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord ); [ C ];
-procedure fl_get_object_position(p1 : PFL_OBJECT; p2,p3 :PFL_COORD); [ C ];
-procedure fl_get_object_bbox(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD); [ C ];
-procedure fl_call_object_callback(p1 : PFL_OBJECT); [ C ];
-function fl_set_object_prehandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR) : PFL_HANDLEPTR ; [ C ];
-function fl_set_object_posthandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR): PFL_HANDLEPTR ; [ C ];
-function fl_set_object_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint) : PFL_CALLBACKPTR ; [ C ];
-procedure fl_redraw_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_scale_object(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_show_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_hide_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_free_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_delete_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_trigger_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_activate_object(p1 : PFL_OBJECT); [ C ];
-procedure fl_deactivate_object(p1 : PFL_OBJECT); [ C ];
-function fl_set_font_name(p1 : Longint {was int}; p2 :  pchar) : longint; [ C ];
-procedure fl_set_font(p1 : Longint {was int}; p2 :  Longint {was int}); [ C ];
-function fl_get_char_height(p1,p2 : Longint {was int}; p3,p4 : pointer) : Longint {was int}; [ C ];
-function fl_get_char_width(p1,p2 :  Longint {was int}) : Longint; [ C ];
-function fl_get_string_height(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int}; [ C ];
-function fl_get_string_width(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int}; [ C ];
-function fl_get_string_widthTAB(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int}; [ C ];
-function fl_get_string_dimension(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int}; [ C ];
-procedure fl_get_align_xy(p1,p2,p3,p4,p5,p6,p7,p8,p9 : Longint {was int}; p10,p11 : pointer); [ C ];
-procedure fl_drw_text(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar); [ C ];
-procedure fl_drw_text_beside(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar); [ C ];
-procedure fl_drw_text_cursor(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7,p8: Longint {was int}; p9 : Pchar; p10,p11: Longint {was int}); [ C ];
-procedure fl_drw_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7 : Longint {was int}); [ C ];
-function fl_add_symbol(p1 : pchar; p2 : PFL_DRAWPTR; p3 :Longint {was int}) : Longint {was int}; [ C ];
-function fl_draw_symbol(p1 : pchar; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR) : Longint {was int}; [ C ];
-procedure fl_drw_slider (p1 :longint; p2,p3,P4,p5 : TFL_COORD; p6,p7 : TFL_COLOR;
-                         p8 : Longint; p9,p10 : double; P11 : pchar; p12,p13,p14 : Longint); [ C ];
-
-function fl_mapcolor(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}) : cardinal; [ C ];
-function fl_mapcolorname(p1 : TFL_COLOR; p2 :  pchar) : longint; [ C ];
-function fl_getmcolor(p1 : TFL_COLOR; p2,p3,p4 : pointer) : cardinal; [ C ];
-procedure fl_free_colors(p1 : PFL_COLOR; p2 :  Longint {was int}); [ C ];
-procedure fl_free_pixels(p1 : pcardinal; p2 :  Longint {was int}); [ C ];
-procedure fl_set_color_leak(p1 : Longint {was int}); [ C ];
-function fl_get_pixel(p1 : TFL_COLOR): cardinal; [ C ];
-procedure fl_get_icm_color(p1 : TFL_COLOR; p2,p3,p4 : pointer); [ C ];
-procedure fl_set_icm_color(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}); [ C ];
-procedure fl_color(p1 : TFL_COLOR); [ C ];
-procedure fl_bk_color(p1 : TFL_COLOR); [ C ];
-procedure fl_textcolor(p1 : TFL_COLOR); [ C ];
-procedure fl_bk_textcolor(p1 : TFL_COLOR); [ C ];
-procedure fl_set_gamma(p1,p2,p3 :double); [ C ];
-procedure fl_show_errors(p1 : Longint {was int}); [ C ];
-procedure fl_add_object(p1 : PFL_FORM; p2 : PFL_OBJECT); [ C ];
-procedure fl_addto_form(p1 : PFL_FORM); [ C ];
-function fl_make_object(p1 : Longint {was int}; p2,p3,p4,p5,p6 : TFL_Coord; p7 : pchar; P8 : PFL_HANDLEPTR) : PFL_OBJECT; [ C ];
-procedure fl_set_coordunit(p1 : Longint {was int}); [ C ];
-function fl_get_coordunit : Longint {was int}; [ C ];
-procedure fl_set_border_width(p1 : Longint {was int}); [ C ];
-function fl_get_border_width : Longint {was int}; [ C ];
-procedure fl_flip_yorigin; [ C ];
-procedure fl_ringbell ( p1 : longint);[ C ];
-procedure fl_gettime (p1,p2 : Plongint);[ C ];
-function fl_mouse_button : longint; [ C ];
-
-procedure fl_rectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); [ C ];
-procedure fl_rectbound(p1,p2,p3,p4 : TFL_Coord;p5 : TFL_COLOR); [ C ];
-procedure fl_roundrectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); [ C ];
-procedure fl_polygon(p1 : Longint {was int}; p2 : PFL_POINT; p3 : Longint {was int}; p4 : TFL_COLOR); [ C ];
-procedure fl_lines(p1 : TFL_POINT; p2 : Longint {was int}; p3 :TFL_COLOR); [ C ];
-procedure fl_line(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); [ C ];
-procedure fl_dashedlinestyle(p1 : pchar; p2 :  Longint {was int}); [ C ];
-procedure fl_drawmode(p1 : Longint {was int}); [ C ];
-procedure fl_linewidth(p1 : Longint {was int}); [ C ];
-procedure fl_linestyle(p1 : Longint {was int}); [ C ];
-function fl_get_linewidth : longint; [ C ];
-function fl_get_linestyle : longint; [ C ];
-
-procedure fl_oval(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); [ C ];
-procedure fl_ovalbound(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); [ C ];
-procedure fl_ovalarc(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6,p7 : Longint; p8 : TFL_COLOR);[ C ];
-
-procedure fl_pieslice(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7 :Longint {was int}; p8 : TFL_COLOR); [ C ];
-procedure fl_add_vertex(p1,p2 :  TFL_Coord); [ C ];
-procedure fl_add_float_vertex(p1,p2 :  real); [ C ];
-procedure fl_reset_vertex; [ C ];
-procedure fl_endline; [ C ];
-procedure fl_endpolygon; [ C ];
-procedure fl_endclosedline; [ C ];
-procedure fl_drw_frame(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR; p7 : Longint {was int}); [ C ];
-procedure fl_drw_checkbox(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR;p7 : Longint {was int}); [ C ];
-function fl_get_fontstruct(p1,p2 :  Longint {was int}) : PXFontStruct; [ C ];
-function fl_get_mouse(p1,p2 : PFL_COORD; p3 : pword) : TWindow; [ C ];
-procedure fl_set_mouse(p1,p2 :  TFL_Coord); [ C ];
-function fl_get_win_mouse(p1 : TWindow; p2,p3 : PFL_COORD; p4 : pword) : TWindow; [ C ];
-function fl_get_form_mouse(p1 : PFL_FORM; p2,p3 : PFL_COORD; p4 : pWord) : TWindow; [ C ];
-function fl_win_to_form(p1 : TWindow) : PFL_form; [ C ];
- procedure fl_set_form_icon(p1 : PFL_FORM; p2 : TPixmap; p3 :TPixmap); [ C ];
-function fl_wincreate(p1 : pchar) : TWindow; [ C ];
- function fl_winshow(p1 : TWindow) : TWindow; [ C ];
- function fl_winopen(p1 : pchar) : TWindow; [ C ];
- procedure fl_winhide(p1 : TWindow); [ C ];
- procedure fl_winclose(p1 : TWindow); [ C ];
- procedure fl_winset(p1 : TWindow); [ C ];
- function fl_winget : Twindow; [ C ];
- procedure fl_winresize(p1 : TWindow; p2,p3 :TFL_Coord); [ C ];
-procedure fl_winmove(p1 : TWindow; p2,p3 :TFL_Coord); [ C ];
-procedure fl_winreshape(p1 : TWindow; p2,p3,p4,p5 : TFL_Coord); [ C ];
-procedure fl_winicon(p1 : TWindow; p2 : TPixmap; p3 :TPixmap); [ C ];
-procedure fl_winbackground(p1 : TWindow; p2 :  cardinal); [ C ];
-procedure fl_winstepunit(p1 : TWindow; p2,p3 :TFL_Coord); [ C ];
-procedure fl_winisvalid(p1 : TWindow); [ C ];
- procedure fl_wintitle(p1 : TWindow; p2 :  pchar); [ C ];
-procedure fl_winposition(p1,p2 :  TFL_Coord); [ C ];
-procedure fl_winminsize(p1 : TWindow; p2,p3 :TFL_Coord); [ C ];
-procedure fl_winmaxsize(p1 : TWindow; p2,p3 :TFL_Coord); [ C ];
-procedure fl_winaspect(p1 : TWindow; p2,p3 :TFL_Coord); [ C ];
-procedure fl_reset_winconstraints(p1 : TWindow); [ C ];
- procedure fl_winsize(p1,p2 :  TFL_Coord); [ C ];
-procedure fl_initial_winsize(p1,p2 :  TFL_Coord); [ C ];
-procedure fl_initial_winstate(p1 : Longint {was int}); [ C ];
- function fl_create_colormap(p1 : PXVisualInfo; p2 :  Longint {was int}) : TColormap; [ C ];
-procedure fl_wingeometry(p1,p2,p3,p4 : TFL_Coord); [ C ];
-procedure fl_initial_wingeometry(p1,p2,p3,p4 : TFL_Coord); [ C ];
-procedure fl_get_winsize(p1 : TWindow; p2,p3 :PFL_COORD); [ C ];
-procedure fl_get_winorigin(p1 : TWindow; p2,p3 :PFL_COORD); [ C ];
-procedure fl_get_wingeometry(p1 : TWindow; p2,p3,p4,p5 : PFL_COORD); [ C ];
-function fl_XNextEvent(p1 : PXEvent) : Longint; [ C ];
-function fl_XPeekEvent(p1 : PXEvent) : Longint; [ C ];
-function fl_XEventsQueued(p1 : Longint {was int}) : Longint; [ C ];
-procedure fl_XPutBackEvent(p1 : PXEvent); [ C ];
-function fl_last_event : PXEvent ; [ C ];
-function fl_set_event_callback(p1 : PFL_APPEVENT_CB; p2 : pointer) : PFL_APPEVENT_CB ; [ C ];
-function fl_set_idle_callback(p1 : PFL_APPEVENT_CB; p2 :  pointer) : PFL_APPEVENT_CB ; [ C ];
-function fl_addto_selected_xevent(p1 : TWindow; p2 :  longint) : Cardinal; [ C ];
-function fl_remove_selected_xevent(p1 : TWindow; p2 :  longint) : cardinal; [ C ];
-function fl_add_event_callback(p1 : TWindow; p2 :  Longint {was int}; p3 : PFL_APPEVENT_CB; p4 : pointer) : PFL_APPEVENT_CB ; [ C ];
-procedure fl_remove_event_callback(p1 : TWindow; p2 :  Longint {was int}); [ C ];
-procedure fl_activate_event_callbacks(p1 : TWindow); [ C ];
-function fl_print_xevent_name(p1 : pchar; p2 : PXEvent) : PXEvent; [ C ];
-function fl_initialize(p1 : pointer; p2 : ppchar; p3 : pchar; p4 : PFL_CMD_OPT; p5 : Longint {was int}) : Pdisplay; [ C ];
-procedure fl_finish; [ C ];
-
-function fl_get_resource(p1 : pchar; p2 :  pchar; p3 : TFL_RTYPE; p4 : pchar; p5 : pointer; p6 :Longint {was int}) : pchar;[ C ];
-procedure fl_set_resource(p1 : pchar; p2 :  pchar);[ C ];
-procedure fl_get_app_resources(p1 : PFL_resource; p2 : Longint {was int});[ C ];
-procedure fl_set_graphics_mode(p1 : Longint {was int}; p2 :  Longint {was int});[ C ];
-procedure fl_set_visualID(p1 : longint);  [ C ];
-function fl_keysym_pressed(p1 : TKeySym) : Longint; [ C ];
-procedure fl_set_defaults(p1 : cardinal; p2 :  PFL_IOPT);[ C ];
-procedure fl_set_tabstop(p1 : pchar); [ C ];
-procedure fl_get_defaults(p1 : PFL_IOPT); [ C ];
-function fl_get_visual_depth : Longint; [ C ];
-function fl_vclass_name(p1 : Longint {was int}) : pchar; [ C ];
-function fl_vclass_val(p1 : pchar) : Longint {was int}; [ C ];
-procedure fl_set_ul_property(p1 : Longint {was int}; p2 :  Longint {was int});[ C ];
-procedure fl_set_clipping(p1 : TFL_Coord; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord);[ C ];
-procedure fl_set_gc_clipping(p1 : TGC; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord);[ C ];
-procedure fl_unset_gc_clipping(p1 : TGC); [ C ];
-procedure fl_set_clippings(p1 : PXRectangle; p2 :  Longint {was int});[ C ];
-procedure fl_unset_clipping; [ C ];
-function fl_textgc : TGC;[ C ];
-function fl_create_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_add_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;[ C ];
-procedure fl_set_bitmap_data(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : pointer);[ C ];
-procedure fl_set_bitmap_file(p1 : PFL_OBJECT; p2 :  pchar);[ C ];
-function fl_read_bitmapfile(p1 : TWindow; p2 :  pchar; p3,p4 : pword; p5,p6 : pointer) : TPixmap ;[ C ];
-function fl_create_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6  :pchar) : PFL_OBJECT;[ C ];
-function fl_add_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-procedure fl_set_pixmap_data(p1 : PFL_OBJECT; p2 :  ppchar);[ C ];
-procedure fl_set_pixmap_file(p1 : PFL_OBJECT; p2 :  pchar);[ C ];
-procedure fl_set_pixmap_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int});[ C ];
-procedure fl_set_pixmap_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap);[ C ];
-procedure fl_set_pixmap_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int});[ C ];
-procedure fl_free_pixmap_pixmap(p1 : PFL_OBJECT); [ C ];
-function fl_get_pixmap_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ;[ C ];
-function fl_read_pixmapfile(p1 : TWindow; p2 :  pchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR)  : TPixmap ;[ C ];
-function fl_create_from_pixmapdata(p1 : TWindow; p2 :  ppchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR) : TPixmap ;[ C ];
-function fl_create_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_add_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_create_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_add_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6:  pchar) : PFL_OBJECT;[ C ];
-procedure fl_clear_browser(p1 : PFL_OBJECT);[ C ];
-procedure fl_add_browser_line(p1 : PFL_OBJECT; p2 :  pchar);[ C ];
-procedure fl_addto_browser(p1 : PFL_OBJECT; p2 :  pchar);[ C ];
-procedure fl_addto_browserchars(p1 : PFL_OBJECT; p2 :  pchar);[ C ];
-
-procedure fl_insert_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);[ C ];
-procedure fl_delete_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_replace_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);[ C ];
-function fl_get_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar;[ C ];
-function fl_load_browser(p1 : PFL_OBJECT; p2 :  pchar ) : Longint ;[ C ];
-procedure fl_select_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_deselect_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_deselect_browser(p1 : PFL_OBJECT); [ C ];
-function fl_isselected_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Longint ;[ C ];
-function fl_get_browser_topline(p1 : PFL_OBJECT ) : Longint ; [ C ];
-function fl_get_browser(p1 : PFL_OBJECT ) : Longint ;[ C ];
-function fl_get_browser_maxline(p1 : PFL_OBJECT ) : Longint ; [ C ];
-function fl_get_browser_screenlines(p1 : PFL_OBJECT ) : Longint ;[ C ];
-procedure fl_set_browser_topline(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_browser_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_browser_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_browser_specialkey(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_browser_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_browser_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-
-procedure fl_set_browser_leftslider(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_browser_line_selectable(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});[ C ];
-procedure fl_get_browser_dimension(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD);[ C ];
-procedure fl_set_browser_dblclick_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint);[ C ];
-procedure fl_set_browser_xoffset(p1 : PFL_OBJECT; p2 :  TFL_Coord);[ C ];
-procedure fl_set_browser_scrollbarsize (p1 : PFL_OBJECT;p2,p3 : longint);[ C ];
-
-
-function fl_create_button(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_create_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_create_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-
-function fl_create_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_create_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_create_bitmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-function fl_create_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT;[ C ];
-function fl_add_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;[ C ];
-function fl_add_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;[ C ];
-function fl_add_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;[ C ];
-function fl_add_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;[ C ];
-function fl_add_button(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;[ C ];
-procedure fl_set_bitmapbutton_data (p1 : PFL_OBJECT; p2,p3 : Longint {was int};   p4 : pchar);[ C ];
-procedure fl_set_bitmapbutton_file (p1 : PFL_OBJECT; p2: pchar);[ C ];
-function  fl_add_bitmapbutton (p1 : longint; p2,p3,p4,p5: TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-
-function fl_add_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ];
-
-function fl_get_button(p1 : PFL_OBJECT ) : Longint ;  [ C ];
-procedure fl_set_button(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-function fl_get_button_numb(p1 : PFL_OBJECT ) : Longint ;[ C ];
-function fl_create_generic_button(p1,p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord;p7 : pchar) : PFL_OBJECT;[ C ];
-procedure fl_add_button_class(p1 : Longint {was int}; p2 : PFL_DRAWBUTTON; p3 : PFL_CLEANUPBUTTON);[ C ];
-
-function fl_create_generic_canvas(p1 : Longint; p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord; p7 : pchar) : PFL_OBJECT;[ C ] ;
-function fl_add_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT;[ C ] ;
-function fl_create_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;[ C ] ;
-function fl_create_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT;[ C ] ;
-function fl_add_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ] ;
-procedure fl_set_canvas_decoration(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ] ;
-procedure fl_set_canvas_colormap(p1 : PFL_OBJECT; p2 :  TColormap);[ C ] ;
-procedure fl_set_canvas_visual(p1 : PFL_OBJECT; p2 :  PVisual);[ C ] ;
-procedure fl_set_canvas_depth(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ] ;
-procedure fl_set_canvas_attributes(p1 : PFL_OBJECT; p2 : word;  p3 : PXSetWindowAttributes);[ C ] ;
-function fl_add_canvas_handler(p1 : PFL_OBJECT; p2 :  Longint {was int}; p3 : PFL_HANDLE_CANVAS; p4 : pointer) : PFL_HANDLE_CANVAS ;[ C ] ;
-function fl_get_canvas_id(p1 : PFL_OBJECT ) : TWindow ;[ C ] ;
-function fl_get_canvas_colormap(p1 : PFL_OBJECT ) : TColormap;[ C ] ; 
-function fl_get_canvas_depth(p1 : PFL_OBJECT ) : Longint ; [ C ] ;
-procedure fl_remove_canvas_handler(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : PFL_HANDLE_CANVAS);[ C ] ;
-procedure fl_hide_canvas(p1 : PFL_OBJECT); 	{ internal use only }[ C ] ;
-procedure fl_canvas_yield_to_shortcut(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ] ;
-procedure fl_modify_canvas_prop(p1 : PFL_OBJECT; 
-				  P2 : PFL_MODIFY_CANVAS_PROP;
-				  p3 : PFL_MODIFY_CANVAS_PROP;
-				  p4 : PFL_MODIFY_CANVAS_PROP);[ C ] ;
-function fl_create_glcanvas(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;[ C ] ;
-function fl_add_glcanvas(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;[ C ] ;
-procedure fl_set_glcanvas_defaults(p1 : pointer); [ C ] ;
-procedure fl_get_glcanvas_defaults(p1 : pointer); [ C ] ;
-procedure fl_set_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer);[ C ] ;
-procedure fl_get_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer);[ C ] ;
-procedure fl_set_glcanvas_direct(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ] ;
-procedure fl_activate_glcanvas(p1 : PFL_OBJECT);[ C ];
-
-function fl_get_glcanvas_xvisualinfo(p1 : PFL_OBJECT ) : PXVisualInfo; [ C ] ;
-
-function fl_create_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 :  pchar) : PFL_OBJECT; [ C ];
-function fl_add_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-procedure fl_clear_chart(p1 : PFL_OBJECT); [ C ];
-procedure fl_add_chart_value(p1 : PFL_OBJECT; p2 : double; p3 : pchar; p4 : Longint {was int}); [ C ];
-procedure fl_insert_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int}); [ C ];
-procedure fl_replace_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int}); [ C ];
-procedure fl_set_chart_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_set_chart_maxnumb(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_chart_autosize(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_chart_lstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_chart_lsize(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_chart_lcolor(p1 : PFL_OBJECT; p2 :  TFL_COLOR);[ C ];
-
-
-function fl_create_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) :  PFL_OBJECT; [ C ];
-function fl_add_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar ) : PFL_OBJECT; [ C ];
-procedure fl_clear_choice(p1 : PFL_OBJECT); [ C ];
-procedure fl_addto_choice(p1 : PFL_OBJECT; p2 :  pchar); [ C ];
-procedure fl_replace_choice(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); [ C ];
-procedure fl_delete_choice(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_choice(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_choice_text(p1 : PFL_OBJECT; p2 :  pchar); [ C ];
-function fl_get_choice(p1 : PFL_OBJECT ) : Longint ; [ C ];
-function fl_get_choice_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; [ C ];
-function fl_get_choice_maxitems(p1 : PFL_OBJECT ) : Longint ; [ C ];
-function fl_get_choice_text(p1 : PFL_OBJECT ) : pchar; [ C ];
-procedure fl_set_choice_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_choice_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_choice_align(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_choice_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : word); [ C ];
-procedure fl_set_choice_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); [ C ];
-
-
-function fl_create_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-procedure fl_get_clock(p1 : PFL_OBJECT; p2,p3,p4 : pointer); [ C ];
-
-function fl_create_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; [ C ];
-procedure fl_set_counter_value(p1 : PFL_OBJECT; p2 :  double); [ C ];
-procedure fl_set_counter_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_set_counter_step(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_set_counter_precision(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-function fl_get_counter_value(p1 : PFL_OBJECT ) : double ; [ C ];
-procedure fl_get_counter_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble);[ C ];
-
-procedure fl_set_counter_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_counter_filter(p1 : PFL_OBJECT;p2 : pointer); [ C ];
-
-procedure fl_set_cursor(p1 : TWindow; p2 :  Longint {was int}); [ C ];
-procedure fl_set_cursor_color(p1 : longint; p2 : TFL_COLOR; p3 :TFL_COLOR); [ C ];
-function fl_create_bitmap_cursor(p1 : pchar; p2 :  pchar; p3,p4,p5,p6 : Longint {was int}) : TCursor; [ C ];
-function fl_get_cursor_byname(p1 : longint ) : TCursor; [ C ];
-
-function fl_create_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 :pchar) : PFL_OBJECT; [ C ];
-function fl_add_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; [ C ];
-procedure fl_set_dial_value(p1 : PFL_OBJECT; p2 :  double); [ C ];
-function fl_get_dial_value(p1 : PFL_OBJECT ) : double ; [ C ];
-procedure fl_set_dial_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_get_dial_bounds(p1 : PFL_OBJECT; p2 : pdouble; p3 :pdouble); [ C ];
-procedure fl_set_dial_step(p1 : PFL_OBJECT; p2 :  double); [ C ];
-procedure fl_set_dial_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_dial_angles(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_set_dial_cross(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_dial_direction (p1 : PFL_OBJECT; p2 : Longint);[ C ];
-
-function fl_get_dirlist(p1 : pchar; p2 : pchar;	p3 : pointer;p4	:longint) : PFL_Dirlist; [ C ];
-function fl_set_dirlist_filter (p1 : PFL_DIRLIST_FILTER ) : PFL_DIRLIST_FILTER ; [ C ];
-procedure fl_set_dirlist_sort ( p1 : longint);[ C ];
-
-procedure fl_free_dirlist(p1 : PFL_Dirlist); [ C ];
-procedure fl_free_all_dirlist; [ C ];
-
-function fl_is_valid_dir(p1 : pchar ) : Longint; [ C ];
-function fl_fmtime(p1 : pchar ) : cardinal ; [ C ];
-function fl_fix_dirname(p1 : pchar) : pchar; [ C ];
-
-function fl_create_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_create_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; [ C ];
-
-function fl_create_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar; p7 : PFL_HANDLEPTR) : PFL_OBJECT; [ C ];
-function fl_add_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar; P7 : PFL_HANDLEPTR) : PFL_OBJECT; [ C ];
-
-procedure fl_set_goodies_font(p1 : LongInt; p2 :  Longint {was int}); [ C ];
-procedure fl_show_message(p1 : pchar; p2 : pchar; p3 :pchar); [ C ];
-procedure fl_show_messages(p1 : pchar);[ C ];
-
-procedure fl_show_alert(p1 : pchar; p2 : pchar; p3 : pchar; p4 : Longint {was int}); [ C ];
-function fl_show_question(p1 : pchar; p2 : longint) : Longint ; [ C ];
-function fl_show_input(p1 : pchar; p2 :  pchar ) : pchar; [ C ];
-function fl_show_simple_input(p1 : pchar; p2 :  pchar ) : pchar; [ C ];
-function fl_show_colormap(p1 : Longint ) : Longint ; [ C ];
-function fl_show_choice(p1,p2,p3 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint;[ C ];
-function fl_show_choices(p1 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint;[ C ];
-procedure fl_set_choices_shortcut(p1,p2,p3 :pchar); [ C ];
-
-procedure fl_show_oneliner(p1 : pchar; p2 : TFL_Coord; p3 :TFL_Coord); [ C ];
-procedure fl_hide_oneliner; [ C ];
-procedure fl_set_oneliner_font(p1 : LongInt; p2 :  Longint {was int}); [ C ];
-procedure fl_set_oneliner_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); [ C ];
-
-function fl_exe_command(p1 : pchar; p2 : Longint) : Longint; [ C ];
-function fl_end_command(p1 : longint) : Longint; [ C ];
-Function fl_end_all_command : Longint; [ C ];
-procedure fl_show_command_log(p1 : Longint); [ C ];
-procedure fl_hide_command_log; [ C ];
-procedure fl_clear_command_log; [ C ];
-procedure fl_addto_command_log(p1 : pchar);[ C ];
-procedure fl_set_command_log_position(p1,p2 :longint);[ C ];
-Function fl_get_command_log_fdstruct : PFD_CMDLOG; [ C ];
-
-function fl_use_fselector(p1 : LongInt ) : LongInt; [ C ];
-function fl_show_fselector(p1,p2,p3,p4 :  pchar) : pchar; [ C ];
-procedure fl_set_fselector_fontsize (p1 : Longint); [ C ];
-procedure fl_set_fselector_fontstyle (p1 : longint); [ C ];
-
-procedure fl_set_fselector_placement(p1 : LongInt); [ C ];
-procedure fl_set_fselector_border(p1 : LongInt); [ C ];
-procedure fl_set_fselector_callback( p1 : PFSelector_Callback; p2 : pointer); [ C ];
-function fl_get_filename : pchar; [ C ];
-function fl_get_directory : pchar; [ C ];
-function fl_get_pattern : pchar; [ C ];
-function fl_set_directory (p1 : pchar ) : LongInt; [ C ];
-procedure fl_set_pattern (p1 : pchar); [ C ];
-procedure fl_refresh_fselector; [ C ];
-procedure fl_add_fselector_appbutton(p1 : pchar; p2 : PFL_Procedure; p3 : pointer); [ C ];
-procedure fl_remove_fselector_appbutton(p1 : pchar); [ C ];
-procedure fl_disable_fselector_cache(p1 : LongInt); [ C ];
-procedure fl_invalidate_fselector_cache; [ C ]; 
-function fl_get_fselector_form : PFL_FORM; [ C ];
-function fl_get_fselector_fdstruct  : PFD_FSELECTOR; [ C ]; 
-procedure fl_hide_fselector;  [ C ];
-procedure fl_set_fselector_filetype_marker(p1,p2,p3,p4,p5 : Longint); [ C ];
-
-function fl_create_input(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6: pchar)  : PFL_OBJECT ; [ C ];
-function fl_add_input(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar )  : PFL_OBJECT ; [ C ];
-procedure fl_set_input(p1 : PFL_OBJECT; p2 :  pchar)  ; [ C ];
-procedure fl_set_input_color(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; [ C ];
-function fl_get_input(p1 : PFL_OBJECT )  : pchar ; [ C ];
-procedure fl_set_input_return(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_input_scroll(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_input_cursorpos(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; [ C ];
-function fl_get_input_cursorpos(p1 : PFL_OBJECT; p2,p3 : Pointer )  : LongInt ; [ C ];
-procedure fl_set_input_selected(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_input_selected_range(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; [ C ];
-procedure fl_set_input_maxchars(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_input_format(p1 : PFL_OBJECT; p2,p3 :  Longint {was int});[ C ];
-procedure fl_set_input_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_input_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_input_xoffset(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_input_topline(p1 : PFL_OBJECT; p2 :  Longint {was int});[ C ];
-procedure fl_set_input_scrollbarsize(p1 : PFL_OBJECT; p2,p3 :  Longint {was int});[ C ];
-function fl_get_input_topline(p1 : PFL_OBJECT;p2,p3 : PLongint) : Longint;[ C ];
-function fl_get_input_screenlines(p1 : PFL_OBJECT) : Longint;[ C ];
-function fl_get_input_numberoflines(p1 : PFL_OBJECT) : Longint;[ C ];
-procedure fl_get_input_format(p1 : PFL_OBJECT;p2,p3 : PLongint);[ C ];
-function fl_set_input_filter(p1 : PFL_OBJECT; p2 :  PFL_INPUTVALIDATOR )  : PFL_INPUTVALIDATOR  ; [ C ];
-procedure fl_set_input_editkeymap(PFL_EditKeymap);[ C ];
-
-function fl_create_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; [ C ] ;
-function fl_add_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; [ C ] ;
-procedure fl_clear_menu(p1 : PFL_OBJECT); [ C ] ;
-procedure fl_set_menu(p1 : PFL_OBJECT; p2 :  pchar); [ C ] ;
-procedure fl_addto_menu(p1 : PFL_OBJECT; p2 :  pchar); [ C ] ;
-procedure fl_replace_menu_item(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); [ C ] ;
-procedure fl_delete_menu_item(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ] ;
-procedure fl_set_menu_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); [ C ] ;
-procedure fl_set_menu_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Cardinal); [ C ] ;
-procedure fl_show_menu_symbol(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ] ;
-procedure fl_set_menu_popup(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ] ;
-function fl_get_menu(p1 : PFL_OBJECT ) : Longint ; [ C ] ;
-function fl_get_menu_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; [ C ] ;
-function fl_get_menu_maxitems(p1 : PFL_OBJECT ) : Longint ; [ C ] ;
-function fl_get_menu_item_mode(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Cardinal ; [ C ] ;
-function fl_get_menu_text(p1 : PFL_OBJECT ) : pchar; [ C ] ;
-
-function fl_newpup(p1 : TWindow ) : LongInt; [ C ];
-function fl_defpup(p1 : TWindow; p2 :  pchar) : LongInt; [ C ] ;
-function fl_addtopup(p1 : longint; p2 :  pchar) : LongInt; [ C ] ;
-
-function fl_setpup_mode(p1 : Longint; p2 : Longint {was int}; p3 : Cardinal) : Longint; [ C ];
-procedure fl_freepup(p1 : Longint); [ C ];
-function fl_dopup(p1 : Longint ) : LongInt; [ C ];
-procedure fl_setpup_shortcut(p1 : Longint; p2 : Longint {was int}; p3 :pchar); [ C ];
-procedure fl_setpup_position(p1 : Longint; p2 :  Longint {was int}); [ C ];
-procedure fl_setpup_selection(p1 : Longint; p2 :  Longint {was int}); [ C ];
-function fl_setpup_fontsize(p1 : LongInt): Longint; [ C ];
-function fl_setpup_fontstyle(p1 : LongInt): longint; [ C ];
-procedure fl_setpup_shadow(p1 : LongInt; p2 :  Longint {was LongInt}); [ C ];
-procedure fl_setpup_softedge(p1 : LongInt; p2 :  Longint {was int}); [ C ];
-procedure fl_setpup_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); [ C ];
-procedure fl_setpup_checkcolor(p1 : TFL_COLOR); [ C ];
-procedure fl_setpup_title(p1 : LongInt; p2 :  pchar); [ C ];
-procedure fl_setpup_bw(p1 : LongInt; p2 :  Longint {was int}); [ C ];
-procedure fl_setpup_pad(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int}); [ C ];
-function fl_setpup_cursor(p1 : LongInt; p2 :  Longint {was int} ) : TCursor ; [ C ];
-function fl_setpup_default_cursor(p1 : LongInt ) : TCursor ; [ C ];
-function fl_setpup_maxpup(p1 : LongInt ) : LongInt; [ C ];
-function fl_getpup_mode(p1 : LongInt; p2 :  Longint {was int} ) : Cardinal; [ C ];
-function fl_getpup_text(p1 : LongInt; p2 :  Longint {was int} ) : pchar; [ C ];
-procedure fl_showpup(p1 : LongInt); [ C ];
-procedure fl_hidepup(p1 : LongInt); [ C ];
-function fl_setpup_itemcb(p1 : LongInt; p2 : Longint {was int}; p3 :PFL_PUP_CB ) : PFL_PUP_CB ; [ C ];
-function fl_setpup_menucb(p1 : LongInt; p2 :  PFL_PUP_CB ) : PFL_PUP_CB ; [ C ];
-procedure fl_setpup_submenu(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int}); [ C ];
-
-function fl_create_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-procedure fl_set_positioner_xvalue(p1 : PFL_OBJECT; p2 :  double); [ C ];
-function fl_get_positioner_xvalue(p1 : PFL_OBJECT ) : double ; [ C ];
-procedure fl_set_positioner_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_get_positioner_xbounds(p1 : PFL_OBJECT; p2 : pdouble ; p3 : pdouble); [ C ];
-procedure fl_set_positioner_yvalue(p1 : PFL_OBJECT; p2 :  double); [ C ];
-function fl_get_positioner_yvalue(p1 : PFL_OBJECT ) : double ; [ C ];
-procedure fl_set_positioner_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_get_positioner_ybounds(p1 : PFL_OBJECT; p2 ,p3 :pdouble); [ C ];
-procedure fl_set_positioner_xstep(p1 : PFL_OBJECT; p2 :  double); [ C ];
-procedure fl_set_positioner_ystep(p1 : PFL_OBJECT; p2 :  double); [ C ];
-procedure fl_set_positioner_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-
-function fl_create_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; [ C ];
-function fl_add_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; [ C ];
-function fl_create_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar): PFL_OBJECT; [ C ];
-function fl_add_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;P6: pchar) : PFL_OBJECT; [ C ];
-procedure fl_set_slider_value(p1 : PFL_OBJECT; p2 :  double); [ C ];
-function fl_get_slider_value(p1 : PFL_OBJECT ) : double ; [ C ];
-procedure fl_set_slider_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); [ C ];
-procedure fl_get_slider_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble); [ C ];
-procedure fl_set_slider_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_slider_step(p1 : PFL_OBJECT; p2 :  double); [ C ];
-procedure fl_set_slider_increment(p1 : PFL_OBJECT; p2,p3 :  double);[ C ];
-procedure fl_set_slider_size(p1 : PFL_OBJECT; p2 :  double); [ C ];
-procedure fl_set_slider_precision(p1 : PFL_OBJECT; p2 :  Longint {was int}); [ C ];
-procedure fl_set_slider_filter(p1 : PFL_OBJECT; p2 : PTFL_SLIDER_FILTER); [ C ];
-
-function fl_create_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT; [ C ];
-
-function fl_create_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; [ C ];
-function fl_add_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; [C ];
-procedure fl_set_timer(p1 : PFL_OBJECT; p2 :  double); [ C ];
-function fl_get_timer(p1 : PFL_OBJECT ) : double ; [ C ];
-procedure fl_set_timer_countup(p1 : PFL_OBJECT; p2 :  Longint); [ C ];
-function fl_set_timer_filter (p1 : PFL_OBJECT; p2 : PFL_TIMER_FILTER) : PFL_TIMER_FILTER; [ C ];
-procedure fl_suspend_timer(p1 : PFL_OBJECT); [ C ];
-procedure fl_resume_timer(p1 : PFL_OBJECT); [ C ];
-
-
-procedure fl_set_xyplot_return(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_xtics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_ytics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double)  ; [ C ];
-procedure fl_set_xyplot_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double)  ; [ C ];
-procedure fl_get_xyplot_xbounds(p1 : PFL_OBJECT; p2,p3 : pfloat )  ; [ C ];
-procedure fl_get_xyplot_ybounds(p1 : PFL_OBJECT; p2,p3 : pfloat )  ; [ C ];
-procedure fl_get_xyplot(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer)  ; [ C ];
-procedure fl_get_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer)  ; [ C ];
-
-function fl_create_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6: pchar)  : PFL_OBJECT ; [ C ];
-
-function fl_add_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar )  : PFL_OBJECT ; [ C ];
-
-procedure fl_set_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : Longint {was int}; p5,p6,p7 : pchar)  ; [ C ];
-procedure fl_set_xyplot_file(p1 : PFL_OBJECT; p2,p3,p4,p5 :pchar)  ; [ C ];
-
-{
-#define fl_set_xyplot_datafile fl_set_xyplot_file
-}
-procedure fl_add_xyplot_text(p1 : PFL_OBJECT; p2,p3 : double; p4 : pchar;p5 : Longint {was int}; p6 :TFL_COLOR)  ; [ C ];
-
-procedure fl_delete_xyplot_text(p1 : PFL_OBJECT; p2 :  pchar)  ; [ C ];
-
-function fl_set_xyplot_maxoverlays(p1 : PFL_OBJECT; p2 :  Longint {was int} )  : Longint  ; [ C ];
-procedure fl_add_xyplot_overlay(p1 : PFL_OBJECT; p2 : Longint {was int}; p3,p4 : pfloat; p5 : Longint {was int}; p6 :TFL_COLOR)  ; [ C ];
-procedure fl_set_xyplot_overlay_type(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int})  ; [ C ];
-procedure fl_delete_xyplot_overlay(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_interpolate(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : double)  ; [ C ];
-procedure fl_set_xyplot_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_inspect(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_set_xyplot_symbolsize(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; [ C ];
-procedure fl_replace_xyplot_point(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : double)  ; [ C ];
-procedure fl_get_xyplot_xmapping(p1 : PFL_OBJECT; p2,p3 : pfloat)  ; [ C ];
-procedure fl_get_xyplot_ymapping(p1 : PFL_OBJECT; p2,p3 : pfloat)  ; [ C ];
-function fl_interpolate(p1,p2 : pfloat; p3 :Longint {was int};p4,p5 : pfloat; p6 : double; p7 : Longint {was int})  : Longint ; [ C ];
-
-procedure fl_xyplot_s2w(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat)  ; [ C ];
-procedure fl_xyplot_w2s(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat)  ; [ C ];
-procedure fl_set_xyplot_xscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double)  ; [ C ];
-procedure fl_set_xyplot_yscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double)  ; [ C ];
-
-procedure fl_set_xyplot_linewidth(p1 : PFL_OBJECT; p2,p3 : Longint);[ C ];
-procedure fl_set_xyplot_xgrid(p1 : PFL_OBJECT; p2 : Longint);[ C ];
-procedure fl_set_xyplot_ygrid(p1 : PFL_OBJECT; p2 : Longint);[ C ];
-procedure fl_set_xyplot_alphaxtics(p1 : PFL_OBJECT; p2,p3 : pchar);[ C ];
-procedure fl_set_xyplot_alphaytics(p1 : PFL_OBJECT; p2,p3 : pchar);[ C ];
-procedure fl_set_xyplot_fixed_xaxis(p1 : PFL_OBJECT; p2,p3 : pchar);[ C ];
-procedure fl_set_xyplot_fixed_yaxis(p1 : PFL_OBJECT; p2,p3 : pchar);[ C ];
-
-{ Added later : }
-function fl_mode_capable(p1,p2 : longint ) : longint;[ C ];
-procedure fl_enumerate_fonts(p1 : PFL_ENUMERATEPTR; p2 :  longint);[ C ];
-
-
-{ From here we implement function aliases which were #defined }
-
-procedure fl_set_button_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int});
-
-begin
-  fl_set_object_shortcut (p1,p2,p3);
-end;
-
-procedure fl_set_pixmapbutton_data(p1 : PFL_OBJECT; p2 :  ppchar);
-
-begin
- fl_set_pixmap_data(p1,p2);
-end;
-
-procedure fl_set_pixmapbutton_file(p1 : PFL_OBJECT; p2 :  pchar);
-
-begin
-  fl_set_pixmap_file(p1,p2);
-end;
-
-procedure fl_set_pixmapbutton_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int});
-begin
-  fl_set_pixmap_align(p1,p2,p3,p4);
-end;
-
-procedure fl_set_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap);
-begin
- fl_set_pixmap_pixmap(p1,p2,p3);
-end;
-
-procedure fl_set_pixmapbutton_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int});
-begin
-fl_set_pixmap_colorcloseness(p1,p2,p3);
-end;
-
-procedure fl_free_pixmapbutton_pixmap(p1 : PFL_OBJECT); 
-begin
-  fl_free_pixmap_pixmap(p1); 
-end;
-
-function fl_get_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ;
-
-begin
- fl_get_pixmapbutton_pixmap:=fl_get_pixmap_pixmap(p1,p2,p3);
-end;
-
-Function FL_ObjWin ( P : PFL_Object) : TWindow;
-
-begin
-if P^.objclass <> FL_CANVAS then
-    FL_ObjWin :=P^.form^.window
-else
-    FL_objWin := fl_get_canvas_id (p)
-end;
-
-procedure fl_rectf(x,y,w,h : TFL_COORD;c : TFL_COLOR);
-begin
-   fl_rectangle(1,x,y,w,h,c)
-end;
-
-procedure fl_rect(x,y,w,h : TFL_COORD;c : TFL_COLOR);
-begin
-    fl_rectangle(0,x,y,w,h,c)
-end;
-
-function fl_current_form : PFL_FORM;
-
-begin
-  asm
-  movl fl_current_form,%eax
-  movl %eax,__RESULT
-  end
-end;
-
-end.

packages/forms/forms-88.pp

@@ -1,3716 +0,0 @@
-
-Unit forms;
-
-Interface
-
-{$linklib forms}
-{$linklib c}
-{$linklib m}
-
-uses x,xlib,xutil,xresource;
-
-const 
-  FL_VERSION=0;
-  FL_REVISION=88;
-  FL_FIXLEVEL=0;
-  FL_INCLUDE_VERSION=FL_VERSION * 1000 + FL_REVISION;
-
-{ some general constants }
-    FL_ON = 1;
-    FL_OK = 1;
-    FL_VALID = 1;
-    FL_PREEMPT = 1;
-    FL_AUTO = 2;
-    FL_WHEN_NEEDED = FL_AUTO;
-
-    FL_OFF = 0;
-    {FL_NONE = 0;}
-    FL_CANCEL = 0;
-    FL_INVALID = 0;
-
-    FL_IGNORE = -1;
-    FL_CLOSE = -2;
-{
- * The screen coordinate unit, FL_Coord, must be of signed type. Without
- * prototype support, a type other than integer might not work right.
- * If FL_Coord is float, FL_CoordIsFloat must be defined to be 1 so that
- * round-off error can be checked. **TODO Float not tested ***
- }
-Type PWord   = ^Word;
-     PDouble = ^Double;
-     PFloat  = ^Real;
-     PLongint = ^Longint;
-          
-type TFL_Coord = Longint {was int};
-     PFL_Coord = ^TFL_Coord;
-{ #define FL_CoordIsFloat 0	 define this if FL_Coord is of type float }
-   TFL_COLOR = longint; { Was cardinal }
-   PFL_COLOR = ^TFL_COLOR;
-
-{
- * Coordinates can be in pixels, milli-meters or points (1/72inch)
- }
-  TFL_COORD_UNIT=Longint {was int};
-  { POssible values }
-Const 
-    FL_COORD_PIXEL=0;		{ default, Pixel           }
-    FL_COORD_MM=1;		{ milli-meter              }
-    FL_COORD_POINT=2;		{ point                    }
-    FL_COORD_centiMM=3;		{ one hundredth of a mm    }
-    FL_COORD_centiPOINT=4;	{ one hundredth of a point }
-
-{
- * All object classes.
- }
-
-type TFL_Class = Longint;
-
-Const { Possible values }
-    FL_INVALID_CLASS=0;
-    FL_BUTTON=1;
-    FL_LIGHTBUTTON=2;
-    FL_ROUNDBUTTON=3;
-    FL_ROUND_3DBUTTON=4;
-    FL_CHECKBUTTON=5;
-    FL_BITMAPBUTTON=6;
-    FL_PIXMAPBUTTON=7;
-    FL_BITMAP=8;
-    FL_PIXMAP=9;
-    FL_BOX=10;
-    FL_TEXT=11;
-    FL_MENU=12;
-    FL_CHART=13;
-    FL_CHOICE=14;
-    FL_COUNTER=15;
-    FL_SLIDER=16;
-    FL_VALSLIDER=17;
-    FL_INPUT=18;
-    FL_BROWSER=19;
-    FL_DIAL=21;
-    FL_TIMER=21;
-    FL_CLOCK=22;
-    FL_POSITIONER=23;
-    FL_FREE=24;
-    FL_XYPLOT=25;
-    FL_FRAME=26;
-    FL_LABELFRAME=27;
-    FL_CANVAS=28;
-    FL_GLCANVAS=29;
-    FL_TABFOLDER=30;
-    FL_SCROLLBAR=31;
-    FL_SCROLLBUTTON=32;
-    FL_MENUBAR=33;
-    FL_IMAGECANVAS=34;
-    FL_TEXTBOX=35;
-
-{ how to display a form onto screen }
-
-Type
-    TFL_PLace = Longint;
-
-Const
-    FL_PLACE_FREE = 0;		{ size remain resizable      }
-    FL_PLACE_MOUSE = 1;		{ mouse centered on form     }
-    FL_PLACE_CENTER = 2;	{ center of the screen       }
-    FL_PLACE_POSITION = 4;	{ specific size              }
-    FL_PLACE_SIZE = 8;		{ specific size              }
-    FL_PLACE_GEOMETRY = 16;	{ specific position          }
-    FL_PLACE_ASPECT = 32;	{ keep aspect ratio          }
-    FL_PLACE_FULLSCREEN = 64;	{ scale to fit screen        }
-    FL_PLACE_HOTSPOT = 128;	{ so mouse fall on (x,y)     }
-    FL_PLACE_ICONIC = 256;
-    { modifier }
-    FL_FREE_SIZE = 1 shl 14;
-    FL_FIX_SIZE = 1 shl 15;
-
-    FL_PLACE_FREE_CENTER =  FL_PLACE_CENTER or FL_FREE_SIZE;
-    FL_PLACE_CENTERFREE = FL_PLACE_CENTER or FL_FREE_SIZE;
-
-{ Window manager decoration request }
-
-type 
-    TFL_DECORATION = Longint;
-  
-Const { Possible values for FL_DECORATION }
-    FL_FULLBORDER = 1;		{ normal }
-    FL_TRANSIENT = 2;		{ set TRANSIENT_FOR property              }
-    FL_NOBORDER = 3;		{ use override_redirect to supress decor. }
-    FL_MODAL = 1 << 8;
-type
- { All box types }
-    TFL_BOX_TYPE = Longint;
-Const { Possible values }
-    FL_NO_BOX=0;
-    FL_UP_BOX=1;
-    FL_DOWN_BOX=2;
-    FL_BORDER_BOX=3;
-    FL_SHADOW_BOX=4;
-    FL_FRAME_BOX=5;
-    FL_ROUNDED_BOX=6;
-    FL_EMBOSSED_BOX=7;
-    FL_FLAT_BOX=8;
-    FL_RFLAT_BOX=9;
-    FL_RSHADOW_BOX=10;
-    FL_OVAL_BOX=11;
-    FL_ROUNDED3D_UPBOX=12;
-    FL_ROUNDED3D_DOWNBOX=13;
-    FL_OVAL3D_UPBOX=14;
-    FL_OVAL3D_DOWNBOX=15;
-    FL_OVAL3D_FRAMEBOX=16;
-    FL_OVAL3D_EMBOSSEDBOX=17;
-    { Internal use only }
-    FL_TOPTAB_UPBOX=18;
-    FL_SELECTED_TOPTAB_UPBOX=19;
-    FL_BOTTOMTAB_UPBOX=20;
-    FL_SELECTED_BOTTOMTAB_UPBOX=21;
-    FL_OSHADOW_BOX=22;
-
-{ How to place text relative to a box }
-Type
-    TFL_ALIGN = Longint;
-
-Const { Possible values for FL_ALIGN } 
-    FL_ALIGN_CENTER = 0;
-    FL_ALIGN_TOP = 1;
-    FL_ALIGN_BOTTOM = 2;
-    FL_ALIGN_LEFT = 4;
-    FL_ALIGN_RIGHT = 8;
-    FL_ALIGN_TOP_LEFT = FL_ALIGN_TOP or FL_ALIGN_LEFT;
-    FL_ALIGN_TOP_RIGHT = FL_ALIGN_TOP or FL_ALIGN_RIGHT;
-    FL_ALIGN_BOTTOM_LEFT = FL_ALIGN_BOTTOM or FL_ALIGN_LEFT;
-    FL_ALIGN_BOTTOM_RIGHT = FL_ALIGN_BOTTOM or FL_ALIGN_RIGHT;
-    FL_ALIGN_INSIDE = (1 shl 13);
-    FL_ALIGN_VERT = (1 shl 14);	{ not functional yet  }
-
-    FL_ALIGN_LEFT_TOP = FL_ALIGN_TOP_LEFT;
-    FL_ALIGN_RIGHT_TOP = FL_ALIGN_TOP_RIGHT;
-    FL_ALIGN_LEFT_BOTTOM = FL_ALIGN_BOTTOM_LEFT;
-    FL_ALIGN_RIGHT_BOTTOM = FL_ALIGN_BOTTOM_RIGHT;
-
-{ Mouse buttons }
-
-FL_MBUTTON1=1; FL_LEFT_MOUSE=FL_MBUTTON1;
-FL_MBUTTON2=2; FL_MIDDLE_MOUSE=FL_MBUTTON2;
-FL_MBUTTON3=3; FL_RIGHT_MOUSE=FL_MBUTTON3;
-FL_MBUTTON4=4;
-FL_MBUTTON5=5;
-
-
-{ control when to reutrn input, slider and dial object. }
-
-    FL_RETURN_END_CHANGED = 0;
-    FL_RETURN_CHANGED = 1;
-    FL_RETURN_END = 2;
-    FL_RETURN_ALWAYS = 3;
-    FL_RETURN_DBLCLICK = 4;
-
-{
- *  Some special color indeces for FL private colormap. It does not matter
- *  what the value of each enum is, but it must start from 0 and be
- *  consecutive.
- }
- 
- 
- 
-Type
-    TFL_DP_COL = Longint;
-Const
-    FL_BLACK		= 0;
-    FL_RED		= 1;
-    FL_GREEN		= 2;
-    FL_YELLOW		= 3;
-    FL_BLUE		= 4;
-    FL_MAGENTA		= 5;
-    FL_CYAN		= 6;
-    FL_WHITE		= 7;
-
-    FL_TOMATO		= 8;
-    FL_INDIANRED	= 9;
-    FL_SLATEBLUE	= 10;
-
-    FL_COL1		= 11;
-    FL_RIGHT_BCOL	= 12;
-    FL_BOTTOM_BCOL	= 13;
-    FL_TOP_BCOL		= 14;
-    FL_LEFT_BCOL	= 15;
-    FL_MCOL		= 16;
-
-    FL_INACTIVE		= 17;
-    FL_PALEGREEN	= 18;
-    FL_DARKGOLD		= 19;
-
-    FL_ORCHID		= 20;
-    FL_DARKCYAN		= 21;
-    FL_DARKTOMATO	= 22;
-    FL_WHEAT		= 23;
-    FL_DARKORANGE	= 24;
-    FL_DEEPPINK		= 25;
-    FL_CHARTREUSE	= 26;
-    FL_DARKVIOLET	= 27;
-    FL_SPRINGGREEN	= 28;
-    FL_DOGERBLUE	= 29;
-
-    FL_FREE_COL1 = 256; 
-    FL_FREE_COL2 = 257;
-    FL_FREE_COL3 = 258; 
-    FL_FREE_COL4 = 259;
-    FL_FREE_COL5 = 260; 
-    FL_FREE_COL6 = 261;
-    FL_FREE_COL7 = 262;
-    FL_FREE_COL8 = 263;
-    FL_FREE_COL9 = 264;
-    FL_FREE_COL10 = 265;
-    FL_FREE_COL11 = 266;
-    FL_FREE_COL12 = 267;
-    FL_FREE_COL13 = 268;
-    FL_FREE_COL14 = 269;
-    FL_FREE_COL15 = 270;
-    FL_FREE_COL16 = 271;
-
-FL_BUILT_IN_COLS  = FL_DOGERBLUE+1;
-FL_INACTIVE_COL =  FL_INACTIVE;
-
-{ Some aliases for the color. This is actually backwards ... }
-
-Const
-FL_GRAY16=FL_RIGHT_BCOL;
-FL_GRAY35      =     FL_BOTTOM_BCOL;
-FL_GRAY80      =     FL_TOP_BCOL;
-FL_GRAY90      =     FL_LEFT_BCOL;
-FL_GRAY63      =     FL_COL1;
-FL_GRAY75      =     FL_MCOL;
-FL_LCOL        =     FL_BLACK;
-
-{
- *  Pop-up menu item attributes. NOTE if more than 8, need to change
- *  choice and menu class where mode is kept by a single byte
- }
-    FL_PUP_NONE = 0;
-    FL_PUP_GREY = 1;
-    FL_PUP_BOX = 2;
-    FL_PUP_CHECK = 4;
-    FL_PUP_RADIO = 8;
-
-FL_PUP_GRAY     = FL_PUP_GREY;
-FL_PUP_TOGGLE   = FL_PUP_BOX;
-FL_PUP_INACTIVE = FL_PUP_GREY;
-
-type
- TFL_PUP_CB = Procedure  (p1 : Longint);  	{ call back prototype  } cdecl;
- PFL_PUP_CB = ^TFL_PUP_CB;
-
- TFL_PUP_ENTRY = record
-      TheText : pchar;		{ label of a popup/menu item    }
-      CallBack : PFL_PUP_CB;		{ the callback function         }
-      shortcut : pchar;	            { hotkeys                       }
-      mode : longint;			{ FL_PUP_GRAY, FL_PUP_CHECK etc }
- end;
- PFL_PUP_ENTRY = ^TFL_PUP_ENTRY;
- 
- TFL_MENU_ENTRY = TFL_PUP_ENTRY;
- PFL_MENU_ENTRY = ^TFL_MENU_ENTRY;
-
-{ Events that a form reacts to.  }
-type TFL_EVENT = Longint;
-Const { Possible values }
-    FL_NOEVENT		= 0;
-    FL_DRAW		= 1;
-    FL_PUSH		= 2;
-    FL_RELEASE		= 3;
-    FL_ENTER		= 4;
-    FL_LEAVE		= 5;
-    FL_MOUSE		= 6;
-    FL_FOCUS		= 7;
-    FL_UNFOCUS		= 8;
-    FL_KEYBOARD		= 9;
-    FL_MOTION		= 10;
-    FL_STEP		= 11;
-    FL_SHORTCUT		= 12;
-    FL_FREEMEM		= 13;
-    FL_OTHER		= 14;		{ property, selection etc }
-    FL_DRAWLABEL	= 15;
-    FL_DBLCLICK		= 16;		{ double click            }
-    FL_TRPLCLICK	= 17;		{ triple click            }
-    FL_PS		= 18;		{ dump a form into EPS    }
-
-const 
-FL_MOVE=FL_MOTION;	{ for compatibility }
-
-{ Resize policies }
-type TFL_RESIZE_T = Longint;
-
-const
-    FL_RESIZE_NONE = 0;
-    FL_RESIZE_X    = 1;
-    FL_RESIZE_Y    = 2;
-
-const
-    FL_RESIZE_ALL = FL_RESIZE_X or FL_RESIZE_Y;
-
-{ Keyboard focus control }
-type
-    TFL_KEY = Longint;
-
-Const { Possible values for FL_KEY_Normal }
-    FL_KEY_NORMAL = 1;		{ normal keys(0-255) - tab +left/right }
-    FL_KEY_TAB = 2;		{ normal keys + 4 direction cursor     }
-    FL_KEY_SPECIAL = 4;		{ only needs special keys(>255)        }
-    FL_KEY_ALL = 7;		{ all keys                             }
-
-    FL_ALT_VAL = (1 shl 17);	{ alt + Key --> FL_ALT_VAL + key }
-
-{ Internal use }
-Type
-    TFL_FIND = Longint;
-Const
-    FL_FIND_INPUT	=0;
-    FL_FIND_AUTOMATIC	=1;
-    FL_FIND_MOUSE	=2;
-    FL_FIND_CANVAS	=3;
-    FL_FIND_KEYSPECIAL	=4;
-
-{******************************************************************
- * FONTS
- *****************************************************************}
-
-Const FL_MAXFONTS=32;	{ max number of fonts }
-
-type TFL_TEXT_STYLE = Longint;
-Const
-    FL_INVALID_STYLE		= -1;
-    FL_NORMAL_STYLE		= 0;
-    FL_BOLD_STYLE		= 1;
-    FL_ITALIC_STYLE		= 2;
-    FL_BOLDITALIC_STYLE 	= 3;
-
-    FL_FIXED_STYLE		= 4;
-    FL_FIXEDBOLD_STYLE 		= 5;
-    FL_FIXEDITALIC_STYLE	= 6;
-    FL_FIXEDBOLDITALIC_STYLE	= 7;
-
-    FL_TIMES_STYLE		= 8;
-    FL_TIMESBOLD_STYLE		= 9;
-    FL_TIMESITALIC_STYLE	= 10;
-    FL_TIMESBOLDITALIC_STYLE	= 11;
-
-    { The following are derived and must differ by multiples of SHADOW,
-       i.e., (FL_ENGRAVED%SHADOW) == 0. All being 2^n has the benefit that
-       (lstyle | FL_SHADOW) == (lstyle + FL_SHADOW). }
-
-Const
-    FL_SHADOW_STYLE = (1 shl 9);
-    FL_ENGRAVED_STYLE = (1 shl 10);
-    FL_EMBOSSED_STYLE = (1 shl 11);
-
-
-Type TFL_FONT_STYLE= TFL_TEXT_STYLE;
-
-{ Standard sizes in XForms }
-Const
-FL_TINY_SIZE     =  8;
-FL_SMALL_SIZE    =  10;
-FL_NORMAL_SIZE   =  12;
-FL_MEDIUM_SIZE   =  14;
-FL_LARGE_SIZE    =  18;
-FL_HUGE_SIZE     =  24;
-
-FL_DEFAULT_SIZE = FL_SMALL_SIZE;
-
-{ Defines for compatibility }
-
-FL_TINY_FONT  = FL_TINY_SIZE;
-FL_SMALL_FONT =  FL_SMALL_SIZE;
-FL_NORMAL_FONT=  FL_NORMAL_SIZE;
-FL_MEDIUM_FONT=  FL_MEDIUM_SIZE;
-FL_LARGE_FONT =  FL_LARGE_SIZE;
-FL_HUGE_FONT  =  FL_HUGE_SIZE;
-
-FL_NORMAL_FONT1 =  FL_SMALL_FONT;
-FL_NORMAL_FONT2 =  FL_NORMAL_FONT;
-FL_DEFAULT_FONT =  FL_SMALL_FONT;
-
-
-const  
-FL_BOUND_WIDTH = 3;	{ Border width of boxes }
-
-cFL_BEGIN_GROUP  =  10000;
-cFL_END_GROUP    =  20000;
-{
- *  Definition of basic struct that holds an object
- }
-
-FL_CLICK_TIMEOUT = 350;	{ double click interval }
-
-Type
-
-TFL_pixmap = record
-    thepixmap : Tpixmap;
-    Thewin    : TWindow;
-    TheVisual : TVisual;
-    x,y       : TFL_Coord;
-    w, h      : word;
-    depth     : Longint;
-    dbl_background : TFL_COLOR;
-    pixel : TFL_COLOR;
-end;
-
-Pform     = ^TForm;
-
-{Pfl_pixmap = ^fl_pixmap;
-}
-
-Pflobjs    = ^Tflobjs;
-
-THandle = Function (p1 : Pflobjs; p2 : Longint {was int}; p3 : TFL_Coord; p4 : TFL_Coord;p5 :  Longint {was int}; p6 : pointer) : Longint; cdecl;
-PHandle = ^THandle;
-TObject_Callback = Procedure  (P1 : Pflobjs;p2 :  longint); cdecl;
-PObject_Callback = ^TObject_Callback;
-
-Tflobjs = record
-    form : PForm;		{ the form this object belong        }
-    u_vdata : Pointer;
-    u_cdata : Pchar;
-    u_ldata : longint;
-    
-    objclass : Longint {was int};		{ class of object, button, slider etc }
-    thetype : Longint;		{ type within the class              }
-    boxtype : Longint {was int};		{ what kind of box type              }
-    x, y, w, h : TFL_Coord;	{ obj. location and size             }
-    bw : TFL_Coord;
-    col1, col2 : TFL_color;	{ colors of obj                      }
-    thelabel : pchar;		{ object label                       }
-    lcol : TFL_COLOR;		{ label color                        }
-    align : Longint;
-    lsize, lstyle : Longint;	{ label size and style               }
-
-    shortcut : ^Longint;
-
-    handle     : PHandle;
-    object_callback : PObject_Callback;
-    argument : Longint;
-
-    spec          : pointer;	{ instantiation                      }
-
-    prehandle  : PHandle;
-    posthandle : PHandle;
-
-
-    { re-configure preference }
-    resize    : cardinal;	{ what to do if WM resizes the FORM     }
-    nwgravity : cardinal;	{ how to re-position top-left corner    }
-    segravity : cardinal;	{ how to re-position lower-right corner }
-
-    parent,child,nc : Pflobjs;
-    ischild : longint;
-
-    prev : pflobjs;		{ prev. obj in form                  }
-    next : pflobjs;		{ next. obj in form                  }
-
-    flpixmap      : Pointer;	{ pixmap double buffering stateinfo  }
-    use_pixmap    : Longint;	{ true to use pixmap double buffering }
-
-    double_buffer : Longint;	{ only used by mesa/gl canvas        }
-
-    { some interaction flags }
-    pushed: Longint {was int};
-    focus: Longint {was int};
-    belowmouse: Longint {was int};
-    active: Longint {was int};			{ if accept event }
-    input: Longint {was int};
-    wantkey: Longint {was int};
-    radio: Longint {was int};
-    automatic: Longint {was int};
-    redraw: Longint {was int};
-    visible: Longint {was int};
-    clip: Longint {was int};
-    click_timeout : cardinal;
-    c_vdata : pointer;		{ for class use }
-    c_cdata : pchar;            { For class use }
-    c_ldata : longint;		{ for class use }
-    cspec_size : cardinal;
-    aux_col1, aux_col2 : TFL_COLOR;
-    dbl_background : TFL_COLOR;
-    how_return : longint;
-    reserved : array[0..5] of cardinal;
-    { the following are for application programs }
-end;
-
-TFL_OBJECT = TFlobjs;
-PFL_OBJECT = ^TFL_OBJECT;
-
-TCallback = Procedure (P1 : pflobjs; P2 : pointer); cdecl;
-PCallback = ^TCallback;
-{ callback function for an entire form }
-PFL_FORMCALLBACKPTR = PCallback;
-
-{ object callback function      }
-PFL_CALLBACKPTR = PCallBack;
-
-{ preemptive callback function  }
-PFL_RAW_CALLBACK = PCallback;
-
-{ at close (WM menu delete/close etc.) }
-PFL_FORM_ATCLOSE = PCallback;
-
-{ deactivate/activate callback }
-PFL_FORM_ATDEACTIVATE = PCallback; 
-
-PFL_FORM_ATACTIVATE = PCallback;
-
-THandlePtr = Procedure ( p1 : PFL_Object; p2 : Longint; p3,p4 : TFL_COORD; p5 : Longint; p6 : pointer); cdecl;
-PHandlePTR = ^THandlePTR;
-
-PFL_HANDLEPTR = PHandlePTR;
-
-{
-extern FL_OBJECT *FL_EVENT;
-}
-{** FORM ***}
-
-PFL_FORM = ^TFL_FORM;
-
-Tform = record
-    fdui : Pointer;
-    u_vdata : pointer;		{ for application         }
-    u_cdata : pchar;
-    u_ldata : longint;
-    
-    thelabel : pchar;		{ window title            }
-    window : cardinal;	{ X resource ID for window }
-    x, y, w, h : TFL_COORD;	{ current geometry info   }
-    hotx, hoty : TFL_COORD;	{ hot-spot of the form    }
-
-    first,last,focusobj : pflobjs;
-
-    form_callback     : PFL_FORMCALLBACKPTR;
-    activate_callback : PFL_FORM_ATACTIVATE;
-    deactivate_callback: PFL_FORM_ATDEACTIVATE ;
-    form_cb_data, activate_data, deactivate_data : pointer;
-
-    key_callback, 
-    push_callback, 
-    crossing_callback,
-    motion_callback,
-    all_callback: PFL_RAW_CALLBACK ;
-
-    compress_mask : cardinal;
-    evmask : cardinal;
-
-    { WM_DELETE_WINDOW message handler }
-    close_callback : PFL_FORM_ATCLOSE ;
-    close_data : pointer;
-
-
-    flpixmap : pointer;		{ back buffer             }
-
-    icon_pixmap : cardinal;
-    icon_mask : cardinal;
-
-    { interaction and other flags }
-    vmode : Longint {was int};			{ current X visual class  }
-    deactivated : Longint {was int};		{ true if sensitive       }
-    use_pixmap : Longint {was int};		{ true if dbl buffering   }
-    frozen : Longint {was int};			{ true if sync change     }
-    visible : Longint {was int};		{ true if mapped          }
-    wm_border : Longint {was int};		{ window manager info     }
-    prop : cardinal;		{ other attributes        }
-    has_auto : Longint {was int};
-    top : Longint {was int};
-    sort_of_modal : Longint;
-    parent, child : PFL_FORM;
-    parent_obj : PFL_OBJECT; 
-    reserved : array[0..9] of Longint;
-end;
-TFL_FORM = Tform;
-
-TFD_Any = record
-  form : PFL_FORM;
-  vdata : Pointer;
-  cdata : pchar;
-  ldata : longint;
-  end;
-
-PFD_ANY = ^TFD_ANY;
-  
-
-{
- * Async IO stuff
- }
-
-const
-    FL_READ = 1;
-    FL_WRITE = 2;
-    FL_EXCEPT = 4;
-
-{ IO other than XEvent Q }
-Type
-
-TFL_IO_CALLBACK = Procedure (p1 :Longint {was int};p2 : pointer); cdecl;
-PFL_IO_CALLBACK = ^TFL_IO_CALLBACK;
-{ function definitions }
-Procedure fl_add_io_callback(p1 : Longint {was int} ; p2 : word; p3 : PFL_IO_CALLBACK; p4 : pointer); cdecl;
-Procedure fl_remove_io_callback(p1 : Longint {was int};p2 :  word; p3 : PFL_IO_CALLBACK); cdecl;
-
-{ signals }
-type 
-
-TFL_SIGNAL_HANDLER = Procedure (p1 : Longint {was int}; p2 : pointer); cdecl;
-PFL_SIGNAL_HANDLER = ^TFL_SIGNAL_HANDLER ;
-
-Procedure fl_add_signal_callback(p1 : LongInt;p2 : PFL_SIGNAL_HANDLER;p3 : pointer); cdecl;
-Procedure fl_remove_signal_callback(p1 : Longint {was int}); cdecl;
-Procedure fl_signal_caught(p1 :Longint {was int}); cdecl;
-Procedure fl_app_signal_direct(p1 : Longint {was int}); cdecl;
-
-Function fl_add_timeout (p1 : longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer) : longint; cdecl;
-Procedure fl_remove_timeout(p1 : Longint); cdecl;
-
-{  Some utility stuff }
-type 
-
-TFL_VN_PAIR = record
-    val : Longint;
-    name : Pchar;
-end;
-
-PFL_VN_PAIR = ^TFL_VN_PAIR;
-
-Function fl_get_vn_value (p1 : PFL_VN_PAIR; p2 : pchar) : Longint; cdecl;
-Function fl_get_vn_name (p1 : PFL_VN_PAIR; p2 : Longint {was int}) : Pchar; cdecl;
-Function fl_msleep (p1 : cardinal) : cardinal; cdecl;
-
-{
- *  Basic public routine prototypes
- }
-
-Procedure fl_library_version(p1,p2 : pointer ); cdecl;
-
-{* Generic routines that deal with FORMS *}
-
-Function fl_bgn_form(P1 : Longint {was int}; P2,p3 : TFL_Coord) : PFL_Form; cdecl;
-Procedure fl_end_form; cdecl;
-Function fl_do_forms : PFL_OBJECT ; cdecl;
-Function fl_check_forms : PFL_OBJECT; cdecl;
-Function fl_do_only_forms : PFL_OBJECT; cdecl;
-Function fl_check_only_forms : PFL_OBJECT; cdecl;
-Procedure fl_freeze_form(P1 : PFL_FORM); cdecl;
-
-Procedure fl_set_focus_object( P1 : PFL_FORM;p2 : PFL_OBJECT); cdecl;
-Procedure fl_reset_focus_object( p1 : PFL_OBJECT); cdecl;
-
-{
-#define fl_set_object_focus   fl_set_focus_object
-}
-Function fl_set_form_atclose(p1 : PFL_FORM; p2 : PFL_FORM_ATCLOSE; p3 : pointer) : PFL_FORM_ATCLOSE ; cdecl;
-Function fl_set_atclose(p1 : PFL_FORM_ATCLOSE; p2:  pointer) : PFL_FORM_ATCLOSE ; cdecl;
-
-Function fl_set_form_atactivate(p1 : PFL_FORM; P2 : PFL_FORM_ATACTIVATE; P3 : pointer) : PFL_FORM_ATACTIVATE ; cdecl;
-Function fl_set_form_atdeactivate(p1 : PFL_FORM;p2 : PFL_FORM_ATDEACTIVATE;p3 : pointer) : PFL_FORM_ATDEACTIVATE ; cdecl;
-
-Procedure fl_unfreeze_form (p1 : PFL_FORM); cdecl;
-Procedure fl_deactivate_form(p1 : PFL_FORM); cdecl;
-Procedure fl_activate_form(p1 : PFL_FORM); cdecl;
-Procedure fl_deactivate_all_forms; cdecl;
-Procedure fl_activate_all_forms; cdecl;
-Procedure fl_freeze_all_forms; cdecl;
-Procedure fl_unfreeze_all_forms; cdecl;
-Procedure fl_scale_form(p1 : PFL_FORM;p2,p3 : double); cdecl;
-Procedure fl_set_form_position(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl;
-Procedure fl_set_form_title(p1 : PFL_FORM; p2 : pchar); cdecl;
-
-Procedure fl_set_form_property(p1 : PFL_FORM; p2 : word); cdecl;
-Procedure fl_set_app_mainform( p1 : PFL_FORM); cdecl;
-Function fl_get_app_mainform : PFL_FORM; cdecl;
-Procedure fl_set_app_nomainform(P1 : Longint {was int}); cdecl;
-
-Procedure fl_set_form_callback(p1 : PFL_FORM; P2 : PFL_FORMCALLBACKPTR; P3 : pointer); cdecl;
-{
-#define  fl_set_form_call_back    fl_set_form_callback
-}
-
-Procedure fl_set_form_size(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl;
-Procedure fl_set_form_hotspot(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl;
-Procedure fl_set_form_hotobject(p1 : PFL_FORM; p2 : PFL_OBJECT); cdecl;
-Procedure fl_set_form_minsize(p1 : PFL_FORM ; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_set_form_maxsize(p1 : PFL_FORM; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_set_form_event_cmask(p1 : PFL_FORM; p2 : cardinal); cdecl;
-Function fl_get_form_event_cmask(p1 : PFL_FORM) : cardinal; cdecl;
-
-Procedure fl_set_form_geometry(p1 : PFL_FORM; p2,p3,p4,p5 : TFL_Coord); cdecl;
-
-{
-#define fl_set_initial_placement fl_set_form_geometry
-}
-
-Function fl_show_form (p1 : PFL_FORM; p2,p3 : Longint {was int}; p4 : pchar) : Longint; cdecl;
-Procedure fl_hide_form(p1 : PFL_FORM); cdecl;
-Procedure fl_free_form(p1 : PFL_FORM); cdecl;
-Procedure fl_redraw_form(p1 : PFL_FORM); cdecl;
-Procedure fl_set_form_dblbuffer(p1 : PFL_FORM; p2 : Longint {was int}); cdecl;
-Procedure fl_prepare_form_window(p1 : PFL_FORM; p2,p3 :  Longint {was int}; p4 : pchar); cdecl;
-Procedure fl_show_form_window(p1 : PFL_FORM); cdecl;
-Function fl_adjust_form_size(p1 : PFL_FORM) : double; cdecl;
-Function fl_form_is_visibe (p1 : PFL_FORM) : Longint; cdecl;
-
-Function  fl_register_raw_callback(p1 : PFL_FORM; p2 : cardinal; P3 : PFL_RAW_CALLBACK): PFL_RAW_CALLBACK; cdecl;
-
-{
-#define fl_register_call_back fl_register_raw_callback
-}
-Function fl_bgn_group : PFL_OBJECT; cdecl;
-Function fl_end_group : PFL_OBJECT; cdecl;
-Procedure fl_addto_group (p1 : PFL_OBJECT); cdecl;
-
-{***** Routines that deal with FL_OBJECTS *******}
-
-Procedure fl_set_object_boxtype(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl;
-Procedure fl_set_object_bw(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl;
-Procedure fl_set_object_resize(p1 : PFL_OBJECT; p2 : word); cdecl;
-Procedure fl_set_object_gravity(p1 : PFL_OBJECT; p2,p3 : word ); cdecl;
-Procedure fl_set_object_lsize(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl;
-Procedure fl_set_object_lstyle(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl;
-Procedure fl_set_object_lcol(p1 : PFL_OBJECT; p2 : TFL_COLOR); cdecl;
-Procedure fl_set_object_return(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl;
-Procedure fl_set_object_lalign(p1 : PFL_OBJECT; p2 : Longint {was int});	{ to be removed } cdecl;
-Procedure fl_set_object_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int}); cdecl;
-Procedure fl_set_object_shortcutkey(p1 : PFL_OBJECT; p2 :  word); cdecl;
-Procedure fl_set_object_dblbuffer(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_object_color(p1 : PFL_OBJECT; p2 : TFL_COLOR;p3 : TFL_COLOR); cdecl;
-Procedure fl_set_object_label(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_set_object_position(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_set_object_size(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_set_object_automatic(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_draw_object_label(p1 : PFL_OBJECT);  cdecl;
-Procedure fl_draw_object_label_outside(p1 : PFL_OBJECT);  cdecl;
-Function fl_get_object_component(p1 : PFL_OBJECT; p2,p3,p4 : Longint): PFL_OBJECT; cdecl;
-
-{
-#define  fl_set_object_dblclick(p1 : ob; p2 : timeout)  (p1 : ob)->click_timeout = (p1 : timeout); p3 :p2 : 
-}
-Procedure fl_set_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 :TFL_Coord); cdecl;
-
-
-Procedure fl_fit_object_label(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl;
-
-{ no much get (p1 : yet ?) }
-
-Procedure fl_get_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord ); cdecl;
-Procedure fl_get_object_position(p1 : PFL_OBJECT; p2,p3 :PFL_COORD); cdecl;
-
-{ this one takes into account the label }
-Procedure fl_get_object_bbox (p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD); cdecl;
-
-Procedure fl_call_object_callback(p1 : PFL_OBJECT);  cdecl;
-Function fl_set_object_prehandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR) : PFL_HANDLEPTR ; cdecl;
-Function fl_set_object_posthandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR): PFL_HANDLEPTR ; cdecl;
-Function fl_set_object_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint) : PFL_CALLBACKPTR ; cdecl;
-{
-#define fl_set_object_align   fl_set_object_lalign
-#define fl_set_call_back      fl_set_object_callback
-}
-Procedure fl_redraw_object(p1 : PFL_OBJECT); cdecl;
-Procedure fl_scale_object(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_show_object(p1 : PFL_OBJECT);  cdecl;
-Procedure fl_hide_object(p1 : PFL_OBJECT); cdecl;
-Procedure fl_free_object(p1 : PFL_OBJECT);   cdecl;
-Procedure fl_delete_object(p1 : PFL_OBJECT);   cdecl;
-Procedure fl_trigger_object(p1 : PFL_OBJECT);   cdecl;
-Procedure fl_activate_object(p1 : PFL_OBJECT);   cdecl;
-Procedure fl_deactivate_object(p1 : PFL_OBJECT); cdecl;
-
-Type TFL_ENUMERATEPTR = Procedure (p : pchar);  cdecl;
-     PFL_ENUMERATEPTR = ^TFL_ENUMERATEPTR;
-
-Procedure fl_enumerate_fonts (p1 : PFL_ENUMERATEPTR; p2 :  longint); cdecl;
-
-Function  fl_set_font_name(p1 : Longint {was int}; p2 :  pchar) : longint; cdecl;
-Procedure fl_set_font(p1 : Longint {was int}; p2 :  Longint {was int}); cdecl;
-
-{ routines that facilitate free object }
-
-Function fl_get_char_height(p1,p2 : Longint {was int}; p3,p4 : pointer) : Longint {was int}; cdecl;
-Function fl_get_char_width(p1,p2 :  Longint {was int}) : Longint; cdecl;
-Function fl_get_string_height(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int}; cdecl;
-Function fl_get_string_width(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int}; cdecl;
-Function fl_get_string_widthTAB(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int}; cdecl;
-Function fl_get_string_dimension(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int}; cdecl;
-{
-#define fl_get_string_size  fl_get_string_dimension
-}
-Procedure fl_get_align_xy(p1,p2,p3,p4,p5,p6,p7,p8,p9 : Longint {was int}; p10,p11 : pointer); cdecl;
-
-Procedure fl_drw_text(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar); cdecl;
-
-Procedure fl_drw_text_beside(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar); cdecl;
-{
-#define fl_draw_text(p1 : a; p2 : x;y;w;h;c;st;sz;s)    \
-      (p1 : (p1 : (p1 : a) & FL_ALIGN_INSIDE) ? fl_drw_text:fl_drw_text_beside)\
-      (p1 : a; p2 : x;y;w;h;c;st;sz;s)
-}
-
-Procedure fl_drw_text_cursor(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7,p8: Longint {was int}; p9 : Pchar; p10,p11: Longint {was int}); cdecl;
-
-Procedure fl_drw_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7 : Longint {was int}); cdecl;
-
-type
-
-FL_DRAWPTR = Procedure (p1,p2,p3,p4 : TFL_Coord; p5 : Longint {was int};p6: TFL_COLOR); cdecl;
-PFL_DRAWPTR = ^FL_DRAWPTR;
-
-Function fl_add_symbol(p1 : pchar; p2 : PFL_DRAWPTR; p3 :Longint {was int}) : Longint {was int}; cdecl;
-Function fl_draw_symbol(p1 : pchar; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR) : Longint {was int}; cdecl;
-
-const
-  FL_SLIDER_NONE = 0;
-  FL_SLIDER_BOX = 1;
-  FL_SLIDER_KNOB = 2;
-  FL_SLIDER_UP = 4;
-  FL_SLIDER_DOWN = 8;
-  FL_SLIDER_ALL = 15;
-  
-Procedure fl_drw_slider (p1 :longint; p2,p3,P4,p5 : TFL_COORD; p6,p7 : TFL_COLOR; 
-                         p8 : Longint; p9,p10 : double; P11 : pchar; p12,p13,p14 : Longint);cdecl;
-                         
-
-Function fl_mapcolor(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}) : cardinal; cdecl;
-Function fl_mapcolorname(p1 : TFL_COLOR; p2 :  pchar) : longint; cdecl;
-{
-#define fl_mapcolor_name  fl_mapcolorname
-}
-Function fl_getmcolor(p1 : TFL_COLOR; p2,p3,p4 : pointer) : cardinal; cdecl;
-Procedure fl_free_colors(p1 : PFL_COLOR; p2 :  Longint {was int}); cdecl;
-Procedure fl_free_pixels(p1 : pcardinal; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_color_leak(p1 : Longint {was int});  cdecl;
-Function fl_get_pixel(p1 : TFL_COLOR): cardinal;  cdecl;
-{
-#define fl_get_flcolor   fl_get_pixel
-}
-Procedure fl_get_icm_color(p1 : TFL_COLOR; p2,p3,p4 : pointer); cdecl;
-Procedure fl_set_icm_color(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}); cdecl;
-
-Procedure fl_color(p1 : TFL_COLOR); cdecl;
-Procedure fl_bk_color(p1 : TFL_COLOR);  cdecl;
-Procedure fl_textcolor(p1 : TFL_COLOR);  cdecl;
-Procedure fl_bk_textcolor(p1 : TFL_COLOR);  cdecl;
-Procedure fl_set_gamma(p1,p2,p3 :double); cdecl;
-
-Procedure fl_show_errors(p1 : Longint {was int});  cdecl;
-
-{ Some macros }
-{
-#define FL_max(p1 : a; p2 : b)      (p1 :  (p1 : a) > (p1 : b) ? (p1 : a):(p1 : b) )
-#define FL_min(p1 : a; p2 : b)      (p1 :  (p1 : a) < (p1 : b) ? (p1 : a):(p1 : b) )
-#define FL_abs(p1 : a)        (p1 :  (p1 : a) > 0 ? (p1 : a):(p1 : -(p1 : a)))
-#define FL_nint(p1 : a)       (p1 :  (p1 : a) > 0 ? (p1 : (p1 : a) + 0.5):(p1 : (p1 : a) - 0.5))
-}
-type TFL_FSCB = Function (p1 : pchar; p2 : pointer) : Longint; cdecl;
-PFL_FSCB = ^TFL_FSCB;
-
-{ utilities for new objects }
-var fl_current_form : PFL_FORM; cvar;external;
-Procedure fl_add_object(p1 : PFL_FORM; p2 : PFL_OBJECT); cdecl;
-Procedure fl_addto_form(p1 : PFL_FORM);  cdecl;
-Function fl_make_object(p1 : Longint {was int}; p2,p3,p4,p5,p6 : TFL_Coord; p7 : pchar; P8 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_coordunit(p1 : Longint {was int}); cdecl;
-Function fl_get_coordunit : Longint {was int};  cdecl;
-Procedure fl_set_border_width(p1 : Longint {was int});  cdecl;
-Function fl_get_border_width : Longint {was int};   cdecl;
-Procedure fl_set_scrollbar_type (p1 :longint); cdecl;
-
-Procedure fl_flip_yorigin;  cdecl;
-
-Procedure fl_ringbell ( p1 : longint); cdecl;
-Procedure fl_gettime (p1,p2 : Plongint); cdecl;
-Function fl_whoami : pchar; cdecl;
-Function fl_now : pchar; cdecl;
-Function fl_mouse_button : longint; cdecl;
-
-
-{ this gives more flexibility for future changes }
-
-{
-#define fl_free       free
-#define fl_malloc     malloc
-#define fl_calloc     calloc
-#define fl_realloc    realloc
-}
-Const  FL_MAX_MENU_CHOICE_ITEMS = 128;
-
-{
- * $Id$
- *
- *  X Window dependent stuff
- *
- }
-
-{ Still need conversion !! }
-{
-#include <X11/Xatom.h>
-#include <X11/keysym.h>
-}
-Const
- 
- FL_MINDEPTH = 1;
-
-
-{ FL_xxx does not do anything anymore; but kept for compatibility }
-    FL_illegalVisual = -1;
-    FL_StaticGray = StaticGray;
-    FL_GrayScale = GrayScale;
-    FL_StaticColor = StaticColor;
-    FL_PseudoColor = PseudoColor;
-    FL_TrueColor = TrueColor;
-    FL_DirectColor = DirectColor;
-    FL_DefaultVisual = 10;	{ special request }
-
-    FL_North = NorthGravity;
-    FL_NorthEast = NorthEastGravity;
-    FL_NorthWest = NorthWestGravity;
-    FL_South = SouthGravity;
-    FL_SouthEast = SouthEastGravity;
-    FL_SouthWest = SouthWestGravity;
-    FL_East = EastGravity;
-    FL_West = WestGravity;
-    FL_NoGravity = ForgetGravity;
-    FL_ForgetGravity = ForgetGravity;
-
-{
-#define FL_is_gray(p1 : v)  (p1 : v==GrayScale || v==StaticGray)
-#define FL_is_rgb(p1 : v)   (p1 : v==TrueColor || v==DirectColor)
-}
-
-{
- * Internal colormap size. Not really very meaningful as fl_mapcolor
- * and company allow color "leakage"; that is; although only FL_MAX_COLS
- * are kept in the internal colormap; the server might have substantially
- * more colors allocated
- }
-
-FL_MAX_COLS =  1024;
-
-{
- * FL graphics state information. Some are redundant.
- }
-
-type
-TFL_STATE = record
-    xvinfo : PXVisualInfo;
-    cur_fnt : PXFontStruct;	{ current font in default GC       }
-    colormap : TColormap ;		{ colormap valid for xvinfo        }
-    trailblazer : TWindow ;		{ a valid window for xvinfo        }
-    vclass, depth,		{ visual class and color depth     }
-    rgb_bits,		{ primary color resolution         }
-    dithered,		{ true if dithered color           }
-    pcm : Longint;			{ true if colormap is not shared   }
-    gc : Array [0..16] of TGC;			{ working GC                       }
-    textgc : array [0..16] of TGC;		{ GC used exclusively for text     }
-    dimmedGC : TGC;		{ A GC having a checkboard stipple }
-    lut :array [0..FL_MAX_COLS] of cardinal;	{ secondary lookup table         }
-    rshift : word; 
-    rmask, rbits : Longint;
-    gshift : word;
-    gmask,gbits : Longint {was int};
-    bshift : word; 
-    bmask, bbits : Longint {was int};
-end;
-PFL_State = ^TFL_State;
-
-{
-#define FL_State FL_STATE	{ for compatibility }
-}
-
-{**** Global variables *****}
-
-Var
-
-fl_display : PDisplay;
-fl_screen : Longint;
-fl_root : TWindow;		{ root window                }
-fl_vroot : TWindow;		{ virtual root window        }
-fl_scrh : Longint; 
-fl_scrw : Longint;	{ screen dimension in pixels }
-fl_vmode : Longint {was int};
-
-{ current version only runs in single visual mode }
-{
-#define  fl_get_vclass(p1 : )        fl_vmode
-#define  fl_get_form_vclass(p1 : a)  fl_vmode
-}
-{
-fl_state[] : PFL_State ;
-fl_ul_magic_char : pchar;
-}
-
-Function fl_mode_capable(p1,p2 : longint ) : longint; cdecl;
-
-{
-#define fl_default_win(p1 : )       (p1 : fl_state[fl_vmode].trailblazer)
-#define fl_default_window(p1 : )    (p1 : fl_state[fl_vmode].trailblazer)
-}
-{
- * All pixmaps used by FL_OBJECT to simulate double buffering have the
- * following entries in the structure. TFL_Coord x;y are used to shift
- * the origin of the drawing routines
- }
-
-
-{ fonts related }
-Const
-FL_MAX_FONTSIZES=10;
-
-type
- FL_FONT = record
-    fs : array[0..FL_MAX_FONTSIZES] of PXFontStruct;	{ cached fontstruct }
-    size : array [0..FL_MAX_FONTSIZES] of byte;	{ cached sizes      }
-    nsize : byte;		{ cached so far     }
-    fname : Array[1..80] of char;		{ without size info     }
-end;
-
-{
- * Some basic drawing routines
- }
-
-type TFL_POINT = TXPoint;
-     PFL_Point = ^TFL_Point;
-     TFL_RECT = TXRECTANGLE;
-     PFL_RECT = ^TFL_RECT;     
-     
-{ rectangles }
-Procedure fl_rectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl;
-Procedure fl_rectbound(p1,p2,p3,p4 : TFL_Coord;p5 : TFL_COLOR); cdecl;
-
-Procedure fl_rectf(x,y,w,h : TFL_COORD;c : TFL_COLOR); cdecl;
-Procedure fl_rect(x,y,w,h : TFL_COORD;c : TFL_COLOR); cdecl;
-
-
-{ rectangle with rounded-corners }
-Procedure fl_roundrectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 :TFL_COLOR); cdecl;
-
-{
-#define fl_roundrectf(p1 : x; p2 : y;w;h;c) fl_roundrectangle(p1 : 1; p2 : x;y;w;h;c)
-#define fl_roundrect(p1 : x; p2 : y;w;h;c) fl_roundrectangle(p1 : 0; p2 : x;y;w;h;c)
-}
-{ general polygon and polylines }
-Procedure fl_polygon(p1 : Longint {was int}; p2 : PFL_POINT; p3 : Longint {was int}; p4 : TFL_COLOR); cdecl;
-
-{
-#define fl_polyf(p1 : p; p2 : n;c)  fl_polygon(p1 : 1; p2 : p; p3 : n; p4 : c)
-#define fl_polyl(p1 : p; p2 : n;c)  fl_polygon(p1 : 0; p2 : p; p3 : n; p4 : c)
-#define fl_polybound(p1 : p; p2 : n;c) do {fl_polyf(p1 : p; p2 : n;c);fl_polyl(p1 : p; p2 : n;FL_BLACK);}while(p1 : 0)
-}
-
-Procedure fl_lines(p1 : TFL_POINT; p2 : Longint {was int}; p3 :TFL_COLOR); cdecl;
-Procedure fl_line(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); cdecl;
-Procedure fl_point(p1,p2 : TFL_Coord; p3: TFL_COLOR); cdecl;
-Procedure fl_points(p1 : PFL_POINT; p2 : Longint; p3: TFL_COLOR); cdecl;
-
-{
-#define fl_simple_line fl_line
-}
-Procedure fl_dashedlinestyle(p1 : pchar; p2 :  Longint {was int}); cdecl;
-Procedure fl_drawmode(p1 : Longint {was int});  cdecl;
-
-{
-#define fl_diagline(p1 : x; p2 : y;w;h;c) fl_line(p1 : x; p2 : y;(p1 : x)+(p1 : w)-1; p2 : (p1 : y)+(p1 : h)-1; p2 : c)
-}
-{ line attributes }
-Const 
-  FL_SOLID = 0;
-  FL_USERDASH = 1;
-  FL_USERDOUBLEDASH = 2;
-  FL_DOT = 3;
-  FL_DOTDASH = 4;
-  FL_DASH = 5;
-  FL_LONGDASH = 6;
-
-Procedure fl_linewidth(p1 : Longint {was int});  cdecl;
-Procedure fl_linestyle(p1 : Longint {was int});  cdecl;
-
-Function fl_get_linewidth : longint; cdecl;
-Function fl_get_linestyle : longint; cdecl;
-
-
-{* ellipses *}
-Procedure fl_oval(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl;
-Procedure fl_ovalbound(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); cdecl;
-Procedure fl_ovalarc(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6,p7 : Longint; p8 : TFL_COLOR); cdecl;
-
-{
-#define fl_ovalf(p1 : x; p2 : y;w;h;c)     fl_oval(p1 : 1; p2 : x;y;w;h;c)
-#define fl_ovall(p1 : x; p2 : y;w;h;c)     fl_oval(p1 : 0; p2 : x;y;w;h;c)
-#define fl_oval_bound           fl_ovalbound
-
-#define fl_circf(p1 : x; p2 : y;r;col)  fl_oval(p1 : 1; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : 2*(p1 : r); p2 : 2*(p1 : r); p2 : col)
-#define fl_circ(p1 : x; p2 : y;r;col)   fl_oval(p1 : 0; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : 2*(p1 : r); p2 : 2*(p1 : r); p2 : col)
-}
-
-{ arcs }
-Procedure fl_pieslice(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7 :Longint {was int}; p8 : TFL_COLOR); cdecl;
-{
-#define fl_arcf(p1 : x; p2 : y;r;a1;a2;c)  fl_pieslice(p1 : 1; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 : \
-                                (p1 : 2*(p1 : r)); p2 : (p1 : 2*(p1 : r)); p2 :  a1;a2;c)
-
-#define fl_arc(p1 : x; p2 : y;r;a1;a2;c)  fl_pieslice(p1 : 0; p2 : (p1 : x)-(p1 : r); p2 : (p1 : y)-(p1 : r); p2 :  \
-                               (p1 : 2*(p1 : r)); p2 : (p1 : 2*(p1 : r)); p2 :  a1;a2;c)
-}
-{ misc. stuff }
-Procedure fl_add_vertex(p1,p2 :  TFL_Coord); cdecl;
-Procedure fl_add_float_vertex(p1,p2 :  real); cdecl;
-Procedure fl_reset_vertex;  cdecl;
-Procedure fl_endline; cdecl;
-Procedure fl_endpolygon; cdecl;
-Procedure fl_endclosedline;  cdecl;
-
-{
-#define fl_bgnline       fl_reset_vertex
-#define fl_bgnclosedline fl_reset_vertex
-#define fl_bgnpolygon    fl_reset_vertex
-#define fl_v2s(p1 : v)        fl_add_vertex(p1 : v[0]; p2 :  v[1])
-#define fl_v2i(p1 : v)        fl_add_vertex(p1 : v[0]; p2 :  v[1])
-#define fl_v2f(p1 : v)        fl_add_float_vertex(p1 : v[0]; p2 :  v[1])
-#define fl_v2d(p1 : v)        fl_add_float_vertex(p1 : v[0]; p2 :  v[1])
-}
-
-{ high level drawing routines }
-Procedure fl_drw_frame(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR; p7 : Longint {was int}); cdecl;
-Procedure fl_drw_checkbox(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR;p7 : Longint {was int}); cdecl;
-
-{
- * Interfaces
- }
-Function fl_get_fontstruct(p1,p2 :  Longint {was int}) : PXFontStruct; cdecl;
-{
-#define fl_get_font_struct fl_get_fontstruct
-#define fl_get_fntstruct fl_get_font_struct
-}
-
-Function fl_get_mouse(p1,p2 : PFL_COORD; p3 : pword) : TWindow; cdecl;
-Procedure fl_set_mouse(p1,p2 :  TFL_Coord); cdecl;
-Function fl_get_win_mouse(p1 : TWindow; p2,p3 : PFL_COORD; p4 : pword) : TWindow; cdecl;
-Function fl_get_form_mouse(p1 : PFL_FORM; p2,p3 : PFL_COORD; p4 : pWord) : TWindow; cdecl;
-Function fl_win_to_form(p1 : TWindow) : PFL_form;  cdecl;
-Procedure fl_set_form_icon(p1 : PFL_FORM; p2 : TPixmap; p3 :TPixmap); cdecl;
-
-{
-#define fl_raise_form(p1 : f) if(p1 : f->window) XRaiseWindow(p1 : fl_display; p2 : f->window)
-#define fl_lower_form(p1 : f) if(p1 : f->window) XLowerWindow(p1 : fl_display; p2 : f->window)
-}
-{
-#define fl_set_foreground(p1 : gc; p2 : c) XSetForeground(p1 : fl_display; p2 : gc;fl_get_pixel(p1 : c))
-#define fl_set_background(p1 : gc; p2 : c) XSetBackground(p1 : fl_display; p2 : gc;fl_get_pixel(p1 : c))
-}
-{ General windowing support }
-
-Function fl_wincreate(p1 : pchar) : TWindow;  cdecl;
-Function fl_winshow(p1 : TWindow) : TWindow;  cdecl;
-Function fl_winopen(p1 : pchar) : TWindow;  cdecl;
-Procedure fl_winhide(p1 : TWindow);  cdecl;
-Procedure fl_winclose(p1 : TWindow);   cdecl;
-Procedure fl_winset(p1 : TWindow);  cdecl;
-Function fl_winget : Twindow;  cdecl;
-
-Procedure fl_winresize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_winmove(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_winreshape(p1 : TWindow; p2,p3,p4,p5 : TFL_Coord); cdecl;
-Procedure fl_winicon(p1 : TWindow; p2 : TPixmap; p3 :TPixmap); cdecl;
-Procedure fl_winbackground(p1 : TWindow; p2 :  cardinal); cdecl;
-Procedure fl_winstepunit(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_winisvalid(p1 : TWindow);  cdecl;
-Procedure fl_wintitle(p1 : TWindow; p2 :  pchar); cdecl;
-Procedure fl_winposition(p1,p2 :  TFL_Coord); cdecl;
-
-{
-#define fl_pref_winposition fl_winposition
-#define fl_win_background     fl_winbackground
-#define fl_set_winstepunit    fl_winstepunit
-}
-
-
-Procedure fl_winminsize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_winmaxsize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_winaspect(p1 : TWindow; p2,p3 :TFL_Coord); cdecl;
-Procedure fl_reset_winconstraints(p1 : TWindow);  cdecl;
-
-Procedure fl_winsize(p1,p2 :  TFL_Coord); cdecl;
-Procedure fl_initial_winsize(p1,p2 :  TFL_Coord); cdecl;
-{
-#define fl_pref_winsize  fl_winsize
-}
-Procedure fl_initial_winstate(p1 : Longint {was int});  cdecl;
-
-Function fl_create_colormap(p1 : PXVisualInfo; p2 :  Longint {was int}) : TColormap; cdecl;
-
-
-Procedure fl_wingeometry(p1,p2,p3,p4 : TFL_Coord); cdecl;
-{
-#define fl_pref_wingeometry  fl_wingeometry
-}
-Procedure fl_initial_wingeometry(p1,p2,p3,p4 : TFL_Coord); cdecl;
-
-{
-Procedure fl_noborder; cdecl;
-Procedure fl_transient; cdecl;
-}
-
-Procedure fl_get_winsize(p1 : TWindow; p2,p3 :PFL_COORD); cdecl;
-Procedure fl_get_winorigin(p1 : TWindow; p2,p3 :PFL_COORD); cdecl;
-Procedure fl_get_wingeometry(p1 : TWindow; p2,p3,p4,p5 : PFL_COORD); cdecl;
-
-{ for compatibility }
-{
-#define fl_get_win_size          fl_get_winsize
-#define fl_get_win_origin        fl_get_winorigin
-#define fl_get_win_geometry      fl_get_wingeometry
-#define fl_initial_winposition   fl_pref_winposition
-
-#define fl_get_display(p1 : )           fl_display
-#define FL_FormDisplay(p1 : form)       fl_display
-#define FL_ObjectDisplay(p1 : object)   fl_display
-}
-
-{ the window an object belongints }
-
-Function FL_ObjWin ( P : PFL_Object) : TWindow; cdecl;
-
-{
-#define FL_OBJECT_WID  FL_ObjWin
-}
-
-{  all registerable events; including Client Message }
-const FL_ALL_EVENT = (KeyPressMask or KeyReleaseMask or
-                      ButtonPressMask or ButtonReleaseMask or
-                      EnterWindowMask or LeaveWindowMask or
-                      ButtonMotionMask or PointerMotionMask);
-
-{ Timer related }
-
- FL_TIMER_EVENT = $40000000;
-
-
-Function fl_XNextEvent(p1 : PXEvent) : Longint;  cdecl;
-Function fl_XPeekEvent(p1 : PXEvent) : Longint;  cdecl;
-Function fl_XEventsQueued(p1 : Longint {was int}) : Longint;  cdecl;
-Procedure fl_XPutBackEvent(p1 : PXEvent);   cdecl;
-Function fl_last_event : PXEvent ;  cdecl;
-
-type
-TFL_APPEVENT_CB = Procedure (p1 : PXEvent; p2 : pointer); cdecl;
-PFL_APPEVENT_CB = ^TFL_APPEVENT_CB;
-
-Function fl_set_event_callback(p1 : PFL_APPEVENT_CB; p2 : pointer) : PFL_APPEVENT_CB ; cdecl;
-Function fl_set_idle_callback(p1 : PFL_APPEVENT_CB; p2 :  pointer) : PFL_APPEVENT_CB ; cdecl;
-Function fl_addto_selected_xevent(p1 : TWindow; p2 :  longint) : Cardinal; cdecl;
-Function fl_remove_selected_xevent(p1 : TWindow; p2 :  longint) : cardinal; cdecl;
-{
-#define fl_add_selected_xevent  fl_addto_selected_xevent
-}
-{
- * Group some WM stuff into a structure for easy maintainance
- }
-const
-    FL_WM_SHIFT = 1;
-    FL_WM_NORMAL = 2;
-
-type TFL_WM_STUFF = record
-    rpx, rpy,		{ reparenting offset for full border }
-    trpx, trpy,		{ reparenting offset for transient   }
-    bw,			{ additional border                  }
-    rep_method : Longint;		{ 1 for shifting; 2 for normal       }
-    pos_request : word;	{ USPOSITION or PPOSITION            }
-end;
-PFL_WM_STUFF = ^TFL_WM_STUFF;
-
-
-Function fl_add_event_callback(p1 : TWindow; p2 :  Longint {was int}; p3 : PFL_APPEVENT_CB; p4 : pointer) : PFL_APPEVENT_CB ; cdecl;
-
-Procedure fl_remove_event_callback(p1 : TWindow; p2 :  Longint {was int}); cdecl;
-Procedure fl_activate_event_callbacks(p1 : TWindow);  cdecl;
-
-Function fl_print_xevent_name(p1 : pchar; p2 : PXEvent) : PXEvent; cdecl;
-
-{
-#define metakey_down(p1 : mask)     (p1 : (p1 : mask) & Mod1Mask)
-#define shiftkey_down(p1 : mask)    (p1 : (p1 : mask) & ShiftMask)
-#define controlkey_down(p1 : mask)  (p1 : (p1 : mask) & ControlMask)
-#define button_down(p1 : mask)      (p1 : (p1 : (p1 : mask) & Button1Mask) || \
-                               (p1 : (p1 : mask) & Button2Mask) || \
-			       (p1 : (p1 : mask) & Button3Mask))
-#define fl_keypressed          fl_keysym_pressed
-}
-{***************** Resources **************}
-
-
-{ bool is Longint {was int}. FL_NONE is defined elsewhere }
-const
-    FL_NONE   = 0;
-    FL_SHORT  = 10; 
-    FL_BOOL   = 11; 
-    FL_INT    = 12;
-    FL_LONG   = 13; 
-    FL_FLOAT  = 14; 
-    FL_STRING = 15;
-    
-Type  TFL_RTYPE = Longint;
-
-TFL_RESOURCE = record
-    res_name,			{ resource name                        }
-    res_class : Pchar;		{ resource class                       }
-    rtype : TFL_RTYPE;		{ FL_INT; FL_FLOAT; FL_BOOL;FL_STRING  }
-    thevar : pointer;		{ address for the variable             }
-    defval : pchar;		{ default setting in string form       }
-    bytes : Longint {was int}		{ used only for strings                }
-end;
-PFL_RESOURCE = ^TFL_RESOURCE;
-
-Type
- TFL_CMD_OPT = TXrmOptionDescRec;
- PFL_CMD_OPT = ^TFL_CMD_OPT;
- 
-Function fl_initialize(p1 : pointer; p2 : ppchar; p3 :pchar; p4 : PFL_CMD_OPT; p5 : Longint {was int}) : Pdisplay; cdecl;
-Procedure fl_finish;   cdecl;
-
-{ addfromhere }
-
-Function fl_get_resource(p1 : pchar; p2 :  pchar; p3 : TFL_RTYPE; p4 : pchar; p5 : pointer; p6 :Longint {was int}) : pchar; cdecl;
-Procedure fl_set_resource(p1 : pchar; p2 :  pchar); cdecl;
-
-Procedure fl_get_app_resources(p1 : PFL_resource; p2 : Longint {was int}); cdecl;
-Procedure fl_set_graphics_mode(p1 : Longint {was int}; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_visualID(p1 : longint);   cdecl;
-Function fl_keysym_pressed(p1 : TKeySym) : Longint;  cdecl;
-
-{
-#define buttonLabelSize  buttonFontSize
-#define sliderLabelSize  sliderFontSize
-#define inputLabelSize   inputFontSize
-}
-{ All Form control variables. Named closely as its resource name }
-Type TFL_IOPT =  record
-    rgamma, ggamma, bgamma : longint; { MUST BE FLOAT(single) !!! }
-    debug, sync,
-    depth, vclass, doubleBuffer,
-    ulPropWidth, ulThickness,	{ underline stuff       }
-    buttonFontSize,
-    sliderFontSize,
-    inputFontSize,
-    browserFontSize,
-    menuFontSize,
-    choiceFontSize,
-    labelFontSize,		{ all other labels fonts }
-    pupFontSize, pupFontStyle,	{ font for pop-up menus  }
-    privateColormap,
-    sharedColormap,
-    standardColormap,
-    ScrollBarType,
-    backingStore,
-    coordUnit,
-    borderWidth,
-    safe : Longint {was int};
-    rgbfile : pchar;		{ where RGB file is     }
-    vname : array [0..23] of char;
-end;
-PFL_IOPT = ^TFL_IOPT; 
-
-
-Const
-
-{ program default masks }
-
-    FL_PDDepth = 1 shl 1 ; 
-    FL_PDClass = 1 shl 2 ; 
-    FL_PDDouble = 1 shl 3 ; 
-    FL_PDSync = 1 shl 4 ; 
-    FL_PDPrivateMap = 1 shl 5 ; 
-    FL_PDLeftScrollBar = 1 shl 6 ; 
-    FL_PDPupFontSize = 1 shl 7 ; 
-    FL_PDButtonFontSize = 1 shl 8 ; 
-    FL_PDInputFontSize = 1 shl 9 ; 
-    FL_PDSliderFontSize = 1 shl 10 ; 
-    FL_PDVisual = 1 shl 11 ; 
-    FL_PDULThickness = 1 shl 12 ; 
-    FL_PDULPropWidth = 1 shl 13 ; 
-    FL_PDBS = 1 shl 14 ; 
-    FL_PDCoordUnit = 1 shl 15 ; 
-    FL_PDDebug = 1 shl 16 ; 
-    FL_PDSharedMap = 1 shl 17 ; 
-    FL_PDStandardMap = 1 shl 18 ; 
-    FL_PDBorderWidth = 1 shl 19 ; 
-    FL_PDSafe = 1 shl 20 ; 
-    FL_PDMenuFontSize = 1 shl 21 ; 
-    FL_PDBrowserFontSize = 1 shl 22 ; 
-    FL_PDChoiceFontSize = 1 shl 23 ; 
-    FL_PDLabelFontSize = 1 shl 24;
-    FL_PDButtonLabelSize = FL_PDButtonFontSize;
-    FL_PDSliderLabelSize = FL_PDSliderFontSize;
-    FL_PDInputLabelSize  = FL_PDInputFontSize;
-    FL_PDButtonLabel  = FL_PDButtonLabelSize;
- 
-Procedure fl_set_defaults(p1 : cardinal; p2 :  PFL_IOPT); cdecl;
-Procedure fl_set_tabstop(p1 : pchar);  cdecl;
-Procedure fl_get_defaults(p1 : PFL_IOPT);  cdecl;
-Function fl_get_visual_depth : Longint;  cdecl;
-Function fl_vclass_name(p1 : Longint {was int}) : pchar;  cdecl;
-Function fl_vclass_val(p1 : pchar) : Longint {was int};  cdecl;
-Procedure fl_set_ul_property(p1 : Longint {was int}; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_clipping(p1 : TFL_Coord; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord); cdecl;
-Procedure fl_set_gc_clipping(p1 : TGC; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord); cdecl;
-Procedure fl_unset_gc_clipping(p1 : TGC);  cdecl;
-Procedure fl_set_clippings(p1 : PFL_RECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_unset_clipping;  cdecl;
-
-Function fl_textgc : TGC; cdecl;
-{
-#define fl_set_text_clipping(p1 : a; p2 : b;c;d)   fl_set_gc_clipping(p1 : fl_textgc; p2 : a;b;c;d)
-#define fl_unset_text_clipping(p1 : ) fl_unset_gc_clipping(p1 : fl_textgc)
-}
-
-Const
- FL_NORMAL_BITMAP = 0;
-
-{**** Defaults ****}
-FL_BITMAP_BOXTYPE	=FL_NO_BOX;
-FL_BITMAP_COL1		=FL_COL1;	{ background of bitmap }
-FL_BITMAP_COL2		=FL_COL1;	{ not used currently   }
-FL_BITMAP_LCOL		=FL_LCOL;	{ foreground of bitmap }
-FL_BITMAP_ALIGN		=FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
-{FL_BITMAP_MAXSIZE	= 128*128;}
-
-{**** Routines ****}
-Function fl_create_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Procedure fl_set_bitmap_data(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : pointer); cdecl;
-Procedure fl_set_bitmap_file(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Function fl_read_bitmapfile(p1 : TWindow; p2 :  pchar; p3,p4 : pword; p5,p6 : pointer) : TPixmap ; cdecl;
-
-{
-#define fl_create_from_bitmapdata(p1 : win; p2 : data; p3 : w; p4 : h)\
-                   XCreateBitmapFromData(p1 : fl_get_display(p1 : ); p2 : win; p3 :\
-                   (p1 : char *)data; p2 : w; p3 :h)
-
-{ for compatibility }
-#define fl_set_bitmap_datafile fl_set_bitmap_file
-}
-
-{ PIXMAP stuff }
-
-Const
-FL_NORMAL_PIXMAP   = 0;
-
-Function fl_create_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6  :pchar) : PFL_OBJECT; cdecl;
-Function fl_add_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_pixmap_data(p1 : PFL_OBJECT; p2 :  ppchar); cdecl;
-Procedure fl_set_pixmap_file(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_set_pixmap_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int}); cdecl;
-Procedure fl_set_pixmap_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap); cdecl;
-Procedure fl_set_pixmap_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_free_pixmap_pixmap(p1 : PFL_OBJECT);  cdecl;
-Function fl_get_pixmap_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ; cdecl;
-
-Function fl_read_pixmapfile(p1 : TWindow; p2 :  pchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR)  : TPixmap ; cdecl;
-Function fl_create_from_pixmapdata(p1 : TWindow; p2 :  ppchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR) : TPixmap ; cdecl;
-{
-#define fl_free_pixmap(p1 : id)  if(p1 : id != None) XFreePixmap(p1 : fl_display; p2 :  id);
-}
-
-Function fl_create_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-Type TFL_BROWSER_TYPE = Longint;
-
-Const
-    FL_NORMAL_BROWSER = 0;
-    FL_SELECT_BROWSER = 1;
-    FL_HOLD_BROWSER   = 2;
-    FL_MULTI_BROWSER  = 3;
-
-{**** Defaults ****}
-
- FL_BROWSER_BOXTYPE	= FL_DOWN_BOX;
- FL_BROWSER_COL1	= FL_COL1;
- FL_BROWSER_COL2	= FL_YELLOW;
- FL_BROWSER_LCOL	= FL_LCOL;
- FL_BROWSER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
- FL_BROWSER_SLCOL	= FL_COL1;
- FL_BROWSER_LINELENGTH	= 1024;
- FL_BROWSER_FONTSIZE    = FL_SMALL_FONT;
-
-{ as of .86
- FL_SCROLLBAR_OFF = 0;
- FL_SCROLLBAR_ON = 1;
- FL_SCROLLBAR_ALWAYS_ON = 2;
-}
-
-{**** Routines ****}
-
-Function fl_create_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6:  pchar) : PFL_OBJECT; cdecl;
-Procedure fl_clear_browser(p1 : PFL_OBJECT); cdecl;
-Procedure fl_add_browser_line(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_addto_browser(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_addto_browserchars(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-
-Procedure fl_insert_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl;
-Procedure fl_delete_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_replace_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl;
-Function fl_get_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; cdecl;
-Function fl_load_browser(p1 : PFL_OBJECT; p2 :  pchar ) : Longint ; cdecl;
-
-Procedure fl_select_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_deselect_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_deselect_browser(p1 : PFL_OBJECT);  cdecl;
-Function fl_isselected_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Longint ; cdecl;
-
-Function fl_get_browser_topline(p1 : PFL_OBJECT ) : Longint ;  cdecl;
-Function fl_get_browser(p1 : PFL_OBJECT ) : Longint ; cdecl;
-Function fl_get_browser_maxline(p1 : PFL_OBJECT ) : Longint ;  cdecl;
-Function fl_get_browser_screenlines(p1 : PFL_OBJECT ) : Longint ; cdecl;
-
-Procedure fl_set_browser_topline(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_specialkey(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_leftslider(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_browser_line_selectable(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_get_browser_dimension(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD); cdecl;
-Procedure fl_set_browser_dblclick_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint); cdecl;
-{
-#define fl_set_browser_leftscrollbar fl_set_browser_leftslider
-}
-Procedure fl_set_browser_xoffset(p1 : PFL_OBJECT; p2 :  TFL_Coord); cdecl;
-Procedure fl_set_browser_scrollbarsize (p1 : PFL_OBJECT;p2,p3 : longint); cdecl;
-Procedure fl_show_browser_line(p1 : PFL_OBJECT; p2 : longint); cdecl;
-Function fl_get_browser_xoffset(p1 : PFL_OBJECT) : TFL_Coord ; cdecl;
-
-type
- TFL_BUTTON_TYPE= Longint;
-
-Const
-    FL_NORMAL_BUTTON	= 0;
-    FL_PUSH_BUTTON	= 1;
-    FL_RADIO_BUTTON	= 2;
-    FL_HIDDEN_BUTTON	= 3;
-    FL_TOUCH_BUTTON	= 4;
-    FL_INOUT_BUTTON	= 5;
-    FL_RETURN_BUTTON	= 6;
-    FL_HIDDEN_RET_BUTTON= 7;
-    FL_MENU_BUTTON	= 8;
-
-type TFL_BUTTON_SPEC = record
-    pixmap,mask :  TPixmap;
-    bits_w, bits_h : Cardinal;
-    val,			{ whether on }
-    mousebut,		{ mouse button that caused the push     }
-    timdel,			{ time since last touch (p1 : TOUCH buttons) }
-    event : Longint;			{ what event triggers redraw            }
-    cspecl : longint;		{ reserved for class specfic stuff      }
-    cspecv : pointer;		{ misc. things                          }
-    filename : pchar;
-end;
-TFL_BUTTON_STRUCT = TFL_BUTTON_SPEC;
-PFL_BUTTON_STRUCT = ^TFL_BUTTON_STRUCT;
-
-TFL_DrawButton = Procedure  (p1 : PFL_OBJECT);  cdecl;
-PFL_DrawButton  = ^TFL_DrawButton;
-TFL_CleanupButton = Procedure (p1 : PFL_BUTTON_STRUCT);  cdecl;
-PFL_CleanupButton= ^TFL_CleanupButton;
-
-Const
-FL_BUTTON_BOXTYPE	= FL_UP_BOX;
-FL_BUTTON_COL1		= FL_COL1;
-FL_BUTTON_COL2		= FL_COL1;
-FL_BUTTON_LCOL		= FL_LCOL;
-FL_BUTTON_ALIGN		= FL_ALIGN_CENTER;
-
-FL_BUTTON_MCOL1		= FL_MCOL;
-FL_BUTTON_MCOL2		= FL_MCOL;
-
-FL_BUTTON_BW		= FL_BOUND_WIDTH;
-
-{
- *  light button defaults
- }
-FL_LIGHTBUTTON_BOXTYPE	= FL_UP_BOX;
-FL_LIGHTBUTTON_COL1	= FL_COL1;
-FL_LIGHTBUTTON_COL2	= FL_YELLOW;
-FL_LIGHTBUTTON_LCOL	= FL_LCOL;
-FL_LIGHTBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-{**** Others   ****}
-
-FL_LIGHTBUTTON_TOPCOL	= FL_COL1;
-FL_LIGHTBUTTON_MCOL	= FL_MCOL;
-FL_LIGHTBUTTON_MINSIZE	= 12;
-
-{* round button defaults **}
-
-  FL_ROUNDBUTTON_BOXTYPE	= FL_NO_BOX;
-  FL_ROUNDBUTTON_COL1	= FL_MCOL;
-  FL_ROUNDBUTTON_COL2	= FL_YELLOW;
-  FL_ROUNDBUTTON_LCOL	= FL_LCOL;
-  FL_ROUNDBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-  FL_ROUNDBUTTON_TOPCOL	= FL_COL1;
-  FL_ROUNDBUTTON_MCOL	= FL_MCOL;
-
-{* round3d button defaults **}
-
-  FL_ROUND3DBUTTON_BOXTYPE	= FL_NO_BOX;
-  FL_ROUND3DBUTTON3D_COL1	= FL_MCOL;
-  FL_ROUND3DBUTTON_COL2	= FL_YELLOW;
-  FL_ROUND3DBUTTON_LCOL	= FL_LCOL;
-  FL_ROUND3DBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-  FL_ROUND3DBUTTON_TOPCOL	= FL_COL1;
-  FL_ROUND3DBUTTON_MCOL	= FL_MCOL;
-
-{* check button defaults **}
-
-  FL_CHECKBUTTON_BOXTYPE	= FL_NO_BOX;
-  FL_CHECKBUTTON_COL1	= FL_COL1;
-  FL_CHECKBUTTON_COL2	= FL_YELLOW;
-  FL_CHECKBUTTON_LCOL	= FL_LCOL;
-  FL_CHECKBUTTON_ALIGN	= FL_ALIGN_CENTER;
-
-  FL_CHECKBUTTON_TOPCOL	= FL_COL1;
-  FL_CHECKBUTTON_MCOL	= FL_MCOL;
-
-{* bitmap button defaults *}
-  FL_BITMAPBUTTON_BOXTYPE	= FL_UP_BOX;
-  FL_BITMAPBUTTON_COL1	= FL_COL1;	{ bitmap background  }
-  FL_BITMAPBUTTON_COL2	= FL_BLUE;	{ "focus" color       }
-  FL_BITMAPBUTTON_LCOL	= FL_LCOL;	{ bitmap foreground   }
-  FL_BITMAPBUTTON_ALIGN	= FL_ALIGN_BOTTOM;
-
-{* bitmap button defaults *}
-  FL_PIXMAPBUTTON_BOXTYPE	= FL_UP_BOX;
-  FL_PIXMAPBUTTON_COL1	= FL_COL1;	{ box col    }
-  FL_PIXMAPBUTTON_COL2	= FL_YELLOW;	{ bound rect }
-  FL_PIXMAPBUTTON_LCOL	= FL_LCOL;
-  FL_PIXMAPBUTTON_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Routines ****}
-
-Function fl_create_button(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_bitmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT; cdecl;
-Function fl_add_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT; cdecl;
-Function fl_add_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT; cdecl;
-Function fl_add_button(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT; cdecl;
-
-
-Procedure fl_set_bitmapbutton_data (p1 : PFL_OBJECT; p2,p3 : Longint {was int};   p4 : pchar); cdecl;
-Procedure fl_set_bitmapbutton_file (p1 : PFL_OBJECT; p2: pchar); cdecl;
-Function  fl_add_bitmapbutton (p1 : longint; p2,p3,p4,p5: TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-{
-#define fl_set_bitmapbutton_datafile  fl_set_bitmapbutton_file
-}
-
-Function fl_add_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Procedure fl_set_pixmapbutton_data(p1 : PFL_OBJECT; p2 :  ppchar); cdecl;
-Procedure fl_set_pixmapbutton_file(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_set_pixmapbutton_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int}); cdecl;
-Procedure fl_set_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap); cdecl;
-Procedure fl_set_pixmapbutton_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_free_pixmapbutton_pixmap(p1 : PFL_OBJECT);  cdecl;
-Function fl_get_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ; cdecl;
-
-Function fl_get_button(p1 : PFL_OBJECT ) : Longint ;   cdecl;
-Procedure fl_set_button(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Function fl_get_button_numb(p1 : PFL_OBJECT ) : Longint ; cdecl;
-
-Procedure fl_set_button_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int}); cdecl;
-
-Function fl_create_generic_button(p1,p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord;p7 : pchar) : PFL_OBJECT; cdecl;
-Procedure fl_add_button_class(p1 : Longint {was int}; p2 : PFL_DRAWBUTTON; p3 : PFL_CLEANUPBUTTON); cdecl;
-
-
-{
- * $Id$
- *
- * Header for FL_CANVAS
- *
- }
-
-
-
-type TFL_CANVAS_TYPE = Longint;
-
-const 
-    FL_NORMAL_CANVAS = 0;
-    FL_SCROLLED_CANVAS = 1;
-
-Type
-TFL_HANDLE_CANVAS = Procedure (P1 : PFL_OBJECT; P2 : TWindow; P3 : Longint {was int}; P4 : Longint {was int};
-				 P5 : PXEvent; P6 : pointer);cdecl;
-PFL_HANDLE_CANVAS = ^TFL_HANDLE_CANVAS;
-
-TFL_MODIFY_CANVAS_PROP = Procedure (p1 : PFL_OBJECT); cdecl;
-PFL_MODIFY_CANVAS_PROP = ^TFL_MODIFY_CANVAS_PROP;
-
-{******************* Default ********************}
-
-Const   FL_CANVAS_BOXTYPE  =  FL_DOWN_BOX;
-        FL_CANVAS_ALIGN    =  FL_ALIGN_TOP;
-
-
-{*********** Interfaces    ***********************}
-
-
-Function fl_create_generic_canvas(p1 : Longint; p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord; p7 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT; cdecl;
-
-Function fl_create_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_create_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-
-
-Procedure fl_set_canvas_decoration(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_canvas_colormap(p1 : PFL_OBJECT; p2 :  TColormap); cdecl;
-Procedure fl_set_canvas_visual(p1 : PFL_OBJECT; p2 :  PVisual); cdecl;
-Procedure fl_set_canvas_depth(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_canvas_attributes(p1 : PFL_OBJECT; p2 : word;  p3 : PXSetWindowAttributes); cdecl;
-
-Function fl_add_canvas_handler(p1 : PFL_OBJECT; p2 :  Longint {was int}; p3 : PFL_HANDLE_CANVAS; p4 : pointer) : PFL_HANDLE_CANVAS ; cdecl;
-
-Function fl_get_canvas_id(p1 : PFL_OBJECT ) : TWindow ; cdecl;
-Function fl_get_canvas_colormap(p1 : PFL_OBJECT ) : TColormap;  cdecl;
-Function fl_get_canvas_depth(p1 : PFL_OBJECT ) : Longint ;  cdecl;
-Procedure fl_remove_canvas_handler(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : PFL_HANDLE_CANVAS); cdecl;
-Procedure fl_hide_canvas(p1 : PFL_OBJECT); 	{ internal use only } cdecl;
-Procedure fl_canvas_yield_to_shortcut(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_share_canvas_colormap(p1 : PFL_OBJECT; p2 :  TColormap); cdecl;
-Procedure fl_modify_canvas_prop(p1 : PFL_OBJECT; 
-				  P2 : PFL_MODIFY_CANVAS_PROP;
-				  p3 : PFL_MODIFY_CANVAS_PROP;
-				  p4 : PFL_MODIFY_CANVAS_PROP);cdecl;
-
-{ OpenGL canvases }
-Function fl_create_glcanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_glcanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_glcanvas_defaults(p1 : pointer);  cdecl;
-Procedure fl_get_glcanvas_defaults(p1 : pointer);  cdecl;
-Procedure fl_set_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer); cdecl;
-Procedure fl_get_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer); cdecl;
-Procedure fl_set_glcanvas_direct(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_activate_glcanvas(p1 : PFL_OBJECT); cdecl;
-
-Function fl_get_glcanvas_xvisualinfo(p1 : PFL_OBJECT ) : PXVisualInfo;  cdecl;
-
-{
-# if defined(p1 : __GLX_glx_h__) || defined(p1 : GLX_H)
-Function fl_get_glcanvas_context(p1 : PFL_OBJECT ob ) : GLXContext ;  cdecl;
-Function fl_glwincreate(p1 : *; p2 : GLXContext *; p3 : Longint {was int}; p4 : Longint {was int} ) : TWindow ; cdecl;
-Function fl_glwinopen(p1 : *; p2 : GLXContext *; p3 : Longint {was int}; p4 : Longint {was int} ) : TWindow ; cdecl;
-}
-
-
-
-{
- * $Id$
- *
- * Object Class: Chart
- *
- }
-
-
-const
-    FL_BAR_CHART	= 0;
-    FL_HORBAR_CHART	= 1;
-    FL_LINE_CHART	= 2;
-    FL_FILL_CHART	= 3;
-    FL_SPIKE_CHART	= 4;
-    FL_PIE_CHART	= 5;
-    FL_SPECIALPIE_CHART	= 6;
-     
-Type  TFL_CHART_TYPE = Longint;
-
-{**** Defaults ****}
-
-Const  
-  FL_CHART_BOXTYPE	= FL_BORDER_BOX;
-  FL_CHART_COL1		= FL_COL1;
-  FL_CHART_LCOL		= FL_LCOL;
-  FL_CHART_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-  FL_CHART_MAX		= 512;
-
-{**** Routines ****}
-
-Function fl_create_chart(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 :  pchar) : PFL_OBJECT; cdecl;
-Function fl_add_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_clear_chart(p1 : PFL_OBJECT); cdecl;
-Procedure fl_add_chart_value(p1 : PFL_OBJECT; p2 : double; p3 : pchar; p4 : Longint {was int}); cdecl;
-Procedure fl_insert_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int}); cdecl;
-Procedure fl_replace_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int}); cdecl;
-Procedure fl_set_chart_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_set_chart_maxnumb(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_chart_autosize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_chart_lstyle(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_chart_lsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_chart_lcolor(p1 : PFL_OBJECT; p2 :  TFL_COLOR); cdecl;
-
-
-
-{
- * $Id$
- *
- }
-
-
-const
-  FL_NORMAL_CHOICE	= 0;
-  FL_NORMAL_CHOICE2     = 1;
-  FL_DROPLIST_CHOICE	= 2;
-
-Type
- TFL_CHOICE_TYPE = Longint;
-
-Const
-  FL_SIMPLE_CHOICE  	= FL_NORMAL_CHOICE;
-
-{**** Defaults ****}
-
- FL_CHOICE_BOXTYPE	= FL_ROUNDED_BOX;
- FL_CHOICE_COL1		= FL_COL1;
- FL_CHOICE_COL2		= FL_LCOL;
- FL_CHOICE_LCOL		= FL_LCOL;
- FL_CHOICE_ALIGN	= FL_ALIGN_LEFT;
-
-{**** Others   ****}
-
- FL_CHOICE_MCOL		= FL_MCOL;
- FL_CHOICE_MAXITEMS	= 63;
-
-{**** Routines ****}
-
-Function fl_create_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) :  PFL_OBJECT; cdecl;
-
-Function fl_add_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar ) : PFL_OBJECT; cdecl;
-Procedure fl_clear_choice(p1 : PFL_OBJECT);   cdecl;
-Procedure fl_addto_choice(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_replace_choice(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl;
-Procedure fl_delete_choice(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_choice(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_choice_text(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Function fl_get_choice(p1 : PFL_OBJECT ) : Longint ; cdecl;
-Function fl_get_choice_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; cdecl;
-Function fl_get_choice_maxitems(p1 : PFL_OBJECT ) : Longint ;  cdecl;
-Function fl_get_choice_text(p1 : PFL_OBJECT ) : pchar; cdecl;
-Procedure fl_set_choice_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_choice_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_choice_align(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_choice_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : word); cdecl;
-Procedure fl_set_choice_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl;
-Function fl_set_choice_entries(p1 : PFL_OBJECT ; p2 : PFL_PUP_ENTRY) : longint; cdecl;
-
-
-{
- * $Id$
- *
- }
-
-
-Const
-    FL_ANALOG_CLOCK	= 0;
-    FL_DIGITAL_CLOCK	= 1;
-
- FL_CLOCK_BOXTYPE   = FL_UP_BOX;
- FL_CLOCK_COL1      = FL_INACTIVE_COL;
- FL_CLOCK_COL2      = FL_BOTTOM_BCOL;
- FL_CLOCK_LCOL      = FL_BLACK;
- FL_CLOCK_ALIGN     = FL_ALIGN_BOTTOM;
-
- FL_CLOCK_TOPCOL    = FL_COL1;
-
-Function fl_create_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Procedure fl_get_clock(p1 : PFL_OBJECT; p2,p3,p4 : pointer); cdecl;
-Function fl_set_clock_adjustment ( p1 : PFL_OBJECT; p2 : longint) : longint; cdecl;
-Procedure fl_set_clock_ampm(p1 : PFL_OBJECT; p2 : Longint); cdecl;
-
-
-{
- * $Id$
- *
- }
-
-
-Const
-    FL_NORMAL_COUNTER = 0;
-    FL_SIMPLE_COUNTER = 1;
-    
-type TFL_COUNTER_TYPE = Longint;
-
-{**** Defaults ****}
-Const
- FL_COUNTER_BOXTYPE	= FL_UP_BOX;
- FL_COUNTER_COL1	= FL_COL1;
- FL_COUNTER_COL2	= FL_BLUE;	{ ct label     }
- FL_COUNTER_LCOL	= FL_LCOL;	{ ct reporting }
- FL_COUNTER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
- FL_COUNTER_BW		= FL_BOUND_WIDTH-1;
-
-{**** Routines ****}
-
-Function fl_create_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_counter_value(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Procedure fl_set_counter_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_set_counter_step(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_set_counter_precision(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Function  fl_get_counter_value(p1 : PFL_OBJECT ) : double ;  cdecl;
-Procedure fl_get_counter_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl;
-Procedure fl_get_counter_step(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl;
-Procedure fl_set_counter_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_counter_filter(p1 : PFL_OBJECT;p2 : pointer); {!!!!} cdecl;
-{
-				  pchar(p1 : *)(p1 : PFL_OBJECT; p2 : double; p3 :Longint {was int}));
-}
-
-{
- * $Id$
- *
- * Cursor defs and prototypes
- *
- }
-
-
-{$i cursorfont.inc}
-
-const FL_DEFAULT_CURSOR = -1;
-      FL_INVISIBLE_CURSOR = -2;
-
-Procedure fl_set_cursor(p1 : TWindow; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_cursor_color(p1 : longint; p2 : TFL_COLOR; p3 :TFL_COLOR); cdecl;
-Function fl_create_bitmap_cursor(p1 : pchar; p2 :  pchar; p3,p4,p5,p6 : Longint {was int}) : TCursor; cdecl;
-Function fl_get_cursor_byname(p1 : longint ) : TCursor;  cdecl;
-Function fl_create_animated_cursor(p1 : Plongint;p2 : longint): Longint; cdecl;
-
-{
-#define fl_reset_cursor(p1 : win) fl_set_cursor(p1 : win; p2 :  -1);
-}
-
-
-
-{
- * $Id$
- }
-
-
-Const
-    FL_NORMAL_DIAL = 0;
-    FL_LINE_DIAL   = 1;
-    FL_FILL_DIAL   = 2;
-    
-    FL_DIAL_CW  = 0;
-    FL_DIAL_CCW = 1;
-
-Type
-  TFL_DIAL_TYPE = Longint;
-
-{**** Defaults ****}
-Const
-
- FL_DIAL_BOXTYPE	= FL_FLAT_BOX;
- FL_DIAL_COL1		= FL_COL1;
- FL_DIAL_COL2		= FL_RIGHT_BCOL;
- FL_DIAL_LCOL		= FL_LCOL;
- FL_DIAL_ALIGN		= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
- FL_DIAL_TOPCOL		= FL_COL1;
-
-{**** Routines ****}
-
-Function fl_create_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 :pchar) : PFL_OBJECT; cdecl;
-Function fl_add_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_dial_value(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Function fl_get_dial_value(p1 : PFL_OBJECT ) : double ;  cdecl;
-Procedure fl_set_dial_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_get_dial_bounds(p1 : PFL_OBJECT; p2 : pdouble; p3 :pdouble); cdecl;
-
-Procedure fl_set_dial_step(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Procedure fl_set_dial_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_dial_angles(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_set_dial_cross(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_dial_direction (p1 : PFL_OBJECT; p2 : Longint); cdecl;
-
-{
- * $Id$
- *
- *  Convenience Functions to read a directory cdecl;
- }
-
-
-{  File types }
-
-Const
-    FT_FILE  = 0; 
-    FT_DIR   = 1; 
-    FT_LINK  = 2; 
-    FT_SOCK  = 3;
-    FT_FIFO  = 4; 
-    FT_BLK   = 5;
-    FT_CHR   = 6; 
-    FT_OTHER = 7;
-
-type TFL_Dirlist = record
-    name : pchar;			{ entry name }
-    ftype : longint;			{ FILE_TYPE  }
-    dl_mtime : longint;
-    dl_size : cardinal;
-    filler : array[0..2] of longint;
-    end;
-    PFL_Dirlist = ^TFL_Dirlist;
-
-    
-TFL_DIRLIST_FILTER = Procedure (p1 : pchar; p2 :  Longint {was int}); cdecl;
-PFL_DIRLIST_FILTER = ^TFL_DIRLIST_FILTER;
-
-Const
-  FL_ALPHASORT  = 1;
-  FL_RALPHASORT = 2;
-  FL_MTIMESORT  = 3;
-  FL_RMTIMESORT = 4;
-  FL_SIZESORT  = 5;
-  FL_RSIZESORT = 6;
-  
-
-{ read dir with pattern filtering. All dirs read might be cached.
- * must not change dirlist in anyway.
- }
-Function fl_get_dirlist(p1 : pchar; p2 : pchar;	p3 : pointer;p4	:longint) : PFL_Dirlist;	{ rescan } cdecl;
-
-
-Function fl_set_dirlist_filter (p1 : PFL_DIRLIST_FILTER ) : PFL_DIRLIST_FILTER ; cdecl;
-Procedure fl_set_dirlist_sort ( p1 : longint); cdecl;
-
-Procedure fl_free_dirlist(p1 : PFL_Dirlist);  cdecl;
-
-{ Free all directory caches }
-Procedure fl_free_all_dirlist;  cdecl;
-
-Function fl_is_valid_dir(p1 : pchar ) : Longint; cdecl;
-Function fl_fmtime(p1 : pchar ) : cardinal ;  cdecl;
-Function fl_fix_dirname(p1 : pchar) : pchar;  cdecl;
-
-Const 
- FLPS_AUTO = 0;
- FLPS_LANDSCAPE = 1;
- FLPS_PORTRAIT = 2;
- 
-
- FLPS_BW = -1;
- FLPS_GRAYSCALE=0;
- 
- type
-   TFLPS_CONTROL = record
-    ps_color,orientation,auto_fit,drawbox,eps : longint;
-    xdpi,ydpi,paper_w,paper_h, gamma : real; { Must be float }
-   end;
-   PFLPS_CONTROL = ^TFLPS_CONTROL;
-   
-Function flps_init : PFLPS_CONTROL; cdecl;
-Function fl_object_ps_dump (p1 : PFL_OBJECT; p2 : pchar) : longint; cdecl;
-   
-{
- * $Id$
- *
- }
-
-
-{ types of frames }
-Const
-    FL_NO_FRAME		= 0;
-    FL_UP_FRAME		= 1;
-    FL_DOWN_FRAME	= 2;
-    FL_BORDER_FRAME	= 3;
-    FL_SHADOW_FRAME	= 4;
-    FL_ENGRAVED_FRAME	= 5;
-    FL_ROUNDED_FRAME	= 6;
-    FL_EMBOSSED_FRAME	= 7;
-    FL_OVAL_FRAME	= 8;
-
-    FL_FRAME_COL1 = FL_BLACK;
-    FL_FRAME_COL2 = FL_COL1;
-    FL_FRAME_LCOL = FL_BLACK;
-
-Function fl_create_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_create_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-
-{
- * $Id$
- *
- *  Object Class: Free
- }
-
-Const
-    FL_NORMAL_FREE	= 0;
-    FL_INACTIVE_FREE	= 1;
-    FL_INPUT_FREE	= 2;
-    FL_CONTINUOUS_FREE	= 3;
-    FL_ALL_FREE		= 4;
-Type
-   TFL_FREE_TYPE = Longint;
-   PFL_FREE_TYPE = ^TFL_FREE_TYPE;
-
-Const FL_SLEEPING_FREE =  FL_INACTIVE_FREE;
-
-
-Function fl_create_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar; p7 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl;
-Function fl_add_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar; P7 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl;
-
-{
- * $Id$
- }
-
-Const
- FLAlertDismissLabel = 'flAlert.dismiss.label';
- FLQuestionYesLabel  = 'flQuestion.yes.label';
- FLQuestionNoLabel   = 'flQuestion.no.label';
- FLOKLabel           = 'flInput.ok.label';
- FLInputClearLabel   = 'flInput.clear.label';
- FLInputCancelLabel   = 'flInput.cancel.label';
-
-{ from goodies.c }
-Procedure fl_set_goodies_font(p1 : LongInt; p2 :  Longint {was int}); cdecl;
-Procedure fl_show_message(p1 : pchar; p2 : pchar; p3 :pchar); cdecl;
-Procedure fl_show_messages(p1 : pchar); cdecl;
-Procedure fl_show_alert(p1 : pchar; p2 : pchar; p3 : pchar; p4 : Longint {was int}); cdecl;
-Function fl_show_question(p1 : pchar; p2 : longint) : Longint ; cdecl;
-Function fl_show_input(p1 : pchar; p2 :  pchar ) : pchar; cdecl;
-Function fl_show_simple_input(p1 : pchar; p2 :  pchar ) : pchar; cdecl;
-Function fl_show_colormap(p1 : Longint ) : Longint ;   cdecl;
-Function fl_show_choice(p1,p2,p3 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint; cdecl;
-Function fl_show_choices(p1 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint; cdecl;
-Procedure fl_set_choices_shortcut(p1,p2,p3 :pchar); cdecl;
-
-Procedure fl_show_oneliner(p1 : pchar; p2 : TFL_Coord; p3 :TFL_Coord); cdecl;
-Procedure fl_hide_oneliner;  cdecl;
-Procedure fl_set_oneliner_font(p1 : LongInt; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_oneliner_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); cdecl;
-
-type TFD_CMDLOG = record
-    form : PFL_FORM;
-    browser,close_browser,clear_browser : PFL_OBJECT;
-end;
-PFD_CMDLOG = ^TFD_CMDLOG;
-
-Function fl_exe_command(p1 : pchar; p2 : Longint) : Longint; cdecl;
-Function fl_end_command(p1 : longint) : Longint; cdecl;
-Function fl_check_command(p1 : longint) : longint; cdecl;
-Function fl_end_all_command : Longint; cdecl;
-Procedure fl_show_command_log(p1 : Longint); cdecl;
-Procedure fl_hide_command_log; cdecl;
-Procedure fl_clear_command_log; cdecl;
-Procedure fl_addto_command_log(p1 : pchar); cdecl;
-Procedure fl_set_command_log_position(p1,p2 :longint); cdecl;
-Function fl_get_command_log_fdstruct : PFD_CMDLOG; cdecl;
-
-{ aliases }
-{
-#define fl_open_command    fl_exe_command
-#define fl_close_command   fl_end_command
-}
-
-{****** from file selector ****************}
-
-Const  FL_MAX_FSELECTOR =  6;
-
-type TFD_FSELECTOR = record
-    fselect : PFL_FORM;
-    browser, theinput, prompt, resbutt,
-    patbutt,dirbutt, cancel, ready : PFL_OBJECT;
-    dirlabel,patlabel : PFL_OBJECT;
-    appbut : array[0..2] of PFL_OBJECT;
-end;
-
-PFD_FSELECTOR = ^TFD_FSELECTOR;
-
-Function fl_use_fselector(p1 : LongInt ) : LongInt;  cdecl;
-Function fl_show_fselector(p1,p2,p3,p4 :  pchar) : pchar; cdecl;
-
-Procedure fl_set_fselector_fontsize (p1 : Longint); cdecl;
-Procedure fl_set_fselector_fontstyle (p1 : longint); cdecl;
-Procedure fl_set_fselector_placement(p1 : LongInt);  cdecl;
-Procedure fl_set_fselector_border(p1 : LongInt);  cdecl;
-
-{
-#define fl_set_fselector_transient(p1 : b)   \
-                     fl_set_fselector_border(p1 : (p1 : b)?FL_TRANSIENT:FL_FULLBORDER)
-}
-
-Type TFSelector_Callback = Function (P1 : Pchar; P2 : Pointer) : Longint;  cdecl;
-     PFSelector_Callback = ^TFSelector_Callback;
-     TFL_Procedure = Procedure; cdecl;
-     PFL_Procedure = ^TFL_Procedure;
-
-Procedure fl_set_fselector_callback( p1 : PFSelector_Callback; p2 : pointer); cdecl;
-Function fl_get_filename : pchar; cdecl;
-Function fl_get_directory : pchar;  cdecl;
-Function fl_get_pattern : pchar;   cdecl;
-Function fl_set_directory (p1 : pchar ) : LongInt;  cdecl;
-Procedure fl_set_pattern (p1 : pchar); cdecl;
-Procedure fl_refresh_fselector;  cdecl;
-Procedure fl_add_fselector_appbutton(p1 : pchar; p2 : PFL_Procedure; p3 : pointer); cdecl;
-Procedure fl_remove_fselector_appbutton(p1 : pchar); cdecl;
-Procedure fl_disable_fselector_cache(p1 : LongInt);  cdecl;
-Procedure fl_invalidate_fselector_cache;  cdecl;
-Function fl_get_fselector_form : PFL_FORM;  cdecl;
-Function fl_get_fselector_fdstruct  : PFD_FSELECTOR;  cdecl;
-Procedure fl_hide_fselector;  cdecl;
-
-
-Procedure fl_set_fselector_filetype_marker(p1,p2,p3,p4,p5 : Longint); cdecl;
-
-{
-#define fl_show_file_selector     fl_show_fselector
-#define fl_set_fselector_cb       fl_set_fselector_callback
-#define fl_set_fselector_title(p1 : s) fl_set_form_title(p1 : fl_get_fselector_form(p1 : ); p2 : s)
-}
-
-
-
-{
- * $Id$
- *
- }
-
-
-{**** Types    ****}
-
-Const 
-    FL_NORMAL_INPUT	= 0;
-    FL_FLOAT_INPUT	= 1;
-    FL_INT_INPUT	= 2;
-    FL_DATE_INPUT	= 3;
-    FL_MULTILINE_INPUT	= 4;
-    FL_HIDDEN_INPUT	= 5;
-    FL_SECRET_INPUT	= 6;
-    
-    FL_INPUT_MMDD       = 0;
-    FL_INPUT_DDMM	= 1;
-    
-Type TFL_INPUT_TYPE = Longint;
-
-{**** Defaults ****}
-
-Const
-   FL_INPUT_BOXTYPE		= FL_DOWN_BOX;
-   FL_INPUT_COL1		= FL_COL1;
-   FL_INPUT_COL2		= FL_MCOL;
-   FL_INPUT_LCOL		= FL_LCOL;
-   FL_INPUT_ALIGN		= FL_ALIGN_LEFT;
-
-{**** Others   ****}
-
-   FL_INPUT_TCOL		= FL_LCOL;
-   FL_INPUT_CCOL		= FL_BLUE;
-
-   cFL_RINGBELL             = (1 shl 4);
-
-{**** Routines ****}
-
-Function fl_create_input(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_input(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar ) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_input(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_set_input_color(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_set_input_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_scroll(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_cursorpos(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_set_input_selected(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_selected_range(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_set_input_maxchars(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_format(p1 : PFL_OBJECT; p2,p3 :  Longint {was int}); cdecl;
-Procedure fl_set_input_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_xoffset(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_topline(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_input_scrollbarsize(p1 : PFL_OBJECT; p2,p3 :  Longint {was int}); cdecl;
-
-Function fl_get_input(p1 : PFL_OBJECT ) : pchar;   cdecl;
-Function fl_get_input_cursorpos(p1 : PFL_OBJECT; p2,p3 : Pointer ) : LongInt; cdecl;
-Function fl_get_input_topline(p1 : PFL_OBJECT;p2,p3 : PLongint) : Longint; cdecl;
-Function fl_get_input_screenlines(p1 : PFL_OBJECT) : Longint; cdecl;
-Function fl_get_input_numberoflines(p1 : PFL_OBJECT) : Longint; cdecl;
-Procedure fl_get_input_format(p1 : PFL_OBJECT;p2,p3 : PLongint); cdecl;
-Function fl_get_input_selected_range(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}) : pchar ;  cdecl;
-
-
-
-type
- TFL_INPUTVALIDATOR = Procedure (p1 : PFL_OBJECT; p2,p3 : pchar; p4 : Longint {was int}); cdecl;
- PFL_INPUTVALIDATOR= ^TFL_INPUTVALIDATOR;
-
-Function fl_set_input_filter(p1 : PFL_OBJECT; p2 :  PFL_INPUTVALIDATOR ) : PFL_INPUTVALIDATOR ; cdecl;
-
-{
-#define fl_set_input_shortcut fl_set_object_shortcut
-#define ringbell(p1 : )  XBell(p1 : fl_display; p2 :  0)
-}
-
-type TFL_EditKeymap = record
-    { basic editing }
-    del_prev_char : Longint;		{ delete previous char    }
-    del_next_char : Longint;		{ delete next char        }
-    del_prev_word : Longint;		{ delete previous word    }
-    del_next_word : Longint;		{ delete next word        }
-
-    { movement }
-    moveto_prev_line : Longint;	{ one line  up             }
-    moveto_next_line : Longint;	{ one line down            }
-    moveto_prev_char : Longint;	{ one char left            }
-    moveto_next_char : Longint;	{ one char right           }
-    moveto_prev_word : Longint;	{ one word left            }
-    moveto_next_word : Longint;	{ one word right           }
-    moveto_prev_page : Longint;	{ one page up              }
-    moveto_next_page : Longint;	{ one page down            }
-    moveto_bol : Longint;		{ move to begining of line }
-    moveto_eol : Longint;		{ move to end of line      }
-    moveto_bof : Longint;		{ move to begin of file    }
-    moveto_eof : Longint;		{ move to end of file      }
-
-    { misc. stuff }
-    transpose : Longint;		{ switch two char positions }
-    paste : Longint;			{ paste the edit buffer    }
-    backspace : Longint;		{ another  del_prev_char   }
-    del_to_bol : Longint;		{ cut to begining of line  }
-    del_to_eol : Longint;		{ cut to end of line       }
-    clear_field : Longint;		{ delete everything        }
-    del_to_eos : Longint;		{ not implemented          }
-    reserverd : array[0..3] of Longint;		{ fillter                  }
-end;
-PFL_EditKeymap = ^TFL_EditKeymap;
-
-Procedure fl_set_input_editkeymap(a: PFL_EditKeymap); cdecl;
-
-
-
-
-{
- * $Id$
- *
- }
-
-
-{***********   Object Class: Menu         ***********}
-
-Const
-    FL_TOUCH_MENU	= 0;
-    FL_PUSH_MENU	= 1;
-    FL_PULLDOWN_MENU	= 2;
-    
-Type TFL_MENU_TYPE = Longint;
-
-{**** Defaults ****}
-
-Const
-  FL_MENU_BOXTYPE	= FL_BORDER_BOX;
-  FL_MENU_COL1		= FL_COL1;
-  FL_MENU_COL2		= FL_MCOL;
-  FL_MENU_LCOL		= FL_LCOL;
-  FL_MENU_ALIGN		= FL_ALIGN_CENTER;
-
-{**** Others   ****}
-
-  FL_MENU_MAXITEMS	= 128;
-  FL_MENU_MAXSTR	= 64;
-
-{**** Routines ****}
-
-Function fl_create_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_clear_menu(p1 : PFL_OBJECT);  cdecl;
-Procedure fl_set_menu(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_addto_menu(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_replace_menu_item(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl;
-Procedure fl_delete_menu_item(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-
-Procedure fl_set_menu_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl;
-Procedure fl_set_menu_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Cardinal); cdecl;
-Procedure fl_show_menu_symbol(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_menu_popup(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Function fl_get_menu_popup(p1 : pfl_object): longint; cdecl;
-
-Function fl_get_menu(p1 : PFL_OBJECT ) : Longint ;  cdecl;
-Function fl_get_menu_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; cdecl;
-Function fl_get_menu_maxitems(p1 : PFL_OBJECT ) : Longint ;  cdecl;
-Function fl_get_menu_item_mode(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Cardinal ; cdecl;
-Function fl_get_menu_text(p1 : PFL_OBJECT ) : pchar; cdecl;
-
-
-
-Const   
-    FL_NORMAL_MENUBAR = 0;
-
-    FL_MENUBAR_BOXTYPE	=FL_UP_BOX;
-    FL_MENUBAR_COL1	=FL_COL1;
-    FL_MENUBAR_COL2	=FL_MCOL;
-    FL_MENUBAR_LCOL	=FL_LCOL;
-    
-Function fl_create_menubar(p1 : longint; p2,p3,p4,p5 : TFL_COORD;p6 : Pchar): PFL_OBJECT; cdecl;
-Function fl_add_menubar(p1 : longint;p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-   
-Procedure fl_clear_menubar(p1 : PFL_OBJECT); cdecl;
-Procedure fl_set_menubar(p1 : PFL_OBJECT; p2 : pchar); cdecl;
-Procedure fl_set_menubar_entries(p1 : PFL_OBJECT; p2 : pchar;p3 : PFL_PUP_ENTRY); cdecl;
-
-   
-{
- * $Id$
- *
- *  Prototypes for pop-up menus
- }
-
-
-Const
- FL_MAXPUPI   = 80;	{ max item each pup        }
- FL_PUP_PADH  =  4;	{ space between each items }
-
- type
-  TFL_PUP_ENTERCB = Procedure (p1 : longint; p2: pointer); cdecl;
-  PFL_PUP_ENTERCB = ^TFL_PUP_ENTERCB;
-
-  TFL_PUP_LEAVECB =Procedure (p1 : longint; p2: pointer); cdecl;
-  PFL_PUP_LEAVECB = ^TFL_PUP_LEAVECB;
-
-Function fl_setpup_entries(p1 : Longint; p2 : PFL_PUP_ENTRY) : Longint; cdecl;
-Function fl_newpup(p1 : TWindow ) : LongInt;  cdecl;
-
-Function fl_defpup(p1 : TWindow; p2 :  pchar) : LongInt; cdecl;
-Function fl_addtopup(p1 : longint; p2 :  pchar) : LongInt; cdecl;
-
-Function fl_setpup_mode(p1 : Longint; p2 : Longint {was int}; p3 : Cardinal) : Longint; cdecl;
-Procedure fl_freepup(p1 : Longint);  cdecl;
-Function fl_dopup(p1 : Longint ) : LongInt;  cdecl;
-
-Procedure fl_setpup_shortcut(p1 : Longint; p2 : Longint {was int}; p3 :pchar); cdecl;
-Procedure fl_setpup_position(p1 : Longint; p2 :  Longint {was int}); cdecl;
-Procedure fl_setpup_selection(p1 : Longint; p2 :  Longint {was int}); cdecl;
-Procedure fl_setpup_shadow(p1 : LongInt; p2 :  Longint {was LongInt}); cdecl;
-Procedure fl_setpup_softedge(p1 : LongInt; p2 :  Longint {was int}); cdecl;
-Function fl_setpup_fontsize(p1 : LongInt) : Longint;  cdecl;
-Function fl_setpup_fontstyle(p1 : LongInt) : Longint;   cdecl;
-Procedure fl_setpup_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); cdecl;
-Procedure fl_setpup_checkcolor(p1 : TFL_COLOR);  cdecl;
-Function fl_setpup_default_fontsize(p1 : LongInt) : Longint;  cdecl;
-Function fl_setpup_default_fontstyle(p1 : LongInt) : Longint;   cdecl;
-Procedure fl_setpup_default_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); cdecl;
-Procedure fl_setpup_default_checkcolor(p1 : TFL_COLOR);  cdecl;
-Procedure fl_setpup_title(p1 : LongInt; p2 :  pchar); cdecl;
-Procedure fl_setpup_bw(p1 : LongInt; p2 :  Longint {was int}); cdecl;
-Procedure fl_setpup_pad(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Function fl_setpup_cursor(p1 : LongInt; p2 :  Longint {was int} ) : TCursor ; cdecl;
-Function fl_setpup_default_cursor(p1 : LongInt ) : TCursor ;  cdecl;
-Function fl_setpup_maxpup(p1 : LongInt ) : LongInt;  cdecl;
-Function fl_getpup_mode(p1 : LongInt; p2 :  Longint {was int} ) : Cardinal; cdecl;
-Function fl_getpup_text(p1 : LongInt; p2 :  Longint {was int} ) : pchar; cdecl;
-Procedure fl_showpup(p1 : LongInt);  cdecl;
-Procedure fl_hidepup(p1 : LongInt); cdecl;
-
-{
-#define fl_setpup_hotkey    fl_setpup_shortcut
-}
-
-Function fl_setpup_itemcb(p1 : LongInt; p2 : Longint {was int}; p3 :PFL_PUP_CB ) : PFL_PUP_CB ; cdecl;
-Function fl_setpup_menucb(p1 : LongInt; p2 :  PFL_PUP_CB ) : PFL_PUP_CB ; cdecl;
-Procedure fl_setpup_submenu(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-
-{
-#define fl_setpup    fl_setpup_mode
-}
-
-
-
-{
- * $Id$
- *
- }
-
-Const
- FL_NORMAL_POSITIONER	= 0;
-
-{**** Defaults ****}
-
- FL_POSITIONER_BOXTYPE	= FL_DOWN_BOX;
- FL_POSITIONER_COL1	= FL_COL1;
- FL_POSITIONER_COL2	= FL_RED;
- FL_POSITIONER_LCOL	= FL_LCOL;
- FL_POSITIONER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
-
-{**** Routines ****}
-
-Function fl_create_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_positioner_xvalue(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Function fl_get_positioner_xvalue(p1 : PFL_OBJECT ) : double ; cdecl;
-Procedure fl_set_positioner_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_get_positioner_xbounds(p1 : PFL_OBJECT; p2 : pdouble ; p3 : pdouble); cdecl;
-Procedure fl_set_positioner_yvalue(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Function fl_get_positioner_yvalue(p1 : PFL_OBJECT ) : double ; cdecl;
-Procedure fl_set_positioner_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_get_positioner_ybounds(p1 : PFL_OBJECT; p2 ,p3 :pdouble); cdecl;
-Procedure fl_set_positioner_xstep(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Procedure fl_set_positioner_ystep(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Procedure fl_set_positioner_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-
-Const 
-     FL_HOR_SCROLLBAR = 0;
-     FL_VERT_SCROLLBAR = 1;
-     FL_HOR_THIN_SCROLLBAR = 2;
-     FL_VERT_THIN_SCROLLBAR = 3;
-     FL_HOR_NICE_SCROLLBAR = 4;
-     FL_VERT_NICE_SCROLLBAR = 5;
-     FL_HOR_PLAIN_SCROLLBAR = 6;
-     FL_VERT_PLAIN_SCROLLBAR = 7;
-
-     FL_HOR_BASIC_SCROLLBAR = FL_HOR_PLAIN_SCROLLBAR;
-     FL_VERT_BASIC_SCROLLBAR =    FL_VERT_PLAIN_SCROLLBAR;
-
-     FL_THIN_SCROLLBAR = 0;
-     FL_PLAIN_SCROLLBAR = 1;
-     FL_NORMAL_SCROLLBAR = 2;
-     FL_NICE_SCROLLBAR = 3;
-     
-Function  fl_create_scrollbar(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;
-Function  fl_add_scrollbar(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;
- 
-Function  fl_get_scrollbar_value(p1 : PFL_OBJECT) : double ; cdecl;
-Procedure fl_set_scrollbar_value(p1 : PFL_OBJECT; p2: double); cdecl;
-Procedure fl_set_scrollbar_size(p1 : PFL_OBJECT; p2 : double); cdecl;
-Procedure fl_set_scrollbar_increment(p1 : PFL_OBJECT;p2,p3: double); cdecl;
-Procedure fl_get_scrollbar_increment(p1 : PFL_OBJECT; p2,p3 : real {float !!}); cdecl;
-Procedure fl_set_scrollbar_bounds(p1 : PFL_OBJECT; p2,p3 : double); cdecl;
-Procedure fl_get_scrollbar_bounds(p1 : PFL_OBJECT; p2,p3 : real {float !!!}); cdecl;
-Procedure fl_set_scrollbar_return(p1 : PFL_OBJECT; p2 : longint); cdecl;
-Procedure fl_set_scrollbar_step(P1 : PFL_OBJECT;p2 : double); cdecl;
-
-
-
-{
- * $Id$
- *
- * Object Class: Slider
- *
- }
-
-
-Const
-    FL_VERT_SLIDER	= 0;
-    FL_HOR_SLIDER	= 1;
-    FL_VERT_FILL_SLIDER	= 2;
-    FL_HOR_FILL_SLIDER	= 3;
-    FL_VERT_NICE_SLIDER	= 4;
-    FL_HOR_NICE_SLIDER	= 5;
-    FL_HOR_BROWSER_SLIDER = 6;
-    FL_VERT_BROWSER_SLIDER = 7;
-    FL_HOR_BROWSER_SLIDER2	= 8;	{ for Longint {was int}ernal use only }
-    FL_VERT_BROWSER_SLIDER2	= 9;	{ for Longint {was int}ernal use only }
-    FL_HOR_THIN_SLIDER = 10;		{ internal use          }
-    FL_VERT_THIN_SLIDER = 11;	{ internal use          }
-    FL_HOR_BASIC_SLIDER = 12;	{ internal use          }
-    FL_VERT_BASIC_SLIDER = 13;	{ internal use          }
- 
-Type
- TFL_SLIDER_TYPE = Longint;
- PFL_SLIDER_TYPE = ^TFL_SLIDER_TYPE; 
-
-
-{**** Defaults ****}
-Const
-  FL_SLIDER_BW1         = FL_BOUND_WIDTH;
-  FL_SLIDER_BW2         = FL_BOUND_WIDTH-1;
-
-  FL_SLIDER_BOXTYPE	= FL_DOWN_BOX;
-  FL_SLIDER_COL1	= FL_COL1;
-  FL_SLIDER_COL2	= FL_COL1;
-  FL_SLIDER_LCOL	= FL_LCOL;
-  FL_SLIDER_ALIGN	= FL_ALIGN_BOTTOM;
-
-{**** Others   ****}
-
-  FL_SLIDER_FINE		= 0.05;
-  FL_SLIDER_WIDTH		= 0.10;
-
-
-{**** Routines ****}
-
-Function fl_create_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;
-Function fl_add_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;
-
-Function fl_create_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar): PFL_OBJECT; cdecl;
-Function fl_add_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;P6: pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_slider_value(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Function fl_get_slider_value(p1 : PFL_OBJECT ) : double ;  cdecl;
-Procedure fl_set_slider_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_get_slider_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl;
-
-Procedure fl_set_slider_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-
-Procedure fl_set_slider_step(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Procedure fl_set_slider_increment(p1 : PFL_OBJECT; p2,p3 :  double); cdecl;
-Procedure fl_set_slider_size(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Procedure fl_set_slider_precision(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-
-Type
-  TFL_SLIDER_FILTER = Procedure (p1 : PFL_OBJECT; p2 : double; p3 :Longint {was int}); cdecl;
-  PTFL_SLIDER_FILTER= ^TFL_SLIDER_FILTER  ;
-  
-Procedure fl_set_slider_filter(p1 : PFL_OBJECT; p2 : PTFL_SLIDER_FILTER); cdecl;
-
-{
- * $Id$
- *
-}
-const
-FL_TOP_TABFOLDER = 0;
-FL_BOTTOM_TABFOLDER = 1;
-FL_LEFT_TABFOLDER = 2;
-FL_RIGHT_TABFOLDER = 3;
-
-FL_NORMAL_TABFOLDER = FL_TOP_TABFOLDER;
-
-Function fl_create_tabfolder (p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;
-Function fl_add_tabfolder(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl;
-Function fl_addto_tabfolder(p1 : PFL_OBJECT; p2 : pchar; p3 : PFL_FORM) : PFL_OBJECT; cdecl;
-Procedure fl_delete_folder(p1 : PFL_OBJECT; p2 : PFL_FORM); cdecl;
-Procedure fl_delete_folder_bynumber(p1 : PFL_OBJECT; p2 : longint); cdecl;
-Procedure fl_delete_folder_byname(p1 : PFL_OBJECT; p2 : pchar); cdecl;
-
-Procedure fl_set_folder(p1 : PFL_OBJECT; P2 : PFL_FORM); cdecl;
-Procedure fl_set_folder_byname(p1 : PFL_OBJECT; p2 : pchar); cdecl;
-Procedure fl_set_folder_bynumber(p1 : PFL_OBJECT; p2 : longint); cdecl;
-Function fl_get_folder(p1 : PFL_OBJECT) : PFL_FORM; cdecl;
-Function fl_get_folder_number(p1 : PFL_OBJECT) : longint; cdecl;
-Function fl_get_folder_name(p1 : PFL_OBJECT) : pchar; cdecl;
-Function fl_get_active_folder(p1 : PFL_OBJECT) : PFL_FORM; cdecl;
-Function fl_get_active_folder_number(P1 : PFL_OBJECT) : longint; cdecl;
-Function fl_get_active_folder_name(p1 : PFL_OBJECT) : Pchar; cdecl;
-Procedure fl_get_folder_area(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord); cdecl;
- 
-Procedure fl_replace_folder_bynumber(p1 : PFL_OBJECT;p2 : longint;p3 : PFL_FORM); cdecl;
-
-{
- * $Id$
- *
- }
-
-Const
-    FL_NORMAL_TEXT = 0;
-
- FL_TEXT_BOXTYPE    = FL_FLAT_BOX;
- FL_TEXT_COL1       = FL_COL1;
- FL_TEXT_COL2       = FL_MCOL;
- FL_TEXT_LCOL       = FL_LCOL;
- FL_TEXT_ALIGN      = FL_ALIGN_LEFT;
-
-Function fl_create_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl;
-Function fl_add_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT; cdecl;
-
-
-
-{
- * $Id$
- *
- *  Object Class: Timer
- *
- }
-
-
-Const 
-    FL_NORMAL_TIMER = 0;
-    FL_VALUE_TIMER  = 1;
-    FL_HIDDEN_TIMER = 2;
-    
-Type TFL_TIMER_TYPE = Longint;
-
-{**** Defaults ****}
-Const
-
-FL_TIMER_BOXTYPE	= FL_DOWN_BOX;
-FL_TIMER_COL1		= FL_COL1;
-FL_TIMER_COL2		= FL_RED;
-FL_TIMER_LCOL		= FL_LCOL;
-FL_TIMER_ALIGN		= FL_ALIGN_CENTER;
-
-{**** Others   ****}
-
-  FL_TIMER_BLINKRATE	= 0.2;
-  
-Type TFL_TIMER_FILTER = Function (P1 : PFL_OBJECT;p2 : double) : pchar; cdecl;
-     PFL_TIMER_FILTER = ^TFL_TIMER_FILTER;  
-
-{**** Routines ****}
-
-Function fl_create_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl;
-
-Function fl_add_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl;
-
-Procedure fl_set_timer(p1 : PFL_OBJECT; p2 :  double); cdecl;
-Function fl_get_timer(p1 : PFL_OBJECT ) : double ;  cdecl;
-Procedure fl_set_timer_countup(p1 : PFL_OBJECT; p2 :  Longint); cdecl;
-Function fl_set_timer_filter (p1 : PFL_OBJECT; p2 : PFL_TIMER_FILTER) : PFL_TIMER_FILTER; cdecl;
-Procedure fl_suspend_timer(p1 : PFL_OBJECT); cdecl;
-Procedure fl_resume_timer(p1 : PFL_OBJECT); cdecl;
-
-{
- * $Id$
- *
- }
-
-
-{
- * Class FL_XYPLOT
- }
-
-Const
-    FL_NORMAL_XYPLOT	= 0;		{ solid line                        }
-    FL_SQUARE_XYPLOT	= 1;		{ with added square                 }
-    FL_CIRCLE_XYPLOT	= 2;		{ with added circle                 }
-    FL_FILL_XYPLOT	= 3;		{ fill completely                   }
-    FL_POINTS_XYPLOT	= 4;		{ only data points                  }
-    FL_DASHED_XYPLOT	= 5;		{ dashed line                       }
-    FL_IMPULSE_XYPLOT	= 6;
-    FL_ACTIVE_XYPLOT	= 7;		{ accepts Longint {was int}eractive manipulations }
-    FL_EMPTY_XYPLOT	= 8;
-Type 
-    TFL_XYPLOT_TYPE = Longint;
-
-Const
-    FL_LINEAR = 0;
-    FL_LOG    = 1;
-
-Const
-    FL_GRID_NONE  = 0;
-    FL_GRID_MAJOR = 1;
-    FL_GRID_MINOR = 2;
- 
-{**** Defaults ****}
-
- FL_XYPLOT_BOXTYPE       = FL_FLAT_BOX;
- FL_XYPLOT_COL1          = FL_COL1;
- FL_XYPLOT_LCOL          = FL_LCOL;
- FL_XYPLOT_ALIGN         = FL_ALIGN_BOTTOM;
- FL_MAX_XYPLOTOVERLAY    = 32;
-
-{**** Others   ****}
-
-Function fl_create_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6: pchar) : PFL_OBJECT; cdecl;
-Function fl_add_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar ) : PFL_OBJECT; cdecl;
-Procedure fl_set_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : Longint {was int}; p5,p6,p7 : pchar); cdecl;
-Procedure fl_set_xyplot_file(p1 : PFL_OBJECT; p2,p3,p4,p5 :pchar); cdecl;
-
-Procedure fl_set_xyplot_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_xyplot_xtics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_set_xyplot_ytics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}); cdecl;
-Procedure fl_set_xyplot_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Procedure fl_set_xyplot_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl;
-Function  fl_set_xyplot_maxoverlays(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Longint ; cdecl;
-Procedure fl_set_xyplot_overlay_type(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}); cdecl;
-Procedure fl_set_xyplot_interpolate(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : double); cdecl;
-Procedure fl_set_xyplot_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_xyplot_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_xyplot_inspect(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_xyplot_symbolsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-Procedure fl_set_xyplot_xscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double); cdecl;
-Procedure fl_set_xyplot_yscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double); cdecl;
-
-Procedure fl_set_xyplot_linewidth(p1 : PFL_OBJECT; p2,p3 : Longint); cdecl;
-Procedure fl_set_xyplot_xgrid(p1 : PFL_OBJECT; p2 : Longint); cdecl;
-Procedure fl_set_xyplot_ygrid(p1 : PFL_OBJECT; p2 : Longint); cdecl;
-Procedure fl_set_xyplot_alphaxtics(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;
-Procedure fl_set_xyplot_alphaytics(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;
-Procedure fl_set_xyplot_fixed_xaxis(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;
-Procedure fl_set_xyplot_fixed_yaxis(p1 : PFL_OBJECT; p2,p3 : pchar); cdecl;
-
-
-Procedure fl_get_xyplot_xbounds(p1 : PFL_OBJECT; p2,p3 : pfloat ); cdecl;
-Procedure fl_get_xyplot_ybounds(p1 : PFL_OBJECT; p2,p3 : pfloat ); cdecl;
-Procedure fl_get_xyplot(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer); cdecl;
-Procedure fl_get_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer); cdecl;
-Procedure fl_get_xyplot_xmapping(p1 : PFL_OBJECT; p2,p3 : pfloat); cdecl;
-Procedure fl_get_xyplot_ymapping(p1 : PFL_OBJECT; p2,p3 : pfloat); cdecl;
-
-{
-#define fl_set_xyplot_datafile fl_set_xyplot_file
-}
-Procedure fl_add_xyplot_text(p1 : PFL_OBJECT; p2,p3 : double; p4 : pchar;p5 : Longint {was int}; p6 :TFL_COLOR); cdecl;
-Procedure fl_add_xyplot_overlay(p1 : PFL_OBJECT; p2 : Longint {was int}; p3,p4 : pfloat; p5 : Longint {was int}; p6 :TFL_COLOR); cdecl;
-Procedure fl_delete_xyplot_text(p1 : PFL_OBJECT; p2 :  pchar); cdecl;
-Procedure fl_delete_xyplot_overlay(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl;
-
-Procedure fl_replace_xyplot_point(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : double); cdecl;
-Function  fl_interpolate(p1,p2 : pfloat; p3 :Longint {was int};p4,p5 : pfloat; p6 : double; p7 : Longint {was int}) : Longint; cdecl;
-Procedure fl_xyplot_s2w(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat); cdecl;
-Procedure fl_xyplot_w2s(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat); cdecl;
-
-implementation
-
-procedure fl_add_io_callback(p1 : Longint {was int} ; p2 : word; p3 : PFL_IO_CALLBACK; p4 : pointer); cdecl; external;
-procedure fl_remove_io_callback(p1 : Longint {was int};p2 :  word; p3 : PFL_IO_CALLBACK); cdecl; external;
-procedure fl_add_signal_callback(p1 : Longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer); cdecl; external;
-procedure fl_remove_signal_callback(p1 : Longint {was int}); cdecl; external;
-procedure fl_signal_caught(p1 :Longint {was int}); cdecl; external;
-procedure fl_app_signal_direct(p1 : Longint {was int}); cdecl; external;
-function fl_add_timeout (p1 : longint;p2 : PFL_SIGNAL_HANDLER;p3 : pointer) : longint;cdecl; external;
-procedure fl_remove_timeout(p1 : Longint);cdecl; external;
-
-function fl_get_vn_value (p1 : PFL_VN_PAIR; p2 : pchar) : Longint; cdecl; external;
-function fl_get_vn_name (p1 : PFL_VN_PAIR; p2 : Longint {was int}) : Pchar; cdecl; external;
-function fl_msleep (p1 : cardinal) : cardinal; cdecl; external;
-procedure fl_library_version(p1,p2 : pointer ); cdecl; external;
-function fl_bgn_form(P1 : Longint {was int}; P2,p3 : TFL_Coord) : PFL_Form; cdecl; external;
-Procedure fl_end_form; cdecl; external;
-function fl_do_forms : PFL_OBJECT ; cdecl; external;
-function fl_check_forms : PFL_OBJECT; cdecl; external;
-Function fl_do_only_forms : PFL_OBJECT; cdecl; external;
-function fl_check_only_forms : PFL_OBJECT; cdecl; external;
-procedure fl_freeze_form(P1 : PFL_FORM); cdecl; external;
-procedure fl_set_focus_object( P1 : PFL_FORM;p2 : PFL_OBJECT); cdecl; external;
-procedure fl_reset_focus_object( p1 : PFL_OBJECT);cdecl; external;
-
-Function fl_set_form_atclose(p1 : PFL_FORM; p2 : PFL_FORM_ATCLOSE; p3 : pointer) : PFL_FORM_ATCLOSE ; cdecl; external;
-Function fl_set_atclose(p1 : PFL_FORM_ATCLOSE; p2:  pointer) : PFL_FORM_ATCLOSE ; cdecl; external;
-Function fl_set_form_atactivate(p1 : PFL_FORM; P2 : PFL_FORM_ATACTIVATE; P3 : pointer) : PFL_FORM_ATACTIVATE ; cdecl; external;
-Function fl_set_form_atdeactivate(p1 : PFL_FORM;p2 : PFL_FORM_ATDEACTIVATE;p3 : pointer) : PFL_FORM_ATDEACTIVATE ; cdecl; external;
-Procedure fl_unfreeze_form (p1 : PFL_FORM); cdecl; external;
-Procedure fl_deactivate_form(p1 : PFL_FORM); cdecl; external;
-Procedure fl_activate_form(p1 : PFL_FORM); cdecl; external;
-Procedure fl_deactivate_all_forms; cdecl; external;
-Procedure fl_activate_all_forms; cdecl; external;
-Procedure fl_freeze_all_forms; cdecl; external;
-Procedure fl_unfreeze_all_forms; cdecl; external;
-Procedure fl_scale_form(p1 : PFL_FORM;p2,p3 : double); cdecl; external;
-Procedure fl_set_form_position(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl; external;
-Procedure fl_set_form_title(p1 : PFL_FORM; p2 : pchar); cdecl; external;
-procedure fl_set_form_property(p1 : PFL_FORM; p2 : word); cdecl; external;
-procedure fl_set_app_mainform( p1 : PFL_FORM); cdecl; external;
-function fl_get_app_mainform : PFL_FORM; cdecl; external;
-procedure fl_set_app_nomainform(P1 : Longint {was int}); cdecl; external;
-procedure fl_set_form_callback(p1 : PFL_FORM; P2 : PFL_FORMCALLBACKPTR; P3 : pointer); cdecl; external;
-procedure fl_set_form_size(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl; external;
-procedure fl_set_form_hotspot(p1 : PFL_FORM; p2,p3 : TFL_Coord); cdecl; external;
-procedure fl_set_form_hotobject(p1 : PFL_FORM; p2 : PFL_OBJECT); cdecl; external;
-procedure fl_set_form_minsize(p1 : PFL_FORM ; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_set_form_maxsize(p1 : PFL_FORM; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_set_form_event_cmask(p1 : PFL_FORM; p2 : cardinal); cdecl; external;
-function fl_get_form_event_cmask(p1 : PFL_FORM) : cardinal; cdecl; external;
-procedure fl_set_form_geometry(p1 : PFL_FORM; p2,p3,p4,p5 : TFL_Coord); cdecl; external;
-function fl_show_form (p1 : PFL_FORM; p2,p3 : Longint {was int}; p4 : pchar) : longint; cdecl; external;
-procedure fl_hide_form(p1 : PFL_FORM); cdecl; external;
-procedure fl_free_form(p1 : PFL_FORM); cdecl; external;
-procedure fl_redraw_form(p1 : PFL_FORM); cdecl; external;
-procedure fl_set_form_dblbuffer(p1 : PFL_FORM; p2 : Longint {was int}); cdecl; external;
-procedure fl_prepare_form_window(p1 : PFL_FORM; p2,p3 :  Longint {was int}; p4 : pchar); cdecl; external;
-procedure fl_show_form_window(p1 : PFL_FORM); cdecl; external;
-function fl_adjust_form_size(p1 : PFL_FORM) : double; cdecl; external;
-function fl_form_is_visibe (p1 : PFL_FORM) : Longint; cdecl; external;
-
-function  fl_register_raw_callback(p1 : PFL_FORM; p2 : cardinal; P3 : PFL_RAW_CALLBACK): PFL_RAW_CALLBACK; cdecl; external;
-function fl_bgn_group : PFL_OBJECT; cdecl; external;
-function fl_end_group : PFL_OBJECT; cdecl; external;
-procedure fl_addto_group (p1 : PFL_OBJECT); cdecl; external;
-procedure fl_set_object_boxtype(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl; external;
-procedure fl_set_object_bw(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl; external;
-procedure fl_set_object_resize(p1 : PFL_OBJECT; p2 : word); cdecl; external;
-procedure fl_set_object_gravity(p1 : PFL_OBJECT; p2,p3 : word ); cdecl; external;
-procedure fl_set_object_lsize(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl; external;
-procedure fl_set_object_lstyle(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl; external;
-procedure fl_set_object_lcol(p1 : PFL_OBJECT; p2 : TFL_COLOR); cdecl; external;
-procedure fl_set_object_return(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl; external;
-procedure fl_set_object_lalign(p1 : PFL_OBJECT; p2 : Longint {was int}); cdecl; external;
-procedure fl_set_object_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int}); cdecl; external;
-procedure fl_set_object_shortcutkey(p1 : PFL_OBJECT; p2 :  word); cdecl; external;
-procedure fl_set_object_dblbuffer(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_object_color(p1 : PFL_OBJECT; p2 : TFL_COLOR;p3 : TFL_COLOR); cdecl; external;
-procedure fl_set_object_label(p1 : PFL_OBJECT; p2 :  pchar); cdecl; external;
-procedure fl_set_object_position(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_set_object_size(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_set_object_automatic(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_draw_object_label(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_draw_object_label_outside(p1 : PFL_OBJECT); cdecl; external;
-function fl_get_object_component(p1 : PFL_OBJECT; p2,p3,p4 : Longint): PFL_OBJECT; cdecl; external;
-
- procedure fl_set_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 :TFL_Coord); cdecl; external;
-procedure fl_fit_object_label(p1 : PFL_OBJECT; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_get_object_geometry(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord ); cdecl; external;
-procedure fl_get_object_position(p1 : PFL_OBJECT; p2,p3 :PFL_COORD); cdecl; external;
-procedure fl_get_object_bbox(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD); cdecl; external;
-procedure fl_call_object_callback(p1 : PFL_OBJECT); cdecl; external;
-function fl_set_object_prehandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR) : PFL_HANDLEPTR ; cdecl; external;
-function fl_set_object_posthandler(p1 : PFL_OBJECT; p2 : PFL_HANDLEPTR): PFL_HANDLEPTR ; cdecl; external;
-function fl_set_object_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint) : PFL_CALLBACKPTR ; cdecl; external;
-procedure fl_redraw_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_scale_object(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_show_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_hide_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_free_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_delete_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_trigger_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_activate_object(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_deactivate_object(p1 : PFL_OBJECT); cdecl; external;
-function fl_set_font_name(p1 : Longint {was int}; p2 :  pchar) : longint; cdecl; external;
-procedure fl_set_font(p1 : Longint {was int}; p2 :  Longint {was int}); cdecl; external;
-function fl_get_char_height(p1,p2 : Longint {was int}; p3,p4 : pointer) : Longint {was int}; cdecl; external;
-function fl_get_char_width(p1,p2 :  Longint {was int}) : Longint; cdecl; external;
-function fl_get_string_height(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int}; cdecl; external;
-function fl_get_string_width(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int}; cdecl; external;
-function fl_get_string_widthTAB(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}) : Longint {was int}; cdecl; external;
-function fl_get_string_dimension(p1 : Longint {was int}; p2 : Longint {was int}; p3 : pchar; p4 : Longint {was int}; p5,p6 : pointer) : Longint {was int}; cdecl; external;
-procedure fl_get_align_xy(p1,p2,p3,p4,p5,p6,p7,p8,p9 : Longint {was int}; p10,p11 : pointer); cdecl; external;
-procedure fl_drw_text(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar); cdecl; external;
-procedure fl_drw_text_beside(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7,p8 : Longint {was int}; p9 : pchar); cdecl; external;
-procedure fl_drw_text_cursor(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7,p8: Longint {was int}; p9 : Pchar; p10,p11: Longint {was int}); cdecl; external;
-procedure fl_drw_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR; p7 : Longint {was int}); cdecl; external;
-function fl_add_symbol(p1 : pchar; p2 : PFL_DRAWPTR; p3 :Longint {was int}) : Longint {was int}; cdecl; external;
-function fl_draw_symbol(p1 : pchar; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR) : Longint {was int}; cdecl; external;
-procedure fl_drw_slider (p1 :longint; p2,p3,P4,p5 : TFL_COORD; p6,p7 : TFL_COLOR;
-                         p8 : Longint; p9,p10 : double; P11 : pchar; p12,p13,p14 : Longint); cdecl; external;
-
-function fl_mapcolor(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}) : cardinal; cdecl; external;
-function fl_mapcolorname(p1 : TFL_COLOR; p2 :  pchar) : longint; cdecl; external;
-function fl_getmcolor(p1 : TFL_COLOR; p2,p3,p4 : pointer) : cardinal; cdecl; external;
-procedure fl_free_colors(p1 : PFL_COLOR; p2 :  Longint {was int}); cdecl; external;
-procedure fl_free_pixels(p1 : pcardinal; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_color_leak(p1 : Longint {was int}); cdecl; external;
-function fl_get_pixel(p1 : TFL_COLOR): cardinal; cdecl; external;
-procedure fl_get_icm_color(p1 : TFL_COLOR; p2,p3,p4 : pointer); cdecl; external;
-procedure fl_set_icm_color(p1 : TFL_COLOR; p2,p3,p4 : Longint {was int}); cdecl; external;
-procedure fl_color(p1 : TFL_COLOR); cdecl; external;
-procedure fl_bk_color(p1 : TFL_COLOR); cdecl; external;
-procedure fl_textcolor(p1 : TFL_COLOR); cdecl; external;
-procedure fl_bk_textcolor(p1 : TFL_COLOR); cdecl; external;
-procedure fl_set_gamma(p1,p2,p3 :double); cdecl; external;
-procedure fl_show_errors(p1 : Longint {was int}); cdecl; external;
-procedure fl_add_object(p1 : PFL_FORM; p2 : PFL_OBJECT); cdecl; external;
-procedure fl_addto_form(p1 : PFL_FORM); cdecl; external;
-function fl_make_object(p1 : Longint {was int}; p2,p3,p4,p5,p6 : TFL_Coord; p7 : pchar; P8 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl; external;
-procedure fl_set_coordunit(p1 : Longint {was int}); cdecl; external;
-function fl_get_coordunit : Longint {was int}; cdecl; external;
-procedure fl_set_border_width(p1 : Longint {was int}); cdecl; external;
-function fl_get_border_width : Longint {was int}; cdecl; external;
-procedure fl_set_scrollbar_type (p1 :longint); cdecl; external;
-procedure fl_flip_yorigin; cdecl; external;
-procedure fl_ringbell ( p1 : longint);cdecl; external;
-procedure fl_gettime (p1,p2 : Plongint);cdecl; external;
-function fl_whoami : pchar; cdecl; external;
-function fl_now : pchar; cdecl; external;
-function fl_mouse_button : longint; cdecl; external;
-
-procedure fl_rectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl; external;
-procedure fl_rectbound(p1,p2,p3,p4 : TFL_Coord;p5 : TFL_COLOR); cdecl; external;
-procedure fl_roundrectangle(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl; external;
-procedure fl_polygon(p1 : Longint {was int}; p2 : PFL_POINT; p3 : Longint {was int}; p4 : TFL_COLOR); cdecl; external;
-procedure fl_lines(p1 : TFL_POINT; p2 : Longint {was int}; p3 :TFL_COLOR); cdecl; external;
-procedure fl_line(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); cdecl; external;
-Procedure fl_point(p1,p2 : TFL_Coord; p3: TFL_COLOR); cdecl; external;
-Procedure fl_points(p1 : PFL_POINT; p2 : Longint; p3: TFL_COLOR); cdecl; external;
-procedure fl_dashedlinestyle(p1 : pchar; p2 :  Longint {was int}); cdecl; external;
-procedure fl_drawmode(p1 : Longint {was int}); cdecl; external;
-procedure fl_linewidth(p1 : Longint {was int}); cdecl; external;
-procedure fl_linestyle(p1 : Longint {was int}); cdecl; external;
-function fl_get_linewidth : longint; cdecl; external;
-function fl_get_linestyle : longint; cdecl; external;
-
-procedure fl_oval(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : TFL_COLOR); cdecl; external;
-procedure fl_ovalbound(p1,p2,p3,p4 : TFL_Coord; p5 : TFL_COLOR); cdecl; external;
-procedure fl_ovalarc(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6,p7 : Longint; p8 : TFL_COLOR);cdecl; external;
-
-procedure fl_pieslice(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6,p7 :Longint {was int}; p8 : TFL_COLOR); cdecl; external;
-procedure fl_add_vertex(p1,p2 :  TFL_Coord); cdecl; external;
-procedure fl_add_float_vertex(p1,p2 :  real); cdecl; external;
-procedure fl_reset_vertex; cdecl; external;
-procedure fl_endline; cdecl; external;
-procedure fl_endpolygon; cdecl; external;
-procedure fl_endclosedline; cdecl; external;
-procedure fl_drw_frame(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR; p7 : Longint {was int}); cdecl; external;
-procedure fl_drw_checkbox(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : TFL_COLOR;p7 : Longint {was int}); cdecl; external;
-function fl_get_fontstruct(p1,p2 :  Longint {was int}) : PXFontStruct; cdecl; external;
-function fl_get_mouse(p1,p2 : PFL_COORD; p3 : pword) : TWindow; cdecl; external;
-procedure fl_set_mouse(p1,p2 :  TFL_Coord); cdecl; external;
-function fl_get_win_mouse(p1 : TWindow; p2,p3 : PFL_COORD; p4 : pword) : TWindow; cdecl; external;
-function fl_get_form_mouse(p1 : PFL_FORM; p2,p3 : PFL_COORD; p4 : pWord) : TWindow; cdecl; external;
-function fl_win_to_form(p1 : TWindow) : PFL_form; cdecl; external;
- procedure fl_set_form_icon(p1 : PFL_FORM; p2 : TPixmap; p3 :TPixmap); cdecl; external;
-function fl_wincreate(p1 : pchar) : TWindow; cdecl; external;
- function fl_winshow(p1 : TWindow) : TWindow; cdecl; external;
- function fl_winopen(p1 : pchar) : TWindow; cdecl; external;
- procedure fl_winhide(p1 : TWindow); cdecl; external;
- procedure fl_winclose(p1 : TWindow); cdecl; external;
- procedure fl_winset(p1 : TWindow); cdecl; external;
- function fl_winget : Twindow; cdecl; external;
- procedure fl_winresize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_winmove(p1 : TWindow; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_winreshape(p1 : TWindow; p2,p3,p4,p5 : TFL_Coord); cdecl; external;
-procedure fl_winicon(p1 : TWindow; p2 : TPixmap; p3 :TPixmap); cdecl; external;
-procedure fl_winbackground(p1 : TWindow; p2 :  cardinal); cdecl; external;
-procedure fl_winstepunit(p1 : TWindow; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_winisvalid(p1 : TWindow); cdecl; external;
- procedure fl_wintitle(p1 : TWindow; p2 :  pchar); cdecl; external;
-procedure fl_winposition(p1,p2 :  TFL_Coord); cdecl; external;
-procedure fl_winminsize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_winmaxsize(p1 : TWindow; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_winaspect(p1 : TWindow; p2,p3 :TFL_Coord); cdecl; external;
-procedure fl_reset_winconstraints(p1 : TWindow); cdecl; external;
- procedure fl_winsize(p1,p2 :  TFL_Coord); cdecl; external;
-procedure fl_initial_winsize(p1,p2 :  TFL_Coord); cdecl; external;
-procedure fl_initial_winstate(p1 : Longint {was int}); cdecl; external;
- function fl_create_colormap(p1 : PXVisualInfo; p2 :  Longint {was int}) : TColormap; cdecl; external;
-procedure fl_wingeometry(p1,p2,p3,p4 : TFL_Coord); cdecl; external;
-procedure fl_initial_wingeometry(p1,p2,p3,p4 : TFL_Coord); cdecl; external;
-procedure fl_get_winsize(p1 : TWindow; p2,p3 :PFL_COORD); cdecl; external;
-procedure fl_get_winorigin(p1 : TWindow; p2,p3 :PFL_COORD); cdecl; external;
-procedure fl_get_wingeometry(p1 : TWindow; p2,p3,p4,p5 : PFL_COORD); cdecl; external;
-function fl_XNextEvent(p1 : PXEvent) : Longint; cdecl; external;
-function fl_XPeekEvent(p1 : PXEvent) : Longint; cdecl; external;
-function fl_XEventsQueued(p1 : Longint {was int}) : Longint; cdecl; external;
-procedure fl_XPutBackEvent(p1 : PXEvent); cdecl; external;
-function fl_last_event : PXEvent ; cdecl; external;
-function fl_set_event_callback(p1 : PFL_APPEVENT_CB; p2 : pointer) : PFL_APPEVENT_CB ; cdecl; external;
-function fl_set_idle_callback(p1 : PFL_APPEVENT_CB; p2 :  pointer) : PFL_APPEVENT_CB ; cdecl; external;
-function fl_addto_selected_xevent(p1 : TWindow; p2 :  longint) : Cardinal; cdecl; external;
-function fl_remove_selected_xevent(p1 : TWindow; p2 :  longint) : cardinal; cdecl; external;
-function fl_add_event_callback(p1 : TWindow; p2 :  Longint {was int}; p3 : PFL_APPEVENT_CB; p4 : pointer) : PFL_APPEVENT_CB ; cdecl; external;
-procedure fl_remove_event_callback(p1 : TWindow; p2 :  Longint {was int}); cdecl; external;
-procedure fl_activate_event_callbacks(p1 : TWindow); cdecl; external;
-function fl_print_xevent_name(p1 : pchar; p2 : PXEvent) : PXEvent; cdecl; external;
-function fl_initialize(p1 : pointer; p2 : ppchar; p3 : pchar; p4 : PFL_CMD_OPT; p5 : Longint {was int}) : Pdisplay; cdecl; external;
-procedure fl_finish; cdecl; external;
-
-function fl_get_resource(p1 : pchar; p2 :  pchar; p3 : TFL_RTYPE; p4 : pchar; p5 : pointer; p6 :Longint {was int}) : pchar;cdecl; external;
-procedure fl_set_resource(p1 : pchar; p2 :  pchar);cdecl; external;
-procedure fl_get_app_resources(p1 : PFL_resource; p2 : Longint {was int});cdecl; external;
-procedure fl_set_graphics_mode(p1 : Longint {was int}; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_visualID(p1 : longint);  cdecl; external;
-function fl_keysym_pressed(p1 : TKeySym) : Longint; cdecl; external;
-procedure fl_set_defaults(p1 : cardinal; p2 :  PFL_IOPT);cdecl; external;
-procedure fl_set_tabstop(p1 : pchar); cdecl; external;
-procedure fl_get_defaults(p1 : PFL_IOPT); cdecl; external;
-function fl_get_visual_depth : Longint; cdecl; external;
-function fl_vclass_name(p1 : Longint {was int}) : pchar; cdecl; external;
-function fl_vclass_val(p1 : pchar) : Longint {was int}; cdecl; external;
-procedure fl_set_ul_property(p1 : Longint {was int}; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_clipping(p1 : TFL_Coord; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord);cdecl; external;
-procedure fl_set_gc_clipping(p1 : TGC; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord);cdecl; external;
-procedure fl_unset_gc_clipping(p1 : TGC); cdecl; external;
-procedure fl_set_clippings(p1 : PXRectangle; p2 :  Longint {was int});cdecl; external;
-procedure fl_unset_clipping; cdecl; external;
-function fl_textgc : TGC;cdecl; external;
-function fl_create_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_bitmap(p1 : Longint {was int}; p2 : TFL_Coord; p3 : TFL_Coord; p4 : TFL_Coord; p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;cdecl; external;
-procedure fl_set_bitmap_data(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : pointer);cdecl; external;
-procedure fl_set_bitmap_file(p1 : PFL_OBJECT; p2 :  pchar);cdecl; external;
-function fl_read_bitmapfile(p1 : TWindow; p2 :  pchar; p3,p4 : pword; p5,p6 : pointer) : TPixmap ;cdecl; external;
-function fl_create_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6  :pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_pixmap(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-procedure fl_set_pixmap_data(p1 : PFL_OBJECT; p2 :  ppchar);cdecl; external;
-procedure fl_set_pixmap_file(p1 : PFL_OBJECT; p2 :  pchar);cdecl; external;
-procedure fl_set_pixmap_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int});cdecl; external;
-procedure fl_set_pixmap_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap);cdecl; external;
-procedure fl_set_pixmap_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int});cdecl; external;
-procedure fl_free_pixmap_pixmap(p1 : PFL_OBJECT); cdecl; external;
-function fl_get_pixmap_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ;cdecl; external;
-function fl_read_pixmapfile(p1 : TWindow; p2 :  pchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR)  : TPixmap ;cdecl; external;
-function fl_create_from_pixmapdata(p1 : TWindow; p2 :  ppchar;p3,p4 : pword; p5 : PPixmap;p6,p7 : pointer; p8 : TFL_COLOR) : TPixmap ;cdecl; external;
-function fl_create_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_box(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_create_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_browser(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6:  pchar) : PFL_OBJECT;cdecl; external;
-procedure fl_clear_browser(p1 : PFL_OBJECT);cdecl; external;
-procedure fl_add_browser_line(p1 : PFL_OBJECT; p2 :  pchar);cdecl; external;
-procedure fl_addto_browser(p1 : PFL_OBJECT; p2 :  pchar);cdecl; external;
-procedure fl_addto_browserchars(p1 : PFL_OBJECT; p2 :  pchar);cdecl; external;
-
-procedure fl_insert_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);cdecl; external;
-procedure fl_delete_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_replace_browser_line(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar);cdecl; external;
-function fl_get_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar;cdecl; external;
-function fl_load_browser(p1 : PFL_OBJECT; p2 :  pchar ) : Longint ;cdecl; external;
-procedure fl_select_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_deselect_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_deselect_browser(p1 : PFL_OBJECT); cdecl; external;
-function fl_isselected_browser_line(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Longint ;cdecl; external;
-function fl_get_browser_topline(p1 : PFL_OBJECT ) : Longint ; cdecl; external;
-function fl_get_browser(p1 : PFL_OBJECT ) : Longint ;cdecl; external;
-function fl_get_browser_maxline(p1 : PFL_OBJECT ) : Longint ; cdecl; external;
-function fl_get_browser_screenlines(p1 : PFL_OBJECT ) : Longint ;cdecl; external;
-procedure fl_set_browser_topline(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_browser_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_browser_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_browser_specialkey(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_browser_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_browser_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-
-procedure fl_set_browser_leftslider(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_browser_line_selectable(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int});cdecl; external;
-procedure fl_get_browser_dimension(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_COORD);cdecl; external;
-procedure fl_set_browser_dblclick_callback(p1 : PFL_OBJECT; p2 : PFL_CALLBACKPTR; p3 :longint);cdecl; external;
-procedure fl_set_browser_xoffset(p1 : PFL_OBJECT; p2 :  TFL_Coord);cdecl; external;
-procedure fl_set_browser_scrollbarsize (p1 : PFL_OBJECT;p2,p3 : longint);cdecl; external;
-procedure fl_show_browser_line(p1 : PFL_OBJECT; p2 : longint); cdecl; external;
-function fl_get_browser_xoffset(p1 : PFL_OBJECT) : TFL_Coord ; cdecl; external;
-
-
-function fl_create_button(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_create_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_create_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-
-function fl_create_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_create_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_create_bitmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-function fl_create_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_roundbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_round3dbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_lightbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_checkbutton(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;cdecl; external;
-function fl_add_button(p1 : Longint {was int}; p2,p3,p4,p5 :TFL_Coord; p6:  pchar) : PFL_OBJECT;cdecl; external;
-procedure fl_set_bitmapbutton_data (p1 : PFL_OBJECT; p2,p3 : Longint {was int};   p4 : pchar);cdecl; external;
-procedure fl_set_bitmapbutton_file (p1 : PFL_OBJECT; p2: pchar);cdecl; external;
-function  fl_add_bitmapbutton (p1 : longint; p2,p3,p4,p5: TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-
-function fl_add_pixmapbutton(p1 : Longint {was int}; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external;
-
-function fl_get_button(p1 : PFL_OBJECT ) : Longint ;  cdecl; external;
-procedure fl_set_button(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-function fl_get_button_numb(p1 : PFL_OBJECT ) : Longint ;cdecl; external;
-function fl_create_generic_button(p1,p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord;p7 : pchar) : PFL_OBJECT;cdecl; external;
-procedure fl_add_button_class(p1 : Longint {was int}; p2 : PFL_DRAWBUTTON; p3 : PFL_CLEANUPBUTTON);cdecl; external;
-
-function fl_create_generic_canvas(p1 : Longint; p2 : Longint {was int}; p3,p4,p5,p6 : TFL_Coord; p7 : pchar) : PFL_OBJECT;cdecl; external ;
-function fl_add_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT;cdecl; external ;
-function fl_create_canvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;cdecl; external ;
-function fl_create_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 :  pchar) : PFL_OBJECT;cdecl; external ;
-function fl_add_mesacanvas(p1 : Longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external ;
-procedure fl_set_canvas_colormap(p1 : PFL_OBJECT; p2 :  TColormap);cdecl; external ;
-procedure fl_set_canvas_visual(p1 : PFL_OBJECT; p2 :  PVisual);cdecl; external ;
-procedure fl_set_canvas_depth(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external ;
-procedure fl_set_canvas_attributes(p1 : PFL_OBJECT; p2 : word;  p3 : PXSetWindowAttributes);cdecl; external ;
-function fl_add_canvas_handler(p1 : PFL_OBJECT; p2 :  Longint {was int}; p3 : PFL_HANDLE_CANVAS; p4 : pointer) : PFL_HANDLE_CANVAS ;cdecl; external ;
-function fl_get_canvas_id(p1 : PFL_OBJECT ) : TWindow ;cdecl; external ;
-function fl_get_canvas_colormap(p1 : PFL_OBJECT ) : TColormap;cdecl; external ; 
-function fl_get_canvas_depth(p1 : PFL_OBJECT ) : Longint ; cdecl; external ;
-procedure fl_remove_canvas_handler(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : PFL_HANDLE_CANVAS);cdecl; external ;
-procedure fl_hide_canvas(p1 : PFL_OBJECT); 	{ internal use only }cdecl; external ;
-procedure fl_canvas_yield_to_shortcut(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external ;
-procedure fl_share_canvas_colormap(p1 : PFL_OBJECT; p2 :  TColormap); cdecl; external ;
-procedure fl_modify_canvas_prop(p1 : PFL_OBJECT; 
-				  P2 : PFL_MODIFY_CANVAS_PROP;
-				  p3 : PFL_MODIFY_CANVAS_PROP;
-				  p4 : PFL_MODIFY_CANVAS_PROP);cdecl; external ;
-function fl_create_glcanvas(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT;cdecl; external ;
-function fl_add_glcanvas(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT;cdecl; external ;
-procedure fl_set_glcanvas_defaults(p1 : pointer); cdecl; external ;
-procedure fl_get_glcanvas_defaults(p1 : pointer); cdecl; external ;
-procedure fl_set_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer);cdecl; external ;
-procedure fl_get_glcanvas_attributes(p1 : PFL_OBJECT; p2 : pointer);cdecl; external ;
-procedure fl_set_glcanvas_direct(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external ;
-procedure fl_activate_glcanvas(p1 : PFL_OBJECT);cdecl; external;
-
-function fl_get_glcanvas_xvisualinfo(p1 : PFL_OBJECT ) : PXVisualInfo; cdecl; external ;
-
-function fl_create_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 :  pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_chart(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_clear_chart(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_add_chart_value(p1 : PFL_OBJECT; p2 : double; p3 : pchar; p4 : Longint {was int}); cdecl; external;
-procedure fl_insert_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int}); cdecl; external;
-procedure fl_replace_chart_value(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : pchar; p5 : Longint {was int}); cdecl; external;
-procedure fl_set_chart_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_set_chart_maxnumb(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_chart_autosize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_chart_lstyle(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_chart_lsize(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_chart_lcolor(p1 : PFL_OBJECT; p2 :  TFL_COLOR);cdecl; external;
-
-
-function fl_create_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) :  PFL_OBJECT; cdecl; external;
-function fl_add_choice(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar ) : PFL_OBJECT; cdecl; external;
-procedure fl_clear_choice(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_addto_choice(p1 : PFL_OBJECT; p2 :  pchar); cdecl; external;
-procedure fl_replace_choice(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl; external;
-procedure fl_delete_choice(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_choice(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_choice_text(p1 : PFL_OBJECT; p2 :  pchar); cdecl; external;
-function fl_get_choice(p1 : PFL_OBJECT ) : Longint ; cdecl; external;
-function fl_get_choice_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; cdecl; external;
-function fl_get_choice_maxitems(p1 : PFL_OBJECT ) : Longint ; cdecl; external;
-function fl_get_choice_text(p1 : PFL_OBJECT ) : pchar; cdecl; external;
-procedure fl_set_choice_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_choice_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_choice_align(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_choice_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : word); cdecl; external;
-procedure fl_set_choice_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl; external;
-function fl_set_choice_entries(p1 : PFL_OBJECT ; p2 : PFL_PUP_ENTRY) : longint; cdecl; external;
-
-
-function fl_create_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_clock(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_get_clock(p1 : PFL_OBJECT; p2,p3,p4 : pointer); cdecl; external;
-function fl_set_clock_adjustment ( p1 : PFL_OBJECT; p2 : longint) : longint; cdecl; external;
-procedure fl_set_clock_ampm(p1 : PFL_OBJECT; p2 : Longint); cdecl; external;
-
-function fl_create_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_counter(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_set_counter_value(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-procedure fl_set_counter_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_set_counter_step(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_set_counter_precision(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-function fl_get_counter_value(p1 : PFL_OBJECT ) : double ; cdecl; external;
-procedure fl_get_counter_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble);cdecl; external;
-procedure fl_get_counter_step(p1 : PFL_OBJECT; p2,p3 : pdouble);cdecl; external;
-
-procedure fl_set_counter_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_counter_filter(p1 : PFL_OBJECT;p2 : pointer); cdecl; external;
-
-procedure fl_set_cursor(p1 : TWindow; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_cursor_color(p1 : longint; p2 : TFL_COLOR; p3 :TFL_COLOR); cdecl; external;
-function fl_create_bitmap_cursor(p1 : pchar; p2 :  pchar; p3,p4,p5,p6 : Longint {was int}) : TCursor; cdecl; external;
-function fl_get_cursor_byname(p1 : longint ) : TCursor; cdecl; external;
-function fl_create_animated_cursor(p1 : Plongint;p2 : longint): Longint; cdecl; external;
-
-function fl_create_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 :pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_dial(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_set_dial_value(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-function fl_get_dial_value(p1 : PFL_OBJECT ) : double ; cdecl; external;
-procedure fl_set_dial_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_get_dial_bounds(p1 : PFL_OBJECT; p2 : pdouble; p3 :pdouble); cdecl; external;
-procedure fl_set_dial_step(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-procedure fl_set_dial_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_dial_angles(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_set_dial_cross(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_dial_direction (p1 : PFL_OBJECT; p2 : Longint);cdecl; external;
-
-function fl_get_dirlist(p1 : pchar; p2 : pchar;	p3 : pointer;p4	:longint) : PFL_Dirlist; cdecl; external;
-function fl_set_dirlist_filter (p1 : PFL_DIRLIST_FILTER ) : PFL_DIRLIST_FILTER ; cdecl; external;
-procedure fl_set_dirlist_sort ( p1 : longint);cdecl; external;
-
-procedure fl_free_dirlist(p1 : PFL_Dirlist); cdecl; external;
-procedure fl_free_all_dirlist; cdecl; external;
-
-function fl_is_valid_dir(p1 : pchar ) : Longint; cdecl; external;
-function fl_fmtime(p1 : pchar ) : cardinal ; cdecl; external;
-function fl_fix_dirname(p1 : pchar) : pchar; cdecl; external;
-
-function flps_init : PFLPS_CONTROL; cdecl; external;
-function fl_object_ps_dump (p1 : PFL_OBJECT; p2 : pchar) : longint; cdecl; external;
-
-
-function fl_create_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_frame(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_create_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_labelframe(p1 : longint; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl; external;
-
-function fl_create_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar; p7 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl; external;
-function fl_add_free(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar; P7 : PFL_HANDLEPTR) : PFL_OBJECT; cdecl; external;
-
-procedure fl_set_goodies_font(p1 : LongInt; p2 :  Longint {was int}); cdecl; external;
-procedure fl_show_message(p1 : pchar; p2 : pchar; p3 :pchar); cdecl; external;
-procedure fl_show_messages(p1 : pchar);cdecl; external;
-
-procedure fl_show_alert(p1 : pchar; p2 : pchar; p3 : pchar; p4 : Longint {was int}); cdecl; external;
-function fl_show_question(p1 : pchar; p2 : longint) : Longint ; cdecl; external;
-function fl_show_input(p1 : pchar; p2 :  pchar ) : pchar; cdecl; external;
-function fl_show_simple_input(p1 : pchar; p2 :  pchar ) : pchar; cdecl; external;
-function fl_show_colormap(p1 : Longint ) : Longint ; cdecl; external;
-function fl_show_choice(p1,p2,p3 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint;cdecl; external;
-function fl_show_choices(p1 : pchar; p4 : Longint {was int}; p5,p6,p7 : pchar; p8 : Longint) : Longint;cdecl; external;
-procedure fl_set_choices_shortcut(p1,p2,p3 :pchar); cdecl; external;
-
-procedure fl_show_oneliner(p1 : pchar; p2 : TFL_Coord; p3 :TFL_Coord); cdecl; external;
-procedure fl_hide_oneliner; cdecl; external;
-procedure fl_set_oneliner_font(p1 : LongInt; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_oneliner_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); cdecl; external;
-
-function fl_exe_command(p1 : pchar; p2 : Longint) : Longint; cdecl; external;
-function fl_end_command(p1 : longint) : Longint; cdecl; external;
-function fl_check_command(p1 : longint) : longint; cdecl; external;
-Function fl_end_all_command : Longint; cdecl; external;
-procedure fl_show_command_log(p1 : Longint); cdecl; external;
-procedure fl_hide_command_log; cdecl; external;
-procedure fl_clear_command_log; cdecl; external;
-procedure fl_addto_command_log(p1 : pchar);cdecl; external;
-procedure fl_set_command_log_position(p1,p2 :longint);cdecl; external;
-Function fl_get_command_log_fdstruct : PFD_CMDLOG; cdecl; external;
-
-function fl_use_fselector(p1 : LongInt ) : LongInt; cdecl; external;
-function fl_show_fselector(p1,p2,p3,p4 :  pchar) : pchar; cdecl; external;
-procedure fl_set_fselector_fontsize (p1 : Longint); cdecl; external;
-procedure fl_set_fselector_fontstyle (p1 : longint); cdecl; external;
-
-procedure fl_set_fselector_placement(p1 : LongInt); cdecl; external;
-procedure fl_set_fselector_border(p1 : LongInt); cdecl; external;
-procedure fl_set_fselector_callback( p1 : PFSelector_Callback; p2 : pointer); cdecl; external;
-function fl_get_filename : pchar; cdecl; external;
-function fl_get_directory : pchar; cdecl; external;
-function fl_get_pattern : pchar; cdecl; external;
-function fl_set_directory (p1 : pchar ) : LongInt; cdecl; external;
-procedure fl_set_pattern (p1 : pchar); cdecl; external;
-procedure fl_refresh_fselector; cdecl; external;
-procedure fl_add_fselector_appbutton(p1 : pchar; p2 : PFL_Procedure; p3 : pointer); cdecl; external;
-procedure fl_remove_fselector_appbutton(p1 : pchar); cdecl; external;
-procedure fl_disable_fselector_cache(p1 : LongInt); cdecl; external;
-procedure fl_invalidate_fselector_cache; cdecl; external; 
-function fl_get_fselector_form : PFL_FORM; cdecl; external;
-function fl_get_fselector_fdstruct  : PFD_FSELECTOR; cdecl; external; 
-procedure fl_hide_fselector;  cdecl; external;
-procedure fl_set_fselector_filetype_marker(p1,p2,p3,p4,p5 : Longint); cdecl; external;
-
-function fl_create_input(p1 : Longint; p2,p3,p4,p5 : TFL_Coord; p6: pchar)  : PFL_OBJECT ; cdecl; external;
-function fl_add_input(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar )  : PFL_OBJECT ; cdecl; external;
-procedure fl_set_input(p1 : PFL_OBJECT; p2 :  pchar)  ; cdecl; external;
-procedure fl_set_input_color(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; cdecl; external;
-function fl_get_input(p1 : PFL_OBJECT )  : pchar ; cdecl; external;
-procedure fl_set_input_return(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_input_scroll(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_input_cursorpos(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; cdecl; external;
-function fl_get_input_cursorpos(p1 : PFL_OBJECT; p2,p3 : Pointer )  : LongInt ; cdecl; external;
-procedure fl_set_input_selected(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_input_selected_range(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; cdecl; external;
-function fl_get_input_selected_range(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int}) : pchar  ; cdecl; external;
-procedure fl_set_input_maxchars(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_input_format(p1 : PFL_OBJECT; p2,p3 :  Longint {was int});cdecl; external;
-procedure fl_set_input_hscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_input_vscrollbar(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_input_xoffset(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_input_topline(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl; external;
-procedure fl_set_input_scrollbarsize(p1 : PFL_OBJECT; p2,p3 :  Longint {was int});cdecl; external;
-function fl_get_input_topline(p1 : PFL_OBJECT;p2,p3 : PLongint) : Longint;cdecl; external;
-function fl_get_input_screenlines(p1 : PFL_OBJECT) : Longint;cdecl; external;
-function fl_get_input_numberoflines(p1 : PFL_OBJECT) : Longint;cdecl; external;
-procedure fl_get_input_format(p1 : PFL_OBJECT;p2,p3 : PLongint);cdecl; external;
-function fl_set_input_filter(p1 : PFL_OBJECT; p2 :  PFL_INPUTVALIDATOR )  : PFL_INPUTVALIDATOR  ; cdecl; external;
-procedure fl_set_input_editkeymap(a : PFL_EditKeymap);cdecl; external;
-
-function fl_create_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; cdecl; external ;
-function fl_add_menu(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar) : PFL_OBJECT; cdecl; external ;
-procedure fl_clear_menu(p1 : PFL_OBJECT); cdecl; external ;
-procedure fl_set_menu(p1 : PFL_OBJECT; p2 :  pchar); cdecl; external ;
-procedure fl_addto_menu(p1 : PFL_OBJECT; p2 :  pchar); cdecl; external ;
-procedure fl_replace_menu_item(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl; external ;
-procedure fl_delete_menu_item(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external ;
-procedure fl_set_menu_item_shortcut(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :pchar); cdecl; external ;
-procedure fl_set_menu_item_mode(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Cardinal); cdecl; external ;
-procedure fl_show_menu_symbol(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external ;
-procedure fl_set_menu_popup(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external ;
-function fl_get_menu_popup(p1 : pfl_object): longint; cdecl; external;
-
-function fl_get_menu(p1 : PFL_OBJECT ) : Longint ; cdecl; external ;
-function fl_get_menu_item_text(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : pchar; cdecl; external ;
-function fl_get_menu_maxitems(p1 : PFL_OBJECT ) : Longint ; cdecl; external ;
-function fl_get_menu_item_mode(p1 : PFL_OBJECT; p2 :  Longint {was int} ) : Cardinal ; cdecl; external ;
-function fl_get_menu_text(p1 : PFL_OBJECT ) : pchar; cdecl; external ;
-
-function fl_create_menubar(p1 : longint; p2,p3,p4,p5 : TFL_COORD;p6 : Pchar): PFL_OBJECT; cdecl; external;
-function fl_add_menubar(p1 : longint;p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl; external;
-   
-Procedure fl_clear_menubar(p1 : PFL_OBJECT); cdecl; external;
-Procedure fl_set_menubar(p1 : PFL_OBJECT; p2 : pchar); cdecl; external;
-Procedure fl_set_menubar_entries(p1 : PFL_OBJECT; p2 : pchar;p3 : PFL_PUP_ENTRY); cdecl; external;
-
-function fl_setpup_entries(p1 : Longint; p2 : PFL_PUP_ENTRY) : Longint; cdecl; external;
-function fl_newpup(p1 : TWindow ) : LongInt; cdecl; external;
-function fl_defpup(p1 : TWindow; p2 :  pchar) : LongInt; cdecl; external ;
-function fl_addtopup(p1 : longint; p2 :  pchar) : LongInt; cdecl; external ;
-
-function fl_setpup_mode(p1 : Longint; p2 : Longint {was int}; p3 : Cardinal) : Longint; cdecl; external;
-procedure fl_freepup(p1 : Longint); cdecl; external;
-function fl_dopup(p1 : Longint ) : LongInt; cdecl; external;
-procedure fl_setpup_shortcut(p1 : Longint; p2 : Longint {was int}; p3 :pchar); cdecl; external;
-procedure fl_setpup_position(p1 : Longint; p2 :  Longint {was int}); cdecl; external;
-procedure fl_setpup_selection(p1 : Longint; p2 :  Longint {was int}); cdecl; external;
-function fl_setpup_fontsize(p1 : LongInt): Longint; cdecl; external;
-function fl_setpup_fontstyle(p1 : LongInt): longint; cdecl; external;
-procedure fl_setpup_shadow(p1 : LongInt; p2 :  Longint {was LongInt}); cdecl; external;
-procedure fl_setpup_softedge(p1 : LongInt; p2 :  Longint {was int}); cdecl; external;
-procedure fl_setpup_color(p1 : TFL_COLOR; p2 :  TFL_COLOR); cdecl; external;
-procedure fl_setpup_checkcolor(p1 : TFL_COLOR); cdecl; external;
-procedure fl_setpup_title(p1 : LongInt; p2 :  pchar); cdecl; external;
-procedure fl_setpup_bw(p1 : LongInt; p2 :  Longint {was int}); cdecl; external;
-procedure fl_setpup_pad(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int}); cdecl; external;
-function fl_setpup_cursor(p1 : LongInt; p2 :  Longint {was int} ) : TCursor ; cdecl; external;
-function fl_setpup_default_cursor(p1 : LongInt ) : TCursor ; cdecl; external;
-function fl_setpup_maxpup(p1 : LongInt ) : LongInt; cdecl; external;
-function fl_getpup_mode(p1 : LongInt; p2 :  Longint {was int} ) : Cardinal; cdecl; external;
-function fl_getpup_text(p1 : LongInt; p2 :  Longint {was int} ) : pchar; cdecl; external;
-procedure fl_showpup(p1 : LongInt); cdecl; external;
-procedure fl_hidepup(p1 : LongInt); cdecl; external;
-function fl_setpup_itemcb(p1 : LongInt; p2 : Longint {was int}; p3 :PFL_PUP_CB ) : PFL_PUP_CB ; cdecl; external;
-function fl_setpup_menucb(p1 : LongInt; p2 :  PFL_PUP_CB ) : PFL_PUP_CB ; cdecl; external;
-procedure fl_setpup_submenu(p1 : LongInt; p2 : Longint {was int}; p3 :Longint {was int}); cdecl; external;
-
-function fl_create_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_positioner(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_set_positioner_xvalue(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-function fl_get_positioner_xvalue(p1 : PFL_OBJECT ) : double ; cdecl; external;
-procedure fl_set_positioner_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_get_positioner_xbounds(p1 : PFL_OBJECT; p2 : pdouble ; p3 : pdouble); cdecl; external;
-procedure fl_set_positioner_yvalue(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-function fl_get_positioner_yvalue(p1 : PFL_OBJECT ) : double ; cdecl; external;
-procedure fl_set_positioner_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_get_positioner_ybounds(p1 : PFL_OBJECT; p2 ,p3 :pdouble); cdecl; external;
-procedure fl_set_positioner_xstep(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-procedure fl_set_positioner_ystep(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-procedure fl_set_positioner_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-
-function  fl_create_scrollbar(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl; external;
-function  fl_add_scrollbar(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl; external;
- 
-function  fl_get_scrollbar_value(p1 : PFL_OBJECT) : double ; cdecl; external;
-procedure fl_set_scrollbar_value(p1 : PFL_OBJECT; p2: double); cdecl; external;
-procedure fl_set_scrollbar_size(p1 : PFL_OBJECT; p2 : double); cdecl; external;
-procedure fl_set_scrollbar_increment(p1 : PFL_OBJECT;p2,p3: double); cdecl; external;
-procedure fl_get_scrollbar_increment(p1 : PFL_OBJECT; p2,p3 : real {float !!}); cdecl; external;
-procedure fl_set_scrollbar_bounds(p1 : PFL_OBJECT; p2,p3 : double); cdecl; external;
-procedure fl_get_scrollbar_bounds(p1 : PFL_OBJECT; p2,p3 : real {float !!!}); cdecl; external;
-procedure fl_set_scrollbar_return(p1 : PFL_OBJECT; p2 : longint); cdecl; external;
-procedure fl_set_scrollbar_step(P1 : PFL_OBJECT;p2 : double); cdecl; external;
-
-
-function fl_create_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_slider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl; external;
-function fl_create_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar): PFL_OBJECT; cdecl; external;
-function fl_add_valslider(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;P6: pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_set_slider_value(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-function fl_get_slider_value(p1 : PFL_OBJECT ) : double ; cdecl; external;
-procedure fl_set_slider_bounds(p1 : PFL_OBJECT; p2 : double; p3 :double); cdecl; external;
-procedure fl_get_slider_bounds(p1 : PFL_OBJECT; p2,p3 : pdouble); cdecl; external;
-procedure fl_set_slider_return(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_slider_step(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-procedure fl_set_slider_increment(p1 : PFL_OBJECT; p2,p3 :  double);cdecl; external;
-procedure fl_set_slider_size(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-procedure fl_set_slider_precision(p1 : PFL_OBJECT; p2 :  Longint {was int}); cdecl; external;
-procedure fl_set_slider_filter(p1 : PFL_OBJECT; p2 : PTFL_SLIDER_FILTER); cdecl; external;
-
-function fl_create_tabfolder (p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl; external;
-function fl_add_tabfolder(p1 : longint;p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT ; cdecl; external;
-function fl_addto_tabfolder(p1 : PFL_OBJECT; p2 : pchar; p3 : PFL_FORM) : PFL_OBJECT; cdecl; external;
-procedure fl_delete_folder(p1 : PFL_OBJECT; p2 : PFL_FORM); cdecl; external;
-procedure fl_delete_folder_bynumber(p1 : PFL_OBJECT; p2 : longint); cdecl; external;
-procedure fl_delete_folder_byname(p1 : PFL_OBJECT; p2 : pchar); cdecl; external;
-
-procedure fl_set_folder(p1 : PFL_OBJECT; P2 : PFL_FORM); cdecl; external;
-procedure fl_set_folder_byname(p1 : PFL_OBJECT; p2 : pchar); cdecl; external;
-procedure fl_set_folder_bynumber(p1 : PFL_OBJECT; p2 : longint); cdecl; external;
-function fl_get_folder(p1 : PFL_OBJECT) : PFL_FORM; cdecl; external;
-function fl_get_folder_number(p1 : PFL_OBJECT) : longint; cdecl; external;
-function fl_get_folder_name(p1 : PFL_OBJECT) : pchar; cdecl; external;
-function fl_get_active_folder(p1 : PFL_OBJECT) : PFL_FORM; cdecl; external;
-function fl_get_active_folder_number(P1 : PFL_OBJECT) : longint; cdecl; external;
-function fl_get_active_folder_name(p1 : PFL_OBJECT) : Pchar; cdecl; external;
-procedure fl_get_folder_area(p1 : PFL_OBJECT; p2,p3,p4,p5 : PFL_Coord); cdecl; external;
- 
-procedure fl_replace_folder_bynumber(p1 : PFL_OBJECT;p2 : longint;p3 : PFL_FORM); cdecl; external;
-
-
-function fl_create_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_text(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6 : pchar): PFL_OBJECT; cdecl; external;
-
-function fl_create_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6 : pchar) : PFL_OBJECT; cdecl; external;
-function fl_add_timer(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord;p6: pchar) : PFL_OBJECT; cdecl; external;
-procedure fl_set_timer(p1 : PFL_OBJECT; p2 :  double); cdecl; external;
-function fl_get_timer(p1 : PFL_OBJECT ) : double ; cdecl; external;
-procedure fl_set_timer_countup(p1 : PFL_OBJECT; p2 :  Longint); cdecl; external;
-function fl_set_timer_filter (p1 : PFL_OBJECT; p2 : PFL_TIMER_FILTER) : PFL_TIMER_FILTER; cdecl; external;
-procedure fl_suspend_timer(p1 : PFL_OBJECT); cdecl; external;
-procedure fl_resume_timer(p1 : PFL_OBJECT); cdecl; external;
-
-
-procedure fl_set_xyplot_return(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_xtics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_ytics(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_xbounds(p1 : PFL_OBJECT; p2 : double; p3 :double)  ; cdecl; external;
-procedure fl_set_xyplot_ybounds(p1 : PFL_OBJECT; p2 : double; p3 :double)  ; cdecl; external;
-procedure fl_get_xyplot_xbounds(p1 : PFL_OBJECT; p2,p3 : pfloat )  ; cdecl; external;
-procedure fl_get_xyplot_ybounds(p1 : PFL_OBJECT; p2,p3 : pfloat )  ; cdecl; external;
-procedure fl_get_xyplot(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer)  ; cdecl; external;
-procedure fl_get_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : pointer)  ; cdecl; external;
-
-function fl_create_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; p6: pchar)  : PFL_OBJECT ; cdecl; external;
-
-function fl_add_xyplot(p1 : LongInt; p2,p3,p4,p5 : TFL_Coord; P6 : pchar )  : PFL_OBJECT ; cdecl; external;
-
-procedure fl_set_xyplot_data(p1 : PFL_OBJECT; p2,p3 : pfloat; p4 : Longint {was int}; p5,p6,p7 : pchar)  ; cdecl; external;
-procedure fl_set_xyplot_file(p1 : PFL_OBJECT; p2,p3,p4,p5 :pchar)  ; cdecl; external;
-
-{
-#define fl_set_xyplot_datafile fl_set_xyplot_file
-}
-procedure fl_add_xyplot_text(p1 : PFL_OBJECT; p2,p3 : double; p4 : pchar;p5 : Longint {was int}; p6 :TFL_COLOR)  ; cdecl; external;
-
-procedure fl_delete_xyplot_text(p1 : PFL_OBJECT; p2 :  pchar)  ; cdecl; external;
-
-function fl_set_xyplot_maxoverlays(p1 : PFL_OBJECT; p2 :  Longint {was int} )  : Longint  ; cdecl; external;
-procedure fl_add_xyplot_overlay(p1 : PFL_OBJECT; p2 : Longint {was int}; p3,p4 : pfloat; p5 : Longint {was int}; p6 :TFL_COLOR)  ; cdecl; external;
-procedure fl_set_xyplot_overlay_type(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int})  ; cdecl; external;
-procedure fl_delete_xyplot_overlay(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_interpolate(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : double)  ; cdecl; external;
-procedure fl_set_xyplot_fontsize(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_fontstyle(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_inspect(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_set_xyplot_symbolsize(p1 : PFL_OBJECT; p2 :  Longint {was int})  ; cdecl; external;
-procedure fl_replace_xyplot_point(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : double; p4 : double)  ; cdecl; external;
-procedure fl_get_xyplot_xmapping(p1 : PFL_OBJECT; p2,p3 : pfloat)  ; cdecl; external;
-procedure fl_get_xyplot_ymapping(p1 : PFL_OBJECT; p2,p3 : pfloat)  ; cdecl; external;
-function fl_interpolate(p1,p2 : pfloat; p3 :Longint {was int};p4,p5 : pfloat; p6 : double; p7 : Longint {was int})  : Longint ; cdecl; external;
-
-procedure fl_xyplot_s2w(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat)  ; cdecl; external;
-procedure fl_xyplot_w2s(p1 : PFL_OBJECT; p2 : double; p3 : double; p4,p5 : pfloat)  ; cdecl; external;
-procedure fl_set_xyplot_xscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double)  ; cdecl; external;
-procedure fl_set_xyplot_yscale(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 :double)  ; cdecl; external;
-
-procedure fl_set_xyplot_linewidth(p1 : PFL_OBJECT; p2,p3 : Longint);cdecl; external;
-procedure fl_set_xyplot_xgrid(p1 : PFL_OBJECT; p2 : Longint);cdecl; external;
-procedure fl_set_xyplot_ygrid(p1 : PFL_OBJECT; p2 : Longint);cdecl; external;
-procedure fl_set_xyplot_alphaxtics(p1 : PFL_OBJECT; p2,p3 : pchar);cdecl; external;
-procedure fl_set_xyplot_alphaytics(p1 : PFL_OBJECT; p2,p3 : pchar);cdecl; external;
-procedure fl_set_xyplot_fixed_xaxis(p1 : PFL_OBJECT; p2,p3 : pchar);cdecl; external;
-procedure fl_set_xyplot_fixed_yaxis(p1 : PFL_OBJECT; p2,p3 : pchar);cdecl; external;
-
-{ Added later : }
-function fl_mode_capable(p1,p2 : longint ) : longint;cdecl; external;
-procedure fl_enumerate_fonts(p1 : PFL_ENUMERATEPTR; p2 :  longint);cdecl; external;
-
-
-{ From here we implement function aliases which were #defined }
-
-procedure fl_set_button_shortcut(p1 : PFL_OBJECT; p2 : pchar;p3 : Longint {was int});cdecl;
-
-begin
-  fl_set_object_shortcut (p1,p2,p3);
-end;
-
-procedure fl_set_pixmapbutton_data(p1 : PFL_OBJECT; p2 :  ppchar);cdecl;
-
-begin
- fl_set_pixmap_data(p1,p2);
-end;
-
-procedure fl_set_pixmapbutton_file(p1 : PFL_OBJECT; p2 :  pchar);cdecl;
-
-begin
-  fl_set_pixmap_file(p1,p2);
-end;
-
-procedure fl_set_pixmapbutton_align(p1 : PFL_OBJECT; p2 : Longint {was int}; p3 : Longint {was int}; p4 : Longint {was int});cdecl;
-begin
-  fl_set_pixmap_align(p1,p2,p3,p4);
-end;
-
-procedure fl_set_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : TPixmap; p3 :TPixmap);cdecl;
-begin
- fl_set_pixmap_pixmap(p1,p2,p3);
-end;
-
-procedure fl_set_pixmapbutton_colorcloseness(p1 : Longint {was int}; p2 : Longint {was int}; p3 :Longint {was int});cdecl;
-begin
-fl_set_pixmap_colorcloseness(p1,p2,p3);
-end;
-
-procedure fl_free_pixmapbutton_pixmap(p1 : PFL_OBJECT); cdecl;
-begin
-  fl_free_pixmap_pixmap(p1); 
-end;
-
-function fl_get_pixmapbutton_pixmap(p1 : PFL_OBJECT; p2 : PPixmap; p3 : PPixmap) : TPixmap ;cdecl;
-
-begin
- fl_get_pixmapbutton_pixmap:=fl_get_pixmap_pixmap(p1,p2,p3);
-end;
-
-Function FL_ObjWin ( P : PFL_Object) : TWindow;cdecl;
-
-begin
-if P^.objclass <> FL_CANVAS then
-    FL_ObjWin :=P^.form^.window
-else
-    FL_objWin := fl_get_canvas_id (p)
-end;
-
-procedure fl_rectf(x,y,w,h : TFL_COORD;c : TFL_COLOR);cdecl;
-begin
-   fl_rectangle(1,x,y,w,h,c)
-end;
-
-procedure fl_rect(x,y,w,h : TFL_COORD;c : TFL_COLOR);cdecl;
-begin
-    fl_rectangle(0,x,y,w,h,c)
-end;
-
-
-procedure fl_set_canvas_decoration(p1 : PFL_OBJECT; p2 :  Longint {was int});cdecl;
-
-begin
-fl_set_object_boxtype (p1,p2);
-end;
-
-function fl_setpup_default_fontsize(p1 : LongInt) : Longint; cdecl;
-
-begin
- fl_setpup_default_fontsize:=fl_setpup_fontsize(p1)
-end;
-
-function fl_setpup_default_fontstyle(p1 : LongInt) : Longint;cdecl;
-
-begin
- fl_setpup_default_fontstyle:=fl_setpup_fontstyle(p1);
-end;
-
-procedure fl_setpup_default_color(p1 : TFL_COLOR; p2 :  TFL_COLOR);cdecl;
-
-begin
- fl_setpup_color(p1,p2);
-end;
-
-procedure fl_setpup_default_checkcolor(p1 : TFL_COLOR); cdecl;
-
-begin
-fl_setpup_default_checkcolor(p1);
-end;
-
-end.

packages/forms/x.pp

@@ -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.

packages/forms/xlib.pp

@@ -1,2098 +0,0 @@
-
-unit xlib;
-  { Changes after conversion from Xlib.h marked MVC -- Michael Van Canneyt
-    Removed many many comments. 
-    Including copyright. should be pasted in again. MVC }
-
-  interface
-
-uses X; { This is needed MVC.}
-
-    type
-       TXPointer = ^char;
-       TBool = Longint; 
-       PBool = ^TBool;
-       TStatus = Longint; { Also a choice. MVC }
-       { Some pointers : }
-       pppchar = ^ppchar;
-       ppwindow = ^pwindow;
-       Twchar_t = cardinal;
-       Pwchar_t = ^Twchar_t;
-       Pstatus = ^TStatus;
-       PXPointer = ^TXPointer;
-       Plongint = ^Longint;
-       PPLOngint = ^Plongint;
-
-    const
-
-{
- Removed, standard in Pascal - MVC 
-       True = 1;
-       False = 0;
-}       
-	QueuedAlready = 0;
-	QueuedAfterReading = 1;
-
-    {* !!!!!
-    #define ConnectionNumber(dpy) 	(((_XPrivDisplay)dpy)->fd)
-    #define RootWindow(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->root)
-    #define DefaultScreen(dpy) 	(((_XPrivDisplay)dpy)->default_screen)
-    #define DefaultRootWindow(dpy) 	(ScreenOfDisplay(dpy,DefaultScreen(dpy))->root)
-    #define DefaultVisual(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_visual)
-    #define DefaultGC(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->default_gc)
-    #define BlackPixel(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->black_pixel)
-    #define WhitePixel(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->white_pixel)
-    #define AllPlanes 		((unsigned long)~0L)
-    #define QLength(dpy) 		(((_XPrivDisplay)dpy)->qlen)
-    #define DisplayWidth(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->width)
-    #define DisplayHeight(dpy, scr) (ScreenOfDisplay(dpy,scr)->height)
-    #define DisplayWidthMM(dpy, scr)(ScreenOfDisplay(dpy,scr)->mwidth)
-    #define DisplayHeightMM(dpy, scr)(ScreenOfDisplay(dpy,scr)->mheight)
-    #define DisplayPlanes(dpy, scr) (ScreenOfDisplay(dpy,scr)->root_depth)
-    #define DisplayCells(dpy, scr) 	(DefaultVisual(dpy,scr)->map_entries)
-    #define ScreenCount(dpy) 	(((_XPrivDisplay)dpy)->nscreens)
-    #define ServerVendor(dpy) 	(((_XPrivDisplay)dpy)->vendor)
-    #define ProtocolVersion(dpy) 	(((_XPrivDisplay)dpy)->proto_major_version)
-    #define ProtocolRevision(dpy) 	(((_XPrivDisplay)dpy)->proto_minor_version)
-    #define VendorRelease(dpy) 	(((_XPrivDisplay)dpy)->release)
-    #define DisplayString(dpy) 	(((_XPrivDisplay)dpy)->display_name)
-    #define DefaultDepth(dpy, scr) 	(ScreenOfDisplay(dpy,scr)->root_depth)
-    #define DefaultColormap(dpy, scr)(ScreenOfDisplay(dpy,scr)->cmap)
-    #define BitmapUnit(dpy) 	(((_XPrivDisplay)dpy)->bitmap_unit)
-    #define BitmapBitOrder(dpy) 	(((_XPrivDisplay)dpy)->bitmap_bit_order)
-    #define BitmapPad(dpy) 		(((_XPrivDisplay)dpy)->bitmap_pad)
-    #define ImageByteOrder(dpy) 	(((_XPrivDisplay)dpy)->byte_order)
-    
-    #ifdef CRAY /* unable to get WORD64 without pulling in other symbols
-    #define NextRequest(dpy)	XNextRequest(dpy)
-    #else
-    #define NextRequest(dpy)	(((_XPrivDisplay)dpy)->request + 1)
-    #endif
-    #define LastKnownRequestProcessed(dpy)	(((_XPrivDisplay)dpy)->last_request_read)
-    
-    /* macros for screen oriented applications (toolkit)
-    
-    #define ScreenOfDisplay(dpy, scr)(&((_XPrivDisplay)dpy)->screens[scr])
-    #define DefaultScreenOfDisplay(dpy) ScreenOfDisplay(dpy,DefaultScreen(dpy))
-    #define DisplayOfScreen(s)	((s)->display)
-    #define RootWindowOfScreen(s)	((s)->root)
-    #define BlackPixelOfScreen(s)	((s)->black_pixel)
-    #define WhitePixelOfScreen(s)	((s)->white_pixel)
-    #define DefaultColormapOfScreen(s)((s)->cmap)
-    #define DefaultDepthOfScreen(s)	((s)->root_depth)
-    #define DefaultGCOfScreen(s)	((s)->default_gc)
-    #define DefaultVisualOfScreen(s)((s)->root_visual)
-    #define WidthOfScreen(s)	((s)->width)
-    #define HeightOfScreen(s)	((s)->height)
-    #define WidthMMOfScreen(s)	((s)->mwidth)
-    #define HeightMMOfScreen(s)	((s)->mheight)
-    #define PlanesOfScreen(s)	((s)->root_depth)
-    #define CellsOfScreen(s)	(DefaultVisualOfScreen((s))->map_entries)
-    #define MinCmapsOfScreen(s)	((s)->min_maps)
-    #define MaxCmapsOfScreen(s)	((s)->max_maps)
-    #define DoesSaveUnders(s)	((s)->save_unders)
-    #define DoesBackingStore(s)	((s)->backing_store)
-    #define EventMaskOfScreen(s)	((s)->root_input_mask)
-    *}
-    {*
-     * Extensions need a way to hang private data on some structures.
-     *}
-       QueuedAfterFlush = 2;
-    {* number returned by XRegisterExtension *}
-    {* next item on list of data for structure *}
-    {*!!!!!
-    	int (*free_private)();	/* called to free private storage *}
-    {* data private to this extension. *}
-
-    type
-       { Added this for functions at the end. }
-       PCardinal = ^Cardinal;
-                 
-       PXExtData = ^TXExtData ;
-       PPXExtData = ^PXExtData ; 
-       { Put this in to accomodate for the next in the following record. MVC}
-       TXExtData = record
-            number : longint;
-            next : PXExtData; { incorrectly converted. MVC }
-            private_data : TXPointer;
-         end;
-       TXExtCodes = record
-            extension : longint;
-            major_opcode : longint;
-            first_event : longint;
-            first_error : longint;
-         end;
-       PXExtCodes = ^TXExtCodes;
-    {*
-     * Data structure for retrieving info about pixmap formats.
-     *}
-       TXPixmapFormatValues = record
-            depth : longint;
-            bits_per_pixel : longint;
-            scanline_pad : longint;
-         end;
-       PXPixmapFormatValues = ^TXPixmapFormatValues;
-       TXGCValues = record
-            Xfunction : longint; { Renamed function to Xfunction }
-            plane_mask : cardinal;
-            foreground : cardinal;
-            background : cardinal;
-            line_width : longint;
-            line_style : longint;
-            cap_style : longint;
-            join_style : longint;
-            fill_style : longint;
-            fill_rule : longint;
-            arc_mode : longint;
-            tile : TPixmap;
-            stipple : TPixmap;
-            ts_x_origin : longint;
-            ts_y_origin : longint;
-            font : TFont;
-            subwindow_mode : longint;
-            graphics_exposures : TBool;  
-                                 { This was Bool - error in converter ? MVC}
-            clip_x_origin : longint;
-            clip_y_origin : longint;
-            clip_mask : TPixmap;
-            dash_offset : longint;
-            dashes : char;
-         end;
-       PXGCValues = ^TXGCValues;
-    { The GC got defined as GC = ^record - probably from *struct, so I
-      defined a GCrecord. MVC. }
-       TGC = ^TGCrecord;   
-       TGCrecord = record
-            ext_data : PXExtData;
-            gid : TGContext;
-         end;
-    {*
-     * Visual structure; contains information about colormapping possible.
-     *}
-       TVisual = record
-            ext_data : PXExtData;
-            visualid : TVisualID;
-            c_class : longint;
-            classes : longint; { Renamed class to classes. MVC}
-            red_mask : cardinal;
-            green_mask : cardinal;
-            blue_mask : cardinal;
-            bits_per_rgb : longint;
-            map_entries : longint;
-         end;
-       PVisual = ^TVisual;
-    {*
-     * Depth structure; contains information for each possible depth.
-     *}
-       TDepth = record
-            depth : longint;
-            nvisuals : longint;
-            visuals : PVisual;
-         end;
-       PDepth=^TDepth;
-    {*
-     * Information about the screen.  The contents of this structure are
-     * implementation dependent.  A Screen should be treated as opaque
-     * by application code.
-     *}
-    {*
-      struct _XDisplay;  Forward declare before use for C++ 
-    *}
-    { Defined this, needed for the display field in the following. 
-      Should be a pointer to the previous _Xdisplay... MVC}
-      p_XDisplay = pointer; 
-       TScreen = record
-            ext_data : PXExtData;
-            display : p_XDisplay;
-            root : TWindow;
-            width : longint;
-            height : longint;
-            mwidth : longint;
-            mheight : longint;
-            ndepths : longint;
-            depths : PDepth;
-            root_depth : longint;
-            root_visual : PVisual;
-            default_gc : TGC;
-            cmap : TColormap;
-            white_pixel : cardinal;
-            black_pixel : cardinal;
-            max_maps : longint;
-            min_maps : longint;
-            backing_store : longint;
-            save_unders : TBool;
-            root_input_mask : longint;
-         end;
-         PScreen = ^TScreen;
-    {*
-     * Format structure; describes ZFormat data the screen will understand.
-     *}
-       TScreenFormat = record
-            ext_data : PXExtData;
-            depth : longint;
-            bits_per_pixel : longint;
-            scanline_pad : longint;
-         end;
-       PScreenFormat=^TScreenFormat;
-    {*
-     * Data structure for setting window attributes.
-     *}
-       TXSetWindowAttributes = record
-            background_pixmap : TPixmap;
-            background_pixel : cardinal;
-            border_pixmap : TPixmap;
-            border_pixel : cardinal;
-            bit_gravity : longint;
-            win_gravity : longint;
-            backing_store : longint;
-            backing_planes : cardinal;
-            backing_pixel : cardinal;
-            save_under : TBool;
-            event_mask : longint;
-            do_not_propagate_mask : longint;
-            override_redirect : TBool;
-            colormap : TColormap;
-            cursor : TCursor;
-         end;
-       PXSetWindowAttributes = ^TXSetWindowAttributes;
-       TXWindowAttributes = record
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            border_width : longint;
-            depth : longint;
-            visual : PVisual;
-            root : TWindow;
-            c_class : longint;
-            classes : longint; { Renamed from class. MVC}
-            bit_gravity : longint;
-            win_gravity : longint;
-            backing_store : longint;
-            backing_planes : cardinal;
-            backing_pixel : cardinal;
-            save_under : TBool;
-            colormap : TColormap;
-            map_installed : TBool;
-            map_state : longint;
-            all_event_masks : longint;
-            your_event_mask : longint;
-            do_not_propagate_mask : longint;
-            override_redirect : TBool;
-            screen : PScreen;
-         end;
-       PXWindowAttributes = ^TXWindowAttributes;
-    {*
-     * Data structure for host setting; getting routines.
-     *
-     *}
-       TXHostAddress = record
-            family : longint;
-            length : longint;
-            address : pchar;
-         end;
-       PXHostAddress = ^TXHostAddress ;
-    {*
-     * Data structure for "image" data, used by image manipulation routines.
-     *}
-     { Added the following empty record - needed in Ximage. 
-       Fill in later. MVC }
-       Funcsrecord = record
-          dummy : integer; { Just something stupid }
-          end;
-       TXImage = record
-            width : longint;
-            height : longint;
-            xoffset : longint;
-            format : longint;
-            data : pchar;
-            byte_order : longint;
-            bitmap_unit : longint;
-            bitmap_bit_order : longint;
-            bitmap_pad : longint;
-            depth : longint;
-            bytes_per_line : longint;
-            bits_per_pixel : longint;
-            red_mask : cardinal;
-            green_mask : cardinal;
-            blue_mask : cardinal;
-            obdata : TXPointer;
-            funcs : funcsrecord {Added this. Incorrectly converted}
-         end;
-      PXImage = ^TXImage;
-    {* 
-     * Data structure for XReconfigureWindow
-     *}
-       TXWindowChanges = record
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            border_width : longint;
-            sibling : TWindow;
-            stack_mode : longint;
-         end;
-        PXWindowChanges =  ^TXWindowChanges;
-    {*
-     * Data structure used by color operations
-     *}
-    {* do_red, do_green, do_blue *}
-       TXColor = record
-            pixel : cardinal;
-            red : word;
-            green : word;
-            blue : word;
-            flags : char;
-            pad : char;
-         end;
-       PXColor = ^TXColor;
-    {*
-     * Data structures for graphics operations.  On most machines, these are
-     * congruent with the wire protocol structures, so reformatting the data
-     * can be avoided on these architectures.
-     *}
-       TXSegment = record
-            x1 : integer;
-            y1 : integer;
-            x2 : integer;
-            y2 : integer;
-         end;
-       PXSegment = ^TXSegment;
-       TXPoint = record
-            x : integer;
-            y : integer;
-         end;
-       PXPoint = ^TXPoint;
-       TXRectangle = record
-            x : integer;
-            y : integer;
-            width : word;
-            height : word;
-         end;
-       PXRectangle = ^TXRectangle;
-       TXArc = record
-            x : integer;
-            y : integer;
-            width : word;
-            height : word;
-            angle1 : integer;
-            angle2 : integer;
-         end;
-       PXarc = ^TXarc;
-    {* Data structure for XChangeKeyboardControl *}
-    {* On, Off, Default *}
-       TXKeyboardControl = record
-            key_click_percent : longint;
-            bell_percent : longint;
-            bell_pitch : longint;
-            bell_duration : longint;
-            led : longint;
-            led_mode : longint;
-            key : longint;
-            auto_repeat_mode : longint;
-         end;
-        PXKeyboardControl = ^TXKeyboardControl;
-    {* Data structure for XGetKeyboardControl *}
-       TXKeyboardState = record
-            key_click_percent : longint;
-            bell_percent : longint;
-            bell_pitch : cardinal;
-            bell_duration : cardinal;
-            led_mask : cardinal;
-            global_auto_repeat : longint;
-            auto_repeats : array[0..(32)-1] of char;
-         end;
-       PXKeyboardState = ^TXKeyboardState;
-    {* Data structure for XGetMotionEvents.  *}
-       TXTimeCoord = record
-            time : TTime;
-            x : integer;
-            y : integer;
-         end;
-       PXTimeCoord = ^TXTimeCoord;
-    {* Data structure for X{Set,Get}ModifierMapping *}
-    {* The server's max # of keys per modifier *}
-    {* An 8 by max_keypermod array of modifiers *}
-       TXModifierKeymap = record
-            max_keypermod : longint;
-            modifiermap : PKeyCode;
-         end;
-       PXModifierKeymap = ^TXModifierKeymap;
-    {*
-     * Display datatype maintaining display specific data.
-     * The contents of this structure are implementation dependent.
-     * A Display should be treated as opaque by application code.
-     *}
-    { I commented the following. It is a complete mess in the XLib.h !!
-      MVC
-           Display = Display;
-     }
-    {*
-    struct _XPrivate;		/* Forward declare before use for C++
-    struct _XrmHashBucketRec;
-    *}
-       TDisplay = record
-            ext_data : PXExtData;
-            private1 : pointer ; { Should be to a _Xprivate struct. MVC }
-            fd : longint;
-            private2 : longint;
-            proto_major_version : longint;
-            proto_minor_version : longint;
-            vendor : pchar;
-            private3 : TXID;
-            private4 : TXID;
-            private5 : TXID;
-            private6 : longint;
-            resource_alloc : Function : TXID; cdecl;
-            byte_order : longint;
-            bitmap_unit : longint;
-            bitmap_pad : longint;
-            bitmap_bit_order : longint;
-            nformats : longint;
-            pixmap_format : PScreenFormat;
-            private8 : longint;
-            release : longint;
-            private9 : pointer ; { Both of them to a _XPRivate struct. MVC}
-            private10 : pointer ;
-            qlen : longint;
-            last_request_read : cardinal;
-            request : cardinal;
-            private11 : TXPointer;
-            private12 : TXPointer;
-            private13 : TXPointer;
-            private14 : TXPointer;
-            max_request_size : cardinal;
-            db : pointer; { To a _XrmHashBucketRec struct. MVC }
-            private15 : Function : longint; cdecl;
-            display_name : pchar;
-            default_screen : longint;
-            nscreens : longint;
-            screens : PScreen;
-            motion_buffer : cardinal;
-            private16 : cardinal;
-            min_keycode : longint;
-            max_keycode : longint;
-            private17 : TXPointer;
-            private18 : TXPointer;
-            private19 : longint;
-            xdefaults : pchar;
-         end;
-         PDisplay=^TDisplay;
-    {*
-     * Definitions of specific events.
-     *}
-    { !! Changed all 'type' definitions to 'eventttype' MVC } 
-    { !! Changed al display definitions to 'whatdisplay' MVC }
-    { !! Idem dito for window,time,property !!}
-       TXKeyEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            root : TWindow;
-            subwindow : TWindow;
-            time : TTime;
-            x : longint;
-            y : longint;
-            x_root : longint;
-            y_root : longint;
-            state : cardinal;
-            keycode : cardinal;
-            same_screen : TBool;
-         end;
-       PXKeyEvent =^TXKeyEvent;
-       TXKeyPressedEvent = TXKeyEvent;
-       PXKeyPressedEvent= ^TXKeyPressedEvent;
-       XKeyReleasedEvent = TXKeyEvent;
-       TXButtonEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            root : TWindow;
-            subwindow : TWindow;
-            time : TTime;
-            x : longint;
-            y : longint;
-            x_root : longint;
-            y_root : longint;
-            state : cardinal;
-            button : cardinal;
-            same_screen : TBool;
-         end;
-       TXButtonPressedEvent = TXButtonEvent;
-       TXButtonReleasedEvent = TXButtonEvent;
-       TXMotionEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            root : TWindow;
-            subwindow : TWindow;
-            time : TTime;
-            x : longint;
-            y : longint;
-            x_root : longint;
-            y_root : longint;
-            state : cardinal;
-            is_hint : char;
-            same_screen : TBool;
-         end;
-       TXPointerMovedEvent = TXMotionEvent;
-    {*
-    	 * NotifyAncestor, NotifyVirtual, NotifyInferior, 
-    	 * NotifyNonlinear,NotifyNonlinearVirtual
-    	 *}
-       TXCrossingEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            root : TWindow;
-            subwindow : TWindow;
-            time : TTime;
-            x : longint;
-            y : longint;
-            x_root : longint;
-            y_root : longint;
-            mode : longint;
-            detail : longint;
-            same_screen : TBool;
-            focus : TBool;
-            state : cardinal;
-         end;
-       TXEnterWindowEvent = TXCrossingEvent;
-       TXLeaveWindowEvent = TXCrossingEvent;
-       TXFocusChangeEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            mode : longint;
-            detail : longint;
-         end;
-       TXFocusInEvent = TXFocusChangeEvent;
-       TXFocusOutEvent = TXFocusChangeEvent;
-       TXKeymapEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            key_vector : array[0..(32)-1] of char;
-         end;
-       TXExposeEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            count : longint;
-         end;
-       TXGraphicsExposeEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            drawable : TDrawable;
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            count : longint;
-            major_code : longint;
-            minor_code : longint;
-         end;
-       TXNoExposeEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            drawable : TDrawable;
-            major_code : longint;
-            minor_code : longint;
-         end;
-       TXVisibilityEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            state : longint;
-         end;
-       TXCreateWindowEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            parent : TWindow;
-            window : TWindow;
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            border_width : longint;
-            override_redirect : TBool;
-         end;
-       TXDestroyWindowEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-         end;
-       TXUnmapEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-            from_configure : TBool;
-         end;
-       TXMapEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-            override_redirect : TBool;
-         end;
-       TXMapRequestEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            parent : TWindow;
-            window : TWindow;
-         end;
-       TXReparentEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-            parent : TWindow;
-            x : longint;
-            y : longint;
-            override_redirect : TBool;
-         end;
-       TXConfigureEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            border_width : longint;
-            above : TWindow;
-            override_redirect : TBool;
-         end;
-       TXGravityEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-            x : longint;
-            y : longint;
-         end;
-       TXResizeRequestEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            width : longint;
-            height : longint;
-         end;
-       TXConfigureRequestEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            parent : TWindow;
-            window : TWindow;
-            x : longint;
-            y : longint;
-            width : longint;
-            height : longint;
-            border_width : longint;
-            above : TWindow;
-            detail : longint;
-            value_mask : cardinal;
-         end;
-       TXCirculateEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            event : TWindow;
-            window : TWindow;
-            place : longint;
-         end;
-       TXCirculateRequestEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            parent : TWindow;
-            window : TWindow;
-            place : longint;
-         end;
-       TXPropertyEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            atom : TAtom;
-            time : TTime;
-            state : longint;
-         end;
-       TXSelectionClearEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            selection : TAtom;
-            time : TTime;
-         end;
-       TXSelectionRequestEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            owner : TWindow;
-            requestor : TWindow;
-            selection : TAtom;
-            target : TAtom;
-            {whatproperty : TAtom;}
-            time : TTime;
-         end;
-       TXSelectionEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            requestor : TWindow;
-            selection : TAtom;
-            target : TAtom;
-            whatproperty : TAtom;
-            whattime : TTime;
-         end;
-       TXColormapEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            colormap : TColormap;
-            c_new : TBool;
-            news : TBool; { Was new. MVC }
-            state : longint;
-         end;
-       TXClientMessageEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            message_eventtype : TAtom;
-            format : longint;
-            data : record
-                case longint of
-                   0 : (b : array[0..(20)-1] of char);
-                   1 : (s : array[0..(10)-1] of integer);
-                   2 : (l : array[0..(5)-1] of longint);
-              end;
-         end;
-       TXMappingEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-            request : longint;
-            first_keycode : longint;
-            count : longint;
-         end;
-       PXMappingEvent = ^TXMappingEvent;
-       TXErrorEvent = record
-            eventtype : longint;
-            Whatdisplay : PDisplay;
-            resourceid : TXID;
-            serial : cardinal;
-            error_code : char;
-            request_code : char;
-            minor_code : char;
-         end;
-       PXErrorEvent = ^TXErrorEvent;
-       TXAnyEvent = record
-            eventtype : longint;
-            serial : cardinal;
-            send_event : TBool;
-            display : PDisplay;
-            window : TWindow;
-         end;
-       TXEvent = record
-           case longint of
-              0 : (eventtype : longint);
-              1 : (xany : TXAnyEvent);
-              2 : (xkey : TXKeyEvent);
-              3 : (xbutton : TXButtonEvent);
-              4 : (xmotion : TXMotionEvent);
-              5 : (xcrossing : TXCrossingEvent);
-              6 : (xfocus : TXFocusChangeEvent);
-              7 : (xexpose : TXExposeEvent);
-              8 : (xgraphicsexpose : TXGraphicsExposeEvent);
-              9 : (xnoexpose : TXNoExposeEvent);
-              10 : (xvisibility : TXVisibilityEvent);
-              11 : (xcreatewindow : TXCreateWindowEvent);
-              12 : (xdestroywindow : TXDestroyWindowEvent);
-              13 : (xunmap : TXUnmapEvent);
-              14 : (xmap : TXMapEvent);
-              15 : (xmaprequest : TXMapRequestEvent);
-              16 : (xreparent : TXReparentEvent);
-              17 : (xconfigure : TXConfigureEvent);
-              18 : (xgravity : TXGravityEvent);
-              19 : (xresizerequest : TXResizeRequestEvent);
-              20 : (xconfigurerequest : TXConfigureRequestEvent);
-              21 : (xcirculate : TXCirculateEvent);
-              22 : (xcirculaterequest : TXCirculateRequestEvent);
-              23 : (xproperty : TXPropertyEvent);
-              24 : (xselectionclear : TXSelectionClearEvent);
-              25 : (xselectionrequest : TXSelectionRequestEvent);
-              26 : (xselection : TXSelectionEvent);
-              27 : (xcolormap : TXColormapEvent);
-              28 : (xclient : TXClientMessageEvent);
-              29 : (xmapping : TXMappingEvent);
-              30 : (xerror : TXErrorEvent);
-              31 : (xkeymap : TXKeymapEvent);
-              32 : (pad : array[0..(24)-1] of longint);
-         end;
-     PXEvent = ^TXEvent;
-    {*!!!!!!
-    #define XAllocID(dpy) ((*((_XPrivDisplay)dpy)->resource_alloc)((dpy)))
-    *}
-    {*
-     * per character font metric information.
-     *}
-       TXCharStruct = record
-            lbearing : integer;
-            rbearing : integer;
-            width : integer;
-            ascent : integer;
-            descent : integer;
-            attributes : word;
-         end;
-       PXCharStruct = ^TXCharStruct;
-       TXFontProp = record
-            name : TAtom;
-            card32 : cardinal;
-         end;
-       PXFontProp = ^TXFontProp;
-       PXFontstruct = ^TXFontStruct;
-       PPXFontstruct = ^PXFontStruct;
-       PPPXFontstruct = ^PPXFontStruct;
-       TXFontStruct = record
-            ext_data : PXExtData;
-            fid : TFont;
-            direction : cardinal;
-            min_char_or_byte2 : cardinal;
-            max_char_or_byte2 : cardinal;
-            min_byte1 : cardinal;
-            max_byte1 : cardinal;
-            all_chars_exist : TBool;
-            default_char : cardinal;
-            n_properties : longint;
-            properties : PXFontProp;
-            min_bounds : TXCharStruct;
-            max_bounds : TXCharStruct;
-            per_char : PXCharStruct;
-            ascent : longint;
-            descent : longint;
-         end;
-       TXTextItem = record
-            chars : pchar;
-            nchars : longint;
-            delta : longint;
-            font : TFont;
-         end;
-       PXTextItem = ^TXTextItem;
-    {* normal 16 bit characters are two bytes *}
-       TXChar2b = record
-            byte1 : char;
-            byte2 : char;
-         end;
-       PXChar2b = ^TXChar2b;
-       TXTextItem16 = record
-            chars : PXChar2b;
-            nchars : longint;
-            delta : longint;
-            font : TFont;
-         end;
-       PXTextItem16 = ^TXTextItem16;
-       TXEDataObject = record
-           case longint of
-              0 : (display : PDisplay);
-              1 : (gc : TGC);
-              2 : (visual : PVisual);
-              3 : (screen : PScreen);
-              4 : (pixmap_format : PScreenFormat);
-              5 : (font : PXFontStruct);
-         end;
-       TXFontSetExtents = record
-            max_ink_extent : TXRectangle;
-            max_logical_extent : TXRectangle;
-         end;
-       PXFontSetExtents = ^TXFontSetExtents;
-       TXOMProc = Procedure; cdecl;
-       
-       TXOMrec = record
-         dummy : integer;
-       end;
-       TXOCrec = record
-         dummy : integer;
-       end;
-       TXOM = ^TXOMrec;
-       TXOC = ^TXOCrec;
-       { Again an accomodation. MVC }
-       TXfontSetRecord = record
-         dummy : integer;
-         end;
-       TXFontSet = ^TXFontsetRecord;
-       TXmbTextItem = record
-            chars : pchar;
-            nchars : longint;
-            delta : longint;
-            font_set : TXFontSet;
-         end;
-       PXmbTextItem = ^TXmbTextItem;
-       TXwcTextItem = record
-            chars : Pwchar_t;
-            nchars : longint;
-            delta : longint;
-            font_set : TXFontSet;
-         end;
-       PXwcTextItem = ^TXwcTextItem;
-
-    const
-       XNRequiredCharSet = 'requiredCharSet';
-       XNQueryOrientation = 'queryOrientation';
-       XNBaseFontName = 'baseFontName';
-       XNOMAutomatic = 'omAutomatic';
-       XNMissingCharSet = 'missingCharSet';
-       XNDefaultString = 'defaultString';
-       XNOrientation = 'orientation';
-       XNDirectionalDependentDrawing = 'directionalDependentDrawing';
-       XNContextualDrawing = 'contextualDrawing';
-       XNFontInfo = 'fontInfo';
-
-   type
-       TXOMCharSetList = record
-            charset_count : longint;
-            charset_list : ^pchar;
-         end;
-       TXOrientation = (
-         XOMOrientation_LTR_TTB,
-         XOMOrientation_RTL_TTB,
-         XOMOrientation_TTB_LTR,
-         XOMOrientation_TTB_RTL,
-         XOMOrientation_Context
-         );
-    {* Input Text description *}
-       TXOMOrientation = record
-            num_orient : longint;
-            orient : ^TXOrientation;
-         end;
-       TXOMFontInfo = record
-            num_font : longint;
-            font_struct_list : ^PXFontStruct;
-            font_name_list : ^pchar;
-         end;
-       TXIMProc = Procedure; cdecl;
-       { Defined the following to accomodate XIM. MVC}
-       TXIMrecord = record
-         field : integer
-         end;
-       TXIM = ^TXIMrecord;
-       { Defined the following to accomodate XIC. MVC}
-       TXICrecord = record
-         field : integer
-         end;
-       TXIC = ^TXICrecord;
-       TXIMStyle = cardinal;
-       TXIMStyles = record
-            count_styles : word;
-            supported_styles : ^TXIMStyle;
-         end;
-
-    const
-       XIMPreeditArea = $0001;
-       XIMPreeditCallbacks = $0002;
-       XIMPreeditPosition = $0004;
-       XIMPreeditNothing = $0008;
-       XIMPreeditNone = $0010;
-       XIMStatusArea = $0100;
-       XIMStatusCallbacks = $0200;
-       XIMStatusNothing = $0400;
-       XIMStatusNone = $0800;
-       XNVaNestedList = 'XNVaNestedList';
-       XNQueryInputStyle = 'queryInputStyle';
-       XNClientWindow = 'clientWindow';
-       XNInputStyle = 'inputStyle';
-       XNFocusWindow = 'focusWindow';
-       XNResourceName = 'resourceName';
-       XNResourceClass = 'resourceClass';
-       XNGeometryCallback = 'geometryCallback';
-       XNDestroyCallback = 'destroyCallback';
-       XNFilterEvents = 'filterEvents';
-       XNPreeditStartCallback = 'preeditStartCallback';
-       XNPreeditDoneCallback = 'preeditDoneCallback';
-       XNPreeditDrawCallback = 'preeditDrawCallback';
-       XNPreeditCaretCallback = 'preeditCaretCallback';
-       XNPreeditStateNotifyCallback = 'preeditStateNotifyCallback';
-       XNPreeditAttributes = 'preeditAttributes';
-       XNStatusStartCallback = 'statusStartCallback';
-       XNStatusDoneCallback = 'statusDoneCallback';
-       XNStatusDrawCallback = 'statusDrawCallback';
-       XNStatusAttributes = 'statusAttributes';
-       XNArea = 'area';
-       XNAreaNeeded = 'areaNeeded';
-       XNSpotLocation = 'spotLocation';
-       XNColormap = 'colorMap';
-       XNStdColormap = 'stdColorMap';
-       XNForeground = 'foreground';
-       XNBackground = 'background';
-       XNBackgroundPixmap = 'backgroundPixmap';
-       XNFontSet = 'fontSet';
-       XNLineSpace = 'lineSpace';
-       XNCursor = 'cursor';
-       XNQueryIMValuesList = 'queryIMValuesList';
-       XNQueryICValuesList = 'queryICValuesList';
-       XNVisiblePosition = 'visiblePosition';
-       XNR6PreeditCallback = 'r6PreeditCallback';
-       XNStringConversionCallback = 'stringConversionCallback';
-       XNStringConversion = 'stringConversion';
-       XNResetState = 'resetState';
-       XNHotKey = 'hotKey';
-       XNHotKeyState = 'hotKeyState';
-       XNPreeditState = 'preeditState';
-       XNSeparatorofNestedList = 'separatorofNestedList';
-       XBufferOverflow = -(1);
-       XLookupNone = 1;
-       XLookupChars = 2;
-       XLookupKeySym = 3;
-       XLookupBoth = 4;
-
-    type
-       TXVaNestedList = TXPointer;
-       TXIMCallback = record
-            client_data : TXPointer;
-            callback : TXIMProc;
-         end;
-       TXIMFeedback = cardinal;
-
-    const
-       XIMReverse = 1;
-       XIMUnderline = (1) shl (1);
-       XIMHighlight = (1) shl (2);
-       XIMPrimary = (1) shl (5);
-       XIMSecondary = (1) shl (6);
-       XIMTertiary = (1) shl (7);
-       XIMVisibleToForward = (1) shl (8);
-       XIMVisibleToBackword = (1) shl (9);
-       XIMVisibleToCenter = (1) shl (10);
-
-    type
-       TXIMText = record
-            length : word;
-            feedback : ^TXIMFeedback;
-            encoding_is_wchar : TBool;
-            thestring : record { This was string. MVC}
-                 case longint of
-                   0 : (multi_byte : ^char);
-                   1 : (wide_char : Pwchar_t);
-              end;
-         end;
-       PXIMText=^TXIMText;
-       TXIMPreeditState = cardinal;
-
-    const
-       XIMPreeditUnKnown = 0;
-       XIMPreeditEnable = 1;
-       XIMPreeditDisable = (1) shl (1);
-
-    type
-       TXIMPreeditStateNotifyCallbackStruct = record
-            state : TXIMPreeditState;
-         end;
-       TXIMResetState = cardinal;
-
-    const
-       XIMInitialState = 1;
-       XIMPreserveState = (1) shl (1);
-
-    type
-       TXIMStringConversionFeedback = cardinal;
-
-    const
-       XIMStringConversionLeftEdge = $00000001;
-       XIMStringConversionRightEdge = $00000002;
-       XIMStringConversionTopEdge = $00000004;
-       XIMStringConversionBottomEdge = $00000008;
-       XIMStringConversionConcealed = $00000010;
-       XIMStringConversionWrapped = $00000020;
-
-    type
-       TXIMStringConversionText = record
-            length : word;
-            feedback : ^TXIMStringConversionFeedback;
-            encoding_is_wchar : TBool;
-            thestring : record { This was string. MVC}
-                case longint of
-                   0 : (mbs : pchar);
-                   1 : (wcs : pwchar_t);
-              end;
-         end;
-       TXIMStringConversionPosition = word;
-       TXIMStringConversionType = word;
-
-    const
-       XIMStringConversionBuffer = $0001;
-       XIMStringConversionLine = $0002;
-       XIMStringConversionWord = $0003;
-       XIMStringConversionChar = $0004;
-
-    type
-       TXIMStringConversionOperation = word;
-
-    const
-       TXIMStringConversionSubstitution = $0001;
-       TXIMStringConversionRetrival = $0002;
-
-    type
-       TXIMStringConversionCallbackStruct = record
-            position : TXIMStringConversionPosition;
-            thetype : TXIMStringConversionType; { This wsa type. MVC}
-            operation : TXIMStringConversionOperation;
-            factor : word;
-            thetext : ^TXIMStringConversionText; { This was text. MVC}
-         end;
-       TXIMPreeditDrawCallbackStruct = record
-            caret : longint;
-            chg_first : longint;
-            chg_length : longint;
-            text : ^TXIMText;
-         end;
-       TXIMCaretDirection = (
-         XIMForwardChar,
-         XIMBackwardChar,
-         XIMForwardWord,
-         XIMBackwardWord,
-         XIMCaretUp,
-         XIMCaretDown,
-         XIMNextLine,
-         XIMPreviousLine,
-         XIMLineStart,
-         XIMLineEnd,
-         XIMAbsolutePosition,
-         XIMDontChange
-         );
-       TXIMCaretStyle = (
-         XIMIsInvisible,
-         XIMIsPrimary,
-         XIMIsSecondary
-         );
-       TXIMPreeditCaretCallbackStruct = record
-            position : longint;
-            direction : TXIMCaretDirection;
-            style : TXIMCaretStyle;
-         end;
-       TXIMStatusDataType = (
-         XIMTextType,
-         XIMBitmapType
-         );
-       TXIMStatusDrawCallbackStruct = record
-            thetype : TXIMStatusDataType; { Was Type. MVC }
-            data : record
-                case longint of
-                   0 : (text : PXIMText);
-                   1 : (bitmap : TPixmap);
-              end;
-         end;
-       TXIMHotKeyTrigger = record
-            keysym : TKeySym;
-            modifier : longint;
-            modifier_mask : longint;
-         end;
-       TXIMHotKeyTriggers = record
-            num_hot_key : longint;
-            key : ^TXIMHotKeyTrigger;
-         end;
-       TXIMHotKeyState = cardinal;
-
-    const
-       XIMHotKeyStateON = $0001;
-       XIMHotKeyStateOFF = $0002;
-
-    type
-       XIMValuesList = record
-            count_values : word;
-            supported_values : ^pchar;
-         end;
-
-type
-  TXErrorHandler = Function(_para1 : PDisplay;_para2 : PXErrorEvent) : longint; cdecl;
-  TXIOErrorHandler = Function(_para1 : PDisplay) : longint; cdecl;
-  TXConnectionWatchProc = Procedure(_para1 : PDisplay;_para2 : TXPointer;_para3 : longint;_para4 : TBool;_para5 : PXPointer); cdecl;
-
-
-{ Here start the Function definitions in the C header file. MVC } cdecl;
-
-Function XLoadQueryFont (para1 : PDisplay; para2 : pchar) : PXFontStruct; cdecl;
-Function XQueryFont(_para1 : PDisplay;_para2 : TXID) : PXFontStruct; cdecl;
-Function XGetMotionEvents(_para1 : PDisplay;_para2 : TWindow;_para3 : TTime;_para4 : TTime;_para5 : Plongint) : PXTimeCoord; cdecl;
-Function XDeleteModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;
-Function XGetModifierMapping(_para1 : PDisplay) : PXModifierKeymap; cdecl;
-Function XInsertModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;
-Function XNewModifiermap(_para1 : longint) : PXModifierKeymap; cdecl;
-Function XCreateImage(_para1 : PDisplay;_para2 : PVisual;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : PXImage; cdecl;
-Function XInitImage(_para1 : PXImage) : TStatus; cdecl;
-Function XGetImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint) : PXImage; cdecl;
-Function XGetSubImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : PXImage;_para10 : longint;_para11 : longint) : PXImage; cdecl;
-Function XOpenDisplay(_para1 : pchar) : PDisplay; cdecl;
-Procedure XrmInitialize; cdecl;
-Function XFetchBytes(_para1 : PDisplay;_para2 : Plongint) : pchar; cdecl;
-Function XFetchBuffer(_para1 : PDisplay;_para2 : Plongint;_para3 : longint) : pchar; cdecl;
-Function XGetAtomName(_para1 : PDisplay;_para2 : TAtom) : pchar; cdecl;
-Function XGetAtomNames(_para1 : PDisplay;_para2 : PAtom;_para3 : longint;_para4 : PPChar) : TStatus; cdecl;
-Function XGetDefault(_para1 : PDisplay;_para2 : pchar;_para3 : pchar) : pchar; cdecl;
-Function XDisplayName(_para1 : pchar) : pchar; cdecl;
-Function XKeysymToString(_para1 : TKeySym) : pchar; cdecl;
-Function XSynchronize(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;
-{ WHat to do with this ??? MVC
-Function XSetAfterFunction(_para1 : PDisplay;_para2 : function(_para1 : PDisplay) : longint) : function : longint; cdecl;
-}
-Function XInternAtom(_para1 : PDisplay;_para2 : pchar;_para3 : TBool) : TAtom; cdecl;
-Function XInternAtoms(_para1 : PDisplay;_para2 : PPChar;_para3 : longint;_para4 : TBool;_para5 : PAtom) : TStatus; cdecl;
-Function XCopyColormapAndFree(_para1 : PDisplay;_para2 : TColormap) : TColormap; cdecl;
-Function XCreateColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : PVisual;_para4 : longint) : TColormap; cdecl;
-Function XCreatePixmapCursor(_para1 : PDisplay;_para2 : TPixmap;_para3 : TPixmap;_para4 : PXColor;_para5 : PXColor;_para6 : cardinal;_para7 : cardinal) : TCursor; cdecl;
-Function XCreateGlyphCursor(_para1 : PDisplay;_para2 : TFont;_para3 : TFont;_para4 : cardinal;_para5 : cardinal;_para6 : PXColor;_para7 : PXColor) : TCursor; cdecl;
-Function XCreateFontCursor(_para1 : PDisplay;_para2 : cardinal) : TCursor; cdecl;
-Function XLoadFont(_para1 : PDisplay;_para2 : pchar) : TFont; cdecl;
-Function XCreateGC(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : PXGCValues) : TGC; cdecl;
-Function XGContextFromGC(_para1 : TGC) : TGContext; cdecl;
-Procedure XFlushGC(_para1 : PDisplay;_para2 : TGC); cdecl;
-Function XCreatePixmap(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;
-Function XCreateBitmapFromData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;
-Function XCreatePixmapFromBitmapData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal) : TPixmap; cdecl;
-Function XCreateSimpleWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal;_para9 : cardinal) : TWindow; cdecl;
-Function XGetSelectionOwner(_para1 : PDisplay;_para2 : TAtom) : TWindow; cdecl;
-Function XCreateWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : cardinal;_para10 : PVisual;_para11 : cardinal;_para12 : PXSetWindowAttributes) : TWindow; cdecl;
-Function XListInstalledColormaps(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PColormap; cdecl;
-Function XListFonts(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint) : PPChar; cdecl;
-Function XListFontsWithInfo(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : PPXFontStruct) : PPChar; cdecl;
-Function XGetFontPath(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;
-Function XListExtensions(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;
-Function XListProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PAtom; cdecl;
-Function XListHosts(_para1 : PDisplay;_para2 : Plongint;_para3 : PBool) : PXHostAddress; cdecl;
-Function XKeycodeToKeysym(_para1 : PDisplay;_para3 : TKeyCode;_para4 : longint) : TKeySym; cdecl;
-{ Doesn't want ? MVC 
-Function XLookupKeysym(_para1 : PXKeyEvent;_para2 : longint) : TKeySym; cdecl;
-}
-Function XGetKeyboardMapping(_para1 : PDisplay;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint;_para5 : Plongint) : PKeySym; cdecl;
-Function XStringToKeysym(_para1 : pchar) : TKeySym; cdecl;
-Function XMaxRequestSize(_para1 : PDisplay) : longint; cdecl;
-Function XExtendedMaxRequestSize(_para1 : PDisplay) : longint; cdecl;
-Function XResourceManagerString(_para1 : PDisplay) : pchar; cdecl;
-Function XScreenResourceString(_para1 : PScreen) : pchar; cdecl;
-Function XDisplayMotionBufferSize(_para1 : PDisplay) : cardinal; cdecl;
-Function XVisualIDFromVisual(_para1 : PVisual) : TVisualID; cdecl;
-Function XInitThreads : TStatus; cdecl;
-Procedure XLockDisplay(_para1 : PDisplay); cdecl;
-Procedure XUnlockDisplay(_para1 : PDisplay); cdecl;
-Function XInitExtension(_para1 : PDisplay;_para2 : pchar) : PXExtCodes; cdecl;
-Function XAddExtension(_para1 : PDisplay) : PXExtCodes; cdecl;
-Function XFindOnExtensionList(_para1 : PPXExtData;_para2 : longint) : PXExtData; cdecl;
-Function XEHeadOfExtensionList(_para1 : TXEDataObject) : PPXExtData; cdecl;
-Function XRootWindow(_para1 : PDisplay;_para2 : longint) : TWindow; cdecl;
-Function XDefaultRootWindow(_para1 : PDisplay) : TWindow; cdecl;
-Function XRootWindowOfScreen(_para1 : PScreen) : TWindow; cdecl;
-Function XDefaultVisual(_para1 : PDisplay;_para2 : longint) : PVisual; cdecl;
-Function XDefaultVisualOfScreen(_para1 : PScreen) : PVisual; cdecl;
-Function XDefaultGC(_para1 : PDisplay;_para2 : longint) : TGC; cdecl;
-Function XDefaultGCOfScreen(_para1 : PScreen) : TGC; cdecl;
-Function XBlackPixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;
-Function XWhitePixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;
-Function XAllPlanes : cardinal; cdecl;
-Function XBlackPixelOfScreen(_para1 : PScreen) : cardinal; cdecl;
-Function XWhitePixelOfScreen(_para1 : PScreen) : cardinal; cdecl;
-Function XNextRequest(_para1 : PDisplay) : cardinal; cdecl;
-{
-Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;
-}
-Function XServerVendor(_para1 : PDisplay) : pchar; cdecl;
-Function XDisplayString(_para1 : PDisplay) : pchar; cdecl;
-Function XDefaultColormap(_para1 : PDisplay;_para2 : longint) : TColormap; cdecl;
-Function XDefaultColormapOfScreen(_para1 : PScreen) : TColormap; cdecl;
-Function XDisplayOfScreen(_para1 : PScreen) : PDisplay; cdecl;
-Function XScreenOfDisplay(_para1 : PDisplay;_para2 : longint) : PScreen; cdecl;
-Function XDefaultScreenOfDisplay(_para1 : PDisplay) : PScreen; cdecl;
-Function XEventMaskOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XScreenNumberOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XSetErrorHandler(_para1 : TXErrorHandler) : TXErrorHandler; cdecl;
-Function XSetIOErrorHandler(_para1 : TXIOErrorHandler) : TXIOErrorHandler; cdecl;
-Function XListPixmapFormats(_para1 : PDisplay;_para2 : Plongint) : PXPixmapFormatValues; cdecl;
-Function XListDepths(_para1 : PDisplay;_para2 : longint;_para3 : Plongint) : Plongint; cdecl;
-Function XReconfigureWMWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : cardinal;_para5 : PXWindowChanges) : TStatus; cdecl;
-Function XGetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PPAtom;_para4 : Plongint) : TStatus; cdecl;
-Function XSetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint) : TStatus; cdecl;
-Function XIconifyWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;
-Function XWithdrawWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;
-Function XGetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPPChar;_para4 : Plongint) : TStatus; cdecl;
-Function XGetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PPWindow;_para4 : Plongint) : TStatus; cdecl;
-Function XSetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : longint) : TStatus; cdecl;
-Procedure XFreeStringList(_para1 : PPChar); cdecl;
-Function XSetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow) : longint; cdecl;
-Function XActivateScreenSaver(_para1 : PDisplay) : longint; cdecl;
-Function XAddHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;
-Function XAddHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;
-{
-Function XAddToExtensionList(_para1 : ^^*;_para2 : PXExtData) : longint; cdecl;
-}
-Function XAddToSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XAllocColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : TStatus; cdecl;
-Function XAllocColorCells(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : cardinal) : TStatus; cdecl;
-Function XAllocColorPlanes(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : PCardinal;_para10 : PCardinal;_para11 : PCardinal) : TStatus; cdecl;
-Function XAllocNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;
-Function XAllowEvents(_para1 : PDisplay;_para2 : longint;_para3 : TTime) : longint; cdecl;
-Function XAutoRepeatOff(_para1 : PDisplay) : longint; cdecl;
-Function XAutoRepeatOn(_para1 : PDisplay) : longint; cdecl;
-Function XBell(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XBitmapBitOrder(_para1 : PDisplay) : longint; cdecl;
-Function XBitmapPad(_para1 : PDisplay) : longint; cdecl;
-Function XBitmapUnit(_para1 : PDisplay) : longint; cdecl;
-Function XCellsOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XChangeActivePointerGrab(_para1 : PDisplay;_para2 : cardinal;_para3 : TCursor;_para4 : TTime) : longint; cdecl;
-Function XChangeGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : longint; cdecl;
-Function XChangeKeyboardControl(_para1 : PDisplay;_para2 : cardinal;_para3 : PXKeyboardControl) : longint; cdecl;
-Function XChangeKeyboardMapping(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : PKeySym;_para5 : longint) : longint; cdecl;
-Function XChangePointerControl(_para1 : PDisplay;_para2 : TBool;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XChangeProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : TAtom;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint) : longint; cdecl;
-Function XChangeSaveSet(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;
-Function XChangeWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXSetWindowAttributes) : longint; cdecl;
-{
-Function XCheckIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : TBool; cdecl;
-}
-Function XCheckMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;
-Function XCheckTypedEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;
-Function XCheckTypedWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;
-Function XCheckWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;
-Function XCirculateSubwindows(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;
-Function XCirculateSubwindowsDown(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XCirculateSubwindowsUp(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XClearArea(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : TBool) : longint; cdecl;
-Function XClearWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XCloseDisplay(_para1 : PDisplay) : longint; cdecl;
-Function XConfigureWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXWindowChanges) : longint; cdecl;
-Function XConnectionNumber(_para1 : PDisplay) : longint; cdecl;
-Function XConvertSelection(_para1 : PDisplay;_para2 : TAtom;_para3 : TAtom;_para4 : TAtom;_para5 : TWindow;_para6 : TTime) : longint; cdecl;
-Function XCopyArea(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : longint; cdecl;
-Function XCopyGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : TGC) : longint; cdecl;
-Function XCopyPlane(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint;_para11 : cardinal) : longint; cdecl;
-Function XDefaultDepth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDefaultDepthOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XDefaultScreen(_para1 : PDisplay) : longint; cdecl;
-Function XDefineCursor(_para1 : PDisplay;_para2 : TWindow;_para3 : TCursor) : longint; cdecl;
-Function XDeleteProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom) : longint; cdecl;
-Function XDestroyWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XDestroySubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XDoesBackingStore(_para1 : PScreen) : longint; cdecl;
-Function XDoesSaveUnders(_para1 : PScreen) : TBool; cdecl;
-Function XDisableAccessControl(_para1 : PDisplay) : longint; cdecl;
-Function XDisplayCells(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayHeight(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayHeightMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayKeycodes(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint) : longint; cdecl;
-Function XDisplayPlanes(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayWidth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDisplayWidthMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XDrawArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;
-Function XDrawArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;
-Function XDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;
-Function XDrawImageString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;
-Function XDrawLine(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XDrawLines(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XDrawPoint(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XDrawPoints(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XDrawRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;
-Function XDrawRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;
-Function XDrawSegments(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXSegment;_para5 : longint) : longint; cdecl;
-Function XDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;
-Function XDrawString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;
-Function XDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem;_para7 : longint) : longint; cdecl;
-Function XDrawText16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem16;_para7 : longint) : longint; cdecl;
-Function XEnableAccessControl(_para1 : PDisplay) : longint; cdecl;
-Function XEventsQueued(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XFetchName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;
-Function XFillArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;
-Function XFillArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;
-Function XFillPolygon(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XFillRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;
-Function XFillRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;
-Function XFlush(_para1 : PDisplay) : longint; cdecl;
-Function XForceScreenSaver(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XFree(_para1 : pointer) : longint; cdecl;
-Function XFreeColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;
-Function XFreeColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PCardinal;_para4 : longint;_para5 : cardinal) : longint; cdecl;
-Function XFreeCursor(_para1 : PDisplay;_para2 : TCursor) : longint; cdecl;
-Function XFreeExtensionList(_para1 : PPChar) : longint; cdecl;
-Function XFreeFont(_para1 : PDisplay;_para2 : PXFontStruct) : longint; cdecl;
-Function XFreeFontInfo(_para1 : PPChar;_para2 : PXFontStruct;_para3 : longint) : longint; cdecl;
-Function XFreeFontNames(_para1 : PPChar) : longint; cdecl;
-Function XFreeFontPath(_para1 : PPChar) : longint; cdecl;
-Function XFreeGC(_para1 : PDisplay;_para2 : TGC) : longint; cdecl;
-Function XFreeModifiermap(_para1 : PXModifierKeymap) : longint; cdecl;
-Function XFreePixmap(_para1 : PDisplay;_para2 : TPixmap) : longint; cdecl;
-Function XGeometry(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : pchar;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint;_para10 : Plongint;_para11 : Plongint;_para12 : Plongint;_para13 : Plongint) : longint; cdecl;
-Function XGetErrorDatabaseText(_para1 : PDisplay;_para2 : pchar;_para3 : pchar;_para4 : pchar;_para5 : pchar;_para6 : longint) : longint; cdecl;
-Function XGetErrorText(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : longint) : longint; cdecl;
-Function XGetFontProperty(_para1 : PXFontStruct;_para2 : TAtom;_para3 : PCardinal) : TBool; cdecl;
-Function XGetGCValues(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : TStatus; cdecl;
-Function XGetGeometry(_para1 : PDisplay;_para2 : TDrawable;_para3 : PWindow;_para4 : Plongint;_para5 : Plongint;_para6 : PCardinal;_para7 : PCardinal;_para8 : PCardinal;_para9 : PCardinal) : TStatus; cdecl;
-Function XGetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;
-Function XGetInputFocus(_para1 : PDisplay;_para2 : PWindow;_para3 : Plongint) : longint; cdecl;
-Function XGetKeyboardControl(_para1 : PDisplay;_para2 : PXKeyboardState) : longint; cdecl;
-Function XGetPointerControl(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint) : longint; cdecl;
-Function XGetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XGetScreenSaver(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : longint; cdecl;
-Function XGetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow) : TStatus; cdecl;
-Function XGetWindowProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : longint;_para5 : longint;_para6 : TBool;_para7 : TAtom;_para8 : PAtom;_para9 : Plongint;_para10 : PCardinal;_para11 : PCardinal;_para12 : PPChar) : longint; cdecl;
-Function XGetWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : PXWindowAttributes) : TStatus; cdecl;
-Function XGrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : cardinal;_para7 : longint;_para8 : longint;_para9 : TWindow;_para10 : TCursor) : longint; cdecl;
-Function XGrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XGrabKeyboard(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : TTime) : longint; cdecl;
-Function XGrabPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : cardinal;_para5 : longint;_para6 : longint;_para7 : TWindow;_para8 : TCursor;_para9 : TTime) : longint; cdecl;
-Function XGrabServer(_para1 : PDisplay) : longint; cdecl;
-Function XHeightMMOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XHeightOfScreen(_para1 : PScreen) : longint; cdecl;
-{
-Function XIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;
-}
-Function XImageByteOrder(_para1 : PDisplay) : longint; cdecl;
-Function XInstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;
-Function XKeysymToKeycode(_para1 : PDisplay;_para2 : TKeySym) : TKeyCode; cdecl;
-Function XKillClient(_para1 : PDisplay;_para2 : TXID) : longint; cdecl;
-Function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;
-Function XLookupColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;
-Function XLowerWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMapRaised(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : longint; cdecl;
-Function XMaxCmapsOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XMinCmapsOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XMoveResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal) : longint; cdecl;
-Function XMoveWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XNextEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;
-Function XNoOp(_para1 : PDisplay) : longint; cdecl;
-Function XParseColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor) : TStatus; cdecl;
-Function XParseGeometry(_para1 : pchar;_para2 : Plongint;_para3 : Plongint;_para4 : PCardinal;_para5 : PCardinal) : longint; cdecl;
-Function XPeekEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;
-{
-Function XPeekIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;
-}
-Function XPending(_para1 : PDisplay) : longint; cdecl;
-Function XPlanesOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XProtocolRevision(_para1 : PDisplay) : longint; cdecl;
-Function XProtocolVersion(_para1 : PDisplay) : longint; cdecl;
-Function XPutBackEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;
-Function XPutImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXImage;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : cardinal;_para10 : cardinal) : longint; cdecl;
-Function XQLength(_para1 : PDisplay) : longint; cdecl;
-Function XQueryBestCursor(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;
-Function XQueryBestSize(_para1 : PDisplay;_para2 : longint;_para3 : TDrawable;_para4 : cardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : PCardinal) : TStatus; cdecl;
-Function XQueryBestStipple(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;
-Function XQueryBestTile(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;
-Function XQueryColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;
-Function XQueryColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;
-Function XQueryExtension(_para1 : PDisplay;_para2 : pchar;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : TBool; cdecl;
-{
-Function XQueryKeymap(_para1 : PDisplay;_para2 : array[0..(32)-1] of char) : longint; cdecl;
-}
-Function XQueryPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : Plongint;_para9 : PCardinal) : TBool; cdecl;
-Function XQueryTextExtents(_para1 : PDisplay;_para2 : TXID;_para3 : pchar;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;
-Function XQueryTextExtents16(_para1 : PDisplay;_para2 : TXID;_para3 : PXChar2b;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;
-Function XQueryTree(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : PPWindow;_para6 : PCardinal) : TStatus; cdecl;
-Function XRaiseWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XReadBitmapFile(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : PCardinal;_para5 : PCardinal;_para6 : PPixmap;_para7 : Plongint;_para8 : Plongint) : longint; cdecl;
-Function XReadBitmapFileData(_para1 : pchar;_para2 : PCardinal;_para3 : PCardinal;_para4 : PPChar;_para5 : Plongint;_para6 : Plongint) : longint; cdecl;
-Function XRebindKeysym(_para1 : PDisplay;_para2 : TKeySym;_para3 : PKeySym;_para4 : longint;_para5 : pchar;_para6 : longint) : longint; cdecl;
-Function XRecolorCursor(_para1 : PDisplay;_para2 : TCursor;_para3 : PXColor;_para4 : PXColor) : longint; cdecl;
-Function XRefreshKeyboardMapping(_para1 : PXMappingEvent) : longint; cdecl;
-Function XRemoveFromSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XRemoveHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;
-Function XRemoveHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;
-Function XReparentWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XResetScreenSaver(_para1 : PDisplay) : longint; cdecl;
-Function XResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : cardinal) : longint; cdecl;
-Function XRestackWindows(_para1 : PDisplay;_para2 : PWindow;_para3 : longint) : longint; cdecl;
-Function XRotateBuffers(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XRotateWindowProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XScreenCount(_para1 : PDisplay) : longint; cdecl;
-Function XSelectInput(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;
-Function XSendEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : PXEvent) : TStatus; cdecl;
-Function XSetAccessControl(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XSetArcMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetBackground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;
-Function XSetClipMask(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;
-Function XSetClipOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XSetClipRectangles(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint;_para5 : PXRectangle;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XSetCloseDownMode(_para1 : PDisplay;_para2 : longint) : longint; cdecl;
-Function XSetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar;_para4 : longint) : longint; cdecl;
-Function XSetDashes(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : pchar;_para5 : longint) : longint; cdecl;
-Function XSetFillRule(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetFillStyle(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetFont(_para1 : PDisplay;_para2 : TGC;_para3 : TFont) : longint; cdecl;
-Function XSetFontPath(_para1 : PDisplay;_para2 : PPChar;_para3 : longint) : longint; cdecl;
-Function XSetForeground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;
-Function XSetFunction(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetGraphicsExposures(_para1 : PDisplay;_para2 : TGC;_para3 : TBool) : longint; cdecl;
-Function XSetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;
-Function XSetInputFocus(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : TTime) : longint; cdecl;
-Function XSetLineAttributes(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;
-Function XSetModifierMapping(_para1 : PDisplay;_para2 : PXModifierKeymap) : longint; cdecl;
-Function XSetPlaneMask(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;
-Function XSetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XSetScreenSaver(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : longint;_para5 : longint) : longint; cdecl;
-Function XSetSelectionOwner(_para1 : PDisplay;_para2 : TAtom;_para3 : TWindow;_para4 : TTime) : longint; cdecl;
-Function XSetState(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : cardinal;_para5 : longint;_para6 : cardinal) : longint; cdecl;
-Function XSetStipple(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;
-Function XSetSubwindowMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;
-Function XSetTSOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XSetTile(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;
-Function XSetWindowBackground(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;
-Function XSetWindowBackgroundPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;
-Function XSetWindowBorder(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;
-Function XSetWindowBorderPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;
-Function XSetWindowBorderWidth(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;
-Function XSetWindowColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : TColormap) : longint; cdecl;
-Function XStoreBuffer(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : longint) : longint; cdecl;
-Function XStoreBytes(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XStoreColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;
-Function XStoreColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;
-Function XStoreName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;
-Function XStoreNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : cardinal;_para5 : longint) : longint; cdecl;
-Function XSync(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;
-Function XTextExtents(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;
-Function XTextExtents16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;
-Function XTextWidth(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XTextWidth16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint) : longint; cdecl;
-Function XTranslateCoordinates(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : Plongint;_para7 : Plongint;_para8 : PWindow) : TBool; cdecl;
-Function XUndefineCursor(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XUngrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;
-Function XUngrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;
-Function XUngrabKeyboard(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;
-Function XUngrabPointer(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;
-Function XUngrabServer(_para1 : PDisplay) : longint; cdecl;
-Function XUninstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;
-Function XUnloadFont(_para1 : PDisplay;_para2 : TFont) : longint; cdecl;
-Function XUnmapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XUnmapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;
-Function XVendorRelease(_para1 : PDisplay) : longint; cdecl;
-Function XWarpPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;
-Function XWidthMMOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XWidthOfScreen(_para1 : PScreen) : longint; cdecl;
-Function XWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : longint; cdecl;
-Function XWriteBitmapFile(_para1 : PDisplay;_para2 : pchar;_para3 : TPixmap;_para4 : cardinal;_para5 : cardinal;_para6 : longint;_para7 : longint) : longint; cdecl;
-Function XSupportsLocale : TBool; cdecl;
-Function XSetLocaleModifiers(_para1 : pchar) : pchar; cdecl;
-{
-Function XOpenOM(_para1 : PDisplay;_para2 : ^*;_para3 : pchar;_para4 : pchar) : TXOM; cdecl;
-}
-Function XCloseOM(_para1 : TXOM) : TStatus; cdecl;
-Function XDisplayOfOM(_para1 : TXOM) : PDisplay; cdecl;
-Function XLocaleOfOM(_para1 : TXOM) : pchar; cdecl;
-Procedure XDestroyOC(_para1 : TXOC); cdecl;
-Function TXOMOfOC(_para1 : TXOC) : TXOM; cdecl;
-Function XCreateFontSet(_para1 : PDisplay;_para2 : pchar;_para3 : PPPChar;_para4 : Plongint;_para5 : PPChar) : TXFontSet; cdecl;
-Procedure XFreeFontSet(_para1 : PDisplay;_para2 : TXFontSet); cdecl;
-Function XFontsOfFontSet(_para1 : TXFontSet;_para2 : PPPXFontStruct;_para3 : PPPChar) : longint; cdecl;
-Function XBaseFontNameListOfFontSet(_para1 : TXFontSet) : pchar; cdecl;
-Function XLocaleOfFontSet(_para1 : TXFontSet) : pchar; cdecl;
-Function XContextDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;
-Function XDirectionalDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;
-Function XContextualDrawing(_para1 : TXFontSet) : TBool; cdecl;
-Function XExtentsOfFontSet(_para1 : TXFontSet) : PXFontSetExtents; cdecl;
-Function XmbTextEscapement(_para1 : TXFontSet;_para2 : pchar;_para3 : longint) : longint; cdecl;
-Function XwcTextEscapement(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint) : longint; cdecl;
-Function XmbTextExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;
-Function XwcTextExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;
-Function XmbTextPerCharExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;
-Function XwcTextPerCharExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;
-Procedure XmbDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXmbTextItem;_para7 : longint); cdecl;
-Procedure XwcDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXwcTextItem;_para7 : longint); cdecl;
-Procedure XmbDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;
-Procedure XwcDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;
-Procedure XmbDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;
-Procedure XwcDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;
-{
-Function XOpenIM(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar) : TXIM; cdecl;
-}
-Function XCloseIM(_para1 : TXIM) : TStatus; cdecl;
-Function XDisplayOfIM(_para1 : TXIM) : PDisplay; cdecl;
-Function XLocaleOfIM(_para1 : TXIM) : pchar; cdecl;
-Procedure XDestroyIC(_para1 : TXIC); cdecl;
-Procedure XSetICFocus(_para1 : TXIC); cdecl;
-Procedure XUnsetICFocus(_para1 : TXIC); cdecl;
-Function XwcResetIC(_para1 : TXIC) : Pwchar_t; cdecl;
-Function XmbResetIC(_para1 : TXIC) : pchar; cdecl;
-Function TXIMOfIC(_para1 : TXIC) : TXIM; cdecl;
-Function XFilterEvent(_para1 : PXEvent;_para2 : TWindow) : TBool; cdecl;
-Function XmbLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : pchar;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;
-Function XwcLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : Pwchar_t;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;
-{
-Function XRegisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;
-Function XUnregisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;
-}
-Function XInternalConnectionNumbers(_para1 : PDisplay;_para2 : PPlongint;_para3 : Plongint) : TStatus; cdecl;
-Procedure XProcessInternalConnection(_para1 : PDisplay;_para2 : longint); cdecl;
-Function XAddConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer) : TStatus; cdecl;
-Procedure XRemoveConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer); cdecl;
-
-implementation
-
-function XLoadQueryFont (para1 : PDisplay; para2 : pchar) : PXFontStruct; cdecl;external ;
-function XQueryFont(_para1 : PDisplay;_para2 : TXID) : PXFontStruct; cdecl;external ;
-function XGetMotionEvents(_para1 : PDisplay;_para2 : TWindow;_para3 : TTime;_para4 : TTime;_para5 : Plongint) : PXTimeCoord; cdecl;external ;
-function XDeleteModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external ;
-function XGetModifierMapping(_para1 : PDisplay) : PXModifierKeymap; cdecl;external ;
-function XInsertModifiermapEntry(_para1 : PXModifierKeymap;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint) : PXModifierKeymap; cdecl;external ;
-function XNewModifiermap(_para1 : longint) : PXModifierKeymap; cdecl;external ;
-function XCreateImage(_para1 : PDisplay;_para2 : PVisual;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : PXImage; cdecl;external ;
-function XInitImage(_para1 : PXImage) : TStatus; cdecl;external ;
-function XGetImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint) : PXImage; cdecl;external ;
-function XGetSubImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : PXImage;_para10 : longint;_para11 : longint) : PXImage; cdecl;external ;
-function XOpenDisplay(_para1 : pchar) : PDisplay; cdecl;external ;
-procedure XrmInitialize; cdecl;external ;
-function XFetchBytes(_para1 : PDisplay;_para2 : Plongint) : pchar; cdecl;external ;
-function XFetchBuffer(_para1 : PDisplay;_para2 : Plongint;_para3 : longint) : pchar; cdecl;external ;
-function XGetAtomName(_para1 : PDisplay;_para2 : TAtom) : pchar; cdecl;external ;
-function XGetAtomNames(_para1 : PDisplay;_para2 : PAtom;_para3 : longint;_para4 : PPChar) : TStatus; cdecl;external ;
-function XGetDefault(_para1 : PDisplay;_para2 : pchar;_para3 : pchar) : pchar; cdecl;external ;
-function XDisplayName(_para1 : pchar) : pchar; cdecl;external ;
-function XKeysymToString(_para1 : TKeySym) : pchar; cdecl;external ;
-function XSynchronize(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;external ;
-{ WHat to do with this ??? MVC
-function XSetAfterFunction(_para1 : PDisplay;_para2 : function(_para1 : PDisplay) : longint) : function : longint; cdecl;external ;
-}
-function XInternAtom(_para1 : PDisplay;_para2 : pchar;_para3 : TBool) : TAtom; cdecl;external ;
-function XInternAtoms(_para1 : PDisplay;_para2 : PPChar;_para3 : longint;_para4 : TBool;_para5 : PAtom) : TStatus; cdecl;external ;
-function XCopyColormapAndFree(_para1 : PDisplay;_para2 : TColormap) : TColormap; cdecl;external ;
-function XCreateColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : PVisual;_para4 : longint) : TColormap; cdecl;external ;
-function XCreatePixmapCursor(_para1 : PDisplay;_para2 : TPixmap;_para3 : TPixmap;_para4 : PXColor;_para5 : PXColor;_para6 : cardinal;_para7 : cardinal) : TCursor; cdecl;external ;
-function XCreateGlyphCursor(_para1 : PDisplay;_para2 : TFont;_para3 : TFont;_para4 : cardinal;_para5 : cardinal;_para6 : PXColor;_para7 : PXColor) : TCursor; cdecl;external ;
-function XCreateFontCursor(_para1 : PDisplay;_para2 : cardinal) : TCursor; cdecl;external ;
-function XLoadFont(_para1 : PDisplay;_para2 : pchar) : TFont; cdecl;external ;
-function XCreateGC(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : PXGCValues) : TGC; cdecl;external ;
-function XGContextFromGC(_para1 : TGC) : TGContext; cdecl;external ;
-procedure XFlushGC(_para1 : PDisplay;_para2 : TGC); cdecl;external ;
-function XCreatePixmap(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external ;
-function XCreateBitmapFromData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal) : TPixmap; cdecl;external ;
-function XCreatePixmapFromBitmapData(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : cardinal;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal) : TPixmap; cdecl;external ;
-function XCreateSimpleWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : cardinal;_para9 : cardinal) : TWindow; cdecl;external ;
-function XGetSelectionOwner(_para1 : PDisplay;_para2 : TAtom) : TWindow; cdecl;external ;
-function XCreateWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : cardinal;_para10 : PVisual;_para11 : cardinal;_para12 : PXSetWindowAttributes) : TWindow; cdecl;external ;
-function XListInstalledColormaps(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PColormap; cdecl;external ;
-function XListFonts(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint) : PPChar; cdecl;external ;
-function XListFontsWithInfo(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : PPXFontStruct) : PPChar; cdecl;external ;
-function XGetFontPath(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;external ;
-function XListExtensions(_para1 : PDisplay;_para2 : Plongint) : PPChar; cdecl;external ;
-function XListProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : Plongint) : PAtom; cdecl;external ;
-function XListHosts(_para1 : PDisplay;_para2 : Plongint;_para3 : PBool) : PXHostAddress; cdecl;external ;
-function XKeycodeToKeysym(_para1 : PDisplay;_para3 : TKeyCode;_para4 : longint) : TKeySym; cdecl;external ;
-{ Doesn't want ? MVC 
-function XLookupKeysym(_para1 : PXKeyEvent;_para2 : longint) : TKeySym; cdecl;external ;
-}
-function XGetKeyboardMapping(_para1 : PDisplay;_para2 : cardinal;_para3 : TKeyCode;_para4 : longint;_para5 : Plongint) : PKeySym; cdecl;external ;
-function XStringToKeysym(_para1 : pchar) : TKeySym; cdecl;external ;
-function XMaxRequestSize(_para1 : PDisplay) : longint; cdecl;external ;
-function XExtendedMaxRequestSize(_para1 : PDisplay) : longint; cdecl;external ;
-function XResourceManagerString(_para1 : PDisplay) : pchar; cdecl;external ;
-function XScreenResourceString(_para1 : PScreen) : pchar; cdecl;external ;
-function XDisplayMotionBufferSize(_para1 : PDisplay) : cardinal; cdecl;external ;
-function XVisualIDFromVisual(_para1 : PVisual) : TVisualID; cdecl;external ;
-function XInitThreads : TStatus; cdecl;external ;
-procedure XLockDisplay(_para1 : PDisplay); cdecl;external ;
-procedure XUnlockDisplay(_para1 : PDisplay); cdecl;external ;
-function XInitExtension(_para1 : PDisplay;_para2 : pchar) : PXExtCodes; cdecl;external ;
-function XAddExtension(_para1 : PDisplay) : PXExtCodes; cdecl;external ;
-function XFindOnExtensionList(_para1 : PPXExtData;_para2 : longint) : PXExtData; cdecl;external ;
-function XEHeadOfExtensionList(_para1 : TXEDataObject) : PPXExtData; cdecl;external ;
-function XRootWindow(_para1 : PDisplay;_para2 : longint) : TWindow; cdecl;external ;
-function XDefaultRootWindow(_para1 : PDisplay) : TWindow; cdecl;external ;
-function XRootWindowOfScreen(_para1 : PScreen) : TWindow; cdecl;external ;
-function XDefaultVisual(_para1 : PDisplay;_para2 : longint) : PVisual; cdecl;external ;
-function XDefaultVisualOfScreen(_para1 : PScreen) : PVisual; cdecl;external ;
-function XDefaultGC(_para1 : PDisplay;_para2 : longint) : TGC; cdecl;external ;
-function XDefaultGCOfScreen(_para1 : PScreen) : TGC; cdecl;external ;
-function XBlackPixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external ;
-function XWhitePixel(_para1 : PDisplay;_para2 : longint) : cardinal; cdecl;external ;
-function XAllPlanes : cardinal; cdecl;external ;
-function XBlackPixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external ;
-function XWhitePixelOfScreen(_para1 : PScreen) : cardinal; cdecl;external ;
-function XNextRequest(_para1 : PDisplay) : cardinal; cdecl;external ;
-function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;external ;
-function XServerVendor(_para1 : PDisplay) : pchar; cdecl;external ;
-function XDisplayString(_para1 : PDisplay) : pchar; cdecl;external ;
-function XDefaultColormap(_para1 : PDisplay;_para2 : longint) : TColormap; cdecl;external ;
-function XDefaultColormapOfScreen(_para1 : PScreen) : TColormap; cdecl;external ;
-function XDisplayOfScreen(_para1 : PScreen) : PDisplay; cdecl;external ;
-function XScreenOfDisplay(_para1 : PDisplay;_para2 : longint) : PScreen; cdecl;external ;
-function XDefaultScreenOfDisplay(_para1 : PDisplay) : PScreen; cdecl;external ;
-function XEventMaskOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XScreenNumberOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XSetErrorHandler(_para1 : TXErrorHandler) : TXErrorHandler; cdecl;external ;
-function XSetIOErrorHandler(_para1 : TXIOErrorHandler) : TXIOErrorHandler; cdecl;external ;
-function XListPixmapFormats(_para1 : PDisplay;_para2 : Plongint) : PXPixmapFormatValues; cdecl;external ;
-function XListDepths(_para1 : PDisplay;_para2 : longint;_para3 : Plongint) : Plongint; cdecl;external ;
-function XReconfigureWMWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : cardinal;_para5 : PXWindowChanges) : TStatus; cdecl;external ;
-function XGetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PPAtom;_para4 : Plongint) : TStatus; cdecl;external ;
-function XSetWMProtocols(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint) : TStatus; cdecl;external ;
-function XIconifyWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;external ;
-function XWithdrawWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : TStatus; cdecl;external ;
-function XGetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPPChar;_para4 : Plongint) : TStatus; cdecl;external ;
-function XGetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PPWindow;_para4 : Plongint) : TStatus; cdecl;external ;
-function XSetWMColormapWindows(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : longint) : TStatus; cdecl;external ;
-procedure XFreeStringList(_para1 : PPChar); cdecl;external ;
-function XSetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow) : longint; cdecl;external ;
-function XActivateScreenSaver(_para1 : PDisplay) : longint; cdecl;external ;
-function XAddHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;external ;
-function XAddHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;external ;
-{
-function XAddToExtensionList(_para1 : ^^*;_para2 : PXExtData) : longint; cdecl;external ;
-}
-function XAddToSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XAllocColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : TStatus; cdecl;external ;
-function XAllocColorCells(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : cardinal) : TStatus; cdecl;external ;
-function XAllocColorPlanes(_para1 : PDisplay;_para2 : TColormap;_para3 : TBool;_para4 : PCardinal;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : PCardinal;_para10 : PCardinal;_para11 : PCardinal) : TStatus; cdecl;external ;
-function XAllocNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;external ;
-function XAllowEvents(_para1 : PDisplay;_para2 : longint;_para3 : TTime) : longint; cdecl;external ;
-function XAutoRepeatOff(_para1 : PDisplay) : longint; cdecl;external ;
-function XAutoRepeatOn(_para1 : PDisplay) : longint; cdecl;external ;
-function XBell(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XBitmapBitOrder(_para1 : PDisplay) : longint; cdecl;external ;
-function XBitmapPad(_para1 : PDisplay) : longint; cdecl;external ;
-function XBitmapUnit(_para1 : PDisplay) : longint; cdecl;external ;
-function XCellsOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XChangeActivePointerGrab(_para1 : PDisplay;_para2 : cardinal;_para3 : TCursor;_para4 : TTime) : longint; cdecl;external ;
-function XChangeGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : longint; cdecl;external ;
-function XChangeKeyboardControl(_para1 : PDisplay;_para2 : cardinal;_para3 : PXKeyboardControl) : longint; cdecl;external ;
-function XChangeKeyboardMapping(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : PKeySym;_para5 : longint) : longint; cdecl;external ;
-function XChangePointerControl(_para1 : PDisplay;_para2 : TBool;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XChangeProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : TAtom;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint) : longint; cdecl;external ;
-function XChangeSaveSet(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external ;
-function XChangeWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXSetWindowAttributes) : longint; cdecl;external ;
-{
-function XCheckIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : TBool; cdecl;external ;
-}
-function XCheckMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;external ;
-function XCheckTypedEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : TBool; cdecl;external ;
-function XCheckTypedWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;external ;
-function XCheckWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : TBool; cdecl;external ;
-function XCirculateSubwindows(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external ;
-function XCirculateSubwindowsDown(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XCirculateSubwindowsUp(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XClearArea(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal;_para7 : TBool) : longint; cdecl;external ;
-function XClearWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XCloseDisplay(_para1 : PDisplay) : longint; cdecl;external ;
-function XConfigureWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : PXWindowChanges) : longint; cdecl;external ;
-function XConnectionNumber(_para1 : PDisplay) : longint; cdecl;external ;
-function XConvertSelection(_para1 : PDisplay;_para2 : TAtom;_para3 : TAtom;_para4 : TAtom;_para5 : TWindow;_para6 : TTime) : longint; cdecl;external ;
-function XCopyArea(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint) : longint; cdecl;external ;
-function XCopyGC(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : TGC) : longint; cdecl;external ;
-function XCopyPlane(_para1 : PDisplay;_para2 : TDrawable;_para3 : TDrawable;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : cardinal;_para8 : cardinal;_para9 : longint;_para10 : longint;_para11 : cardinal) : longint; cdecl;external ;
-function XDefaultDepth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDefaultDepthOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XDefaultScreen(_para1 : PDisplay) : longint; cdecl;external ;
-function XDefineCursor(_para1 : PDisplay;_para2 : TWindow;_para3 : TCursor) : longint; cdecl;external ;
-function XDeleteProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom) : longint; cdecl;external ;
-function XDestroyWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XDestroySubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XDoesBackingStore(_para1 : PScreen) : longint; cdecl;external ;
-function XDoesSaveUnders(_para1 : PScreen) : TBool; cdecl;external ;
-function XDisableAccessControl(_para1 : PDisplay) : longint; cdecl;external ;
-function XDisplayCells(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayHeight(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayHeightMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayKeycodes(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint) : longint; cdecl;external ;
-function XDisplayPlanes(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayWidth(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDisplayWidthMM(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XDrawArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external ;
-function XDrawArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;external ;
-function XDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;external ;
-function XDrawImageString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;external ;
-function XDrawLine(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XDrawLines(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XDrawPoint(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XDrawPoints(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XDrawRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;external ;
-function XDrawRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;external ;
-function XDrawSegments(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXSegment;_para5 : longint) : longint; cdecl;external ;
-function XDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : pchar;_para7 : longint) : longint; cdecl;external ;
-function XDrawString16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXChar2b;_para7 : longint) : longint; cdecl;external ;
-function XDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem;_para7 : longint) : longint; cdecl;external ;
-function XDrawText16(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXTextItem16;_para7 : longint) : longint; cdecl;external ;
-function XEnableAccessControl(_para1 : PDisplay) : longint; cdecl;external ;
-function XEventsQueued(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XFetchName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;external ;
-function XFillArc(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external ;
-function XFillArcs(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXArc;_para5 : longint) : longint; cdecl;external ;
-function XFillPolygon(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXPoint;_para5 : longint;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XFillRectangle(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal) : longint; cdecl;external ;
-function XFillRectangles(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXRectangle;_para5 : longint) : longint; cdecl;external ;
-function XFlush(_para1 : PDisplay) : longint; cdecl;external ;
-function XForceScreenSaver(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XFree(_para1 : pointer) : longint; cdecl;external ;
-function XFreeColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external ;
-function XFreeColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PCardinal;_para4 : longint;_para5 : cardinal) : longint; cdecl;external ;
-function XFreeCursor(_para1 : PDisplay;_para2 : TCursor) : longint; cdecl;external ;
-function XFreeExtensionList(_para1 : PPChar) : longint; cdecl;external ;
-function XFreeFont(_para1 : PDisplay;_para2 : PXFontStruct) : longint; cdecl;external ;
-function XFreeFontInfo(_para1 : PPChar;_para2 : PXFontStruct;_para3 : longint) : longint; cdecl;external ;
-function XFreeFontNames(_para1 : PPChar) : longint; cdecl;external ;
-function XFreeFontPath(_para1 : PPChar) : longint; cdecl;external ;
-function XFreeGC(_para1 : PDisplay;_para2 : TGC) : longint; cdecl;external ;
-function XFreeModifiermap(_para1 : PXModifierKeymap) : longint; cdecl;external ;
-function XFreePixmap(_para1 : PDisplay;_para2 : TPixmap) : longint; cdecl;external ;
-function XGeometry(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : pchar;_para5 : cardinal;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint;_para10 : Plongint;_para11 : Plongint;_para12 : Plongint;_para13 : Plongint) : longint; cdecl;external ;
-function XGetErrorDatabaseText(_para1 : PDisplay;_para2 : pchar;_para3 : pchar;_para4 : pchar;_para5 : pchar;_para6 : longint) : longint; cdecl;external ;
-function XGetErrorText(_para1 : PDisplay;_para2 : longint;_para3 : pchar;_para4 : longint) : longint; cdecl;external ;
-function XGetFontProperty(_para1 : PXFontStruct;_para2 : TAtom;_para3 : PCardinal) : TBool; cdecl;external ;
-function XGetGCValues(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : PXGCValues) : TStatus; cdecl;external ;
-function XGetGeometry(_para1 : PDisplay;_para2 : TDrawable;_para3 : PWindow;_para4 : Plongint;_para5 : Plongint;_para6 : PCardinal;_para7 : PCardinal;_para8 : PCardinal;_para9 : PCardinal) : TStatus; cdecl;external ;
-function XGetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar) : TStatus; cdecl;external ;
-function XGetInputFocus(_para1 : PDisplay;_para2 : PWindow;_para3 : Plongint) : longint; cdecl;external ;
-function XGetKeyboardControl(_para1 : PDisplay;_para2 : PXKeyboardState) : longint; cdecl;external ;
-function XGetPointerControl(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint) : longint; cdecl;external ;
-function XGetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XGetScreenSaver(_para1 : PDisplay;_para2 : Plongint;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : longint; cdecl;external ;
-function XGetTransientForHint(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow) : TStatus; cdecl;external ;
-function XGetWindowProperty(_para1 : PDisplay;_para2 : TWindow;_para3 : TAtom;_para4 : longint;_para5 : longint;_para6 : TBool;_para7 : TAtom;_para8 : PAtom;_para9 : Plongint;_para10 : PCardinal;_para11 : PCardinal;_para12 : PPChar) : longint; cdecl;external ;
-function XGetWindowAttributes(_para1 : PDisplay;_para2 : TWindow;_para3 : PXWindowAttributes) : TStatus; cdecl;external ;
-function XGrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : cardinal;_para7 : longint;_para8 : longint;_para9 : TWindow;_para10 : TCursor) : longint; cdecl;external ;
-function XGrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow;_para5 : TBool;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XGrabKeyboard(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : longint;_para6 : TTime) : longint; cdecl;external ;
-function XGrabPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : cardinal;_para5 : longint;_para6 : longint;_para7 : TWindow;_para8 : TCursor;_para9 : TTime) : longint; cdecl;external ;
-function XGrabServer(_para1 : PDisplay) : longint; cdecl;external ;
-function XHeightMMOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XHeightOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-{
-function XIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;external ;
-}
-function XImageByteOrder(_para1 : PDisplay) : longint; cdecl;external ;
-function XInstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external ;
-function XKeysymToKeycode(_para1 : PDisplay;_para2 : TKeySym) : TKeyCode; cdecl;external ;
-function XKillClient(_para1 : PDisplay;_para2 : TXID) : longint; cdecl;external ;
-{
-function XLastKnownRequestProcessed(_para1 : PDisplay) : cardinal; cdecl;external ;
-}
-function XLookupColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor;_para5 : PXColor) : TStatus; cdecl;external ;
-function XLowerWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMapRaised(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XMaskEvent(_para1 : PDisplay;_para2 : longint;_para3 : PXEvent) : longint; cdecl;external ;
-function XMaxCmapsOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XMinCmapsOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XMoveResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint;_para5 : cardinal;_para6 : cardinal) : longint; cdecl;external ;
-function XMoveWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XNextEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external ;
-function XNoOp(_para1 : PDisplay) : longint; cdecl;external ;
-function XParseColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : PXColor) : TStatus; cdecl;external ;
-function XParseGeometry(_para1 : pchar;_para2 : Plongint;_para3 : Plongint;_para4 : PCardinal;_para5 : PCardinal) : longint; cdecl;external ;
-function XPeekEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external ;
-{
-function XPeekIfEvent(_para1 : PDisplay;_para2 : PXEvent;_para3 : function(_para1 : PDisplay;_para2 : PXEvent;_para3 : XPointer) : TBool;_para4 : XPointer) : longint; cdecl;external ;
-}
-function XPending(_para1 : PDisplay) : longint; cdecl;external ;
-function XPlanesOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XProtocolRevision(_para1 : PDisplay) : longint; cdecl;external ;
-function XProtocolVersion(_para1 : PDisplay) : longint; cdecl;external ;
-function XPutBackEvent(_para1 : PDisplay;_para2 : PXEvent) : longint; cdecl;external ;
-function XPutImage(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : PXImage;_para5 : longint;_para6 : longint;_para7 : longint;_para8 : longint;_para9 : cardinal;_para10 : cardinal) : longint; cdecl;external ;
-function XQLength(_para1 : PDisplay) : longint; cdecl;external ;
-function XQueryBestCursor(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XQueryBestSize(_para1 : PDisplay;_para2 : longint;_para3 : TDrawable;_para4 : cardinal;_para5 : cardinal;_para6 : PCardinal;_para7 : PCardinal) : TStatus; cdecl;external ;
-function XQueryBestStipple(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XQueryBestTile(_para1 : PDisplay;_para2 : TDrawable;_para3 : cardinal;_para4 : cardinal;_para5 : PCardinal;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XQueryColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;external ;
-function XQueryColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;external ;
-function XQueryExtension(_para1 : PDisplay;_para2 : pchar;_para3 : Plongint;_para4 : Plongint;_para5 : Plongint) : TBool; cdecl;external ;
-{
-function XQueryKeymap(_para1 : PDisplay;_para2 : arraycdecl;external ;
-}
-function XQueryPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : Plongint;_para9 : PCardinal) : TBool; cdecl;external ;
-function XQueryTextExtents(_para1 : PDisplay;_para2 : TXID;_para3 : pchar;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;external ;
-function XQueryTextExtents16(_para1 : PDisplay;_para2 : TXID;_para3 : PXChar2b;_para4 : longint;_para5 : Plongint;_para6 : Plongint;_para7 : Plongint;_para8 : PXCharStruct) : longint; cdecl;external ;
-function XQueryTree(_para1 : PDisplay;_para2 : TWindow;_para3 : PWindow;_para4 : PWindow;_para5 : PPWindow;_para6 : PCardinal) : TStatus; cdecl;external ;
-function XRaiseWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XReadBitmapFile(_para1 : PDisplay;_para2 : TDrawable;_para3 : pchar;_para4 : PCardinal;_para5 : PCardinal;_para6 : PPixmap;_para7 : Plongint;_para8 : Plongint) : longint; cdecl;external ;
-function XReadBitmapFileData(_para1 : pchar;_para2 : PCardinal;_para3 : PCardinal;_para4 : PPChar;_para5 : Plongint;_para6 : Plongint) : longint; cdecl;external ;
-function XRebindKeysym(_para1 : PDisplay;_para2 : TKeySym;_para3 : PKeySym;_para4 : longint;_para5 : pchar;_para6 : longint) : longint; cdecl;external ;
-function XRecolorCursor(_para1 : PDisplay;_para2 : TCursor;_para3 : PXColor;_para4 : PXColor) : longint; cdecl;external ;
-function XRefreshKeyboardMapping(_para1 : PXMappingEvent) : longint; cdecl;external ;
-function XRemoveFromSaveSet(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XRemoveHost(_para1 : PDisplay;_para2 : PXHostAddress) : longint; cdecl;external ;
-function XRemoveHosts(_para1 : PDisplay;_para2 : PXHostAddress;_para3 : longint) : longint; cdecl;external ;
-function XReparentWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XResetScreenSaver(_para1 : PDisplay) : longint; cdecl;external ;
-function XResizeWindow(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal;_para4 : cardinal) : longint; cdecl;external ;
-function XRestackWindows(_para1 : PDisplay;_para2 : PWindow;_para3 : longint) : longint; cdecl;external ;
-function XRotateBuffers(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XRotateWindowProperties(_para1 : PDisplay;_para2 : TWindow;_para3 : PAtom;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XScreenCount(_para1 : PDisplay) : longint; cdecl;external ;
-function XSelectInput(_para1 : PDisplay;_para2 : TWindow;_para3 : longint) : longint; cdecl;external ;
-function XSendEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : TBool;_para4 : longint;_para5 : PXEvent) : TStatus; cdecl;external ;
-function XSetAccessControl(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XSetArcMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetBackground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external ;
-function XSetClipMask(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetClipOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XSetClipRectangles(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint;_para5 : PXRectangle;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XSetCloseDownMode(_para1 : PDisplay;_para2 : longint) : longint; cdecl;external ;
-function XSetCommand(_para1 : PDisplay;_para2 : TWindow;_para3 : PPChar;_para4 : longint) : longint; cdecl;external ;
-function XSetDashes(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : pchar;_para5 : longint) : longint; cdecl;external ;
-function XSetFillRule(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetFillStyle(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetFont(_para1 : PDisplay;_para2 : TGC;_para3 : TFont) : longint; cdecl;external ;
-function XSetFontPath(_para1 : PDisplay;_para2 : PPChar;_para3 : longint) : longint; cdecl;external ;
-function XSetForeground(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external ;
-function XSetFunction(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetGraphicsExposures(_para1 : PDisplay;_para2 : TGC;_para3 : TBool) : longint; cdecl;external ;
-function XSetIconName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;external ;
-function XSetInputFocus(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : TTime) : longint; cdecl;external ;
-function XSetLineAttributes(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : longint;_para5 : longint;_para6 : longint) : longint; cdecl;external ;
-function XSetModifierMapping(_para1 : PDisplay;_para2 : PXModifierKeymap) : longint; cdecl;external ;
-function XSetPlaneMask(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal) : longint; cdecl;external ;
-function XSetPointerMapping(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XSetScreenSaver(_para1 : PDisplay;_para2 : longint;_para3 : longint;_para4 : longint;_para5 : longint) : longint; cdecl;external ;
-function XSetSelectionOwner(_para1 : PDisplay;_para2 : TAtom;_para3 : TWindow;_para4 : TTime) : longint; cdecl;external ;
-function XSetState(_para1 : PDisplay;_para2 : TGC;_para3 : cardinal;_para4 : cardinal;_para5 : longint;_para6 : cardinal) : longint; cdecl;external ;
-function XSetStipple(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetSubwindowMode(_para1 : PDisplay;_para2 : TGC;_para3 : longint) : longint; cdecl;external ;
-function XSetTSOrigin(_para1 : PDisplay;_para2 : TGC;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XSetTile(_para1 : PDisplay;_para2 : TGC;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetWindowBackground(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external ;
-function XSetWindowBackgroundPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetWindowBorder(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external ;
-function XSetWindowBorderPixmap(_para1 : PDisplay;_para2 : TWindow;_para3 : TPixmap) : longint; cdecl;external ;
-function XSetWindowBorderWidth(_para1 : PDisplay;_para2 : TWindow;_para3 : cardinal) : longint; cdecl;external ;
-function XSetWindowColormap(_para1 : PDisplay;_para2 : TWindow;_para3 : TColormap) : longint; cdecl;external ;
-function XStoreBuffer(_para1 : PDisplay;_para2 : pchar;_para3 : longint;_para4 : longint) : longint; cdecl;external ;
-function XStoreBytes(_para1 : PDisplay;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XStoreColor(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor) : longint; cdecl;external ;
-function XStoreColors(_para1 : PDisplay;_para2 : TColormap;_para3 : PXColor;_para4 : longint) : longint; cdecl;external ;
-function XStoreName(_para1 : PDisplay;_para2 : TWindow;_para3 : pchar) : longint; cdecl;external ;
-function XStoreNamedColor(_para1 : PDisplay;_para2 : TColormap;_para3 : pchar;_para4 : cardinal;_para5 : longint) : longint; cdecl;external ;
-function XSync(_para1 : PDisplay;_para2 : TBool) : longint; cdecl;external ;
-function XTextExtents(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;external ;
-function XTextExtents16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint;_para4 : Plongint;_para5 : Plongint;_para6 : Plongint;_para7 : PXCharStruct) : longint; cdecl;external ;
-function XTextWidth(_para1 : PXFontStruct;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XTextWidth16(_para1 : PXFontStruct;_para2 : PXChar2b;_para3 : longint) : longint; cdecl;external ;
-function XTranslateCoordinates(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : Plongint;_para7 : Plongint;_para8 : PWindow) : TBool; cdecl;external ;
-function XUndefineCursor(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XUngrabButton(_para1 : PDisplay;_para2 : cardinal;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external ;
-function XUngrabKey(_para1 : PDisplay;_para2 : longint;_para3 : cardinal;_para4 : TWindow) : longint; cdecl;external ;
-function XUngrabKeyboard(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;external ;
-function XUngrabPointer(_para1 : PDisplay;_para2 : TTime) : longint; cdecl;external ;
-function XUngrabServer(_para1 : PDisplay) : longint; cdecl;external ;
-function XUninstallColormap(_para1 : PDisplay;_para2 : TColormap) : longint; cdecl;external ;
-function XUnloadFont(_para1 : PDisplay;_para2 : TFont) : longint; cdecl;external ;
-function XUnmapSubwindows(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XUnmapWindow(_para1 : PDisplay;_para2 : TWindow) : longint; cdecl;external ;
-function XVendorRelease(_para1 : PDisplay) : longint; cdecl;external ;
-function XWarpPointer(_para1 : PDisplay;_para2 : TWindow;_para3 : TWindow;_para4 : longint;_para5 : longint;_para6 : cardinal;_para7 : cardinal;_para8 : longint;_para9 : longint) : longint; cdecl;external ;
-function XWidthMMOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XWidthOfScreen(_para1 : PScreen) : longint; cdecl;external ;
-function XWindowEvent(_para1 : PDisplay;_para2 : TWindow;_para3 : longint;_para4 : PXEvent) : longint; cdecl;external ;
-function XWriteBitmapFile(_para1 : PDisplay;_para2 : pchar;_para3 : TPixmap;_para4 : cardinal;_para5 : cardinal;_para6 : longint;_para7 : longint) : longint; cdecl;external ;
-function XSupportsLocale : TBool; cdecl;external ;
-function XSetLocaleModifiers(_para1 : pchar) : pchar; cdecl;external ;
-{
-function XOpenOM(_para1 : PDisplay;_para2 : ^*;_para3 : pchar;_para4 : pchar) : TXOM; cdecl;external ;
-}
-function XCloseOM(_para1 : TXOM) : TStatus; cdecl;external ;
-function XDisplayOfOM(_para1 : TXOM) : PDisplay; cdecl;external ;
-function XLocaleOfOM(_para1 : TXOM) : pchar; cdecl;external ;
-procedure XDestroyOC(_para1 : TXOC); cdecl;external ;
-function TXOMOfOC(_para1 : TXOC) : TXOM; cdecl;external ;
-function XCreateFontSet(_para1 : PDisplay;_para2 : pchar;_para3 : PPPChar;_para4 : Plongint;_para5 : PPChar) : TXFontSet; cdecl;external ;
-procedure XFreeFontSet(_para1 : PDisplay;_para2 : TXFontSet); cdecl;external ;
-function XFontsOfFontSet(_para1 : TXFontSet;_para2 : PPPXFontStruct;_para3 : PPPChar) : longint; cdecl;external ;
-function XBaseFontNameListOfFontSet(_para1 : TXFontSet) : pchar; cdecl;external ;
-function XLocaleOfFontSet(_para1 : TXFontSet) : pchar; cdecl;external ;
-function XContextDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;external ;
-function XDirectionalDependentDrawing(_para1 : TXFontSet) : TBool; cdecl;external ;
-function XContextualDrawing(_para1 : TXFontSet) : TBool; cdecl;external ;
-function XExtentsOfFontSet(_para1 : TXFontSet) : PXFontSetExtents; cdecl;external ;
-function XmbTextEscapement(_para1 : TXFontSet;_para2 : pchar;_para3 : longint) : longint; cdecl;external ;
-function XwcTextEscapement(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint) : longint; cdecl;external ;
-function XmbTextExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;external ;
-function XwcTextExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle) : longint; cdecl;external ;
-function XmbTextPerCharExtents(_para1 : TXFontSet;_para2 : pchar;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;external ;
-function XwcTextPerCharExtents(_para1 : TXFontSet;_para2 : Pwchar_t;_para3 : longint;_para4 : PXRectangle;_para5 : PXRectangle;_para6 : longint;_para7 : Plongint;_para8 : PXRectangle;_para9 : PXRectangle) : TStatus; cdecl;external ;
-procedure XmbDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXmbTextItem;_para7 : longint); cdecl;external ;
-procedure XwcDrawText(_para1 : PDisplay;_para2 : TDrawable;_para3 : TGC;_para4 : longint;_para5 : longint;_para6 : PXwcTextItem;_para7 : longint); cdecl;external ;
-procedure XmbDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;external ;
-procedure XwcDrawString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;external ;
-procedure XmbDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : pchar;_para8 : longint); cdecl;external ;
-procedure XwcDrawImageString(_para1 : PDisplay;_para2 : TDrawable;_para3 : TXFontSet;_para4 : TGC;_para5 : longint;_para6 : longint;_para7 : Pwchar_t;_para8 : longint); cdecl;external ;
-{
-function XOpenIM(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar) : TXIM; cdecl;external ;
-}
-function XCloseIM(_para1 : TXIM) : TStatus; cdecl;external ;
-function XDisplayOfIM(_para1 : TXIM) : PDisplay; cdecl;external ;
-function XLocaleOfIM(_para1 : TXIM) : pchar; cdecl;external ;
-procedure XDestroyIC(_para1 : TXIC); cdecl;external ;
-procedure XSetICFocus(_para1 : TXIC); cdecl;external ;
-procedure XUnsetICFocus(_para1 : TXIC); cdecl;external ;
-function XwcResetIC(_para1 : TXIC) : Pwchar_t; cdecl;external ;
-function XmbResetIC(_para1 : TXIC) : pchar; cdecl;external ;
-function TXIMOfIC(_para1 : TXIC) : TXIM; cdecl;external ;
-function XFilterEvent(_para1 : PXEvent;_para2 : TWindow) : TBool; cdecl;external ;
-function XmbLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : pchar;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external ;
-function XwcLookupString(_para1 : TXIC;_para2 : PXKeyPressedEvent;_para3 : Pwchar_t;_para4 : longint;_para5 : PKeySym;_para6 : PStatus) : longint; cdecl;external ;
-{
-function XRegisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external ;
-function XUnregisterIMInstantiateCallback(_para1 : PDisplay;_para2 : P*;_para3 : pchar;_para4 : pchar;_para5 : TXIMProc;_para6 : PXPointer) : TBool; cdecl;external ;
-}
-function XInternalConnectionNumbers(_para1 : PDisplay;_para2 : PPlongint;_para3 : Plongint) : TStatus; cdecl;external ;
-procedure XProcessInternalConnection(_para1 : PDisplay;_para2 : longint); cdecl;external ;
-function XAddConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer) : TStatus; cdecl;external ;
-procedure XRemoveConnectionWatch(_para1 : PDisplay;_para2 : TXConnectionWatchProc;_para3 : TXPointer); cdecl;external ;
-
-
-begin
-end.

packages/forms/xresource.pp

@@ -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.

packages/forms/xutil.pp

@@ -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_ }
-}