diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-06 19:28:33 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-06 19:28:33 +1300 |
| commit | 547e538476a788dfeb5974f9b8ad29441d18980b (patch) | |
| tree | 00a3c7d80ee403969971bc4b814876b4399f3ada /spec | |
| parent | befe66a0a98a58e0bdb31bb8c2db4a975a744072 (diff) | |
Slightly better / more consistent comments
Diffstat (limited to 'spec')
86 files changed, 909 insertions, 322 deletions
diff --git a/spec/fltk-asks.ads b/spec/fltk-asks.ads index f0d58f8..75296d3 100644 --- a/spec/fltk-asks.ads +++ b/spec/fltk-asks.ads @@ -38,6 +38,8 @@ package FLTK.Asks is + -- Static Attributes -- + function Get_Cancel_String return String; @@ -71,6 +73,8 @@ package FLTK.Asks is + -- Simple Messages -- + procedure Alert (Message : String); @@ -117,6 +121,8 @@ package FLTK.Asks is + -- Choosers -- + function Color_Chooser (Title : in String; R, G, B : in out RGB_Float; @@ -154,6 +160,8 @@ package FLTK.Asks is + -- Settings -- + function Get_Message_Hotspot return Boolean; @@ -223,3 +231,4 @@ private end FLTK.Asks; + diff --git a/spec/fltk-devices-graphics.ads b/spec/fltk-devices-graphics.ads index f9d1a7c..2a1761f 100644 --- a/spec/fltk-devices-graphics.ads +++ b/spec/fltk-devices-graphics.ads @@ -20,6 +20,8 @@ package FLTK.Devices.Graphics is + -- Color -- + function Get_Color (This : in Graphics_Driver) return Color; @@ -27,6 +29,8 @@ package FLTK.Devices.Graphics is + -- Text -- + function Get_Text_Descent (This : in Graphics_Driver) return Integer; @@ -61,6 +65,8 @@ package FLTK.Devices.Graphics is + -- Images -- + procedure Draw_Scaled_Image (This : in Graphics_Driver; Img : in FLTK.Images.Image'Class; @@ -73,11 +79,8 @@ private type Graphics_Driver is new Device with null record; - - pragma Inline (Get_Color); - pragma Inline (Get_Text_Descent); pragma Inline (Get_Line_Height); pragma Inline (Get_Width); @@ -85,9 +88,9 @@ private pragma Inline (Get_Font_Size); pragma Inline (Set_Font); - pragma Inline (Draw_Scaled_Image); end FLTK.Devices.Graphics; + diff --git a/spec/fltk-devices-surface-copy.ads b/spec/fltk-devices-surface-copy.ads index 41d331b..1bc2d93 100644 --- a/spec/fltk-devices-surface-copy.ads +++ b/spec/fltk-devices-surface-copy.ads @@ -38,6 +38,8 @@ package FLTK.Devices.Surface.Copy is + -- Dimensions -- + function Get_W (This : in Copy_Surface) return Integer; @@ -49,6 +51,8 @@ package FLTK.Devices.Surface.Copy is + -- Drawing -- + procedure Draw_Widget (This : in out Copy_Surface; Item : in FLTK.Widgets.Widget'Class; @@ -62,6 +66,8 @@ package FLTK.Devices.Surface.Copy is + -- Surfaces -- + procedure Set_Current (This : in out Copy_Surface); diff --git a/spec/fltk-devices-surface-display.ads b/spec/fltk-devices-surface-display.ads index b581be7..3faaa22 100644 --- a/spec/fltk-devices-surface-display.ads +++ b/spec/fltk-devices-surface-display.ads @@ -32,6 +32,8 @@ package FLTK.Devices.Surface.Display is + -- Displays -- + function Get_Platform_Display return Display_Device_Reference; diff --git a/spec/fltk-devices-surface-image.ads b/spec/fltk-devices-surface-image.ads index 961a9b2..7711771 100644 --- a/spec/fltk-devices-surface-image.ads +++ b/spec/fltk-devices-surface-image.ads @@ -34,6 +34,8 @@ package FLTK.Devices.Surface.Image is + -- Resolution -- + function Is_Highres (This : in Image_Surface) return Boolean; @@ -41,6 +43,8 @@ package FLTK.Devices.Surface.Image is + -- Drawing -- + procedure Draw_Widget (This : in out Image_Surface; Item : in FLTK.Widgets.Widget'Class; @@ -54,6 +58,8 @@ package FLTK.Devices.Surface.Image is + -- Images -- + function Get_Image (This : in Image_Surface) return FLTK.Images.RGB.RGB_Image; @@ -65,6 +71,8 @@ package FLTK.Devices.Surface.Image is + -- Surfaces -- + procedure Set_Current (This : in out Image_Surface); diff --git a/spec/fltk-devices-surface-paged-postscript.ads b/spec/fltk-devices-surface-paged-postscript.ads index a7ea51c..22e2eca 100644 --- a/spec/fltk-devices-surface-paged-postscript.ads +++ b/spec/fltk-devices-surface-paged-postscript.ads @@ -66,6 +66,8 @@ package FLTK.Devices.Surface.Paged.Postscript is + -- Static Attributes -- + function Get_File_Chooser_Title return String; @@ -75,6 +77,8 @@ package FLTK.Devices.Surface.Paged.Postscript is + -- Driver -- + -- Not currently implemented, -- will return a Postscript_Graphics_Driver when done. function Get_Postscript_Driver @@ -84,6 +88,8 @@ package FLTK.Devices.Surface.Paged.Postscript is + -- Job Control -- + -- Docs say don't use this version. procedure Start_Job (This : in out Postscript_File_Device; @@ -121,6 +127,8 @@ package FLTK.Devices.Surface.Paged.Postscript is + -- Spacing and Orientation -- + procedure Get_Margins (This : in Postscript_File_Device; Left, Top, Right, Bottom : out Integer); diff --git a/spec/fltk-devices-surface-paged-printers.ads b/spec/fltk-devices-surface-paged-printers.ads index c0bc34e..b9c0169 100644 --- a/spec/fltk-devices-surface-paged-printers.ads +++ b/spec/fltk-devices-surface-paged-printers.ads @@ -42,6 +42,8 @@ package FLTK.Devices.Surface.Paged.Printers is + -- Static Attributes -- + function Get_Dialog_Title return String; @@ -159,6 +161,8 @@ package FLTK.Devices.Surface.Paged.Printers is + -- Driver -- + -- Not currently implemented function Get_Original_Driver (This : in out Printer) @@ -167,6 +171,8 @@ package FLTK.Devices.Surface.Paged.Printers is + -- Job Control -- + procedure Start_Job (This : in out Printer; Count : in Natural := 0); @@ -188,6 +194,8 @@ package FLTK.Devices.Surface.Paged.Printers is + -- Spacing and Orientation -- + procedure Get_Margins (This : in Printer; Left, Top, Right, Bottom : out Integer); @@ -226,6 +234,8 @@ package FLTK.Devices.Surface.Paged.Printers is + -- Printing -- + procedure Print_Widget (This : in out Printer; Item : in FLTK.Widgets.Widget'Class; @@ -240,6 +250,8 @@ package FLTK.Devices.Surface.Paged.Printers is + -- Printer -- + procedure Set_Current (This : in out Printer); diff --git a/spec/fltk-devices-surface-paged.ads b/spec/fltk-devices-surface-paged.ads index b445c62..cb820e6 100644 --- a/spec/fltk-devices-surface-paged.ads +++ b/spec/fltk-devices-surface-paged.ads @@ -75,6 +75,8 @@ package FLTK.Devices.Surface.Paged is + -- Job Control -- + procedure Start_Job (This : in out Paged_Device; Count : in Natural := 0); @@ -96,6 +98,8 @@ package FLTK.Devices.Surface.Paged is + -- Spacing and Orientation -- + procedure Get_Margins (This : in Paged_Device; Left, Top, Right, Bottom : out Integer); @@ -134,6 +138,8 @@ package FLTK.Devices.Surface.Paged is + -- Printing -- + procedure Print_Widget (This : in out Paged_Device; Item : in FLTK.Widgets.Widget'Class; diff --git a/spec/fltk-devices-surface.ads b/spec/fltk-devices-surface.ads index f70d1e8..7aa9e87 100644 --- a/spec/fltk-devices-surface.ads +++ b/spec/fltk-devices-surface.ads @@ -31,6 +31,8 @@ package FLTK.Devices.Surface is + -- Surfaces -- + function Get_Current return Surface_Device_Reference; @@ -43,6 +45,8 @@ package FLTK.Devices.Surface is + -- Drivers -- + function Has_Driver (This : in Surface_Device) return Boolean; diff --git a/spec/fltk-devices.ads b/spec/fltk-devices.ads index d9ce5b1..6e9873f 100644 --- a/spec/fltk-devices.ads +++ b/spec/fltk-devices.ads @@ -21,3 +21,4 @@ private end FLTK.Devices; + diff --git a/spec/fltk-draw.ads b/spec/fltk-draw.ads index 79675fd..950a247 100644 --- a/spec/fltk-draw.ads +++ b/spec/fltk-draw.ads @@ -14,10 +14,6 @@ with package FLTK.Draw is - -------------------------- - -- Types and Constants -- - -------------------------- - type Line_Kind is (Solid_Line, Dash_Line, @@ -67,9 +63,7 @@ package FLTK.Draw is - ------------------------ -- No Documentation -- - ------------------------ procedure Reset_Spot; @@ -90,9 +84,7 @@ package FLTK.Draw is - --------------- -- Utility -- - --------------- function Can_Do_Alpha_Blending return Boolean; @@ -104,9 +96,7 @@ package FLTK.Draw is - -------------------------- -- Charset Conversion -- - -------------------------- function Latin1_To_Local (From : in String) @@ -127,9 +117,7 @@ package FLTK.Draw is - ---------------- -- Clipping -- - ---------------- function Clip_Box (X, Y, W, H : in Integer; @@ -152,9 +140,7 @@ package FLTK.Draw is - --------------- -- Overlay -- - --------------- procedure Overlay_Clear; @@ -164,9 +150,7 @@ package FLTK.Draw is - ---------------- -- Settings -- - ---------------- function Get_Color return Color; @@ -216,9 +200,7 @@ package FLTK.Draw is - ------------------------- -- Matrix Operations -- - ------------------------- procedure Mult_Matrix (A, B, C, D, X, Y : in Long_Float); @@ -264,9 +246,7 @@ package FLTK.Draw is - --------------------- -- Image Drawing -- - --------------------- procedure Draw_Image (X, Y, W, H : in Integer; @@ -319,9 +299,7 @@ package FLTK.Draw is - ----------------------- -- Special Drawing -- - ----------------------- procedure Add_Symbol (Text : in String; @@ -427,9 +405,7 @@ package FLTK.Draw is - ---------------------- -- Manual Drawing -- - ---------------------- procedure Begin_Complex_Polygon; procedure Begin_Line; @@ -551,6 +527,32 @@ private pragma Convention (C, Symbol_Draw_Function); + pragma Import (C, Reset_Spot, "fl_draw_reset_spot"); + + pragma Import (C, Pop_Clip, "fl_draw_pop_clip"); + pragma Import (C, Push_No_Clip, "fl_draw_push_no_clip"); + pragma Import (C, Restore_Clip, "fl_draw_restore_clip"); + + pragma Import (C, Overlay_Clear, "fl_draw_overlay_clear"); + + pragma Import (C, Pop_Matrix, "fl_draw_pop_matrix"); + pragma Import (C, Push_Matrix, "fl_draw_push_matrix"); + + pragma Import (C, Begin_Complex_Polygon, "fl_draw_begin_complex_polygon"); + pragma Import (C, Begin_Line, "fl_draw_begin_line"); + pragma Import (C, Begin_Loop, "fl_draw_begin_loop"); + pragma Import (C, Begin_Points, "fl_draw_begin_points"); + pragma Import (C, Begin_Polygon, "fl_draw_begin_polygon"); + + pragma Import (C, Gap, "fl_draw_gap"); + + pragma Import (C, End_Complex_Polygon, "fl_draw_end_complex_polygon"); + pragma Import (C, End_Line, "fl_draw_end_line"); + pragma Import (C, End_Loop, "fl_draw_end_loop"); + pragma Import (C, End_Points, "fl_draw_end_points"); + pragma Import (C, End_Polygon, "fl_draw_end_polygon"); + + pragma Inline (Reset_Spot); pragma Inline (Set_Spot); pragma Inline (Set_Status); diff --git a/spec/fltk-environment.ads b/spec/fltk-environment.ads index 4bb807b..d4a1322 100644 --- a/spec/fltk-environment.ads +++ b/spec/fltk-environment.ads @@ -36,12 +36,6 @@ package FLTK.Environment is - function New_UUID - return String; - - - - package Forge is function From_Filesystem @@ -76,6 +70,16 @@ package FLTK.Environment is + -- Static -- + + function New_UUID + return String; + + + + + -- Disk Activity -- + procedure Flush (This : in Database); @@ -86,6 +90,8 @@ package FLTK.Environment is + -- Deletion -- + procedure Delete_Entry (This : in out Pref_Group; Key : in String) @@ -112,6 +118,8 @@ package FLTK.Environment is + -- Key Values -- + function Number_Of_Entries (This : in Pref_Group) return Natural; @@ -135,6 +143,8 @@ package FLTK.Environment is + -- Groups -- + function Number_Of_Groups (This : in Pref_Group) return Natural; @@ -153,6 +163,8 @@ package FLTK.Environment is + -- Names -- + function At_Name (This : in Pref_Group) return String; @@ -164,6 +176,8 @@ package FLTK.Environment is + -- Retrieval -- + function Get (This : in Pref_Group; Key : in String) @@ -238,6 +252,8 @@ package FLTK.Environment is + -- Storage -- + procedure Set (This : in out Pref_Group; Key : in String; diff --git a/spec/fltk-event.ads b/spec/fltk-event.ads index 3b0dec9..e512432 100644 --- a/spec/fltk-event.ads +++ b/spec/fltk-event.ads @@ -29,6 +29,8 @@ package FLTK.Event is + -- Handlers -- + procedure Add_Handler (Func : in Event_Handler); @@ -49,6 +51,8 @@ package FLTK.Event is + -- Receiving -- + function Get_Grab return access FLTK.Widgets.Groups.Windows.Window'Class; @@ -78,6 +82,8 @@ package FLTK.Event is + -- Multikey -- + function Compose (Del : out Natural) return Boolean; @@ -93,6 +99,8 @@ package FLTK.Event is + -- Modifiers -- + function Last return Event_Kind; @@ -106,6 +114,8 @@ package FLTK.Event is + -- Mouse -- + function Mouse_X return Integer; @@ -155,6 +165,8 @@ package FLTK.Event is + -- Keyboard -- + function Last_Key return Keypress; @@ -206,6 +218,7 @@ private pragma Inline (fl_widget_get_user_data); + pragma Import (C, Compose_Reset, "fl_event_compose_reset"); pragma Inline (Add_Handler); @@ -214,7 +227,6 @@ private -- pragma Inline (Set_Dispatch); -- pragma Inline (Default_Dispatch); - pragma Inline (Get_Grab); pragma Inline (Set_Grab); pragma Inline (Release_Grab); @@ -225,17 +237,14 @@ private pragma Inline (Get_Focus); pragma Inline (Set_Focus); - pragma Inline (Compose); pragma Inline (Compose_Reset); pragma Inline (Text); pragma Inline (Text_Length); - pragma Inline (Last); pragma Inline (Last_Modifier); - pragma Inline (Mouse_X); pragma Inline (Mouse_X_Root); pragma Inline (Mouse_Y); @@ -252,7 +261,6 @@ private pragma Inline (Mouse_Right); pragma Inline (Is_Inside); - pragma Inline (Last_Key); pragma Inline (Original_Last_Key); pragma Inline (Pressed_During); @@ -265,3 +273,4 @@ private end FLTK.Event; + diff --git a/spec/fltk-file_choosers.ads b/spec/fltk-file_choosers.ads index 927ae04..3445d4f 100644 --- a/spec/fltk-file_choosers.ads +++ b/spec/fltk-file_choosers.ads @@ -47,12 +47,16 @@ package FLTK.File_Choosers is + -- Sorting -- + Sort_Method : not null FLTK.Filenames.Compare_Function := FLTK.Filenames.Numeric_Sort'Access; + -- Buttons -- + function New_Button (This : in out File_Chooser) return FLTK.Widgets.Buttons.Button_Reference; @@ -68,6 +72,8 @@ package FLTK.File_Choosers is + -- Static Labels -- + function Get_Add_Favorites_Label return String; @@ -155,6 +161,8 @@ package FLTK.File_Choosers is + -- Callback and Extra -- + procedure Add_Extra (This : in out File_Chooser; Item : in out Widgets.Widget'Class); @@ -174,6 +182,8 @@ package FLTK.File_Choosers is + -- Settings -- + function Get_Background_Color (This : in File_Chooser) return Color; @@ -249,6 +259,8 @@ package FLTK.File_Choosers is + -- File Selection -- + function Number_Selected (This : in File_Chooser) return Natural; @@ -296,6 +308,8 @@ package FLTK.File_Choosers is + -- Visibility -- + procedure Show (This : in out File_Chooser); diff --git a/spec/fltk-filenames.ads b/spec/fltk-filenames.ads index 2872b8c..5d9b5ff 100644 --- a/spec/fltk-filenames.ads +++ b/spec/fltk-filenames.ads @@ -54,6 +54,8 @@ package FLTK.Filenames is + -- Uniform Resource Identifiers -- + function Decode_URI (URI : in Path_String) return Path_String; @@ -64,6 +66,8 @@ package FLTK.Filenames is + -- Pathnames -- + function Absolute (Name : in Path_String) return Path_String; @@ -94,6 +98,8 @@ package FLTK.Filenames is + -- Filenames -- + function Base_Name (Name : in Path_String) return Path_String; @@ -110,6 +116,8 @@ package FLTK.Filenames is + -- Directories -- + function Is_Directory (Name : in Path_String) return Boolean; @@ -122,6 +130,8 @@ package FLTK.Filenames is + -- Patterns -- + function Match (Input, Pattern : in String) return Boolean; diff --git a/spec/fltk-help_dialogs.ads b/spec/fltk-help_dialogs.ads index 655e357..fa0b94b 100644 --- a/spec/fltk-help_dialogs.ads +++ b/spec/fltk-help_dialogs.ads @@ -24,15 +24,13 @@ package FLTK.Help_Dialogs is (X, Y, W, H : in Integer) return Help_Dialog; - private - - pragma Inline (Create); - end Forge; + -- Visibility -- + procedure Show (This : in out Help_Dialog); @@ -49,6 +47,8 @@ package FLTK.Help_Dialogs is + -- Topline -- + procedure Set_Topline_Number (This : in out Help_Dialog; Line : in Positive); @@ -60,7 +60,9 @@ package FLTK.Help_Dialogs is - -- Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename + -- Content -- + + -- Name here can be either a ftp/http/https/ipp/mailto/news URL or a filename. -- See Load procedure in FLTK.Widgets.Groups.Help_Views procedure Load (This : in out Help_Dialog; @@ -77,6 +79,8 @@ package FLTK.Help_Dialogs is + -- Settings -- + function Get_Text_Size (This : in Help_Dialog) return Font_Size; @@ -88,6 +92,8 @@ package FLTK.Help_Dialogs is + -- Dimensions -- + function Get_X (This : in Help_Dialog) return Integer; diff --git a/spec/fltk-images-bitmaps.ads b/spec/fltk-images-bitmaps.ads index d60334f..b31885c 100644 --- a/spec/fltk-images-bitmaps.ads +++ b/spec/fltk-images-bitmaps.ads @@ -15,6 +15,8 @@ package FLTK.Images.Bitmaps is + -- Rounds a number of bits up to the next byte boundary. + function To_Next_Byte (Bits : in Natural) return Natural; diff --git a/spec/fltk-images-rgb.ads b/spec/fltk-images-rgb.ads index 7d65071..daa31c6 100644 --- a/spec/fltk-images-rgb.ads +++ b/spec/fltk-images-rgb.ads @@ -22,6 +22,8 @@ package FLTK.Images.RGB is + -- Static Settings -- + function Get_Max_Size return Natural; diff --git a/spec/fltk-images-shared.ads b/spec/fltk-images-shared.ads index dce9254..c1bbdbd 100644 --- a/spec/fltk-images-shared.ads +++ b/spec/fltk-images-shared.ads @@ -12,10 +12,6 @@ with package FLTK.Images.Shared is - ------------- - -- Types -- - ------------- - type Shared_Image is new Image with private; type Shared_Image_Reference (Data : not null access Shared_Image'Class) is @@ -24,10 +20,6 @@ package FLTK.Images.Shared is - -------------------- - -- Construction -- - -------------------- - package Forge is function Create @@ -46,6 +38,11 @@ package FLTK.Images.Shared is end Forge; + + + + -- Copying -- + function Copy (This : in Shared_Image; Width, Height : in Natural) @@ -58,9 +55,7 @@ package FLTK.Images.Shared is - -------------- -- Colors -- - -------------- procedure Color_Average (This : in out Shared_Image; @@ -73,9 +68,7 @@ package FLTK.Images.Shared is - ---------------- -- Activity -- - ---------------- function Number_Of_Images return Natural; @@ -101,9 +94,7 @@ package FLTK.Images.Shared is - --------------- -- Drawing -- - --------------- procedure Set_Scaling_Algorithm (To : in Scaling_Kind); @@ -135,11 +126,9 @@ private pragma Inline (Copy); - pragma Inline (Color_Average); pragma Inline (Desaturate); - pragma Inline (Number_Of_Images); pragma Inline (Name); pragma Inline (Original); @@ -147,7 +136,6 @@ private pragma Inline (Reload); pragma Inline (Uncache); - pragma Inline (Set_Scaling_Algorithm); pragma Inline (Scale); pragma Inline (Draw); @@ -155,3 +143,4 @@ private end FLTK.Images.Shared; + diff --git a/spec/fltk-labels.ads b/spec/fltk-labels.ads index 5e13a2e..e9da5f1 100644 --- a/spec/fltk-labels.ads +++ b/spec/fltk-labels.ads @@ -42,6 +42,8 @@ package FLTK.Labels is + -- Attributes -- + function Get_Value (This : in Label) return String; @@ -109,6 +111,8 @@ package FLTK.Labels is + -- Drawing -- + procedure Draw (This : in out Label; X, Y, W, H : in Integer; diff --git a/spec/fltk-menu_items.ads b/spec/fltk-menu_items.ads index ac80984..ced27ec 100644 --- a/spec/fltk-menu_items.ads +++ b/spec/fltk-menu_items.ads @@ -40,6 +40,8 @@ package FLTK.Menu_Items is + -- Callback -- + function Get_Callback (This : in Menu_Item) return FLTK.Widgets.Widget_Callback; @@ -55,6 +57,8 @@ package FLTK.Menu_Items is + -- Settings -- + function Has_Checkbox (This : in Menu_Item) return Boolean; @@ -87,6 +91,8 @@ package FLTK.Menu_Items is + -- Label -- + function Get_Label (This : in Menu_Item) return String; @@ -135,6 +141,8 @@ package FLTK.Menu_Items is + -- Shortcut and Flags -- + function Get_Shortcut (This : in Menu_Item) return Key_Combo; @@ -154,6 +162,8 @@ package FLTK.Menu_Items is + -- Image -- + function Get_Image (This : in Menu_Item) return access FLTK.Images.Image'Class; @@ -165,6 +175,8 @@ package FLTK.Menu_Items is + -- Activity and Visibility -- + procedure Activate (This : in out Menu_Item); diff --git a/spec/fltk-screen.ads b/spec/fltk-screen.ads index be28134..b7d5521 100644 --- a/spec/fltk-screen.ads +++ b/spec/fltk-screen.ads @@ -7,6 +7,8 @@ package FLTK.Screen is + -- Basic Dimensions -- + function Get_X return Integer; @@ -22,6 +24,8 @@ package FLTK.Screen is + -- Pixel Density -- + function Count return Integer; @@ -33,6 +37,8 @@ package FLTK.Screen is + -- Position Lookup -- + function Containing (X, Y : in Integer) return Integer; @@ -44,6 +50,8 @@ package FLTK.Screen is + -- Bounding Boxes -- + procedure Work_Area (X, Y, W, H : out Integer; Pos_X, Pos_Y : in Integer); @@ -55,9 +63,6 @@ package FLTK.Screen is procedure Work_Area (X, Y, W, H : out Integer); - - - procedure Bounding_Rect (X, Y, W, H : out Integer; Pos_X, Pos_Y : in Integer); @@ -82,11 +87,9 @@ private pragma Inline (Get_W); pragma Inline (Get_H); - pragma Inline (Count); pragma Inline (DPI); - pragma Inline (Containing); pragma Inline (Work_Area); pragma Inline (Bounding_Rect); @@ -94,3 +97,4 @@ private end FLTK.Screen; + diff --git a/spec/fltk-static.ads b/spec/fltk-static.ads index 98f44ba..71d5b3f 100644 --- a/spec/fltk-static.ads +++ b/spec/fltk-static.ads @@ -23,16 +23,12 @@ package FLTK.Static is type Idle_Handler is access procedure; - - type Buffer_Kind is (Selection, Clipboard); type Clipboard_Notify_Handler is access procedure (Kind : in Buffer_Kind); - - type File_Descriptor is new Integer; type File_Mode is (Read, Write, Except); @@ -41,25 +37,23 @@ package FLTK.Static is (FD : in File_Descriptor); - - type Box_Draw_Function is access procedure (X, Y, W, H : in Integer; My_Color : in Color); - - type Option is - (Arrow_Focus, - Visible_Focus, - DND_Text, - Show_Tooltips, - FNFC_Uses_GTK, - Last); + (Arrow_Focus, + Visible_Focus, + DND_Text, + Show_Tooltips, + FNFC_Uses_GTK, + Last); + + -- Interthread Notify -- procedure Add_Awake_Handler (Func : in Awake_Handler); @@ -70,6 +64,8 @@ package FLTK.Static is + -- Pre-Eventloop Callbacks -- + procedure Add_Check (Func : in Timeout_Handler); @@ -83,6 +79,8 @@ package FLTK.Static is + -- Timer Callbacks -- + procedure Add_Timeout (Seconds : in Long_Float; Func : in Timeout_Handler); @@ -101,6 +99,8 @@ package FLTK.Static is + -- Clipboard Callbacks -- + procedure Add_Clipboard_Notify (Func : in Clipboard_Notify_Handler); @@ -110,6 +110,8 @@ package FLTK.Static is + -- File Descriptor Waiting Callbacks -- + procedure Add_File_Descriptor (FD : in File_Descriptor; Func : in File_Handler); @@ -129,6 +131,8 @@ package FLTK.Static is + -- Idle Callbacks -- + procedure Add_Idle (Func : in Idle_Handler); @@ -142,6 +146,8 @@ package FLTK.Static is + -- Custom Colors -- + procedure Get_Color (From : in Color; R, G, B : out Color_Component); @@ -170,6 +176,8 @@ package FLTK.Static is + -- Custom Fonts -- + function Font_Image (Kind : in Font_Kind) return String; @@ -191,6 +199,8 @@ package FLTK.Static is + -- Box_Kind Attributes -- + function Get_Box_Height_Offset (Kind : in Box_Kind) return Integer; @@ -226,6 +236,8 @@ package FLTK.Static is + -- Clipboard / Selection -- + procedure Copy (Text : in String; Dest : in Buffer_Kind); @@ -241,6 +253,8 @@ package FLTK.Static is + -- Dragon Drop -- + procedure Drag_Drop_Start; function Get_Drag_Drop_Text_Support @@ -252,6 +266,8 @@ package FLTK.Static is + -- Input Focus -- + procedure Enable_System_Input; procedure Disable_System_Input; @@ -265,6 +281,8 @@ package FLTK.Static is + -- Windows -- + procedure Default_Window_Close (Item : in out FLTK.Widgets.Widget'Class); @@ -284,6 +302,8 @@ package FLTK.Static is + -- Queue -- + function Read_Queue return access FLTK.Widgets.Widget'Class; @@ -292,6 +312,8 @@ package FLTK.Static is + -- Schemes -- + function Get_Scheme return String; @@ -307,6 +329,8 @@ package FLTK.Static is + -- Library Options -- + function Get_Option (Opt : in Option) return Boolean; @@ -318,6 +342,8 @@ package FLTK.Static is + -- Scrollbars -- + function Get_Default_Scrollbar_Size return Natural; @@ -332,55 +358,41 @@ private (Read => 1, Write => 4, Except => 8); - - pragma Import (C, Own_Colormap, "fl_static_own_colormap"); pragma Import (C, System_Colors, "fl_static_get_system_colors"); - pragma Import (C, Drag_Drop_Start, "fl_static_dnd"); - pragma Import (C, Enable_System_Input, "fl_static_enable_im"); pragma Import (C, Disable_System_Input, "fl_static_disable_im"); - pragma Import (C, Do_Widget_Deletion, "fl_static_do_widget_deletion"); - pragma Import (C, Reload_Scheme, "fl_static_reload_scheme"); - - pragma Inline (Add_Awake_Handler); pragma Inline (Get_Awake_Handler); - pragma Inline (Add_Check); pragma Inline (Has_Check); pragma Inline (Remove_Check); - pragma Inline (Add_Timeout); pragma Inline (Has_Timeout); pragma Inline (Remove_Timeout); pragma Inline (Repeat_Timeout); - pragma Inline (Add_Clipboard_Notify); pragma Inline (Remove_Clipboard_Notify); - pragma Inline (Add_File_Descriptor); pragma Inline (Remove_File_Descriptor); - pragma Inline (Add_Idle); pragma Inline (Has_Idle); pragma Inline (Remove_Idle); - pragma Inline (Get_Color); pragma Inline (Set_Color); pragma Inline (Free_Color); @@ -390,14 +402,12 @@ private pragma Inline (Set_Alt_Background); pragma Inline (System_Colors); - pragma Inline (Font_Image); pragma Inline (Font_Family_Image); pragma Inline (Set_Font_Kind); pragma Inline (Font_Sizes); pragma Inline (Setup_Fonts); - pragma Inline (Get_Box_Height_Offset); pragma Inline (Get_Box_Width_Offset); pragma Inline (Get_Box_X_Offset); @@ -407,47 +417,40 @@ private -- pragma Inline (Get_Box_Draw_Function); -- pragma Inline (Set_Box_Draw_Function); - pragma Inline (Copy); pragma Inline (Paste); pragma Inline (Selection); - pragma Inline (Drag_Drop_Start); pragma Inline (Get_Drag_Drop_Text_Support); pragma Inline (Set_Drag_Drop_Text_Support); - pragma Inline (Enable_System_Input); pragma Inline (Disable_System_Input); pragma Inline (Has_Visible_Focus); pragma Inline (Set_Visible_Focus); - pragma Inline (Default_Window_Close); pragma Inline (Get_First_Window); pragma Inline (Set_First_Window); pragma Inline (Get_Next_Window); pragma Inline (Get_Top_Modal); - pragma Inline (Read_Queue); pragma Inline (Do_Widget_Deletion); - pragma Inline (Get_Scheme); pragma Inline (Set_Scheme); pragma Inline (Is_Scheme); pragma Inline (Reload_Scheme); - pragma Inline (Get_Option); pragma Inline (Set_Option); - pragma Inline (Get_Default_Scrollbar_Size); pragma Inline (Set_Default_Scrollbar_Size); end FLTK.Static; + diff --git a/spec/fltk-text_buffers.ads b/spec/fltk-text_buffers.ads index 53b2692..9430c57 100644 --- a/spec/fltk-text_buffers.ads +++ b/spec/fltk-text_buffers.ads @@ -48,6 +48,8 @@ package FLTK.Text_Buffers is + -- Callbacks -- + procedure Add_Modify_Callback (This : in out Text_Buffer; Func : in Modify_Callback); @@ -79,6 +81,8 @@ package FLTK.Text_Buffers is + -- Files -- + procedure Load_File (This : in out Text_Buffer; Name : in String; @@ -109,6 +113,8 @@ package FLTK.Text_Buffers is + -- Modification -- + procedure Insert_Text (This : in out Text_Buffer; Place : in Position; @@ -163,6 +169,8 @@ package FLTK.Text_Buffers is + -- Measurement -- + function Count_Displayed_Characters (This : in Text_Buffer; Start, Finish : in Position) @@ -188,6 +196,8 @@ package FLTK.Text_Buffers is + -- Selection -- + function Get_Selection (This : in Text_Buffer; Start, Finish : out Position) @@ -245,6 +255,8 @@ package FLTK.Text_Buffers is + -- Highlighting -- + procedure Get_Highlight (This : in Text_Buffer; Start, Finish : out Position); @@ -263,6 +275,8 @@ package FLTK.Text_Buffers is + -- Search -- + function Findchar_Forward (This : in Text_Buffer; Start_At : in Position; @@ -296,6 +310,8 @@ package FLTK.Text_Buffers is + -- Navigation -- + function Word_Start (This : in Text_Buffer; Place : in Position) @@ -344,6 +360,8 @@ package FLTK.Text_Buffers is + -- Miscellaneous -- + procedure Can_Undo (This : in out Text_Buffer; Flag : in Boolean); @@ -371,8 +389,6 @@ private Element_Type => Predelete_Callback); - - type Text_Buffer is new Wrapper with record CB_Active : Boolean := True; @@ -385,8 +401,6 @@ private (This : in out Text_Buffer); - - procedure Modify_Callback_Hook (Pos, Inserted, Deleted, Restyled : in Interfaces.C.int; Text : in Interfaces.C.Strings.chars_ptr; @@ -399,13 +413,9 @@ private pragma Convention (C, Predelete_Callback_Hook); - - package Text_Buffer_Convert is new System.Address_To_Access_Conversions (Text_Buffer); - - pragma Inline (Add_Modify_Callback); pragma Inline (Add_Predelete_Callback); pragma Inline (Remove_Modify_Callback); @@ -415,14 +425,12 @@ private pragma Inline (Enable_Callbacks); pragma Inline (Disable_Callbacks); - pragma Inline (Load_File); pragma Inline (Append_File); pragma Inline (Insert_File); pragma Inline (Output_File); pragma Inline (Save_File); - pragma Inline (Insert_Text); pragma Inline (Append_Text); pragma Inline (Replace_Text); @@ -435,14 +443,12 @@ private pragma Inline (Next_Char); pragma Inline (Prev_Char); - pragma Inline (Count_Displayed_Characters); pragma Inline (Count_Lines); pragma Inline (Length); pragma Inline (Get_Tab_Width); pragma Inline (Set_Tab_Width); - pragma Inline (Get_Selection); pragma Inline (Get_Secondary_Selection); pragma Inline (Set_Selection); @@ -458,19 +464,16 @@ private pragma Inline (Unselect); pragma Inline (Secondary_Unselect); - pragma Inline (Get_Highlight); pragma Inline (Set_Highlight); pragma Inline (Get_Highlighted_Text); pragma Inline (Unhighlight); - pragma Inline (Findchar_Forward); pragma Inline (Findchar_Backward); pragma Inline (Search_Forward); pragma Inline (Search_Backward); - pragma Inline (Word_Start); pragma Inline (Word_End); pragma Inline (Line_Start); @@ -480,7 +483,6 @@ private pragma Inline (Rewind_Lines); pragma Inline (Skip_Displayed_Characters); - pragma Inline (Can_Undo); pragma Inline (Copy); pragma Inline (UTF8_Align); @@ -488,3 +490,4 @@ private end FLTK.Text_Buffers; + diff --git a/spec/fltk-tooltips.ads b/spec/fltk-tooltips.ads index 4162358..46a50d5 100644 --- a/spec/fltk-tooltips.ads +++ b/spec/fltk-tooltips.ads @@ -12,6 +12,8 @@ with package FLTK.Tooltips is + -- Activity -- + function Get_Target return access FLTK.Widgets.Widget'Class; @@ -34,6 +36,8 @@ package FLTK.Tooltips is + -- Delay -- + function Get_Delay return Float; @@ -49,6 +53,8 @@ package FLTK.Tooltips is + -- Color, Margins, Wrap -- + function Get_Background_Color return Color; @@ -76,6 +82,8 @@ package FLTK.Tooltips is + -- Text Settings -- + function Get_Text_Color return Color; diff --git a/spec/fltk-widgets-boxes.ads b/spec/fltk-widgets-boxes.ads index 7e24d5f..d9674e5 100644 --- a/spec/fltk-widgets-boxes.ads +++ b/spec/fltk-widgets-boxes.ads @@ -51,6 +51,8 @@ package FLTK.Widgets.Boxes is + -- Drawing, Events -- + procedure Draw (This : in out Box); diff --git a/spec/fltk-widgets-buttons-enter.ads b/spec/fltk-widgets-buttons-enter.ads index ed5ab83..896df8d 100644 --- a/spec/fltk-widgets-buttons-enter.ads +++ b/spec/fltk-widgets-buttons-enter.ads @@ -41,6 +41,8 @@ package FLTK.Widgets.Buttons.Enter is + -- Drawing, Events -- + procedure Draw (This : in out Enter_Button); diff --git a/spec/fltk-widgets-buttons-light.ads b/spec/fltk-widgets-buttons-light.ads index b1a1cfa..c4761a8 100644 --- a/spec/fltk-widgets-buttons-light.ads +++ b/spec/fltk-widgets-buttons-light.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Buttons.Light is + -- Drawing, Events -- + procedure Draw (This : in out Light_Button); diff --git a/spec/fltk-widgets-buttons-repeat.ads b/spec/fltk-widgets-buttons-repeat.ads index 37380db..451553a 100644 --- a/spec/fltk-widgets-buttons-repeat.ads +++ b/spec/fltk-widgets-buttons-repeat.ads @@ -38,12 +38,16 @@ package FLTK.Widgets.Buttons.Repeat is + -- Activity -- + procedure Deactivate (This : in out Repeat_Button); + -- Events -- + function Handle (This : in out Repeat_Button; Event : in Event_Kind) diff --git a/spec/fltk-widgets-buttons.ads b/spec/fltk-widgets-buttons.ads index c5fb917..bff7c81 100644 --- a/spec/fltk-widgets-buttons.ads +++ b/spec/fltk-widgets-buttons.ads @@ -40,6 +40,8 @@ package FLTK.Widgets.Buttons is + -- State -- + function Is_On (This : in Button) return Boolean; @@ -58,6 +60,8 @@ package FLTK.Widgets.Buttons is + -- Settings -- + function Get_Down_Box (This : in Button) return Box_Kind; @@ -77,6 +81,8 @@ package FLTK.Widgets.Buttons is + -- Drawing, Events -- + procedure Draw (This : in out Button); @@ -88,6 +94,8 @@ package FLTK.Widgets.Buttons is + -- Miscellaneous -- + procedure Simulate_Key_Action (This : in out Button); diff --git a/spec/fltk-widgets-charts.ads b/spec/fltk-widgets-charts.ads index eb8d75b..7df4df1 100644 --- a/spec/fltk-widgets-charts.ads +++ b/spec/fltk-widgets-charts.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Charts is + -- Data -- + procedure Add (This : in out Chart; Data_Value : in Long_Float; @@ -64,6 +66,8 @@ package FLTK.Widgets.Charts is + -- Settings -- + function Will_Autosize (This : in Chart) return Boolean; @@ -95,6 +99,8 @@ package FLTK.Widgets.Charts is + -- Text Settings -- + function Get_Text_Color (This : in Chart) return Color; @@ -122,6 +128,8 @@ package FLTK.Widgets.Charts is + -- Dimensions -- + procedure Resize (This : in out Chart; W, H : in Integer); @@ -129,6 +137,8 @@ package FLTK.Widgets.Charts is + -- Drawing -- + procedure Draw (This : in out Chart); diff --git a/spec/fltk-widgets-clocks-updated.ads b/spec/fltk-widgets-clocks-updated.ads index c0700b2..b3389df 100644 --- a/spec/fltk-widgets-clocks-updated.ads +++ b/spec/fltk-widgets-clocks-updated.ads @@ -51,6 +51,8 @@ package FLTK.Widgets.Clocks.Updated is + -- Events -- + function Handle (This : in out Updated_Clock; Event : in Event_Kind) diff --git a/spec/fltk-widgets-clocks.ads b/spec/fltk-widgets-clocks.ads index d5b3728..c729262 100644 --- a/spec/fltk-widgets-clocks.ads +++ b/spec/fltk-widgets-clocks.ads @@ -44,6 +44,8 @@ package FLTK.Widgets.Clocks is + -- Individual Values -- + function Get_Hour (This : in Clock) return Hour; @@ -59,6 +61,8 @@ package FLTK.Widgets.Clocks is + -- Full Value -- + function Get_Time (This : in Clock) return Time_Value; @@ -76,6 +80,8 @@ package FLTK.Widgets.Clocks is + -- Drawing -- + procedure Draw (This : in out Clock); diff --git a/spec/fltk-widgets-groups-browsers-check.ads b/spec/fltk-widgets-groups-browsers-check.ads index bd70503..46c9108 100644 --- a/spec/fltk-widgets-groups-browsers-check.ads +++ b/spec/fltk-widgets-groups-browsers-check.ads @@ -47,7 +47,7 @@ package FLTK.Widgets.Groups.Browsers.Check is - -- Adding and removing + -- Items -- procedure Add (This : in out Check_Browser; @@ -68,7 +68,7 @@ package FLTK.Widgets.Groups.Browsers.Check is - -- Checking and unchecking + -- Checkmarking -- procedure Check_All (This : in out Check_Browser); @@ -93,7 +93,7 @@ package FLTK.Widgets.Groups.Browsers.Check is - -- Text and selection + -- Text Selection -- -- Don't confuse this with the missing Item_Cursor version function Item_Text @@ -108,6 +108,8 @@ package FLTK.Widgets.Groups.Browsers.Check is + -- Item Implementation -- + -- As mentioned at the start, due to issues with FLTK 1.3 if you override -- these subprograms the behaviour in FLTK will not change. Should be able -- to bind them properly once 1.4 comes around. diff --git a/spec/fltk-widgets-groups-browsers-textline-choice.ads b/spec/fltk-widgets-groups-browsers-textline-choice.ads index b3c404c..dcf3d60 100644 --- a/spec/fltk-widgets-groups-browsers-textline-choice.ads +++ b/spec/fltk-widgets-groups-browsers-textline-choice.ads @@ -4,6 +4,9 @@ -- Released into the public domain +-- Select_Browsers except select is a reserved word + + package FLTK.Widgets.Groups.Browsers.Textline.Choice is @@ -13,6 +16,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.Choice is limited null record with Implicit_Dereference => Data; + + package Forge is function Create diff --git a/spec/fltk-widgets-groups-browsers-textline-file.ads b/spec/fltk-widgets-groups-browsers-textline-file.ads index e679957..d19bd50 100644 --- a/spec/fltk-widgets-groups-browsers-textline-file.ads +++ b/spec/fltk-widgets-groups-browsers-textline-file.ads @@ -55,6 +55,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.File is + -- Directory -- + function Load (This : in out File_Browser; Dir : in String; @@ -71,6 +73,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.File is + -- Settings -- + function Get_File_Kind (This : in File_Browser) return File_Kind; @@ -106,6 +110,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.File is + -- List Implementation -- + function Full_List_Height (This : in File_Browser) return Integer; @@ -117,6 +123,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.File is + -- Item Implementation -- + function Item_Width (This : in File_Browser; Item : in Item_Cursor) diff --git a/spec/fltk-widgets-groups-browsers-textline-hold.ads b/spec/fltk-widgets-groups-browsers-textline-hold.ads index 7de4445..3839dd1 100644 --- a/spec/fltk-widgets-groups-browsers-textline-hold.ads +++ b/spec/fltk-widgets-groups-browsers-textline-hold.ads @@ -13,6 +13,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.Hold is limited null record with Implicit_Dereference => Data; + + package Forge is function Create diff --git a/spec/fltk-widgets-groups-browsers-textline-multi.ads b/spec/fltk-widgets-groups-browsers-textline-multi.ads index f4a7df2..150b5b6 100644 --- a/spec/fltk-widgets-groups-browsers-textline-multi.ads +++ b/spec/fltk-widgets-groups-browsers-textline-multi.ads @@ -13,6 +13,8 @@ package FLTK.Widgets.Groups.Browsers.Textline.Multi is limited null record with Implicit_Dereference => Data; + + package Forge is function Create diff --git a/spec/fltk-widgets-groups-browsers-textline.ads b/spec/fltk-widgets-groups-browsers-textline.ads index 3ef7322..3a66e12 100644 --- a/spec/fltk-widgets-groups-browsers-textline.ads +++ b/spec/fltk-widgets-groups-browsers-textline.ads @@ -51,7 +51,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Directly manipulating lines + -- Lines -- procedure Add (This : in out Textline_Browser; @@ -86,7 +86,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Loading text and text size + -- Text Loading -- procedure Load (This : in out Textline_Browser; @@ -113,7 +113,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Columns and formatting + -- Columns, Formatting -- function Get_Column_Character (This : in Textline_Browser) @@ -143,7 +143,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Line positioning + -- Line Positions -- function Get_Top_Line (This : in Textline_Browser) @@ -169,7 +169,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Line selection + -- Selection -- function Set_Select (This : in out Textline_Browser; @@ -194,7 +194,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Visibility, showing, hiding + -- Visibility -- function Is_Visible (This : in Textline_Browser; @@ -227,7 +227,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Resizing + -- Dimensions -- procedure Resize (This : in out Textline_Browser; @@ -236,7 +236,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Icons for specific lines + -- Icons -- function Has_Icon (This : in Textline_Browser; @@ -260,7 +260,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- List dimensions + -- List Implementation -- function Full_List_Height (This : in Textline_Browser) @@ -273,7 +273,7 @@ package FLTK.Widgets.Groups.Browsers.Textline is - -- Item implementation + -- Item Implementation -- function Item_Width (This : in Textline_Browser; @@ -335,6 +335,8 @@ package FLTK.Widgets.Groups.Browsers.Textline is + -- Line Numbers -- + function Line_Number (This : in Textline_Browser; Item : in Item_Cursor) diff --git a/spec/fltk-widgets-groups-browsers.ads b/spec/fltk-widgets-groups-browsers.ads index d7b0498..c735fa2 100644 --- a/spec/fltk-widgets-groups-browsers.ads +++ b/spec/fltk-widgets-groups-browsers.ads @@ -56,7 +56,7 @@ package FLTK.Widgets.Groups.Browsers is - -- Access to the Browser's self contained scrollbars + -- Attributes -- function H_Bar (This : in out Browser) @@ -69,7 +69,7 @@ package FLTK.Widgets.Groups.Browsers is - -- Item related settings + -- Items -- function Set_Select (This : in out Browser; @@ -135,7 +135,7 @@ package FLTK.Widgets.Groups.Browsers is - -- Scrollbar related settings + -- Scrollbar Settings -- function Get_Scrollbar_Mode (This : in Browser) @@ -178,7 +178,7 @@ package FLTK.Widgets.Groups.Browsers is - -- Text related settings + -- Text Settings -- function Get_Text_Color (This : in Browser) @@ -207,7 +207,7 @@ package FLTK.Widgets.Groups.Browsers is - -- Graphical dimensions and redrawing + -- Dimensions, Redrawing -- procedure Resize (This : in out Browser; @@ -231,6 +231,8 @@ package FLTK.Widgets.Groups.Browsers is + -- Optional Overrides -- + -- You may override these subprograms to change the behaviour of the widget -- even though these are called from within FLTK. @@ -254,6 +256,8 @@ package FLTK.Widgets.Groups.Browsers is + -- Mandatory Overrides -- + -- You MUST override these subprograms if deriving a type from Browser or your -- program will crash, since they are called from within FLTK and do not have -- any implementations given. By default here they will raise an exception. @@ -318,7 +322,7 @@ package FLTK.Widgets.Groups.Browsers is - -- Cache invalidation + -- Cache Invalidation -- procedure New_List (This : in out Browser); @@ -340,20 +344,6 @@ package FLTK.Widgets.Groups.Browsers is A, B : in Item_Cursor); - - - -- You may override these subprograms to change the behaviour of the widget - -- even though these are called from within FLTK. - - procedure Draw - (This : in out Browser); - - function Handle - (This : in out Browser; - Event : in Event_Kind) - return Event_Outcome; - - private @@ -456,9 +446,6 @@ private pragma Inline (Replacing); pragma Inline (Swapping); - pragma Inline (Draw); - pragma Inline (Handle); - end FLTK.Widgets.Groups.Browsers; diff --git a/spec/fltk-widgets-groups-color_choosers.ads b/spec/fltk-widgets-groups-color_choosers.ads index 4307acd..d3b049f 100644 --- a/spec/fltk-widgets-groups-color_choosers.ads +++ b/spec/fltk-widgets-groups-color_choosers.ads @@ -35,6 +35,8 @@ package FLTK.Widgets.Groups.Color_Choosers is + -- RGB Color -- + function Get_Red (This : in Color_Chooser) return Long_Float; @@ -59,6 +61,8 @@ package FLTK.Widgets.Groups.Color_Choosers is + -- HSV Color -- + function Get_Hue (This : in Color_Chooser) return Long_Float; @@ -83,6 +87,8 @@ package FLTK.Widgets.Groups.Color_Choosers is + -- RGB / HSV Conversion -- + procedure HSV_To_RGB (H, S, V : in Long_Float; R, G, B : out Long_Float); @@ -94,6 +100,8 @@ package FLTK.Widgets.Groups.Color_Choosers is + -- Settings -- + function Get_Mode (This : in Color_Chooser) return Color_Mode; diff --git a/spec/fltk-widgets-groups-help_views.ads b/spec/fltk-widgets-groups-help_views.ads index 8cab6a7..d1dc75b 100644 --- a/spec/fltk-widgets-groups-help_views.ads +++ b/spec/fltk-widgets-groups-help_views.ads @@ -53,6 +53,8 @@ package FLTK.Widgets.Groups.Help_Views is + -- Selection -- + procedure Clear_Selection (This : in out Help_View); @@ -62,6 +64,8 @@ package FLTK.Widgets.Groups.Help_Views is + -- Position -- + function Find (This : in Help_View; Item : in String; @@ -91,6 +95,8 @@ package FLTK.Widgets.Groups.Help_Views is + -- Content -- + function Current_Directory (This : in Help_View) return String; @@ -123,6 +129,8 @@ package FLTK.Widgets.Groups.Help_Views is + -- Settings -- + function Get_Scrollbar_Size (This : in Help_View) return Natural; @@ -170,6 +178,8 @@ package FLTK.Widgets.Groups.Help_Views is + -- Drawing, Events -- + procedure Draw (This : in out Help_View); diff --git a/spec/fltk-widgets-groups-input_choices.ads b/spec/fltk-widgets-groups-input_choices.ads index fb092de..5843c44 100644 --- a/spec/fltk-widgets-groups-input_choices.ads +++ b/spec/fltk-widgets-groups-input_choices.ads @@ -40,6 +40,8 @@ package FLTK.Widgets.Groups.Input_Choices is + -- Attributes -- + function Text_Field (This : in out Input_Choice) return FLTK.Widgets.Inputs.Text.Text_Input_Reference; @@ -51,6 +53,8 @@ package FLTK.Widgets.Groups.Input_Choices is + -- Menu Items -- + function Has_Item (This : in Input_Choice; Place : in FLTK.Widgets.Menus.Index) @@ -71,6 +75,8 @@ package FLTK.Widgets.Groups.Input_Choices is + -- Settings -- + function Has_Changed (This : in Input_Choice) return Boolean; @@ -129,6 +135,8 @@ package FLTK.Widgets.Groups.Input_Choices is + -- Dimensions -- + procedure Resize (This : in out Input_Choice; X, Y, W, H : in Integer); diff --git a/spec/fltk-widgets-groups-packed.ads b/spec/fltk-widgets-groups-packed.ads index 60a6c2a..3d55749 100644 --- a/spec/fltk-widgets-groups-packed.ads +++ b/spec/fltk-widgets-groups-packed.ads @@ -35,6 +35,8 @@ package FLTK.Widgets.Groups.Packed is + -- Settings -- + function Get_Spacing (This : in Packed_Group) return Integer; @@ -54,6 +56,8 @@ package FLTK.Widgets.Groups.Packed is + -- Drawing -- + procedure Draw (This : in out Packed_Group); diff --git a/spec/fltk-widgets-groups-scrolls.ads b/spec/fltk-widgets-groups-scrolls.ads index 3acf165..116fe42 100644 --- a/spec/fltk-widgets-groups-scrolls.ads +++ b/spec/fltk-widgets-groups-scrolls.ads @@ -66,6 +66,8 @@ package FLTK.Widgets.Groups.Scrolls is + -- Attributes -- + function H_Bar (This : in out Scroll) return Valuators.Sliders.Scrollbars.Scrollbar_Reference; @@ -77,12 +79,16 @@ package FLTK.Widgets.Groups.Scrolls is + -- Contents -- + procedure Clear (This : in out Scroll); + -- Scrolling -- + procedure Scroll_To (This : in out Scroll; X, Y : in Integer); @@ -100,6 +106,8 @@ package FLTK.Widgets.Groups.Scrolls is + -- Scrollbar Settings -- + function Get_Scrollbar_Size (This : in Scroll) return Integer; @@ -119,6 +127,8 @@ package FLTK.Widgets.Groups.Scrolls is + -- Dimensions -- + procedure Resize (This : in out Scroll; X, Y, W, H : in Integer); @@ -130,6 +140,8 @@ package FLTK.Widgets.Groups.Scrolls is + -- Drawing, Events -- + procedure Bounding_Box (This : in Scroll; X, Y, W, H : out Integer); diff --git a/spec/fltk-widgets-groups-spinners.ads b/spec/fltk-widgets-groups-spinners.ads index 3124dc2..681c4d7 100644 --- a/spec/fltk-widgets-groups-spinners.ads +++ b/spec/fltk-widgets-groups-spinners.ads @@ -40,6 +40,8 @@ package FLTK.Widgets.Groups.Spinners is + -- Settings -- + function Get_Background_Color (This : in Spinner) return Color; @@ -83,6 +85,8 @@ package FLTK.Widgets.Groups.Spinners is + -- Values -- + function Get_Minimum (This : in Spinner) return Long_Float; @@ -126,6 +130,8 @@ package FLTK.Widgets.Groups.Spinners is + -- Formatting -- + function Get_Format (This : in Spinner) return String; @@ -145,6 +151,8 @@ package FLTK.Widgets.Groups.Spinners is + -- Dimensions -- + procedure Resize (This : in out Spinner; X, Y, W, H : in Integer); @@ -152,6 +160,8 @@ package FLTK.Widgets.Groups.Spinners is + -- Events -- + function Handle (This : in out Spinner; Event : in Event_Kind) diff --git a/spec/fltk-widgets-groups-tabbed.ads b/spec/fltk-widgets-groups-tabbed.ads index c056d29..a7b8d26 100644 --- a/spec/fltk-widgets-groups-tabbed.ads +++ b/spec/fltk-widgets-groups-tabbed.ads @@ -33,6 +33,8 @@ package FLTK.Widgets.Groups.Tabbed is + -- Child Area -- + procedure Get_Client_Area (This : in Tabbed_Group; Tab_Height : in Natural; @@ -41,6 +43,8 @@ package FLTK.Widgets.Groups.Tabbed is + -- Operation -- + function Get_Push (This : in Tabbed_Group) return access Widget'Class; @@ -65,6 +69,8 @@ package FLTK.Widgets.Groups.Tabbed is + -- Drawing, Events -- + procedure Draw (This : in out Tabbed_Group); diff --git a/spec/fltk-widgets-groups-tables-row.ads b/spec/fltk-widgets-groups-tables-row.ads index e51068a..84d7191 100644 --- a/spec/fltk-widgets-groups-tables-row.ads +++ b/spec/fltk-widgets-groups-tables-row.ads @@ -37,12 +37,16 @@ package FLTK.Widgets.Groups.Tables.Row is + -- Contents Modification -- + procedure Clear (This : in out Row_Table); + -- Rows -- + function Get_Rows (This : in Row_Table) return Natural; @@ -54,6 +58,8 @@ package FLTK.Widgets.Groups.Tables.Row is + -- Selection -- + function Is_Row_Selected (This : in Row_Table; Row : in Positive) @@ -85,6 +91,8 @@ package FLTK.Widgets.Groups.Tables.Row is + -- Drawing, Events -- + procedure Cell_Dimensions (This : in Row_Table; Context : in Table_Context; diff --git a/spec/fltk-widgets-groups-tables.ads b/spec/fltk-widgets-groups-tables.ads index 5b52623..faabc6d 100644 --- a/spec/fltk-widgets-groups-tables.ads +++ b/spec/fltk-widgets-groups-tables.ads @@ -55,6 +55,8 @@ package FLTK.Widgets.Groups.Tables is + -- Attributes -- + function H_Bar (This : in out Table) return Valuators.Sliders.Scrollbars.Scrollbar_Reference; @@ -70,6 +72,8 @@ package FLTK.Widgets.Groups.Tables is + -- Contents Modification -- + procedure Add (This : in out Table; Item : in out Widget'Class); @@ -94,6 +98,8 @@ package FLTK.Widgets.Groups.Tables is + -- Contents Query -- + function Has_Child (This : in Table; Place : in Index) @@ -130,6 +136,8 @@ package FLTK.Widgets.Groups.Tables is + -- Current -- + procedure Begin_Current (This : in out Table); @@ -139,6 +147,8 @@ package FLTK.Widgets.Groups.Tables is + -- Callbacks -- + procedure Set_Callback (This : in out Table; Func : in Widget_Callback); @@ -172,6 +182,8 @@ package FLTK.Widgets.Groups.Tables is + -- Columns -- + function Column_Headers_Enabled (This : in Table) return Boolean; @@ -250,6 +262,8 @@ package FLTK.Widgets.Groups.Tables is + -- Rows -- + function Row_Headers_Enabled (This : in Table) return Boolean; @@ -336,6 +350,8 @@ package FLTK.Widgets.Groups.Tables is + -- Selection -- + procedure Set_Cursor_Kind (This : in out Table; Kind : in Mouse_Cursor_Kind); @@ -403,6 +419,8 @@ package FLTK.Widgets.Groups.Tables is + -- Dimensions -- + function Get_Scrollbar_Size (This : in Table) return Integer; @@ -434,6 +452,8 @@ package FLTK.Widgets.Groups.Tables is + -- Drawing, Events -- + procedure Draw (This : in out Table); diff --git a/spec/fltk-widgets-groups-text_displays-text_editors.ads b/spec/fltk-widgets-groups-text_displays-text_editors.ads index e6355c7..641395b 100644 --- a/spec/fltk-widgets-groups-text_displays-text_editors.ads +++ b/spec/fltk-widgets-groups-text_displays-text_editors.ads @@ -64,6 +64,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Default Key Function -- + procedure KF_Default (This : in out Text_Editor'Class; Key : in Key_Combo); @@ -71,6 +73,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Operation Key Functions -- + procedure KF_Undo (This : in out Text_Editor'Class); @@ -92,6 +96,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Special Key Functions -- + procedure KF_Backspace (This : in out Text_Editor'Class); @@ -110,6 +116,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Movement Key Functions -- + procedure KF_Home (This : in out Text_Editor'Class); @@ -137,6 +145,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Shift Key Functions -- + procedure KF_Shift_Home (This : in out Text_Editor'Class); @@ -164,6 +174,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Control Key Functions -- + procedure KF_Ctrl_Home (This : in out Text_Editor'Class); @@ -191,6 +203,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Control Shift Key Functions -- + procedure KF_Ctrl_Shift_Home (This : in out Text_Editor'Class); @@ -218,6 +232,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Meta Key Functions -- + procedure KF_Meta_Home (This : in out Text_Editor'Class); @@ -245,6 +261,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Meta Shift Key Functions -- + procedure KF_Meta_Shift_Home (This : in out Text_Editor'Class); @@ -272,6 +290,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Default / Global Key Bindings -- + Default_Key_Bindings : constant Key_Binding_Array := ((Mod_None + Escape_Key, KF_Ignore'Access), (Mod_None + Enter_Key, KF_Enter'Access), @@ -349,6 +369,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Key Binding Modification -- + procedure Add_Key_Binding (This : in out Text_Editor; Key : in Key_Combo; @@ -397,6 +419,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Settings -- + function Get_Insert_Mode (This : in Text_Editor) return Insert_Mode; @@ -405,9 +429,6 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is (This : in out Text_Editor; To : in Insert_Mode); - - - function Get_Tab_Mode (This : in Text_Editor) return Tab_Navigation; @@ -419,6 +440,8 @@ package FLTK.Widgets.Groups.Text_Displays.Text_Editors is + -- Events -- + function Handle (This : in out Text_Editor; Event : in Event_Kind) @@ -541,7 +564,6 @@ private pragma Inline (Get_Insert_Mode); pragma Inline (Set_Insert_Mode); - pragma Inline (Get_Tab_Mode); pragma Inline (Set_Tab_Mode); diff --git a/spec/fltk-widgets-groups-text_displays.ads b/spec/fltk-widgets-groups-text_displays.ads index 7892277..c057ce0 100644 --- a/spec/fltk-widgets-groups-text_displays.ads +++ b/spec/fltk-widgets-groups-text_displays.ads @@ -115,6 +115,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Buffers -- + function Get_Buffer (This : in Text_Display) return FLTK.Text_Buffers.Text_Buffer_Reference; @@ -138,6 +140,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Highlighting -- + procedure Highlight_Data (This : in out Text_Display; Buff : in out FLTK.Text_Buffers.Text_Buffer; @@ -160,6 +164,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Measurement Conversion -- + function Col_To_X (This : in Text_Display; Col_Num : in Integer) @@ -234,6 +240,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Cursors -- + function Get_Cursor_Color (This : in Text_Display) return Color; @@ -255,6 +263,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Text Settings -- + function Get_Text_Color (This : in Text_Display) return Color; @@ -282,6 +292,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Text Insert -- + procedure Insert_Text (This : in out Text_Display; Item : in String); @@ -304,6 +316,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Words -- + function Word_Start (This : in out Text_Display; Pos : in Natural) @@ -323,6 +337,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Wrapping -- + procedure Set_Wrap_Mode (This : in out Text_Display; Mode : in Wrap_Mode; @@ -358,6 +374,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Lines -- + -- Takes into account word wrap function Line_Start (This : in Text_Display; @@ -404,6 +422,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Absolute Lines -- + procedure Redo_Absolute_Top_Line (This : in out Text_Display; Old_First : in Natural); @@ -426,6 +446,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Visible Lines -- + function Has_Empty_Visible_Lines (This : in Text_Display) return Boolean; @@ -442,6 +464,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Line Numbers -- + function Get_Linenumber_Alignment (This : in Text_Display) return Alignment; @@ -501,6 +525,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Text Measurement -- + function Measure_Character (This : in Text_Display; Text : in String; @@ -522,6 +548,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Movement -- + procedure Move_Down (This : in out Text_Display); @@ -553,6 +581,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Scrolling -- + procedure Scroll_To (This : in out Text_Display; Line : in Natural; @@ -589,6 +619,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Shortcuts -- + function Get_Shortcut (This : in Text_Display) return Key_Combo; @@ -600,6 +632,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Dimensions -- + procedure Resize (This : in out Text_Display; X, Y, W, H : in Integer); @@ -607,6 +641,8 @@ package FLTK.Widgets.Groups.Text_Displays is + -- Drawing, Events -- + procedure Clear_Rect (This : in out Text_Display; Style : in Styles.Style_Info; diff --git a/spec/fltk-widgets-groups-tiled.ads b/spec/fltk-widgets-groups-tiled.ads index 9edaf6b..43c7d51 100644 --- a/spec/fltk-widgets-groups-tiled.ads +++ b/spec/fltk-widgets-groups-tiled.ads @@ -33,6 +33,8 @@ package FLTK.Widgets.Groups.Tiled is + -- Dimensions -- + procedure Position (This : in out Tiled_Group; Old_X, Old_Y : in Integer; @@ -45,6 +47,8 @@ package FLTK.Widgets.Groups.Tiled is + -- Events -- + function Handle (This : in out Tiled_Group; Event : in Event_Kind) diff --git a/spec/fltk-widgets-groups-windows-double-cairo.ads b/spec/fltk-widgets-groups-windows-double-cairo.ads index 8073a81..a5430c4 100644 --- a/spec/fltk-widgets-groups-windows-double-cairo.ads +++ b/spec/fltk-widgets-groups-windows-double-cairo.ads @@ -72,6 +72,8 @@ package FLTK.Widgets.Groups.Windows.Double.Cairo is + -- Cairo Callback -- + procedure Set_Cairo_Draw (This : in out Cairo_Window; Func : in Cairo_Callback); @@ -79,6 +81,8 @@ package FLTK.Widgets.Groups.Windows.Double.Cairo is + -- Drawing -- + procedure Draw (This : in out Cairo_Window); diff --git a/spec/fltk-widgets-groups-windows-double-overlay.ads b/spec/fltk-widgets-groups-windows-double-overlay.ads index bd60292..a6d271c 100644 --- a/spec/fltk-widgets-groups-windows-double-overlay.ads +++ b/spec/fltk-widgets-groups-windows-double-overlay.ads @@ -44,6 +44,8 @@ package FLTK.Widgets.Groups.Windows.Double.Overlay is + -- Visibility -- + procedure Show (This : in out Overlay_Window); @@ -59,6 +61,8 @@ package FLTK.Widgets.Groups.Windows.Double.Overlay is + -- Settings -- + function Can_Do_Overlay (This : in Overlay_Window) return Boolean; @@ -70,6 +74,8 @@ package FLTK.Widgets.Groups.Windows.Double.Overlay is + -- Drawing -- + -- You must override this subprogram procedure Draw_Overlay (This : in out Overlay_Window); diff --git a/spec/fltk-widgets-groups-windows-double.ads b/spec/fltk-widgets-groups-windows-double.ads index ed957ac..f9ccf85 100644 --- a/spec/fltk-widgets-groups-windows-double.ads +++ b/spec/fltk-widgets-groups-windows-double.ads @@ -44,6 +44,8 @@ package FLTK.Widgets.Groups.Windows.Double is + -- Visibility -- + procedure Show (This : in out Double_Window); @@ -62,6 +64,8 @@ package FLTK.Widgets.Groups.Windows.Double is + -- Dimensions -- + procedure Resize (This : in out Double_Window; X, Y, W, H : in Integer); diff --git a/spec/fltk-widgets-groups-windows-opengl.ads b/spec/fltk-widgets-groups-windows-opengl.ads index 2ce374d..825df4f 100644 --- a/spec/fltk-widgets-groups-windows-opengl.ads +++ b/spec/fltk-widgets-groups-windows-opengl.ads @@ -69,9 +69,7 @@ package FLTK.Widgets.Groups.Windows.OpenGL is - --------------- - -- Display -- - --------------- + -- Visibility -- procedure Show (This : in out GL_Window); @@ -91,9 +89,7 @@ package FLTK.Widgets.Groups.Windows.OpenGL is - ------------------ -- Dimensions -- - ------------------ function Pixel_H (This : in GL_Window) @@ -114,9 +110,7 @@ package FLTK.Widgets.Groups.Windows.OpenGL is - -------------------- -- OpenGL Modes -- - -------------------- function Get_Mode (This : in GL_Window) @@ -141,9 +135,7 @@ package FLTK.Widgets.Groups.Windows.OpenGL is - ----------------------- -- OpenGL Contexts -- - ----------------------- function Get_Context (This : in GL_Window) @@ -182,9 +174,7 @@ package FLTK.Widgets.Groups.Windows.OpenGL is - ---------------------------------- - -- Drawing and Event Handling -- - ---------------------------------- + -- Drawing, Events -- procedure Ortho (This : in out GL_Window); diff --git a/spec/fltk-widgets-groups-windows-single-menu.ads b/spec/fltk-widgets-groups-windows-single-menu.ads index 7b89f29..c9dd1ea 100644 --- a/spec/fltk-widgets-groups-windows-single-menu.ads +++ b/spec/fltk-widgets-groups-windows-single-menu.ads @@ -44,6 +44,8 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is + -- Visibility -- + procedure Show (This : in out Menu_Window); @@ -59,6 +61,8 @@ package FLTK.Widgets.Groups.Windows.Single.Menu is + -- Overlay -- + function Is_Overlay (This : in Menu_Window) return Boolean; diff --git a/spec/fltk-widgets-groups-windows-single.ads b/spec/fltk-widgets-groups-windows-single.ads index bcc08a8..1517fbf 100644 --- a/spec/fltk-widgets-groups-windows-single.ads +++ b/spec/fltk-widgets-groups-windows-single.ads @@ -44,6 +44,8 @@ package FLTK.Widgets.Groups.Windows.Single is + -- Visibility -- + procedure Show (This : in out Single_Window); @@ -56,6 +58,8 @@ package FLTK.Widgets.Groups.Windows.Single is + -- Current -- + procedure Make_Current (This : in out Single_Window); diff --git a/spec/fltk-widgets-groups-windows.ads b/spec/fltk-widgets-groups-windows.ads index 57b128b..dfa51d6 100644 --- a/spec/fltk-widgets-groups-windows.ads +++ b/spec/fltk-widgets-groups-windows.ads @@ -55,6 +55,8 @@ package FLTK.Widgets.Groups.Windows is + -- Visibility -- + procedure Show (This : in out Window); @@ -83,6 +85,8 @@ package FLTK.Widgets.Groups.Windows is + -- Fullscreen -- + function Is_Fullscreen (This : in Window) return Boolean; @@ -104,6 +108,8 @@ package FLTK.Widgets.Groups.Windows is + -- Icons, Cursors -- + procedure Set_Icon (This : in out Window; Pic : in FLTK.Images.RGB.RGB_Image'Class); @@ -147,6 +153,8 @@ package FLTK.Widgets.Groups.Windows is + -- Settings -- + function Has_Border (This : in Window) return Boolean; @@ -193,6 +201,8 @@ package FLTK.Widgets.Groups.Windows is + -- Labels, Hotspot, Shape -- + function Get_Label (This : in Window) return String; @@ -222,6 +232,8 @@ package FLTK.Widgets.Groups.Windows is + -- Dimensions -- + procedure Set_Size_Range (This : in out Window; Min_W, Min_H : in Integer; @@ -240,9 +252,6 @@ package FLTK.Widgets.Groups.Windows is (This : in out Window; State : in Boolean := True); - - - function Get_X_Root (This : in Window) return Integer; @@ -262,6 +271,8 @@ package FLTK.Widgets.Groups.Windows is + -- Class Info -- + function Get_X_Class (This : in Window) return String; @@ -287,6 +298,8 @@ package FLTK.Widgets.Groups.Windows is + -- Drawing, Events -- + procedure Draw (This : in out Window); @@ -369,7 +382,6 @@ private pragma Inline (Resize); pragma Inline (Is_Position_Forced); pragma Inline (Force_Position); - pragma Inline (Get_X_Root); pragma Inline (Get_Y_Root); pragma Inline (Get_Decorated_W); diff --git a/spec/fltk-widgets-groups-wizards.ads b/spec/fltk-widgets-groups-wizards.ads index 0ec0e39..1d748be 100644 --- a/spec/fltk-widgets-groups-wizards.ads +++ b/spec/fltk-widgets-groups-wizards.ads @@ -33,6 +33,8 @@ package FLTK.Widgets.Groups.Wizards is + -- Navigation -- + procedure Next (This : in out Wizard); @@ -42,6 +44,8 @@ package FLTK.Widgets.Groups.Wizards is + -- Visibility -- + function Get_Visible (This : in Wizard) return access Widget'Class; @@ -53,6 +57,8 @@ package FLTK.Widgets.Groups.Wizards is + -- Drawing -- + procedure Draw (This : in out Wizard); diff --git a/spec/fltk-widgets-groups.ads b/spec/fltk-widgets-groups.ads index 33c0cb3..9532084 100644 --- a/spec/fltk-widgets-groups.ads +++ b/spec/fltk-widgets-groups.ads @@ -53,6 +53,8 @@ package FLTK.Widgets.Groups is + -- Contents Modification -- + procedure Add (This : in out Group; Item : in out Widget'Class); @@ -81,6 +83,8 @@ package FLTK.Widgets.Groups is + -- Contents Query -- + function Has_Child (This : in Group; Place : in Index) @@ -113,6 +117,8 @@ package FLTK.Widgets.Groups is + -- Iteration -- + package Group_Iterators is new Ada.Iterator_Interfaces (Cursor, Has_Child); @@ -123,6 +129,8 @@ package FLTK.Widgets.Groups is + -- Clipping -- + function Get_Clip_Mode (This : in Group) return Clip_Mode; @@ -134,6 +142,8 @@ package FLTK.Widgets.Groups is + -- Dimensions -- + procedure Add_Resizable (This : in out Group; Item : in out Widget'Class); @@ -156,6 +166,8 @@ package FLTK.Widgets.Groups is + -- Current -- + function Get_Current return access Group'Class; @@ -171,6 +183,8 @@ package FLTK.Widgets.Groups is + -- Drawing, Events -- + procedure Draw (This : in out Group); diff --git a/spec/fltk-widgets-inputs-text-file.ads b/spec/fltk-widgets-inputs-text-file.ads index 1f2883b..7bc2564 100644 --- a/spec/fltk-widgets-inputs-text-file.ads +++ b/spec/fltk-widgets-inputs-text-file.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Inputs.Text.File is + -- Settings -- + function Get_Down_Box (This : in File_Input) return Box_Kind; @@ -57,6 +59,8 @@ package FLTK.Widgets.Inputs.Text.File is + -- Text Field -- + function Get_Value (This : in File_Input) return String; @@ -68,6 +72,8 @@ package FLTK.Widgets.Inputs.Text.File is + -- Drawing, Events -- + procedure Draw (This : in out File_Input); diff --git a/spec/fltk-widgets-inputs-text-floating_point.ads b/spec/fltk-widgets-inputs-text-floating_point.ads index db4e0ae..3d24652 100644 --- a/spec/fltk-widgets-inputs-text-floating_point.ads +++ b/spec/fltk-widgets-inputs-text-floating_point.ads @@ -4,6 +4,9 @@ -- Released into the public domain +-- Naming this package Float would have caused ambiguity with the Float type + + limited with FLTK.Widgets.Groups; @@ -38,6 +41,8 @@ package FLTK.Widgets.Inputs.Text.Floating_Point is + -- Text Field -- + function Get_Value (This : in Float_Input) return Long_Float; diff --git a/spec/fltk-widgets-inputs-text-secret.ads b/spec/fltk-widgets-inputs-text-secret.ads index cd98283..aa94b45 100644 --- a/spec/fltk-widgets-inputs-text-secret.ads +++ b/spec/fltk-widgets-inputs-text-secret.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Inputs.Text.Secret is + -- Events -- + function Handle (This : in out Secret_Input; Event : in Event_Kind) diff --git a/spec/fltk-widgets-inputs-text-whole_number.ads b/spec/fltk-widgets-inputs-text-whole_number.ads index 9c13dc6..7ff8514 100644 --- a/spec/fltk-widgets-inputs-text-whole_number.ads +++ b/spec/fltk-widgets-inputs-text-whole_number.ads @@ -4,6 +4,9 @@ -- Released into the public domain +-- Naming this package Integer would have caused ambiguity with the Integer type + + limited with FLTK.Widgets.Groups; @@ -38,6 +41,8 @@ package FLTK.Widgets.Inputs.Text.Whole_Number is + -- Text Field -- + function Get_Value (This : in Integer_Input) return Long_Integer; diff --git a/spec/fltk-widgets-inputs-text.ads b/spec/fltk-widgets-inputs-text.ads index c73e869..64ece1c 100644 --- a/spec/fltk-widgets-inputs-text.ads +++ b/spec/fltk-widgets-inputs-text.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Inputs.Text is + -- Drawing, Events -- + procedure Draw (This : in out Text_Input); diff --git a/spec/fltk-widgets-inputs.ads b/spec/fltk-widgets-inputs.ads index 2518fbb..12fcb77 100644 --- a/spec/fltk-widgets-inputs.ads +++ b/spec/fltk-widgets-inputs.ads @@ -50,6 +50,8 @@ package FLTK.Widgets.Inputs is + -- Clipboard -- + procedure Copy (This : in out Input; Destination : in Clipboard_Kind := Cut_Paste_Board); @@ -101,6 +103,8 @@ package FLTK.Widgets.Inputs is + -- Readonly, Tabs, Wrap -- + function Is_Readonly (This : in Input) return Boolean; @@ -128,6 +132,8 @@ package FLTK.Widgets.Inputs is + -- Shortcut, Input Position -- + function Get_Kind (This : in Input) return Input_Kind; @@ -180,6 +186,8 @@ package FLTK.Widgets.Inputs is + -- Text Field -- + function Index (This : in Input; Place : in Integer) @@ -221,6 +229,8 @@ package FLTK.Widgets.Inputs is + -- Input Size -- + function Get_Maximum_Size (This : in Input) return Natural; @@ -236,6 +246,8 @@ package FLTK.Widgets.Inputs is + -- Cursors, Text Settings -- + function Get_Cursor_Color (This : in Input) return Color; @@ -271,6 +283,8 @@ package FLTK.Widgets.Inputs is + -- Dimensions -- + procedure Resize (This : in out Input; W, H : in Integer); @@ -282,6 +296,8 @@ package FLTK.Widgets.Inputs is + -- Changing Input Type -- + package Extra is procedure Set_Kind diff --git a/spec/fltk-widgets-menus-choices.ads b/spec/fltk-widgets-menus-choices.ads index 7a5c225..cda6b64 100644 --- a/spec/fltk-widgets-menus-choices.ads +++ b/spec/fltk-widgets-menus-choices.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Menus.Choices is + -- Selection -- + function Chosen_Index (This : in Choice) return Extended_Index; @@ -63,6 +65,8 @@ package FLTK.Widgets.Menus.Choices is + -- Drawing, Events -- + procedure Draw (This : in out Choice); diff --git a/spec/fltk-widgets-menus-menu_bars-systemwide.ads b/spec/fltk-widgets-menus-menu_bars-systemwide.ads index 77dba9f..08f97d2 100644 --- a/spec/fltk-widgets-menus-menu_bars-systemwide.ads +++ b/spec/fltk-widgets-menus-menu_bars-systemwide.ads @@ -42,6 +42,8 @@ package FLTK.Widgets.Menus.Menu_Bars.Systemwide is + -- Menu Items -- + procedure Add (This : in out System_Menu_Bar; Text : in String); @@ -133,6 +135,8 @@ package FLTK.Widgets.Menus.Menu_Bars.Systemwide is + -- Item Query -- + function Item (This : in System_Menu_Bar; Place : in Index) @@ -141,6 +145,8 @@ package FLTK.Widgets.Menus.Menu_Bars.Systemwide is + -- Label, Shortcut, Flags -- + procedure Set_Only (This : in out System_Menu_Bar; Item : in out FLTK.Menu_Items.Menu_Item); @@ -168,6 +174,8 @@ package FLTK.Widgets.Menus.Menu_Bars.Systemwide is + -- Global -- + procedure Make_Global (This : in out System_Menu_Bar); @@ -177,6 +185,8 @@ package FLTK.Widgets.Menus.Menu_Bars.Systemwide is + -- Drawing -- + procedure Draw (This : in out System_Menu_Bar); diff --git a/spec/fltk-widgets-menus-menu_bars.ads b/spec/fltk-widgets-menus-menu_bars.ads index fc4b3ce..72c40de 100644 --- a/spec/fltk-widgets-menus-menu_bars.ads +++ b/spec/fltk-widgets-menus-menu_bars.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Menus.Menu_Bars is + -- Drawing, Events -- + procedure Draw (This : in out Menu_Bar); diff --git a/spec/fltk-widgets-menus-menu_buttons.ads b/spec/fltk-widgets-menus-menu_buttons.ads index b265d7c..033e3e5 100644 --- a/spec/fltk-widgets-menus-menu_buttons.ads +++ b/spec/fltk-widgets-menus-menu_buttons.ads @@ -45,6 +45,8 @@ package FLTK.Widgets.Menus.Menu_Buttons is + -- Popup -- + function Get_Popup_Kind (This : in Menu_Button) return Popup_Buttons; @@ -60,6 +62,8 @@ package FLTK.Widgets.Menus.Menu_Buttons is + -- Drawing, Events -- + procedure Draw (This : in out Menu_Button); diff --git a/spec/fltk-widgets-menus.ads b/spec/fltk-widgets-menus.ads index bce29dd..d24ebbe 100644 --- a/spec/fltk-widgets-menus.ads +++ b/spec/fltk-widgets-menus.ads @@ -68,6 +68,8 @@ package FLTK.Widgets.Menus is + -- Menu Items -- + procedure Add (This : in out Menu; Text : in String); @@ -163,6 +165,8 @@ package FLTK.Widgets.Menus is + -- Item Query -- + function Has_Item (This : in Menu; Place : in Index) @@ -224,6 +228,8 @@ package FLTK.Widgets.Menus is + -- Iteration -- + package Menu_Iterators is new Ada.Iterator_Interfaces (Cursor, Has_Item); @@ -234,6 +240,8 @@ package FLTK.Widgets.Menus is + -- Selection -- + function Chosen (This : in Menu) return FLTK.Menu_Items.Menu_Item_Reference; @@ -267,6 +275,8 @@ package FLTK.Widgets.Menus is + -- Label, Shortcut, Flags -- + procedure Set_Only (This : in out Menu; Item : in out FLTK.Menu_Items.Menu_Item); @@ -299,6 +309,8 @@ package FLTK.Widgets.Menus is + -- Text Settings -- + function Get_Text_Color (This : in Menu) return Color; @@ -326,6 +338,8 @@ package FLTK.Widgets.Menus is + -- Miscellaneous -- + function Get_Down_Box (This : in Menu) return Box_Kind; @@ -345,6 +359,8 @@ package FLTK.Widgets.Menus is + -- Menu Item Methods -- + function Popup (This : in Menu; X, Y : in Integer; @@ -380,6 +396,8 @@ package FLTK.Widgets.Menus is + -- Dimensions -- + procedure Resize (This : in out Menu; W, H : in Integer); @@ -387,6 +405,8 @@ package FLTK.Widgets.Menus is + -- Drawing -- + procedure Draw_Item (This : in out Menu; Item : in Index; diff --git a/spec/fltk-widgets-positioners.ads b/spec/fltk-widgets-positioners.ads index 0603239..4e06155 100644 --- a/spec/fltk-widgets-positioners.ads +++ b/spec/fltk-widgets-positioners.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Positioners is + -- Targeting -- + procedure Get_Coords (This : in Positioner; X, Y : out Long_Float); @@ -54,6 +56,8 @@ package FLTK.Widgets.Positioners is + -- X Axis -- + procedure Set_Ecks_Bounds (This : in out Positioner; Low, High : in Long_Float); @@ -94,6 +98,8 @@ package FLTK.Widgets.Positioners is + -- Y Axis -- + procedure Set_Why_Bounds (This : in out Positioner; Low, High : in Long_Float); @@ -134,6 +140,8 @@ package FLTK.Widgets.Positioners is + -- Drawing, Events -- + procedure Draw (This : in out Positioner); diff --git a/spec/fltk-widgets-progress_bars.ads b/spec/fltk-widgets-progress_bars.ads index 01fe674..068f8a7 100644 --- a/spec/fltk-widgets-progress_bars.ads +++ b/spec/fltk-widgets-progress_bars.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Progress_Bars is + -- Values -- + function Get_Minimum (This : in Progress_Bar) return Float; @@ -65,6 +67,8 @@ package FLTK.Widgets.Progress_Bars is + -- Drawing -- + procedure Draw (This : in out Progress_Bar); diff --git a/spec/fltk-widgets-valuators-adjusters.ads b/spec/fltk-widgets-valuators-adjusters.ads index c980d53..fb8fc9f 100644 --- a/spec/fltk-widgets-valuators-adjusters.ads +++ b/spec/fltk-widgets-valuators-adjusters.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators.Adjusters is + -- Allow Outside Range -- + function Is_Soft (This : in Adjuster) return Boolean; @@ -49,6 +51,8 @@ package FLTK.Widgets.Valuators.Adjusters is + -- Drawing, Events -- + procedure Value_Damage (This : in out Adjuster); diff --git a/spec/fltk-widgets-valuators-counters.ads b/spec/fltk-widgets-valuators-counters.ads index fd3cea8..0bea0a6 100644 --- a/spec/fltk-widgets-valuators-counters.ads +++ b/spec/fltk-widgets-valuators-counters.ads @@ -40,6 +40,8 @@ package FLTK.Widgets.Valuators.Counters is + -- Button Steps -- + function Get_Step (This : in Counter) return Long_Float; @@ -63,6 +65,8 @@ package FLTK.Widgets.Valuators.Counters is + -- Text Settings -- + function Get_Text_Color (This : in Counter) return Color; @@ -90,6 +94,8 @@ package FLTK.Widgets.Valuators.Counters is + -- Drawing, Events -- + procedure Draw (This : in out Counter); @@ -101,6 +107,8 @@ package FLTK.Widgets.Valuators.Counters is + -- Counter Type -- + function Get_Kind (This : in out Counter) return Counter_Kind; diff --git a/spec/fltk-widgets-valuators-dials.ads b/spec/fltk-widgets-valuators-dials.ads index 036c6f1..ff16ea6 100644 --- a/spec/fltk-widgets-valuators-dials.ads +++ b/spec/fltk-widgets-valuators-dials.ads @@ -40,6 +40,8 @@ package FLTK.Widgets.Valuators.Dials is + -- Limit Angles -- + function Get_First_Angle (This : in Dial) return Short_Integer; @@ -63,6 +65,8 @@ package FLTK.Widgets.Valuators.Dials is + -- Drawing, Events -- + procedure Draw (This : in out Dial); @@ -84,6 +88,8 @@ package FLTK.Widgets.Valuators.Dials is + -- Dial Type -- + function Get_Kind (This : in Dial) return Dial_Kind; diff --git a/spec/fltk-widgets-valuators-rollers.ads b/spec/fltk-widgets-valuators-rollers.ads index 7a5effc..782fefc 100644 --- a/spec/fltk-widgets-valuators-rollers.ads +++ b/spec/fltk-widgets-valuators-rollers.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators.Rollers is + -- Drawing, Events -- + procedure Draw (This : in out Roller); diff --git a/spec/fltk-widgets-valuators-sliders-scrollbars.ads b/spec/fltk-widgets-valuators-sliders-scrollbars.ads index 79b4c69..5ab2a54 100644 --- a/spec/fltk-widgets-valuators-sliders-scrollbars.ads +++ b/spec/fltk-widgets-valuators-sliders-scrollbars.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators.Sliders.Scrollbars is + -- Line Position -- + function Get_Line_Size (This : in Scrollbar) return Natural; @@ -64,6 +66,8 @@ package FLTK.Widgets.Valuators.Sliders.Scrollbars is + -- Drawing, Events -- + procedure Draw (This : in out Scrollbar); diff --git a/spec/fltk-widgets-valuators-sliders-value.ads b/spec/fltk-widgets-valuators-sliders-value.ads index f9f849f..a68c404 100644 --- a/spec/fltk-widgets-valuators-sliders-value.ads +++ b/spec/fltk-widgets-valuators-sliders-value.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators.Sliders.Value is + -- Text Settings -- + function Get_Text_Color (This : in Value_Slider) return Color; @@ -65,6 +67,8 @@ package FLTK.Widgets.Valuators.Sliders.Value is + -- Drawing, Events -- + procedure Draw (This : in out Value_Slider); diff --git a/spec/fltk-widgets-valuators-sliders.ads b/spec/fltk-widgets-valuators-sliders.ads index 786a9f5..9f4b7db 100644 --- a/spec/fltk-widgets-valuators-sliders.ads +++ b/spec/fltk-widgets-valuators-sliders.ads @@ -56,6 +56,8 @@ package FLTK.Widgets.Valuators.Sliders is + -- Settings -- + procedure Set_Bounds (This : in out Slider; Min, Max : in Long_Float); @@ -86,6 +88,8 @@ package FLTK.Widgets.Valuators.Sliders is + -- Drawing, Events -- + procedure Draw (This : in out Slider); @@ -107,6 +111,8 @@ package FLTK.Widgets.Valuators.Sliders is + -- Slider Type -- + function Get_Kind (This : in Slider) return Slider_Kind; diff --git a/spec/fltk-widgets-valuators-value_inputs.ads b/spec/fltk-widgets-valuators-value_inputs.ads index 7392e78..ba1d66f 100644 --- a/spec/fltk-widgets-valuators-value_inputs.ads +++ b/spec/fltk-widgets-valuators-value_inputs.ads @@ -42,6 +42,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Attributes -- + function Text_Field (This : in out Value_Input) return FLTK.Widgets.Inputs.Text.Text_Input_Reference; @@ -49,6 +51,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Cursors -- + function Get_Cursor_Color (This : in Value_Input) return Color; @@ -60,6 +64,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Shortcut -- + function Get_Shortcut (This : in Value_Input) return Key_Combo; @@ -71,6 +77,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Allow Outside Range -- + function Is_Soft (This : in Value_Input) return Boolean; @@ -82,6 +90,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Text Settings -- + function Get_Text_Color (This : in Value_Input) return Color; @@ -109,6 +119,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Dimensions -- + procedure Resize (This : in out Value_Input; X, Y, W, H : in Integer); @@ -116,6 +128,8 @@ package FLTK.Widgets.Valuators.Value_Inputs is + -- Drawing, Events -- + procedure Draw (This : in out Value_Input); diff --git a/spec/fltk-widgets-valuators-value_outputs.ads b/spec/fltk-widgets-valuators-value_outputs.ads index a8447a7..09c1da5 100644 --- a/spec/fltk-widgets-valuators-value_outputs.ads +++ b/spec/fltk-widgets-valuators-value_outputs.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators.Value_Outputs is + -- Allow Outside Range -- + function Is_Soft (This : in Value_Output) return Boolean; @@ -49,6 +51,8 @@ package FLTK.Widgets.Valuators.Value_Outputs is + -- Text Settings -- + function Get_Text_Color (This : in Value_Output) return Color; @@ -76,6 +80,8 @@ package FLTK.Widgets.Valuators.Value_Outputs is + -- Drawing, Events -- + procedure Draw (This : in out Value_Output); diff --git a/spec/fltk-widgets-valuators.ads b/spec/fltk-widgets-valuators.ads index 1e60f4b..e8180d6 100644 --- a/spec/fltk-widgets-valuators.ads +++ b/spec/fltk-widgets-valuators.ads @@ -38,6 +38,8 @@ package FLTK.Widgets.Valuators is + -- Formatting -- + -- You may override this to change the formatting of the Valuator function Format (This : in Valuator) @@ -46,6 +48,8 @@ package FLTK.Widgets.Valuators is + -- Calculation -- + function Clamp (This : in Valuator; Input : in Long_Float) @@ -65,6 +69,8 @@ package FLTK.Widgets.Valuators is + -- Settings, Value -- + function Get_Minimum (This : in Valuator) return Long_Float; @@ -121,6 +127,8 @@ package FLTK.Widgets.Valuators is + -- Drawing -- + procedure Value_Damage (This : in out Valuator); diff --git a/spec/fltk-widgets.ads b/spec/fltk-widgets.ads index 06d6ebb..144e1f7 100644 --- a/spec/fltk-widgets.ads +++ b/spec/fltk-widgets.ads @@ -92,6 +92,8 @@ package FLTK.Widgets is + -- Activity -- + procedure Activate (This : in out Widget); @@ -119,6 +121,8 @@ package FLTK.Widgets is + -- Changed and Output -- + function Has_Changed (This : in Widget) return Boolean; @@ -150,6 +154,8 @@ package FLTK.Widgets is + -- Visibility -- + function Is_Visible (This : in Widget) return Boolean; @@ -177,6 +183,8 @@ package FLTK.Widgets is + -- Focus -- + function Has_Visible_Focus (This : in Widget) return Boolean; @@ -202,6 +210,8 @@ package FLTK.Widgets is + -- Colors -- + function Get_Background_Color (This : in Widget) return Color; @@ -225,6 +235,8 @@ package FLTK.Widgets is + -- Relatives -- + function Parent (This : in Widget) return access FLTK.Widgets.Groups.Group'Class; @@ -255,6 +267,8 @@ package FLTK.Widgets is + -- Alignment, Box, Tooltip -- + function Get_Alignment (This : in Widget) return Alignment; @@ -282,6 +296,8 @@ package FLTK.Widgets is + -- Labels -- + function Get_Label (This : in Widget) return String; @@ -334,6 +350,8 @@ package FLTK.Widgets is + -- Callbacks -- + function Get_Callback (This : in Widget) return Widget_Callback; @@ -363,6 +381,8 @@ package FLTK.Widgets is + -- Dimensions -- + function Get_X (This : in Widget) return Integer; @@ -394,6 +414,8 @@ package FLTK.Widgets is + -- Images -- + function Get_Image (This : in Widget) return access FLTK.Images.Image'Class; @@ -413,6 +435,8 @@ package FLTK.Widgets is + -- Damage, Drawing, Events -- + function Is_Damaged (This : in Widget) return Boolean; @@ -488,6 +512,8 @@ package FLTK.Widgets is + -- Miscellaneous -- + -- Only relevant to MacOS function Uses_Accents_Menu (This : in Widget) diff --git a/spec/fltk.ads b/spec/fltk.ads index f341ac2..8129281 100644 --- a/spec/fltk.ads +++ b/spec/fltk.ads @@ -36,6 +36,8 @@ package FLTK is + -- Color -- + -- Values scale from A/Black to X/White type Greyscale is new Character range 'A' .. 'X'; @@ -97,6 +99,8 @@ package FLTK is + -- Alignment -- + -- This should be a bitmask, except there are magic values... type Alignment is private; @@ -131,6 +135,8 @@ package FLTK is + -- Mouse Cursors -- + type Mouse_Cursor_Kind is (Default_Mouse, Arrow_Mouse, @@ -158,9 +164,13 @@ package FLTK is + -- Keyboard and Mouse Input -- + type Keypress is private; subtype Pressable_Key is Character range Character'Val (32) .. Character'Val (126); + function Press (Key : in Pressable_Key) return Keypress; + Enter_Key : constant Keypress; Keypad_Enter_Key : constant Keypress; Backspace_Key : constant Keypress; @@ -177,20 +187,27 @@ package FLTK is Escape_Key : constant Keypress; Tab_Key : constant Keypress; + type Mouse_Button is (No_Button, Left_Button, Middle_Button, Right_Button); + type Key_Combo is private; + function Press (Key : in Pressable_Key) return Key_Combo; function Press (Key : in Keypress) return Key_Combo; function Press (Key : in Mouse_Button) return Key_Combo; + No_Key : constant Key_Combo; + type Modifier is private; + function "+" (Left, Right : in Modifier) return Modifier; function "+" (Left : in Modifier; Right : in Pressable_Key) return Key_Combo; function "+" (Left : in Modifier; Right : in Keypress) return Key_Combo; function "+" (Left : in Modifier; Right : in Mouse_Button) return Key_Combo; function "+" (Left : in Modifier; Right : in Key_Combo) return Key_Combo; + Mod_None : constant Modifier; Mod_Shift : constant Modifier; Mod_Caps_Lock : constant Modifier; @@ -204,86 +221,90 @@ package FLTK is - type Box_Kind is - (No_Box, - Flat_Box, - Up_Box, - Down_Box, - Up_Frame, - Down_Frame, - Thin_Up_Box, - Thin_Down_Box, - Thin_Up_Frame, - Thin_Down_Frame, - Engraved_Box, - Embossed_Box, - Engraved_Frame, - Embossed_Frame, - Border_Box, - Shadow_Box, - Border_Frame, - Shadow_Frame, - Rounded_Box, - RShadow_Box, - Rounded_Frame, - RFlat_Box, - Round_Up_Box, - Round_Down_Box, - Diamond_Up_Box, - Diamond_Down_Box, - Oval_Box, - OShadow_Box, - Oval_Frame, - OFlat_Box, - Plastic_Up_Box, - Plastic_Down_Box, - Plastic_Up_Frame, - Plastic_Down_Frame, - Plastic_Thin_Up_Box, - Plastic_Thin_Down_Box, - Plastic_Round_Up_Box, - Plastic_Round_Down_Box, - Gtk_Up_Box, - Gtk_Down_Box, - Gtk_Up_Frame, - Gtk_Down_Frame, - Gtk_Thin_Up_Box, - Gtk_Thin_Down_Box, - Gtk_Thin_Up_Frame, - Gtk_Thin_Down_Frame, - Gtk_Round_Up_Box, - Gtk_Round_Down_Box, - Gleam_Up_Box, - Gleam_Down_Box, - Gleam_Up_Frame, - Gleam_Down_Frame, - Gleam_Thin_Up_Box, - Gleam_Thin_Down_Box, - Gleam_Round_Up_Box, - Gleam_Round_Down_Box, - Free_Box); - - + -- Box Types -- + type Box_Kind is + (No_Box, + Flat_Box, + Up_Box, + Down_Box, + Up_Frame, + Down_Frame, + Thin_Up_Box, + Thin_Down_Box, + Thin_Up_Frame, + Thin_Down_Frame, + Engraved_Box, + Embossed_Box, + Engraved_Frame, + Embossed_Frame, + Border_Box, + Shadow_Box, + Border_Frame, + Shadow_Frame, + Rounded_Box, + RShadow_Box, + Rounded_Frame, + RFlat_Box, + Round_Up_Box, + Round_Down_Box, + Diamond_Up_Box, + Diamond_Down_Box, + Oval_Box, + OShadow_Box, + Oval_Frame, + OFlat_Box, + Plastic_Up_Box, + Plastic_Down_Box, + Plastic_Up_Frame, + Plastic_Down_Frame, + Plastic_Thin_Up_Box, + Plastic_Thin_Down_Box, + Plastic_Round_Up_Box, + Plastic_Round_Down_Box, + Gtk_Up_Box, + Gtk_Down_Box, + Gtk_Up_Frame, + Gtk_Down_Frame, + Gtk_Thin_Up_Box, + Gtk_Thin_Down_Box, + Gtk_Thin_Up_Frame, + Gtk_Thin_Down_Frame, + Gtk_Round_Up_Box, + Gtk_Round_Down_Box, + Gleam_Up_Box, + Gleam_Down_Box, + Gleam_Up_Frame, + Gleam_Down_Frame, + Gleam_Thin_Up_Box, + Gleam_Thin_Down_Box, + Gleam_Round_Up_Box, + Gleam_Round_Down_Box, + Free_Box); + + + + + -- Fonts -- type Font_Kind is - (Helvetica, - Helvetica_Bold, - Helvetica_Italic, - Helvetica_Bold_Italic, - Courier, - Courier_Bold, - Courier_Italic, - Courier_Bold_Italic, - Times, - Times_Bold, - Times_Italic, - Times_Bold_Italic, - Symbol, - Monospace, - Monospace_Bold, - Zapf_Dingbats, - Free_Font); + (Helvetica, + Helvetica_Bold, + Helvetica_Italic, + Helvetica_Bold_Italic, + Courier, + Courier_Bold, + Courier_Italic, + Courier_Bold_Italic, + Times, + Times_Bold, + Times_Italic, + Times_Bold_Italic, + Symbol, + Monospace, + Monospace_Bold, + Zapf_Dingbats, + Free_Font); type Font_Size is new Natural; Normal_Size : constant Font_Size := 14; @@ -293,55 +314,63 @@ package FLTK is + -- Label Types -- + type Label_Kind is - (Normal_Label, - No_Label, - Shadow_Label, - Engraved_Label, - Embossed_Label, - Multi_Label, - Icon_Label, - Image_Label, - Free_Label); + (Normal_Label, + No_Label, + Shadow_Label, + Engraved_Label, + Embossed_Label, + Multi_Label, + Icon_Label, + Image_Label, + Free_Label); + -- Events -- + type Event_Kind is - (No_Event, - Push, - Release, - Enter, - Leave, - Drag, - Focus, - Unfocus, - Keydown, - Keyup, - Close, - Move, - Shortcut, - Deactivate, - Activate, - Hide, - Show, - Paste, - Selection_Clear, - Mouse_Wheel, - DnD_Enter, - DnD_Drag, - DnD_Leave, - DnD_Release, - Screen_Config_Changed, - Fullscreen); + (No_Event, + Push, + Release, + Enter, + Leave, + Drag, + Focus, + Unfocus, + Keydown, + Keyup, + Close, + Move, + Shortcut, + Deactivate, + Activate, + Hide, + Show, + Paste, + Selection_Clear, + Mouse_Wheel, + DnD_Enter, + DnD_Drag, + DnD_Leave, + DnD_Release, + Screen_Config_Changed, + Fullscreen); type Event_Outcome is (Not_Handled, Handled); + -- Menu Flags -- + type Menu_Flag is private; + function "+" (Left, Right : in Menu_Flag) return Menu_Flag; + Flag_Normal : constant Menu_Flag; Flag_Inactive : constant Menu_Flag; Flag_Toggle : constant Menu_Flag; @@ -354,10 +383,9 @@ package FLTK is - type Version_Number is new Natural; - - + -- Versioning -- + type Version_Number is new Natural; function ABI_Check (ABI_Ver : in Version_Number) @@ -375,6 +403,8 @@ package FLTK is + -- Threads -- + procedure Awake; procedure Lock; @@ -384,6 +414,9 @@ package FLTK is + -- Drawing -- + + -- Need to check/revise these damage bits... function Is_Damaged return Boolean; @@ -397,6 +430,8 @@ package FLTK is + -- Event Loop -- + function Check return Boolean; @@ -451,9 +486,6 @@ private Needs_Dealloc : Boolean := True; end record; - overriding procedure Initialize - (This : in out Wrapper); - @@ -501,39 +533,39 @@ private -- What delightful magic numbers FLTK cursors are! -- (These correspond to the enum found in Enumerations.H) Cursor_Values : array (Mouse_Cursor_Kind) of Interfaces.C.int := - (Default_Mouse => 0, - Arrow_Mouse => 35, - Crosshair_Mouse => 66, - Wait_Mouse => 76, - Insert_Mouse => 77, - Hand_Mouse => 31, - Help_Mouse => 47, - Move_Mouse => 27, - NS_Mouse => 78, - WE_Mouse => 79, - NWSE_Mouse => 80, - NESW_Mouse => 81, - N_Mouse => 70, - NE_Mouse => 69, - E_Mouse => 49, - SE_Mouse => 8, - S_Mouse => 9, - SW_Mouse => 7, - W_Mouse => 36, - NW_Mouse => 68, - None_Mouse => 255); + (Default_Mouse => 0, + Arrow_Mouse => 35, + Crosshair_Mouse => 66, + Wait_Mouse => 76, + Insert_Mouse => 77, + Hand_Mouse => 31, + Help_Mouse => 47, + Move_Mouse => 27, + NS_Mouse => 78, + WE_Mouse => 79, + NWSE_Mouse => 80, + NESW_Mouse => 81, + N_Mouse => 70, + NE_Mouse => 69, + E_Mouse => 49, + SE_Mouse => 8, + S_Mouse => 9, + SW_Mouse => 7, + W_Mouse => 36, + NW_Mouse => 68, + None_Mouse => 255); type Keypress is new Interfaces.Unsigned_16; type Modifier is new Interfaces.Unsigned_16; - type Key_Combo is - record - Modcode : Modifier; - Keycode : Keypress; - Mousecode : Mouse_Button; - end record; + + type Key_Combo is record + Modcode : Modifier; + Keycode : Keypress; + Mousecode : Mouse_Button; + end record; function To_C (Key : in Key_Combo) @@ -604,6 +636,7 @@ private type Menu_Flag is new Interfaces.Unsigned_8; + Flag_Normal : constant Menu_Flag := 2#00000000#; Flag_Inactive : constant Menu_Flag := 2#00000001#; Flag_Toggle : constant Menu_Flag := 2#00000010#; @@ -621,7 +654,6 @@ private pragma Import (C, Lock, "fl_lock"); pragma Import (C, Unlock, "fl_unlock"); - pragma Import (C, Flush, "fl_flush"); pragma Import (C, Redraw, "fl_redraw"); |