freepascal.compiler/packages/forms/forms.pp

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.