aboutsummaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
Diffstat (limited to 'doc')
-rw-r--r--doc/enumerations.html302
-rw-r--r--doc/fl.html1799
-rw-r--r--doc/fl_(fltk-errors).html115
-rw-r--r--doc/fl_(fltk-events).html650
-rw-r--r--doc/fl_(fltk-screen).html278
-rw-r--r--doc/fl_(fltk-static).html1028
-rw-r--r--doc/fl_bitmap.html33
-rw-r--r--doc/fl_browser_.html9
-rw-r--r--doc/fl_draw.html22
-rw-r--r--doc/fl_file_chooser.html6
-rw-r--r--doc/fl_image.html5
-rw-r--r--doc/fl_pack.html4
-rw-r--r--doc/fl_rgb_image.html25
-rw-r--r--doc/fl_scroll.html9
-rw-r--r--doc/fl_text_display.html25
-rw-r--r--doc/fl_widget.html10
-rw-r--r--doc/index.html15
17 files changed, 2515 insertions, 1820 deletions
diff --git a/doc/enumerations.html b/doc/enumerations.html
new file mode 100644
index 0000000..6e4f521
--- /dev/null
+++ b/doc/enumerations.html
@@ -0,0 +1,302 @@
+<!DOCTYPE html>
+
+<html lang="en">
+ <head>
+ <meta charset="utf-8">
+ <title>Enumerations Binding Map</title>
+ <link href="map.css" rel="stylesheet">
+ </head>
+
+ <body>
+
+
+<h2>Enumerations Binding Map</h2>
+
+
+<a href="index.html">Back to Index</a>
+
+
+<table class="package">
+ <tr><th colspan="2">Package name</th></tr>
+
+ <tr>
+ <td>Enumerations</td>
+ <td>FLTK</td>
+ </tr>
+
+ <tr>
+ <td>fl_types</td>
+ <td>&nbsp;</td>
+ </tr>
+
+</table>
+
+
+
+<table class="type">
+ <tr><th colspan="2">Types</th></tr>
+
+ <tr>
+ <td>Fl_Color</td>
+ <td>Greyscale</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Color</td>
+ <td>Color</td>
+ </tr>
+
+ <tr>
+ <td>unsigned char</td>
+ <td>Color_Component</td>
+ </tr>
+
+ <tr>
+ <td>unsigned char *</td>
+ <td>Color_Component_Array</td>
+ </tr>
+
+ <tr>
+ <td>float</td>
+ <td>Blend</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Align</td>
+ <td>Alignment</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Cursor</td>
+ <td>Mouse_Cursor_Kind</td>
+ </tr>
+
+ <tr>
+ <td>short</td>
+ <td>Keypress</td>
+ </tr>
+
+ <tr>
+ <td>
+ #define FL_BUTTON1 0x01000000<br />
+ #define FL_BUTTON2 0x02000000<br />
+ #define FL_BUTTON3 0x04000000<br />
+ #define FL_BUTTONS 0x7f000000
+ </td>
+ <td>Mouse_Button</td>
+ </tr>
+
+ <tr>
+ <td>short</td>
+ <td>Modifier</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Shortcut</td>
+ <td>Key_Combo</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Boxtype</td>
+ <td>Box_Kind</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Font</td>
+ <td>Font_Kind</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Fontsize</td>
+ <td>Font_Size</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Fontsize *</td>
+ <td>Font_Size_Array</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Labeltype</td>
+ <td>Label_Kind</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Event</td>
+ <td>Event_Kind</td>
+ </tr>
+
+ <tr>
+ <td>int</td>
+ <td>Event_Outcome</td>
+ </tr>
+
+ <tr>
+ <td>Fl_When</td>
+ <td>Callback_Flag</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Damage</td>
+ <td>Damage_Mask</td>
+ </tr>
+
+ <tr>
+ <td>int</td>
+ <td>Version_Number</td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
+ <tr>
+<td><pre>
+inline Fl_Boxtype fl_box(Fl_Boxtype b);
+</pre></td>
+<td><pre>
+function Filled
+ (Box : in Box_Kind)
+ return Box_Kind;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+Fl_Color fl_color_average(Fl_Color c1, Fl_Color c2, float weight);
+</pre></td>
+<td><pre>
+function Color_Average
+ (Tone1, Tone2 : in Color;
+ Weight : in Blend := 0.5)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Color fl_color_cube(int r, int g, int b);
+</pre></td>
+<td><pre>
+function Color_Cube
+ (R, G, B : in Color_Component)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+Fl_Color fl_contrast(Fl_Color fg, Fl_Color bg);
+</pre></td>
+<td><pre>
+function Contrast
+ (Fore, Back : in Color)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Color fl_darker(Fl_Color c);
+</pre></td>
+<td><pre>
+function Darker
+ (Tone : in Color)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Boxtype fl_down(Fl_Boxtype b);
+</pre></td>
+<td><pre>
+function Down
+ (Box : in Box_Kind)
+ return Box_Kind;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Boxtype fl_frame(Fl_Boxtype b);
+</pre></td>
+<td><pre>
+function Frame
+ (Box : in Box_Kind)
+ return Box_Kind;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Color fl_gray_ramp(int i);
+</pre></td>
+<td><pre>
+function Grey_Ramp
+ (Light : in Greyscale)
+ return Color;
+
+function Grey_Ramp
+ (Light : in Color_Component)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+Fl_Color fl_inactive(Fl_Color c);
+</pre></td>
+<td><pre>
+function Inactive
+ (Tone : in Color)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Color fl_lighter(Fl_Color c);
+</pre></td>
+<td><pre>
+function Lighter
+ (Tone : in Color)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Color fl_rgb_color(uchar g);
+</pre></td>
+<td><pre>
+function RGB_Color
+ (Light : in Greyscale)
+ return Color;
+
+function RGB_Color
+ (Light : in Color_Component)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+inline Fl_Color fl_rgb_color(uchar r, uchar g, uchar b);
+</pre></td>
+<td><pre>
+function RGB_Color
+ (R, G, B : in Color_Component)
+ return Color;
+</pre></td>
+ </tr>
+
+</table>
+
+
+ </body>
+</html>
+
diff --git a/doc/fl.html b/doc/fl.html
index db60f5b..96bb11d 100644
--- a/doc/fl.html
+++ b/doc/fl.html
@@ -24,31 +24,6 @@
<td>FLTK</td>
</tr>
- <tr>
- <td>&nbsp;</td>
- <td>FLTK.Errors</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>FLTK.Event</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>FLTK.Screen</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>FLTK.Static</td>
- </tr>
-
- <tr>
- <td>Enumerations</td>
- <td>&nbsp;</td>
- </tr>
-
</table>
@@ -57,183 +32,33 @@
<tr><th colspan="2">Types</th></tr>
<tr>
- <td>Fl_Option</td>
- <td>Option</td>
- </tr>
-
- <tr>
- <td>Fl_Color</td>
- <td>Color</td>
- </tr>
-
- <tr>
- <td>Fl_Align</td>
- <td>Alignment</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Keypress</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Mouse_Button</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Modifier</td>
- </tr>
-
- <tr>
- <td>Fl_Shortcut</td>
- <td>Key_Combo</td>
+ <td>void *</td>
+ <td>Wrapper</td>
</tr>
<tr>
- <td>Fl_Boxtype</td>
- <td>Box_Kind</td>
- </tr>
-
- <tr>
- <td>Fl_Font</td>
- <td>Font_Kind</td>
- </tr>
-
- <tr>
- <td>Fl_Fontsize</td>
- <td>Font_Size</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Font_Size_Array</td>
- </tr>
-
- <tr>
- <td>Fl_Labeltype</td>
- <td>Label_Kind</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Event_Kind</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Event_Outcome</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
+ <td>enum {<br />
+ FL_MENU_INACTIVE = 1,<br />
+ FL_MENU_TOGGLE = 2,<br />
+ FL_MENU_VALUE = 4,<br />
+ FL_MENU_RADIO = 8,<br />
+ FL_MENU_INVISIBLE = 0x10,<br />
+ FL_SUBMENU_POINTER = 0x20,<br />
+ FL_SUBMENU = 0x40,<br />
+ FL_MENU_DIVIDER = 0x80,<br />
+ FL_MENU_HORIZONTAL = 0x100 }<br />
+ </td>
<td>Menu_Flag</td>
</tr>
<tr>
- <td>&nbsp;</td>
- <td>Version_Number</td>
- </tr>
-
- <tr>
- <td>Fl_Event_Handler</td>
- <td>Event_Handler</td>
- </tr>
-
- <tr>
- <td>Fl_Event_Dispatch</td>
- <td>TBA</td>
- </tr>
-
- <tr>
- <td>Fl_Awake_Handler</td>
- <td>Awake_Handler</td>
+ <td>size_t</td>
+ <td>Size_Type</td>
</tr>
<tr>
- <td>Fl_Timeout_Handler</td>
- <td>Timeout_Handler</td>
- </tr>
-
- <tr>
- <td>Fl_Idle_Handler</td>
- <td>Idle_Handler</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Buffer_Kind</td>
- </tr>
-
- <tr>
- <td>Fl_Clipboard_Notify_Handler</td>
- <td>Clipboard_Notify_Handler</td>
- </tr>
-
- <tr>
- <td>FL_SOCKET</td>
- <td>File_Descriptor</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>File_Mode</td>
- </tr>
-
- <tr>
- <td>Fl_FD_Handler</td>
- <td>File_Handler</td>
- </tr>
-
- <tr>
- <td>Fl_Box_Draw_F</td>
- <td>Box_Draw_Function</td>
- </tr>
-
- <tr>
- <td>Fl_Abort_Handler</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_Args_Handler</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_Atclose_Handler</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_Label_Draw_F</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_Label_Measure_F</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_Old_Idle_Handler</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_System_Handler</td>
- <td>&nbsp;</td>
- </tr>
-
- <tr>
- <td>Fl_Cursor</td>
- <td>Mouse_Cursor</td>
- </tr>
-
- <tr>
- <td>&nbsp;</td>
- <td>Error_Function</td>
+ <td>size_t</td>
+ <td>Positive_Size</td>
</tr>
</table>
@@ -253,77 +78,24 @@
<table class="function">
- <tr><th colspan="2">Attributes</th></tr>
-
- <tr>
-<td><pre>
-static void (*atclose)(Fl_Window *, void *);
-</pre></td>
-<td>Deprecated, set the callback for the Window instead</td>
- </tr>
+ <tr><th colspan="2">Static Attributes</th></tr>
<tr>
<td><pre>
static char const * const clipboard_image = "image";
</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static char const * const clipboard_plain_text = "text/plain";
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void (*error)(const char *, ...) = ::error;
-</pre></td>
-<td><pre>
-procedure Default_Error
- (Message : in String);
-
-Current_Error : Error_Function := Default_Error'Access;
-</pre>(In FLTK.Errors)</td>
- </tr>
-
- <tr>
-<td><pre>
-static void (*fatal)(const char *, ...) = ::fatal;
-</pre></td>
-<td><pre>
-procedure Default_Fatal
- (Message : in String);
-
-Current_Fatal : Error_Function := Default_Fatal'Access;
-</pre>(In FLTK.Errors)</td>
- </tr>
-
- <tr>
<td><pre>
-static const char * const help = helpmsg + 13;
+Clipboard_Image : constant String;
</pre></td>
-<td>&nbsp;</td>
</tr>
<tr>
<td><pre>
-static void (*idle)();
+static char const * const clipboard_plain_text = "text/plain";
</pre></td>
-<td>Should not be used directly</td>
- </tr>
-
- <tr>
<td><pre>
-static void (*warning)(const char *, ...) = ::warning;
+Clipboard_Plain_Text : constant String;
</pre></td>
-<td><pre>
-procedure Default_Warning
- (Message : in String);
-
-Current_Warning : Error_Function := Default_Warning'Access;
-</pre>(In FLTK.Errors)</td>
</tr>
</table>
@@ -331,7 +103,7 @@ Current_Warning : Error_Function := Default_Warning'Access;
<table class="function">
- <tr><th colspan="2">Functions and Procedures</th></tr>
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
<tr>
<td><pre>
@@ -356,97 +128,6 @@ function ABI_Version
<tr>
<td><pre>
-static int add_awake_handler_(Fl_Awake_Handler, void *);
-</pre></td>
-<td><pre>
-procedure Add_Awake_Handler
- (Func : in Awake_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_check(Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-procedure Add_Check
- (Func : in Timeout_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_clipboard_notify(Fl_Clipboard_Notify_Handler h, void *data=0);
-</pre></td>
-<td><pre>
-procedure Add_Clipboard_Notify
- (Func : in Clipboard_Notify_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_fd(int fd, int when, Fl_FD_Handler cb, void *=0);
-</pre></td>
-<td><pre>
-procedure Add_File_Descriptor
- (FD : in File_Descriptor;
- Mode : in File_Mode;
- Func : in File_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_fd(int fd, Fl_FD_Handler cb, void *=0);
-</pre></td>
-<td><pre>
-procedure Add_File_Descriptor
- (FD : in File_Descriptor;
- Func : in File_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_handler(Fl_Event_Handler h);
-</pre></td>
-<td><pre>
-procedure Add_Handler
- (Func : in Event_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_idle(Fl_Idle_Handler cb, void *data=0);
-</pre></td>
-<td><pre>
-procedure Add_Idle
- (Func : in Idle_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_system_handler(Fl_System_Handler h, void *data);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void add_timeout(double t, Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-procedure Add_Timeout
- (Seconds : in Long_Float;
- Func : in Timeout_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
static int api_version();
</pre></td>
<td><pre>
@@ -457,134 +138,6 @@ function API_Version
<tr>
<td><pre>
-static int arg(int argc, char **argv, int &i);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int args(int argc, char **argv, int &i, Fl_Args_Handler cb=0);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void args(int argc, char **argv);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void awake(void *message=0);
-</pre></td>
-<td><pre>
-procedure Awake;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int awake(Fl_Awake_Handler cb, void *message=0);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void background(uchar, uchar, uchar);
-</pre></td>
-<td><pre>
-procedure Set_Background
- (R, G, B : in Color_Component);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void background2(uchar, uchar, uchar);
-</pre></td>
-<td><pre>
-procedure Set_Alt_Background
- (R, G, B : in Color_Component);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Widget * belowmouse();
-</pre></td>
-<td><pre>
-function Get_Below_Mouse
- return access FLTK.Widgets.Widget'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void belowmouse(Fl_Widget *);
-</pre></td>
-<td><pre>
-procedure Set_Below_Mouse
- (To : in FLTK.Widgets.Widget'Class);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Color box_color(Fl_Color);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int box_dh(Fl_Boxtype);
-</pre></td>
-<td><pre>
-function Get_Box_Height_Offset
- (Kind : in Box_Kind)
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int box_dw(Fl_Boxtype);
-</pre></td>
-<td><pre>
-function Get_Box_Width_Offset
- (Kind : in Box_Kind)
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int box_dx(Fl_Boxtype);
-</pre></td>
-<td><pre>
-function Get_Box_X_Offset
- (Kind : in Box_Kind)
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int box_dy(Fl_Boxtype);
-</pre></td>
-<td><pre>
-function Get_Box_Y_Offset
- (Kind : in Box_Kind)
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
static void cairo_autolink_context(bool alink);
</pre></td>
<td>&nbsp;</td>
@@ -623,6 +176,8 @@ static cairo_t * cairo_make_current(Fl_Window *w);
static int check();
</pre></td>
<td><pre>
+procedure Check;
+
function Check
return Boolean;
</pre></td>
@@ -632,637 +187,21 @@ function Check
<td><pre>
static void clear_widget_pointer(Fl_Widget const *w);
</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int clipboard_contains(const char *type);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int compose(int &del);
-</pre></td>
-<td><pre>
-function Compose
- (Del : out Natural)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void compose_reset();
-</pre></td>
-<td><pre>
-procedure Compose_Reset;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void copy
- (const char *stuff, int len, int destination=0,
- const char *type=Fl::clipboard_plain_text);
-</pre></td>
-<td><pre>
-procedure Copy
- (Text : in String;
- Dest : in Buffer_Kind);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void damage(int d);
-</pre></td>
-<td><pre>
-procedure Set_Damaged
- (To : in Boolean);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int damage();
-</pre></td>
-<td><pre>
-function Is_Damaged
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void default_atclose(Fl_Window *, void *);
-</pre></td>
-<td><pre>
-procedure Default_Window_Close
- (Item : in out FLTK.Widgets.Widget'Class);
-</pre></td>
+<td>Marked as internal use only.</td>
</tr>
<tr>
<td><pre>
static void delete_widget(Fl_Widget *w);
</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void disable_im();
-</pre></td>
-<td><pre>
-procedure Disable_System_Input;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void display(const char *);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int dnd();
-</pre></td>
-<td><pre>
-procedure Drag_Drop_Start;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void dnd_text_ops(int v);
-</pre></td>
-<td><pre>
-procedure Set_Drag_Drop_Text_Support
- (To : in Boolean);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int dnd_text_ops();
-</pre></td>
-<td><pre>
-function Get_Drag_Drop_Text_Support
- return Boolean;
-</pre></td>
+<td>Used automatically as appropriate by the binding.</td>
</tr>
<tr>
<td><pre>
static void do_widget_deletion();
</pre></td>
-<td><pre>
-procedure Do_Widget_Deletion;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int draw_box_active();
-</pre></td>
-<td><pre>
-function Draw_Box_Active
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void enable_im();
-</pre></td>
-<td><pre>
-procedure Enable_System_Input;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event();
-</pre></td>
-<td><pre>
-function Last
- return Event_Kind;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_alt();
-</pre></td>
-<td><pre>
-function Key_Alt
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_button();
-</pre></td>
-<td><pre>
-function Last_Button
- return Mouse_Button;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_button1();
-</pre></td>
-<td><pre>
-function Mouse_Left
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_button2();
-</pre></td>
-<td><pre>
-function Mouse_Middle
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_button3();
-</pre></td>
-<td><pre>
-function Mouse_Right
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_buttons();
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_clicks();
-</pre></td>
-<td><pre>
-function Is_Multi_Click
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void event_clicks(int i);
-</pre></td>
-<td><pre>
-procedure Set_Clicks
- (To : in Natural);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void * event_clipboard();
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static const char * event_clipboard_type();
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_command();
-</pre></td>
-<td><pre>
-function Key_Command
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_ctrl();
-</pre></td>
-<td><pre>
-function Key_Ctrl
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void event_dispatch(Fl_Event_Dispatch d);
-</pre></td>
-<td>TBA</td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Event_Dispatch event_dispatch();
-</pre></td>
-<td>TBA</td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_dx();
-</pre></td>
-<td><pre>
-function Mouse_DX
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_dy();
-</pre></td>
-<td><pre>
-function Mouse_DY
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_inside(int, int, int, int);
-</pre></td>
-<td><pre>
-function Is_Inside
- (X, Y, W, H : in Integer)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_inside(const Fl_Widget *);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_is_click();
-</pre></td>
-<td><pre>
-function Is_Click
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void event_is_click(int i);
-</pre></td>
-<td>See static void event_clicks(int i);</td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_key();
-</pre></td>
-<td><pre>
-function Last_Key
- return Keypress;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_key(int key);
-</pre></td>
-<td><pre>
-function Pressed_During
- (Key : in Keypress)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_length();
-</pre></td>
-<td><pre>
-function Text_Length
- return Natural;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_original_key();
-</pre></td>
-<td><pre>
-function Original_Last_Key
- return Keypress;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_shift();
-</pre></td>
-<td><pre>
-function Key_Shift
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_state();
-</pre></td>
-<td><pre>
-function Last_Modifier
- return Modifier;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_state(int mask);
-</pre></td>
-<td><pre>
-function Last_Modifier
- (Had : in Modifier)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static const char * event_text();
-</pre></td>
-<td><pre>
-function Text
- return String;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_x();
-</pre></td>
-<td><pre>
-function Mouse_X
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_x_root();
-</pre></td>
-<td><pre>
-function Mouse_X_Root
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_y();
-</pre></td>
-<td><pre>
-function Mouse_Y
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int event_y_root();
-</pre></td>
-<td><pre>
-function Mouse_Y_Root
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Window * first_window();
-</pre></td>
-<td><pre>
-function Get_First_Window
- return access FLTK.Widgets.Groups.Windows.Window'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void first_window(Fl_Window *);
-</pre></td>
-<td><pre>
-procedure Set_First_Window
- (To : in FLTK.Widgets.Groups.Windows.Window'Class);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void flush();
-</pre></td>
-<td><pre>
-procedure Flush;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Widget * focus();
-</pre></td>
-<td><pre>
-function Get_Focus
- return access FLTK.Widgets.Widget'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void focus(Fl_Widget *);
-</pre></td>
-<td><pre>
-procedure Set_Focus
- (To : in FLTK.Widgets.Widget'Class);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void foreground(uchar, uchar, uchar);
-</pre></td>
-<td><pre>
-procedure Set_Foreground
- (R, G, B : in Color_Component);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void free_color(Fl_Color i, int overlay=0);
-</pre></td>
-<td><pre>
-procedure Free_Color
- (Value : in Color;
- Overlay : in Boolean := False);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int get_awake_handler_(Fl_Awake_Handler &, void *&);
-</pre></td>
-<td><pre>
-function Get_Awake_Handler
- return Awake_Handler;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Box_Draw_F * get_boxtype(Fl_Boxtype);
-</pre></td>
-<td>TBA</td>
- </tr>
-
- <tr>
-<td><pre>
-static unsigned get_color(Fl_Color i);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void get_color(Fl_Color i, uchar &red, uchar &green, uchar &blue);
-</pre></td>
-<td><pre>
-procedure Get_Color
- (From : in Color;
- R, G, B : out Color_Component);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static const char * get_font(Fl_Font);
-</pre></td>
-<td><pre>
-function Font_Image
- (Kind : in Font_Kind)
- return String;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static const char * get_font_name(Fl_Font, int *attributes=0);
-</pre></td>
-<td><pre>
-function Font_Family_Image
- (Kind : in Font_Kind)
- return String;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int get_font_sizes(Fl_Font, int *&sizep);
-</pre></td>
-<td><pre>
-function Font_Sizes
- (Kind : in Font_Kind)
- return Font_Size_Array;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int get_key(int key);
-</pre></td>
-<td><pre>
-function Key_Now
- (Key : in Keypress)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void get_mouse(int &, int &);
-</pre></td>
-<td><pre>
-procedure Get_Mouse
- (X, Y : out Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void get_system_colors();
-</pre></td>
-<td><pre>
-procedure System_Colors;
-</pre></td>
+<td>Marked as internal use only.</td>
</tr>
<tr>
@@ -1274,200 +213,6 @@ static int gl_visual(int, int *alist=0);
<tr>
<td><pre>
-static Fl_Window * grab();
-</pre></td>
-<td><pre>
-function Get_Grab
- return access FLTK.Widgets.Groups.Windows.Window'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void grab(Fl_Window *);
-static void grab(Fl_Window &win);
-</pre></td>
-<td><pre>
-procedure Set_Grab
- (To : in FLTK.Widgets.Groups.Windows.Window'Class);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int h();
-</pre></td>
-<td><pre>
-function Get_H
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int handle(int, Fl_Window *);
-static int handle_(int, Fl_Window *);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int has_check(Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-function Has_Check
- (Func : in Timeout_Handler)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int has_idle(Fl_Idle_Handler cb, void *data=0);
-</pre></td>
-<td><pre>
-function Has_Idle
- (Func : in Idle_Handler)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int has_timeout(Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-function Has_Timeout
- (Func : in Timeout_Handler)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int is_scheme(const char *name);
-</pre></td>
-<td><pre>
-function Is_Scheme
- (Scheme : in String)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int lock();
-</pre></td>
-<td><pre>
-procedure Lock;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Window * modal();
-</pre></td>
-<td><pre>
-function Get_Top_Modal
- return access FLTK.Widgets.Groups.Windows.Window'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Window * next_window(const Fl_Window *);
-</pre></td>
-<td><pre>
-function Get_Next_Window
- (From : in FLTK.Widgets.Groups.Windows.Window'Class)
- return access FLTK.Widgets.Groups.Windows.Window'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static bool option(Fl_Option opt);
-</pre></td>
-<td><pre>
-function Get_Option
- (Opt : in Option)
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void option(Fl_Option opt, bool val);
-</pre></td>
-<td><pre>
-procedure Set_Option
- (Opt : in Option;
- To : in Boolean);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void own_colormap();
-</pre></td>
-<td><pre>
-procedure Own_Colormap;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void paste
- (Fl_Widget &receiver, int source,
- const char *type=Fl::clipboard_plain_text);
-</pre></td>
-<td><pre>
-procedure Paste
- (Receiver : in FLTK.Widgets.Widget'Class;
- Source : in Buffer_Kind);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void paste(Fl_Widget &receiver);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Widget * pushed();
-</pre></td>
-<td><pre>
-function Get_Pushed
- return access FLTK.Widgets.Widget'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void pushed(Fl_Widget *);
-</pre></td>
-<td><pre>
-procedure Set_Pushed
- (To : in FLTK.Widgets.Widget'Class);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Widget * readqueue();
-</pre></td>
-<td><pre>
-function Read_Queue
- return access FLTK.Widgets.Widget'Class;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
static int ready();
</pre></td>
<td><pre>
@@ -1478,125 +223,9 @@ function Ready
<tr>
<td><pre>
-static void redraw();
-</pre></td>
-<td><pre>
-procedure Redraw;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void release();
-</pre></td>
-<td><pre>
-procedure Release_Grab;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
static void release_widget_pointer(Fl_Widget *&w);
</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int reload_scheme();
-</pre></td>
-<td><pre>
-procedure Reload_Scheme;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_check(Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-procedure Remove_Check
- (Func : in Timeout_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_clipboard_notify(Fl_Clipboard_Notify_Handler h);
-</pre></td>
-<td><pre>
-procedure Remove_Clipboard_Notify
- (Func : in Clipboard_Notify_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_fd(int, int when);
-</pre></td>
-<td><pre>
-procedure Remove_File_Descriptor
- (FD : in File_Descriptor;
- Mode : in File_Mode);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_fd(int);
-</pre></td>
-<td><pre>
-procedure Remove_File_Descriptor
- (FD : in File_Descriptor);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_handler(Fl_Event_Handler h);
-</pre></td>
-<td><pre>
-procedure Remove_Handler
- (Func : in Event_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_idle(Fl_Idle_Handler cb, void *data=0);
-</pre></td>
-<td><pre>
-procedure Remove_Idle
- (Func : in Idle_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_system_handler(Fl_System_Handler h);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void remove_timeout(Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-procedure Remove_Timeout
- (Func : in Timeout_Handler);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static repeat_timeout(double t, Fl_Timeout_Handler, void *=0);
-</pre></td>
-<td><pre>
-procedure Repeat_Timeout
- (Seconds : in Long_Float;
- Func : in Timeout_Handler);
-</pre></td>
+<td>Marked as internal use only.</td>
</tr>
<tr>
@@ -1611,326 +240,25 @@ function Run
<tr>
<td><pre>
-static int scheme(const char *name);
-</pre></td>
-<td><pre>
-procedure Set_Scheme
- (To : in String);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static const char * scheme();
-</pre></td>
-<td><pre>
-function Get_Scheme
- return String;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int screen_count();
-</pre></td>
-<td><pre>
-function Count
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_dpi(float &h, float &v, int n=0);
-</pre></td>
-<td><pre>
-procedure DPI
- (Horizontal, Vertical : out Float;
- Screen_Number : in Integer := 1);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int screen_num(int x, int y);
-</pre></td>
-<td><pre>
-function Containing
- (X, Y : in Integer)
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int screen_num(int x, int y, int w, int h);
-</pre></td>
-<td><pre>
-function Containing
- (X, Y, W, H : in Integer)
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_work_area(int &X, int &Y, int &W, int &H, int mx, int my);
-</pre></td>
-<td><pre>
-procedure Work_Area
- (X, Y, W, H : out Integer;
- Pos_X, Pos_Y : in Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_work_area(int &X, int &Y, int &W, int &H, int n);
-</pre></td>
-<td><pre>
-procedure Work_Area
- (X, Y, W, H : out Integer;
- Screen_Num : in Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_work_area(int &X, int &Y, int &W, int &H);
-</pre></td>
-<td><pre>
-procedure Work_Area
- (X, Y, W, H : out Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_xywh(int &X, int &Y, int &W, int &H);
-</pre></td>
-<td><pre>
-procedure Bounding_Rect
- (X, Y, W, H : out Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_xywh(int &X, int &Y, int &W, int &H, int mx, int my);
-</pre></td>
-<td><pre>
-procedure Bounding_Rect
- (X, Y, W, H : out Integer;
- Pos_X, Pos_Y : in Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_xywh(int &X, int &Y, int &W, int &H, int n);
-</pre></td>
-<td><pre>
-procedure Bounding_Rect
- (X, Y, W, H : out Integer;
- Screen_Num : in Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void screen_xywh(int &X, int &Y, int &W, int &H, int mx, int my, int mw, int mh);
-</pre></td>
-<td><pre>
-procedure Bounding_Rect
- (X, Y, W, H : out Integer;
- PX, PY, PW, PH : in Integer);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int scrollbar_size();
-</pre></td>
-<td><pre>
-function Get_Default_Scrollbar_Size
- return Natural;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void scrollbar_size(int W);
-</pre></td>
-<td><pre>
-procedure Set_Default_Scrollbar_Size
- (To : in Natural);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void selection(Fl_Widget &owner, const char *, int len);
-</pre></td>
-<td><pre>
-procedure Selection
- (Owner : in FLTK.Widgets.Widget'Class;
- Text : in String);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Widget * selection_owner();
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void selection_owner(Fl_Widget *);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_abort(Fl_Abort_Handler f);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_atclose(Fl_Atclose_Handler f);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_box_color(Fl_Color);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_boxtype(Fl_Boxtype, Fl_Box_Draw_F *, uchar, uchar, uchar, uchar);
-</pre></td>
-<td>TBA</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_boxtype(Fl_Boxtype, Fl_Boxtype from);
-</pre></td>
-<td><pre>
-procedure Set_Box_Kind
- (To, From : in Box_Kind);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_color(Fl_Color, uchar, uchar, uchar, uchar);
-</pre></td>
-<td><pre>
-procedure Set_Color
- (To : in Color;
- R, G, B : in Color_Component);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_color(Fl_Color i, unsigned c);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_font(Fl_Font, const char *);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_font(Fl_Font, Fl_Font);
-</pre></td>
-<td><pre>
-procedure Set_Font_Kind
- (To, From : in Font_Kind);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static Fl_Font set_fonts(const char *=0);
-</pre></td>
-<td><pre>
-procedure Setup_Fonts
- (How_Many_Set_Up : out Natural);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_idle(Fl_Old_Idle_Handler cb);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_labeltype(Fl_Labeltype, Fl_Label_Draw_F *, FL_Label_Measure_F *);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static void set_labeltype(Fl_Labeltype, Fl_Labeltype from);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int test_shortcut(Fl_Shortcut);
+static void use_high_res_GL(int val);
</pre></td>
<td>&nbsp;</td>
</tr>
<tr>
<td><pre>
-static void * thread_message();
+static int use_high_res_GL();
</pre></td>
<td>&nbsp;</td>
</tr>
<tr>
-<td><pre>
-static void unlock();
-</pre></td>
-<td><pre>
-procedure Unlock;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static void use_high_res_GL(int val);
-</pre></td>
<td>&nbsp;</td>
- </tr>
-
- <tr>
<td><pre>
-static int use_high_res_GL();
+function Is_Valid
+ (Object : in Wrapper)
+ return Boolean;
</pre></td>
-<td>&nbsp;</td>
</tr>
<tr>
@@ -1945,43 +273,6 @@ function Version
<tr>
<td><pre>
-static void visible_focus(int v);
-</pre></td>
-<td><pre>
-procedure Set_Visible_Focus
- (To : in Boolean);
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int visible_focus();
-</pre></td>
-<td><pre>
-function Has_Visible_Focus
- return Boolean;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int visual(int);
-</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int w();
-</pre></td>
-<td><pre>
-function Get_W
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
static int wait();
</pre></td>
<td><pre>
@@ -1997,7 +288,7 @@ static double wait(double time);
<td><pre>
function Wait
(Seconds : in Long_Float)
- return Integer;
+ return Long_Float;
</pre></td>
</tr>
@@ -2005,27 +296,7 @@ function Wait
<td><pre>
static void watch_widget_pointer(Fl_Widget *&w);
</pre></td>
-<td>&nbsp;</td>
- </tr>
-
- <tr>
-<td><pre>
-static int x();
-</pre></td>
-<td><pre>
-function Get_X
- return Integer;
-</pre></td>
- </tr>
-
- <tr>
-<td><pre>
-static int y();
-</pre></td>
-<td><pre>
-function Get_Y
- return Integer;
-</pre></td>
+<td>Marked as internal use only.</td>
</tr>
</table>
diff --git a/doc/fl_(fltk-errors).html b/doc/fl_(fltk-errors).html
new file mode 100644
index 0000000..7ccbe38
--- /dev/null
+++ b/doc/fl_(fltk-errors).html
@@ -0,0 +1,115 @@
+<!DOCTYPE html>
+
+<html lang="en">
+ <head>
+ <meta charset="utf-8">
+ <title>Fl (FLTK.Errors) Binding Map</title>
+ <link href="map.css" rel="stylesheet">
+ </head>
+
+ <body>
+
+
+<h2>Fl (FLTK.Errors) Binding Map</h2>
+
+
+<a href="index.html">Back to Index</a>
+
+
+<table class="package">
+ <tr><th colspan="2">Package name</th></tr>
+
+ <tr>
+ <td>Fl</td>
+ <td>FLTK.Errors</td>
+ </tr>
+
+</table>
+
+
+
+<table class="type">
+ <tr><th colspan="2">Types</th></tr>
+
+ <tr>
+ <td>void (*)(const char *, ...)</td>
+ <td>Error_Function</td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Attributes</th></tr>
+
+ <tr>
+<td><pre>
+static void (*error)(const char *, ...) = ::error;
+</pre></td>
+<td><pre>
+Current_Error : Error_Function := Default_Error'Access;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void (*fatal)(const char *, ...) = ::fatal;
+</pre></td>
+<td><pre>
+Current_Fatal : Error_Function := Default_Fatal'Access;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void (*warning)(const char *, ...) = ::warning;
+</pre></td>
+<td><pre>
+Current_Warning : Error_Function := Default_Warning'Access;
+</pre></td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
+ <tr>
+<td><pre>
+static void error(const char *format, ...);
+</pre></td>
+<td><pre>
+procedure Default_Error
+ (Message : in String);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void fatal(const char *format, ...);
+</pre></td>
+<td><pre>
+procedure Default_Fatal
+ (Message : in String);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void warning(const char *, ...);
+</pre></td>
+<td><pre>
+procedure Default_Warning
+ (Message : in String);
+</pre></td>
+ </tr>
+
+</table>
+
+
+ </body>
+</html>
+
diff --git a/doc/fl_(fltk-events).html b/doc/fl_(fltk-events).html
new file mode 100644
index 0000000..6d17e85
--- /dev/null
+++ b/doc/fl_(fltk-events).html
@@ -0,0 +1,650 @@
+<!DOCTYPE html>
+
+<html lang="en">
+ <head>
+ <meta charset="utf-8">
+ <title>Fl (FLTK.Events) Binding Map</title>
+ <link href="map.css" rel="stylesheet">
+ </head>
+
+ <body>
+
+
+<h2>Fl (FLTK.Events) Binding Map</h2>
+
+
+<a href="index.html">Back to Index</a>
+
+
+<table class="package">
+ <tr><th colspan="2">Package name</th></tr>
+
+ <tr>
+ <td>Fl</td>
+ <td>FLTK.Events</td>
+ </tr>
+
+</table>
+
+
+
+<table class="type">
+ <tr><th colspan="2">Types</th></tr>
+
+ <tr>
+ <td>Fl_Event_Handler</td>
+ <td>Event_Handler</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Event_Dispatch</td>
+ <td>Event_Dispatch</td>
+ </tr>
+
+ <tr>
+ <td>void *</td>
+ <td>System_Event</td>
+ </tr>
+
+ <tr>
+ <td>Fl_System_Handler</td>
+ <td>System_Handler</td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
+ <tr>
+<td><pre>
+static void add_handler(Fl_Event_Handler h);
+</pre></td>
+<td><pre>
+procedure Add_Handler
+ (Func : in not null Event_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_system_handler(Fl_System_Handler h,
+ void *data);
+</pre></td>
+<td><pre>
+procedure Add_System_Handler
+ (Func : in not null System_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Widget * belowmouse();
+</pre></td>
+<td><pre>
+function Get_Below_Mouse
+ return access FLTK.Widgets.Widget'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void belowmouse(Fl_Widget *);
+</pre></td>
+<td><pre>
+procedure Set_Below_Mouse
+ (To : in FLTK.Widgets.Widget'Class);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int compose(int &del);
+</pre></td>
+<td><pre>
+function Compose
+ (Del : out Natural)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void compose_reset();
+</pre></td>
+<td><pre>
+procedure Compose_Reset;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event();
+</pre></td>
+<td><pre>
+function Last
+ return Event_Kind;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_alt();
+</pre></td>
+<td><pre>
+function Key_Alt
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_button();
+</pre></td>
+<td><pre>
+function Last_Button
+ return Mouse_Button;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_button1();
+</pre></td>
+<td><pre>
+function Mouse_Left
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_button2();
+</pre></td>
+<td><pre>
+function Mouse_Middle
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_button3();
+</pre></td>
+<td><pre>
+function Mouse_Right
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_button4();
+</pre></td>
+<td><pre>
+function Mouse_Back
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_button5();
+</pre></td>
+<td><pre>
+function Mouse_Forward
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_buttons();
+</pre></td>
+<td><pre>
+procedure Mouse_Buttons
+ (Left, Middle, Right, Back, Forward : out Boolean);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_clicks();
+</pre></td>
+<td><pre>
+function Is_Multi_Click
+ return Boolean;
+
+function Get_Clicks
+ return Natural;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void event_clicks(int i);
+</pre></td>
+<td><pre>
+procedure Set_Clicks
+ (To : in Natural);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void * event_clipboard();
+</pre></td>
+<td><pre>
+function Clipboard_Text
+ return String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static const char * event_clipboard_type();
+</pre></td>
+<td><pre>
+function Clipboard_Kind
+ return String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_command();
+</pre></td>
+<td><pre>
+function Key_Command
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_ctrl();
+</pre></td>
+<td><pre>
+function Key_Ctrl
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Event_Dispatch event_dispatch();
+</pre></td>
+<td><pre>
+function Get_Dispatch
+ return Event_Dispatch;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void event_dispatch(Fl_Event_Dispatch d);
+</pre></td>
+<td><pre>
+procedure Set_Dispatch
+ (Func : in Event_Dispatch);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_dx();
+</pre></td>
+<td><pre>
+function Mouse_DX
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_dy();
+</pre></td>
+<td><pre>
+function Mouse_DY
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_inside(const Fl_Widget *);
+</pre></td>
+<td><pre>
+function Is_Inside
+ (Child : in FLTK.Widgets.Widget'Class)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_inside(int, int, int, int);
+</pre></td>
+<td><pre>
+function Is_Inside
+ (X, Y, W, H : in Integer)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_is_click();
+</pre></td>
+<td><pre>
+function Is_Click
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void event_is_click(int i);
+</pre></td>
+<td><pre>
+procedure Clear_Click;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_key();
+</pre></td>
+<td><pre>
+function Last_Key
+ return Keypress;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_key(int key);
+</pre></td>
+<td><pre>
+function Pressed_During
+ (Key : in Keypress)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_length();
+</pre></td>
+<td><pre>
+function Text_Length
+ return Natural;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_original_key();
+</pre></td>
+<td><pre>
+function Original_Last_Key
+ return Keypress;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_shift();
+</pre></td>
+<td><pre>
+function Key_Shift
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_state();
+</pre></td>
+<td><pre>
+function Last_Modifier
+ return Modifier;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_state(int mask);
+</pre></td>
+<td><pre>
+function Last_Modifier
+ (Had : in Modifier)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static const char * event_text();
+</pre></td>
+<td><pre>
+function Text
+ return String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_x();
+</pre></td>
+<td><pre>
+function Mouse_X
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_x_root();
+</pre></td>
+<td><pre>
+function Mouse_X_Root
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_y();
+</pre></td>
+<td><pre>
+function Mouse_Y
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int event_y_root();
+</pre></td>
+<td><pre>
+function Mouse_Y_Root
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Widget * focus();
+</pre></td>
+<td><pre>
+function Get_Focus
+ return access FLTK.Widgets.Widget'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void focus(Fl_Widget *);
+</pre></td>
+<td><pre>
+procedure Set_Focus
+ (To : in FLTK.Widgets.Widget'Class);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int get_key(int key);
+</pre></td>
+<td><pre>
+function Key_Now
+ (Key : in Keypress)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void get_mouse(int &, int &);
+</pre></td>
+<td><pre>
+procedure Get_Mouse
+ (X, Y : out Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Window * grab();
+</pre></td>
+<td><pre>
+function Get_Grab
+ return access FLTK.Widgets.Groups.Windows.Window'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void grab(Fl_Window *);
+
+static void grab(Fl_Window &win);
+</pre></td>
+<td><pre>
+procedure Set_Grab
+ (To : in FLTK.Widgets.Groups.Windows.Window'Class);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int handle(int, Fl_Window *);
+</pre></td>
+<td><pre>
+function Handle_Dispatch
+ (Event : in Event_Kind;
+ Origin : in out FLTK.Widgets.Groups.Windows.Window'Class)
+ return Event_Outcome;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int handle_(int, Fl_Window *);
+</pre></td>
+<td><pre>
+function Handle
+ (Event : in Event_Kind;
+ Origin : in out FLTK.Widgets.Groups.Windows.Window'Class)
+ return Event_Outcome;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Widget * pushed();
+</pre></td>
+<td><pre>
+function Get_Pushed
+ return access FLTK.Widgets.Widget'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void pushed(Fl_Widget *);
+</pre></td>
+<td><pre>
+procedure Set_Pushed
+ (To : in FLTK.Widgets.Widget'Class);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void release();
+</pre></td>
+<td><pre>
+procedure Release_Grab;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_handler(Fl_Event_Handler h);
+</pre></td>
+<td><pre>
+procedure Remove_Handler
+ (Func : in not null Event_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_system_handler(Fl_System_Handler h);
+</pre></td>
+<td><pre>
+procedure Remove_System_Handler
+ (Func : in not null System_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int test_shortcut(Fl_Shortcut);
+</pre></td>
+<td><pre>
+function Test_Shortcut
+ (Shortcut : in Key_Combo)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int visible_focus();
+</pre></td>
+<td><pre>
+function Has_Visible_Focus
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void visible_focus(int v);
+</pre></td>
+<td><pre>
+procedure Set_Visible_Focus
+ (To : in Boolean);
+</pre></td>
+ </tr>
+
+</table>
+
+
+ </body>
+</html>
+
diff --git a/doc/fl_(fltk-screen).html b/doc/fl_(fltk-screen).html
new file mode 100644
index 0000000..7d44273
--- /dev/null
+++ b/doc/fl_(fltk-screen).html
@@ -0,0 +1,278 @@
+<!DOCTYPE html>
+
+<html lang="en">
+ <head>
+ <meta charset="utf-8">
+ <title>Fl (FLTK.Screen) Binding Map</title>
+ <link href="map.css" rel="stylesheet">
+ </head>
+
+ <body>
+
+
+<h2>Fl (FLTK.Screen) Binding Map</h2>
+
+
+<a href="index.html">Back to Index</a>
+
+
+<table class="package">
+ <tr><th colspan="2">Package name</th></tr>
+
+ <tr>
+ <td>Fl</td>
+ <td>FLTK.Screen</td>
+ </tr>
+
+</table>
+
+
+
+<table class="type">
+ <tr><th colspan="2">Types</th></tr>
+
+ <tr>
+ <td>Fl_Mode</td>
+ <td>Visual_Mode</td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
+ <tr>
+<td><pre>
+static int damage();
+</pre></td>
+<td><pre>
+function Is_Damaged
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void damage(int d);
+</pre></td>
+<td><pre>
+procedure Set_Damaged
+ (To : in Boolean);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void display(const char *);
+</pre></td>
+<td><pre>
+procedure Set_Display_String
+ (Value : in String);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void flush();
+</pre></td>
+<td><pre>
+procedure Flush;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int h();
+</pre></td>
+<td><pre>
+function Get_H
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void redraw();
+</pre></td>
+<td><pre>
+procedure Redraw;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int screen_count();
+</pre></td>
+<td><pre>
+function Count
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_dpi(float &h, float &v, int n=0);
+</pre></td>
+<td><pre>
+procedure DPI
+ (Horizontal, Vertical : out Float;
+ Screen_Number : in Integer := 1);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int screen_num(int x, int y);
+</pre></td>
+<td><pre>
+function Containing
+ (X, Y : in Integer)
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int screen_num(int x, int y, int w, int h);
+</pre></td>
+<td><pre>
+function Containing
+ (X, Y, W, H : in Integer)
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_work_area(int &X, int &Y,
+ int &W, int &H, int mx, int my);
+</pre></td>
+<td><pre>
+procedure Work_Area
+ (X, Y, W, H : out Integer;
+ Pos_X, Pos_Y : in Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_work_area(int &X, int &Y,
+ int &W, int &H, int n);
+</pre></td>
+<td><pre>
+procedure Work_Area
+ (X, Y, W, H : out Integer;
+ Screen_Num : in Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_xywh(int &X, int &Y,
+ int &W, int &H);
+</pre></td>
+<td><pre>
+procedure Bounding_Rect
+ (X, Y, W, H : out Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_xywh(int &X, int &Y,
+ int &W, int &H, int mx, int my);
+</pre></td>
+<td><pre>
+procedure Bounding_Rect
+ (X, Y, W, H : out Integer;
+ Pos_X, Pos_Y : in Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_xywh(int &X, int &Y,
+ int &W, int &H, int n);
+</pre></td>
+<td><pre>
+procedure Bounding_Rect
+ (X, Y, W, H : out Integer;
+ Screen_Num : in Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_xywh(int &X, int &Y,
+ int &W, int &H, int mx, int my, int mw, int mh);
+</pre></td>
+<td><pre>
+procedure Bounding_Rect
+ (X, Y, W, H : out Integer;
+ PX, PY, PW, PH : in Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void screen_work_area(int &X, int &Y,
+ int &W, int &H);
+</pre></td>
+<td><pre>
+procedure Work_Area
+ (X, Y, W, H : out Integer);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int visual(int);
+</pre></td>
+<td><pre>
+procedure Set_Visual_Mode
+ (Value : in Visual_Mode);
+
+function Set_Visual_Mode
+ (Value : in Visual_Mode)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int w();
+</pre></td>
+<td><pre>
+function Get_W
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int x();
+</pre></td>
+<td><pre>
+function Get_X
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int y();
+</pre></td>
+<td><pre>
+function Get_Y
+ return Integer;
+</pre></td>
+ </tr>
+
+</table>
+
+
+ </body>
+</html>
+
diff --git a/doc/fl_(fltk-static).html b/doc/fl_(fltk-static).html
new file mode 100644
index 0000000..90e74cd
--- /dev/null
+++ b/doc/fl_(fltk-static).html
@@ -0,0 +1,1028 @@
+<!DOCTYPE html>
+
+<html lang="en">
+ <head>
+ <meta charset="utf-8">
+ <title>Fl (FLTK.Static) Binding Map</title>
+ <link href="map.css" rel="stylesheet">
+ </head>
+
+ <body>
+
+
+<h2>Fl (FLTK.Static) Binding Map</h2>
+
+
+<a href="index.html">Back to Index</a>
+
+
+<table class="package">
+ <tr><th colspan="2">Package name</th></tr>
+
+ <tr>
+ <td>Fl</td>
+ <td>FLTK.Static</td>
+ </tr>
+
+</table>
+
+
+
+<table class="type">
+ <tr><th colspan="2">Types</th></tr>
+
+ <tr>
+ <td>Fl_Abort_Handler</td>
+ <td>&nbsp;</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Args_Handler</td>
+ <td>Args_Handler</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Atclose_Handler</td>
+ <td>&nbsp;</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Awake_Handler</td>
+ <td>Awake_Handler</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Idle_Handler</td>
+ <td>Idle_Handler</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Old_Idle_Handler</td>
+ <td>&nbsp;</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Timeout_Handler</td>
+ <td>Timeout_Handler</td>
+ </tr>
+
+ <tr>
+ <td>int</td>
+ <td>Buffer_Kind</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Clipboard_Notify_Handler</td>
+ <td>Clipboard_Notify_Handler</td>
+ </tr>
+
+ <tr>
+ <td>FL_SOCKET</td>
+ <td>File_Descriptor</td>
+ </tr>
+
+ <tr>
+ <td>int</td>
+ <td>File_Mode</td>
+ </tr>
+
+ <tr>
+ <td>Fl_FD_Handler</td>
+ <td>File_Handler</td>
+ </tr>
+
+ <tr>
+ <td>uchar</td>
+ <td>Byte_Integer</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Box_Draw_F</td>
+ <td>Box_Draw_Function</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Label_Draw_F</td>
+ <td>Label_Draw_Function</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Label_Measure_F</td>
+ <td>Label_Measure_Function</td>
+ </tr>
+
+ <tr>
+ <td>Fl_Option</td>
+ <td>Option</td>
+ </tr>
+
+</table>
+
+
+
+<table class="type">
+ <tr><th colspan="2">Errors</th></tr>
+
+ <tr>
+ <td>int</td>
+ <td>Argument_Error</td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Attributes</th></tr>
+
+ <tr>
+<td><pre>
+static void (*atclose)(Fl_Window *, void *);
+</pre></td>
+<td>Deprecated, set the callback for the Window instead.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static const char * const help = helpmsg + 13;
+</pre></td>
+<td><pre>
+Help_Message : constant String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void (*idle)();
+</pre></td>
+<td>Should not be used directly.</td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
+ <tr>
+<td><pre>
+static int add_awake_handler_(Fl_Awake_Handler, void *);
+</pre></td>
+<td><pre>
+procedure Add_Awake_Handler
+ (Func : in Awake_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_check(Fl_Timeout_Handler, void *=0);
+</pre></td>
+<td><pre>
+procedure Add_Check
+ (Func : in not null Timeout_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_clipboard_notify(Fl_Clipboard_Notify_Handler h,
+ void *data=0);
+</pre></td>
+<td><pre>
+procedure Add_Clipboard_Notify
+ (Func : in not null Clipboard_Notify_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_fd(int fd, Fl_FD_Handler cb, void *=0);
+</pre></td>
+<td><pre>
+procedure Add_File_Descriptor
+ (FD : in File_Descriptor;
+ Func : in not null File_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_fd(int fd, int when, Fl_FD_Handler cb,
+ void *=0);
+</pre></td>
+<td><pre>
+procedure Add_File_Descriptor
+ (FD : in File_Descriptor;
+ Mode : in File_Mode;
+ Func : in not null File_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_idle(Fl_Idle_Handler cb, void *data=0);
+</pre></td>
+<td><pre>
+procedure Add_Idle
+ (Func : in not null Idle_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void add_timeout(double t, Fl_Timeout_Handler,
+ void *=0);
+</pre></td>
+<td><pre>
+procedure Add_Timeout
+ (Seconds : in Long_Float;
+ Func : in not null Timeout_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int arg(int argc, char **argv, int &i);
+</pre></td>
+<td><pre>
+function Parse_Arg
+ (Index : in Positive)
+ return Natural;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int args(int argc, char **argv, int &i,
+ Fl_Args_Handler cb=0);
+</pre></td>
+<td><pre>
+procedure Parse_Args
+ (Count : out Natural;
+ Func : in Args_Handler := null);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void args(int argc, char **argv);
+</pre></td>
+<td><pre>
+procedure Parse_Args;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int awake(Fl_Awake_Handler cb, void *message=0);
+</pre></td>
+<td><pre>
+procedure Awake
+ (Func : in Awake_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void awake(void *message=0);
+</pre></td>
+<td><pre>
+procedure Awake;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void background(uchar, uchar, uchar);
+</pre></td>
+<td><pre>
+procedure Set_Background
+ (R, G, B : in Color_Component);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void background2(uchar, uchar, uchar);
+</pre></td>
+<td><pre>
+procedure Set_Alt_Background
+ (R, G, B : in Color_Component);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Color box_color(Fl_Color);
+</pre></td>
+<td><pre>
+function Get_Box_Color
+ (Tone : in Color)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int box_dh(Fl_Boxtype);
+</pre></td>
+<td><pre>
+function Get_Box_Height_Offset
+ (Kind : in Box_Kind)
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int box_dw(Fl_Boxtype);
+</pre></td>
+<td><pre>
+function Get_Box_Width_Offset
+ (Kind : in Box_Kind)
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int box_dx(Fl_Boxtype);
+</pre></td>
+<td><pre>
+function Get_Box_X_Offset
+ (Kind : in Box_Kind)
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int box_dy(Fl_Boxtype);
+</pre></td>
+<td><pre>
+function Get_Box_Y_Offset
+ (Kind : in Box_Kind)
+ return Integer;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int clipboard_contains(const char *type);
+</pre></td>
+<td><pre>
+function Clipboard_Contains
+ (Kind : in String)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void copy
+ (const char *stuff, int len, int destination=0,
+ const char *type=Fl::clipboard_plain_text);
+</pre></td>
+<td><pre>
+procedure Copy
+ (Text : in String;
+ Dest : in Buffer_Kind);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void default_atclose(Fl_Window *, void *);
+</pre></td>
+<td><pre>
+procedure Default_Window_Close
+ (Item : in out FLTK.Widgets.Widget'Class);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void disable_im();
+</pre></td>
+<td><pre>
+procedure Disable_System_Input;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int dnd();
+</pre></td>
+<td><pre>
+procedure Drag_Drop_Start;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int dnd_text_ops();
+</pre></td>
+<td><pre>
+function Get_Drag_Drop_Text_Support
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void dnd_text_ops(int v);
+</pre></td>
+<td><pre>
+procedure Set_Drag_Drop_Text_Support
+ (To : in Boolean);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int draw_box_active();
+</pre></td>
+<td><pre>
+function Draw_Box_Active
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void enable_im();
+</pre></td>
+<td><pre>
+procedure Enable_System_Input;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Window * first_window();
+</pre></td>
+<td><pre>
+function Get_First_Window
+ return access FLTK.Widgets.Groups.Windows.Window'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void first_window(Fl_Window *);
+</pre></td>
+<td><pre>
+procedure Set_First_Window
+ (To : in FLTK.Widgets.Groups.Windows.Window'Class);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void foreground(uchar, uchar, uchar);
+</pre></td>
+<td><pre>
+procedure Set_Foreground
+ (R, G, B : in Color_Component);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void free_color(Fl_Color i, int overlay=0);
+</pre></td>
+<td><pre>
+procedure Free_Color
+ (Value : in Color;
+ Overlay : in Boolean := False);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int get_awake_handler_(Fl_Awake_Handler &, void *&);
+</pre></td>
+<td><pre>
+function Get_Awake_Handler
+ return Awake_Handler;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Box_Draw_F * get_boxtype(Fl_Boxtype);
+</pre></td>
+<td><pre>
+function Get_Box_Draw_Function
+ (Kind : in Box_Kind)
+ return Box_Draw_Function;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static unsigned get_color(Fl_Color i);
+</pre></td>
+<td><pre>
+function Get_Color
+ (From : in Color)
+ return Color;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void get_color(Fl_Color i,
+ uchar &red, uchar &green, uchar &blue);
+</pre></td>
+<td><pre>
+procedure Get_Color
+ (From : in Color;
+ R, G, B : out Color_Component);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static const char * get_font(Fl_Font);
+</pre></td>
+<td><pre>
+function Font_Image
+ (Kind : in Font_Kind)
+ return String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static const char * get_font_name(Fl_Font,
+ int *attributes=0);
+</pre></td>
+<td><pre>
+function Font_Family_Image
+ (Kind : in Font_Kind)
+ return String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int get_font_sizes(Fl_Font, int *&sizep);
+</pre></td>
+<td><pre>
+function Font_Sizes
+ (Kind : in Font_Kind)
+ return Font_Size_Array;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void get_system_colors();
+</pre></td>
+<td><pre>
+procedure System_Colors;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int has_check(Fl_Timeout_Handler, void *=0);
+</pre></td>
+<td><pre>
+function Has_Check
+ (Func : in not null Timeout_Handler)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int has_idle(Fl_Idle_Handler cb, void *data=0);
+</pre></td>
+<td><pre>
+function Has_Idle
+ (Func : in not null Idle_Handler)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int has_timeout(Fl_Timeout_Handler, void *=0);
+</pre></td>
+<td><pre>
+function Has_Timeout
+ (Func : in not null Timeout_Handler)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int is_scheme(const char *name);
+</pre></td>
+<td><pre>
+function Is_Scheme
+ (Scheme : in String)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int lock();
+</pre></td>
+<td><pre>
+procedure Lock;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Window * modal();
+</pre></td>
+<td><pre>
+function Get_Top_Modal
+ return access FLTK.Widgets.Groups.Windows.Window'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Window * next_window(const Fl_Window *);
+</pre></td>
+<td><pre>
+function Get_Next_Window
+ (From : in FLTK.Widgets.Groups.Windows.Window'Class)
+ return access FLTK.Widgets.Groups.Windows.Window'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static bool option(Fl_Option opt);
+</pre></td>
+<td><pre>
+function Get_Option
+ (Opt : in Option)
+ return Boolean;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void option(Fl_Option opt, bool val);
+</pre></td>
+<td><pre>
+procedure Set_Option
+ (Opt : in Option;
+ To : in Boolean);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void own_colormap();
+</pre></td>
+<td><pre>
+procedure Own_Colormap;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void paste(Fl_Widget &receiver);
+</pre></td>
+<td>Marked as backwards compatibility only.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void paste
+ (Fl_Widget &receiver, int source,
+ const char *type=Fl::clipboard_plain_text);
+</pre></td>
+<td><pre>
+procedure Paste
+ (Receiver : in FLTK.Widgets.Widget'Class;
+ Source : in Buffer_Kind);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Widget * readqueue();
+</pre></td>
+<td><pre>
+function Read_Queue
+ return access FLTK.Widgets.Widget'Class;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int reload_scheme();
+</pre></td>
+<td><pre>
+procedure Reload_Scheme;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_check(Fl_Timeout_Handler, void *=0);
+</pre></td>
+<td><pre>
+procedure Remove_Check
+ (Func : in not null Timeout_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_clipboard_notify
+ (Fl_Clipboard_Notify_Handler h);
+</pre></td>
+<td><pre>
+procedure Remove_Clipboard_Notify
+ (Func : in not null Clipboard_Notify_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_fd(int);
+</pre></td>
+<td><pre>
+procedure Remove_File_Descriptor
+ (FD : in File_Descriptor);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_fd(int, int when);
+</pre></td>
+<td><pre>
+procedure Remove_File_Descriptor
+ (FD : in File_Descriptor;
+ Mode : in File_Mode);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_idle(Fl_Idle_Handler cb,
+ void *data=0);
+</pre></td>
+<td><pre>
+procedure Remove_Idle
+ (Func : in not null Idle_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void remove_timeout(Fl_Timeout_Handler,
+ void *=0);
+</pre></td>
+<td><pre>
+procedure Remove_Timeout
+ (Func : in not null Timeout_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static repeat_timeout(double t, Fl_Timeout_Handler,
+ void *=0);
+</pre></td>
+<td><pre>
+procedure Repeat_Timeout
+ (Seconds : in Long_Float;
+ Func : in not null Timeout_Handler);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static const char * scheme();
+</pre></td>
+<td><pre>
+function Get_Scheme
+ return String;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int scheme(const char *name);
+</pre></td>
+<td><pre>
+procedure Set_Scheme
+ (To : in String);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static int scrollbar_size();
+</pre></td>
+<td><pre>
+function Get_Default_Scrollbar_Size
+ return Natural;
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void scrollbar_size(int W);
+</pre></td>
+<td><pre>
+procedure Set_Default_Scrollbar_Size
+ (To : in Natural);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void selection(Fl_Widget &owner, const char *,
+ int len);
+</pre></td>
+<td><pre>
+procedure Selection
+ (Owner : in FLTK.Widgets.Widget'Class;
+ Text : in String);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Widget * selection_owner();
+</pre></td>
+<td>Marked as backwards compatibility only.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void selection_owner(Fl_Widget *);
+</pre></td>
+<td>Marked as backwards compatibility only.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_abort(Fl_Abort_Handler f);
+</pre></td>
+<td>Marked as backwards compatibility only.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_atclose(Fl_Atclose_Handler f);
+</pre></td>
+<td>Marked as backwards compatibility only.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_box_color(Fl_Color);
+</pre></td>
+<td><pre>
+procedure Set_Box_Color
+ (Tone : in Color);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_boxtype(Fl_Boxtype, Fl_Box_Draw_F *,
+ uchar, uchar, uchar, uchar);
+</pre></td>
+<td><pre>
+procedure Set_Box_Draw_Function
+ (Kind : in Box_Kind;
+ Func : in Box_Draw_Function;
+ Offset_X, Offset_Y : in Byte_Integer := 0;
+ Offset_W, Offset_H : in Byte_Integer := 0);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_boxtype(Fl_Boxtype, Fl_Boxtype from);
+</pre></td>
+<td><pre>
+procedure Set_Box_Kind
+ (To, From : in Box_Kind);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_color(Fl_Color i, unsigned c);
+</pre></td>
+<td><pre>
+procedure Set_Color
+ (Target, Source : in Color);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_color(Fl_Color,
+ uchar, uchar, uchar, uchar);
+</pre></td>
+<td><pre>
+procedure Set_Color
+ (Target : in Color;
+ R, G, B : in Color_Component);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_font(Fl_Font, const char *);
+</pre></td>
+<td><pre>
+procedure Set_Font_Kind
+ (Target : in Font_Kind;
+ Source : in String);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_font(Fl_Font, Fl_Font);
+</pre></td>
+<td><pre>
+procedure Set_Font_Kind
+ (Target, Source : in Font_Kind);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static Fl_Font set_fonts(const char *=0);
+</pre></td>
+<td><pre>
+procedure Setup_Fonts
+ (How_Many_Set_Up : out Natural);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_idle(Fl_Old_Idle_Handler cb);
+</pre></td>
+<td>Deprecated, use add_idle / Add_Idle instead.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_labeltype(Fl_Labeltype, Fl_Label_Draw_F *,
+ FL_Label_Measure_F *);
+</pre></td>
+<td><pre>
+procedure Set_Label_Draw_Function
+ (Kind : in Label_Kind;
+ Draw_Func : in Label_Draw_Function;
+ Measure_Func : in Label_Measure_Function);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void set_labeltype(Fl_Labeltype, Fl_Labeltype from);
+</pre></td>
+<td><pre>
+procedure Set_Label_Kind
+ (Target, Source : in Label_Kind);
+</pre></td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void * thread_message();
+</pre></td>
+<td>Intentionally left unbound.</td>
+ </tr>
+
+ <tr>
+<td><pre>
+static void unlock();
+</pre></td>
+<td><pre>
+procedure Unlock;
+</pre></td>
+ </tr>
+
+</table>
+
+
+ </body>
+</html>
+
diff --git a/doc/fl_bitmap.html b/doc/fl_bitmap.html
index 922b1b5..edaf6a4 100644
--- a/doc/fl_bitmap.html
+++ b/doc/fl_bitmap.html
@@ -62,31 +62,31 @@ const uchar * array;
<td><pre>
function Data_Size
(This : in Bitmap)
- return Natural;
+ return Size_Type;
function Get_Datum
(This : in Bitmap;
- Place : in Positive)
+ Place : in Positive_Size)
return Color_Component
with Pre => Place <= This.Data_Size;
procedure Set_Datum
(This : in out Bitmap;
- Place : in Positive;
+ Place : in Positive_Size;
Value : in Color_Component)
with Pre => Place <= This.Data_Size;
function Slice
(This : in Bitmap;
- Low : in Positive;
- High : in Natural)
+ Low : in Positive_Size;
+ High : in Size_Type)
return Color_Component_Array
with Pre => High <= This.Data_Size,
- Post => Slice'Result'Length = Integer'Max (0, High - Low + 1);
+ Post => Slice'Result'Length = Size_Type'Max (0, High - Low + 1);
procedure Overwrite
(This : in out Bitmap;
- Place : in Positive;
+ Place : in Positive_Size;
Values : in Color_Component_Array)
with Pre => Place + Values'Length - 1 <= This.Data_Size;
@@ -115,7 +115,24 @@ function Create
(Data : in Color_Component_Array;
Width, Height : in Natural)
return Bitmap
-with Pre => Data'Length = To_Next_Byte (Width) * Height;
+with Pre =>
+ Data'Length >= Size_Type (Bytes_Needed (Width)) * Size_Type (Height);
+</pre></td>
+ </tr>
+
+</table>
+
+
+
+<table class="function">
+ <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
+ <tr>
+<td>&nbsp;</td>
+<td><pre>
+function Bytes_Needed
+ (Bits : in Natural)
+ return Natural;
</pre></td>
</tr>
diff --git a/doc/fl_browser_.html b/doc/fl_browser_.html
index 1ee2a6a..a09e2e4 100644
--- a/doc/fl_browser_.html
+++ b/doc/fl_browser_.html
@@ -47,7 +47,14 @@ already extended from it.</p>
</tr>
<tr>
- <td>enum mode</td>
+ <td>enum {<br />
+ HORIZONTAL = 1,<br />
+ VERTICAL = 2,<br />
+ BOTH = 3,<br />
+ ALWAYS_ON = 4,<br />
+ HORIZONTAL_ALWAYS = 5,<br />
+ VERTICAL_ALWAYS = 6,<br />
+ BOTH_ALWAYS = 7 }</td>
<td>Scrollbar_Mode</td>
</tr>
diff --git a/doc/fl_draw.html b/doc/fl_draw.html
index d987920..aca154a 100644
--- a/doc/fl_draw.html
+++ b/doc/fl_draw.html
@@ -415,9 +415,12 @@ procedure Draw_Image
(X, Y, W, H : in Integer;
Data : in Color_Component_Array;
Depth : in Positive := 3;
- Line_Data : in Natural := 0;
+ Line_Size : in Natural := 0;
Flip_Horizontal : in Boolean := False;
- Flip_Vertical : in Boolean := False);
+ Flip_Vertical : in Boolean := False)
+with Pre => (if Line_Size = 0
+ then Data'Length >= Size_Type (W) * Size_Type (H) * Size_Type (Depth)
+ else Data'Length >= Size_Type (Line_Size) * Size_Type (H));
</pre></td>
</tr>
@@ -444,9 +447,12 @@ procedure Draw_Image_Mono
(X, Y, W, H : in Integer;
Data : in Color_Component_Array;
Depth : in Positive := 1;
- Line_Data : in Natural := 0;
+ Line_Size : in Natural := 0;
Flip_Horizontal : Boolean := False;
- Flip_Vertical : Boolean := False);
+ Flip_Vertical : Boolean := False)
+with Pre => (if Line_Size = 0
+ then Data'Length >= Size_Type (W) * Size_Type (H) * Size_Type (Depth)
+ else Data'Length >= Size_Type (Line_Size) * Size_Type (H));
</pre></td>
</tr>
@@ -477,7 +483,7 @@ procedure Draw_Pixmap
Colors : in FLTK.Images.Pixmaps.Color_Definition_Array;
Pixels : in FLTK.Images.Pixmaps.Pixmap_Data;
X, Y : in Integer;
- Hue : in Color := Grey0_Color)
+ Tone : in Color := Grey0_Color)
with Pre =>
Colors'Length = Values.Colors and
Pixels'Length (1) = Values.Height and
@@ -909,9 +915,9 @@ function Read_Image
Alpha : in Integer := 0)
return Color_Component_Array
with Post =>
- (if Alpha = 0
- then Read_Image'Result'Length = W * H * 3
- else Read_Image'Result'Length = W * H * 4);
+ (if Alpha = 0
+ then Read_Image'Result'Length = Size_Type (W) * Size_Type (H) * 3
+ else Read_Image'Result'Length = Size_Type (W) * Size_Type (H) * 4);
</pre></td>
</tr>
diff --git a/doc/fl_file_chooser.html b/doc/fl_file_chooser.html
index 24bd6d8..f186ca4 100644
--- a/doc/fl_file_chooser.html
+++ b/doc/fl_file_chooser.html
@@ -45,7 +45,11 @@ See Fl_Ask for related symbols that are not members of the Fl_File_Chooser class
</tr>
<tr>
- <td>enum {SINGLE=0, MULTI=1, CREATE=2, DIRECTORY=4}</td>
+ <td>enum {<br />
+ SINGLE = 0,<br />
+ MULTI = 1,<br />
+ CREATE = 2,<br />
+ DIRECTORY = 4 }</td>
<td>Chooser_Kind</td>
</tr>
diff --git a/doc/fl_image.html b/doc/fl_image.html
index 10c9ed8..201a2fa 100644
--- a/doc/fl_image.html
+++ b/doc/fl_image.html
@@ -46,11 +46,6 @@
<td>Scaling_Kind</td>
</tr>
- <tr>
- <td>float</td>
- <td>Blend</td>
- </tr>
-
</table>
diff --git a/doc/fl_pack.html b/doc/fl_pack.html
index 1a7a887..f850557 100644
--- a/doc/fl_pack.html
+++ b/doc/fl_pack.html
@@ -42,7 +42,9 @@
</tr>
<tr>
- <td>enum { VERTICAL = 0, HORIZONTAL = 1 }</td>
+ <td>enum {<br />
+ VERTICAL = 0,<br />
+ HORIZONTAL = 1 }</td>
<td>Pack_Kind</td>
</tr>
diff --git a/doc/fl_rgb_image.html b/doc/fl_rgb_image.html
index 061b07a..6d5427d 100644
--- a/doc/fl_rgb_image.html
+++ b/doc/fl_rgb_image.html
@@ -62,31 +62,31 @@ const uchar * array;
<td><pre>
function Data_Size
(This : in RGB_Image)
- return Natural;
+ return Size_Type;
function Get_Datum
(This : in RGB_Image;
- Place : in Positive)
+ Place : in Positive_Size)
return Color_Component
with Pre => Place <= This.Data_Size;
procedure Set_Datum
(This : in out RGB_Image;
- Place : in Positive;
+ Place : in Positive_Size;
Value : in Color_Component)
with Pre => Place <= This.Data_Size;
function Slice
(This : in RGB_Image;
- Low : in Positive;
- High : in Natural)
+ Low : in Positive_Size;
+ High : in Size_Type)
return Color_Component_Array
with Pre => High <= This.Data_Size,
- Post => Slice'Result'Length = Integer'Max (0, High - Low + 1);
+ Post => Slice'Result'Length = Size_Type'Max (0, High - Low + 1);
procedure Overwrite
(This : in out RGB_Image;
- Place : in Positive;
+ Place : in Positive_Size;
Values : in Color_Component_Array)
with Pre => Place + Values'Length - 1 <= This.Data_Size;
@@ -106,7 +106,8 @@ with Post => All_Data'Result'Length = This.Data_Size;
<tr>
<td><pre>
-Fl_RGB_Image(const uchar *bits, int W, int H, int D=3, int LD=0);
+Fl_RGB_Image(const uchar *bits, int W, int H,
+ int D=3, int LD=0);
</pre></td>
<td><pre>
function Create
@@ -116,8 +117,8 @@ function Create
Line_Size : in Natural := 0)
return RGB_Image
with Pre => (if Line_Size = 0
- then Data'Length = Width * Height * Depth
- else Data'Length = Line_Size * Height)
+ then Data'Length >= Size_Type (Width) * Size_Type (Height) * Size_Type (Depth)
+ else Data'Length >= Size_Type (Line_Size) * Size_Type (Height))
and Data'Length <= Get_Max_Size;
</pre></td>
</tr>
@@ -147,7 +148,7 @@ static void max_size(size_t size);
</pre></td>
<td><pre>
procedure Set_Max_Size
- (Value : in Natural);
+ (Value : in Size_Type);
</pre></td>
</tr>
@@ -157,7 +158,7 @@ static size_t max_size();
</pre></td>
<td><pre>
function Get_Max_Size
- return Natural;
+ return Size_Type;
</pre></td>
</tr>
diff --git a/doc/fl_scroll.html b/doc/fl_scroll.html
index c55dba5..4c8977b 100644
--- a/doc/fl_scroll.html
+++ b/doc/fl_scroll.html
@@ -42,7 +42,14 @@
</tr>
<tr>
- <td>enum { HORIZONTAL = 1, VERTICAL = 2, BOTH = 3, ALWAYS_ON = 4, HORIZONTAL_ALWAYS = 5, VERTICAL_ALWAYS = 6, BOTH_ALWAYS = 7 }
+ <td>enum {<br />
+ HORIZONTAL = 1,<br />
+ VERTICAL = 2,<br />
+ BOTH = 3,<br />
+ ALWAYS_ON = 4,<br />
+ HORIZONTAL_ALWAYS = 5,<br />
+ VERTICAL_ALWAYS = 6,<br />
+ BOTH_ALWAYS = 7 }
<td>Scroll_Kind</td>
</tr>
diff --git a/doc/fl_text_display.html b/doc/fl_text_display.html
index 8d0d20a..54b2f54 100644
--- a/doc/fl_text_display.html
+++ b/doc/fl_text_display.html
@@ -42,22 +42,39 @@
</tr>
<tr>
- <td>enum { NORMAL_CURSOR, CARET_CURSOR, DIM_CURSOR, BLOCK_CURSOR, HEAVY_CURSOR, SIMPLE_CURSOR }</td>
+ <td>enum {<br />
+ NORMAL_CURSOR,<br />
+ CARET_CURSOR,<br />
+ DIM_CURSOR,<br />
+ BLOCK_CURSOR,<br />
+ HEAVY_CURSOR,<br />
+ SIMPLE_CURSOR }</td>
<td>Cursor_Style</td>
</tr>
<tr>
- <td>enum { CURSOR_POS, CHARACTER_POS }</td>
+ <td>enum {<br />
+ CURSOR_POS,<br />
+ CHARACTER_POS }</td>
<td>Position_Kind</td>
</tr>
<tr>
- <td>enum { DRAG_NONE = -2, DRAG_START_DND = -1, DRAG_CHAR = 0, DRAG_WORD = 1, DRAG_LINE = 2 }</td>
+ <td>enum {<br />
+ DRAG_NONE = -2,<br />
+ DRAG_START_DND = -1,<br />
+ DRAG_CHAR = 0,<br />
+ DRAG_WORD = 1,<br />
+ DRAG_LINE = 2 }</td>
<td>&nbsp;</td>
</tr>
<tr>
- <td>enum { WRAP_NONE, WRAP_AT_COLUMN, WRAP_AT_PIXEL, WRAP_AT_BOUNDS }</td>
+ <td>enum {<br />
+ WRAP_NONE,<br />
+ WRAP_AT_COLUMN,<br />
+ WRAP_AT_PIXEL,<br />
+ WRAP_AT_BOUNDS }</td>
<td>Wrap_Mode</td>
</tr>
diff --git a/doc/fl_widget.html b/doc/fl_widget.html
index 419ab3b..0552325 100644
--- a/doc/fl_widget.html
+++ b/doc/fl_widget.html
@@ -46,16 +46,6 @@
<td>Widget_Callback</td>
</tr>
- <tr>
- <td>Fl_When</td>
- <td>Callback_Flag</td>
- </tr>
-
- <tr>
- <td>uchar</td>
- <td>Damage_Mask</td>
- </tr>
-
</table>
diff --git a/doc/index.html b/doc/index.html
index e8f0a45..af2faf1 100644
--- a/doc/index.html
+++ b/doc/index.html
@@ -16,9 +16,13 @@
<h4>List of C++ headers</h4>
<ul>
- <li><a href="fl.html">Enumerations</a></li>
+ <li><a href="enumerations.html">Enumerations</a></li>
<li><a href="filename.html">Filename</a></li>
<li><a href="fl.html">Fl</a></li>
+ <li><a href="fl_(fltk-errors).html">Fl (FLTK.Errors)</a></li>
+ <li><a href="fl_(fltk-events).html">Fl (FLTK.Events)</a></li>
+ <li><a href="fl_(fltk-screen).html">Fl (FLTK.Screen)</a></li>
+ <li><a href="fl_(fltk-static).html">Fl (FLTK.Static)</a></li>
<li><a href="fl_adjuster.html">Fl_Adjuster</a></li>
<li><a href="fl_ask.html">Fl_Ask</a></li>
<li><a href="fl_bitmap.html">Fl_Bitmap</a></li>
@@ -143,6 +147,7 @@
<ul>
<li><a href="fl.html">FLTK</a></li>
+ <li><a href="enumerations.html">FLTK (Enumerations)</a></li>
<li><a href="fl_ask.html">FLTK.Asks</a></li>
<li><a href="fl_device.html">FLTK.Devices</a></li>
<li><a href="fl_graphics_driver.html">FLTK.Devices.Graphics</a></li>
@@ -155,8 +160,8 @@
<li><a href="fl_printer.html">FLTK.Devices.Surface.Paged.Printers</a></li>
<li><a href="fl_draw.html">FLTK.Draw</a></li>
<li><a href="fl_preferences.html">FLTK.Environment</a></li>
- <li><a href="fl.html">FLTK.Errors</a></li>
- <li><a href="fl.html">FLTK.Event</a></li>
+ <li><a href="fl_(fltk-errors).html">FLTK.Errors</a></li>
+ <li><a href="fl_(fltk-events).html">FLTK.Events</a></li>
<li><a href="fl_file_chooser.html">FLTK.File_Choosers</a></li>
<li><a href="filename.html">FLTK.Filenames</a></li>
<li><a href="fl_help_dialog.html">FLTK.Help_Dialogs</a></li>
@@ -175,8 +180,8 @@
<li><a href="fl_tiled_image.html">FLTK.Images.Tiled</a></li>
<li><a href="fl_label.html">FLTK.Labels</a></li>
<li><a href="fl_menu_item.html">FLTK.Menu_Items</a></li>
- <li><a href="fl.html">FLTK.Screen</a></li>
- <li><a href="fl.html">FLTK.Static</a></li>
+ <li><a href="fl_(fltk-screen).html">FLTK.Screen</a></li>
+ <li><a href="fl_(fltk-static).html">FLTK.Static</a></li>
<li><a href="fl_text_buffer.html">FLTK.Text_Buffers</a></li>
<li><a href="fl_tooltip.html">FLTK.Tooltips</a></li>
<li><a href="fl_widget.html">FLTK.Widgets</a></li>