diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-11-25 16:17:52 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-11-25 16:17:52 +1300 |
| commit | edbb0173d98b170ef75eda0149a132b9836e239d (patch) | |
| tree | 359e2dcc600cf106c74baced1a961f827d50624e | |
| parent | b2f485d9dfe25c2006fe2a1ace9a7ed1a9a9162f (diff) | |
Package renames for avoiding name clashes and abbreviations
| -rw-r--r-- | doc/fl_ask.html (renamed from doc/common_dialogs.html) | 6 | ||||
| -rw-r--r-- | doc/fl_float_input.html | 4 | ||||
| -rw-r--r-- | doc/fl_hor_fill_slider.html | 12 | ||||
| -rw-r--r-- | doc/fl_hor_nice_slider.html | 12 | ||||
| -rw-r--r-- | doc/fl_int_input.html | 4 | ||||
| -rw-r--r-- | doc/index.html | 12 | ||||
| -rw-r--r-- | src/fltk-asks.adb (renamed from src/fltk-dialogs.adb) | 4 | ||||
| -rw-r--r-- | src/fltk-asks.ads (renamed from src/fltk-dialogs.ads) | 4 | ||||
| -rw-r--r-- | src/fltk-widgets-inputs-floating_point.adb (renamed from src/fltk-widgets-inputs-float.adb) | 8 | ||||
| -rw-r--r-- | src/fltk-widgets-inputs-floating_point.ads (renamed from src/fltk-widgets-inputs-float.ads) | 6 | ||||
| -rw-r--r-- | src/fltk-widgets-inputs-whole_number.adb (renamed from src/fltk-widgets-inputs-integer.adb) | 8 | ||||
| -rw-r--r-- | src/fltk-widgets-inputs-whole_number.ads (renamed from src/fltk-widgets-inputs-integer.ads) | 6 | ||||
| -rw-r--r-- | src/fltk-widgets-valuators-sliders-horizontal_fill.adb (renamed from src/fltk-widgets-valuators-sliders-hor_fill.adb) | 18 | ||||
| -rw-r--r-- | src/fltk-widgets-valuators-sliders-horizontal_fill.ads (renamed from src/fltk-widgets-valuators-sliders-hor_fill.ads) | 22 | ||||
| -rw-r--r-- | src/fltk-widgets-valuators-sliders-horizontal_nice.adb (renamed from src/fltk-widgets-valuators-sliders-hor_nice.adb) | 18 | ||||
| -rw-r--r-- | src/fltk-widgets-valuators-sliders-horizontal_nice.ads (renamed from src/fltk-widgets-valuators-sliders-hor_nice.ads) | 22 |
16 files changed, 83 insertions, 83 deletions
diff --git a/doc/common_dialogs.html b/doc/fl_ask.html index a35be43..4008514 100644 --- a/doc/common_dialogs.html +++ b/doc/fl_ask.html @@ -4,14 +4,14 @@ <html lang="en"> <head> <meta charset="utf-8"> - <title>Common Dialogs Binding Map</title> + <title>Fl_Ask Binding Map</title> <link href="map.css" rel="stylesheet"> </head> <body> -<h2>Common Dialogs Binding Map</h2> +<h2>Fl_Ask Binding Map</h2> <a href="index.html">Back to Index</a> @@ -22,7 +22,7 @@ <tr> <td>Fl_Ask</td> - <td>FLTK.Dialogs</td> + <td>FLTK.Asks</td> </tr> </table> diff --git a/doc/fl_float_input.html b/doc/fl_float_input.html index 21189e9..c03dec4 100644 --- a/doc/fl_float_input.html +++ b/doc/fl_float_input.html @@ -22,7 +22,7 @@ <tr> <td>Fl_Float_Input</td> - <td>FLTK.Widgets.Inputs.Float</td> + <td>FLTK.Widgets.Inputs.Floating_Point</td> </tr> </table> @@ -74,7 +74,7 @@ procedure Draw <td><pre> function Get_Value (This : in Float_Input) - return Standard.Float; + return Long_Float; </pre></td> </tr> diff --git a/doc/fl_hor_fill_slider.html b/doc/fl_hor_fill_slider.html index da8cba1..9805de5 100644 --- a/doc/fl_hor_fill_slider.html +++ b/doc/fl_hor_fill_slider.html @@ -22,7 +22,7 @@ <tr> <td>Fl_Hor_Fill_Slider</td> - <td>FLTK.Widgets.Valuators.Sliders.Hor_Fill</td> + <td>FLTK.Widgets.Valuators.Sliders.Horizontal_Fill</td> </tr> </table> @@ -34,12 +34,12 @@ <tr> <td>Fl_Hor_Fill_Slider</td> - <td>Hor_Fill_Slider</td> + <td>Horizontal_Fill_Slider</td> </tr> <tr> <td> </td> - <td>Hor_Fill_Slider_Reference</td> + <td>Horizontal_Fill_Slider_Reference</td> </tr> </table> @@ -57,7 +57,7 @@ Fl_Hor_Fill_Slider(int X, int Y, int W, int H, const char *L=0); function Create (X, Y, W, H : in Integer; Text : in String) - return Hor_Fill_Slider; + return Horizontal_Fill_Slider; </pre></td> </tr> @@ -65,7 +65,7 @@ function Create <td> </td> <td><pre> procedure Draw - (This : in out Hor_Fill_Slider); + (This : in out Horizontal_Fill_Slider); </pre></td> </tr> @@ -73,7 +73,7 @@ procedure Draw <td> </td> <td><pre> function Handle - (This : in out Hor_Fill_Slider; + (This : in out Horizontal_Fill_Slider; Event : in Event_Kind) return Event_Outcome; </pre></td> diff --git a/doc/fl_hor_nice_slider.html b/doc/fl_hor_nice_slider.html index aa597be..5cbc4e0 100644 --- a/doc/fl_hor_nice_slider.html +++ b/doc/fl_hor_nice_slider.html @@ -22,7 +22,7 @@ <tr> <td>Fl_Hor_Nice_Slider</td> - <td>FLTK.Widgets.Valuators.Sliders.Hor_Nice</td> + <td>FLTK.Widgets.Valuators.Sliders.Horizontal_Nice</td> </tr> </table> @@ -34,12 +34,12 @@ <tr> <td>Fl_Hor_Nice_Slider</td> - <td>Hor_Nice_Slider</td> + <td>Horizontal_Nice_Slider</td> </tr> <tr> <td> </td> - <td>Hor_Nice_Slider_Reference</td> + <td>Horizontal_Nice_Slider_Reference</td> </tr> </table> @@ -57,7 +57,7 @@ Fl_Hor_Nice_Slider(int X, int Y, int W, int H, const char *L=0); function Create (X, Y, W, H : in Integer; Text : in String) - return Hor_Nice_Slider; + return Horizontal_Nice_Slider; </pre></td> </tr> @@ -65,7 +65,7 @@ function Create <td> </td> <td><pre> procedure Draw - (This : in out Hor_Nice_Slider); + (This : in out Horizontal_Nice_Slider); </pre></td> </tr> @@ -73,7 +73,7 @@ procedure Draw <td> </td> <td><pre> function Handle - (This : in out Hor_Nice_Slider; + (This : in out Horizontal_Nice_Slider; Event : in Event_Kind) return Event_Outcome; </pre></td> diff --git a/doc/fl_int_input.html b/doc/fl_int_input.html index 841d818..a900620 100644 --- a/doc/fl_int_input.html +++ b/doc/fl_int_input.html @@ -22,7 +22,7 @@ <tr> <td>Fl_Int_Input</td> - <td>FLTK.Widgets.Inputs.Integer</td> + <td>FLTK.Widgets.Inputs.Whole_Number</td> </tr> </table> @@ -74,7 +74,7 @@ procedure Draw <td><pre> function Get_Value (This : in Integer_Input) - return Standard.Integer; + return Long_Integer; </pre></td> </tr> diff --git a/doc/index.html b/doc/index.html index 49e17b1..335bd70 100644 --- a/doc/index.html +++ b/doc/index.html @@ -20,7 +20,7 @@ <li><a href="fl.html">Enumerations</a></li> <li><a href="fl.html">Fl</a></li> <li><a href="fl_adjuster.html">Fl_Adjuster</a></li> - <li><a href="common_dialogs.html">Fl_Ask</a></li> + <li><a href="fl_ask.html">Fl_Ask</a></li> <li><a href="fl_bitmap.html">Fl_Bitmap</a></li> <li><a href="fl_bmp_image.html">Fl_BMP_Image</a></li> <li><a href="fl_box.html">Fl_Box</a></li> @@ -136,6 +136,7 @@ <ul> <li><a href="fl.html">FLTK</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> <li><a href="fl_surface_device.html">FLTK.Devices.Surfaces</a></li> @@ -143,7 +144,6 @@ <li><a href="fl_image_surface.html">FLTK.Devices.Surfaces.Image</a></li> <li><a href="fl_paged_device.html">FLTK.Devices.Surfaces.Paged</a></li> <li><a href="fl_printer.html">FLTK.Devices.Surfaces.Paged.Printers</a></li> - <li><a href="common_dialogs.html">FLTK.Dialogs</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.Event</a></li> @@ -204,12 +204,12 @@ <li><a href="fl_wizard.html">FLTK.Widgets.Groups.Wizards</a></li> <li><a href="fl_input.html">FLTK.Widgets.Inputs</a></li> <li><a href="fl_file_input.html">FLTK.Widgets.Inputs.File</a></li> - <li><a href="fl_float_input.html">FLTK.Widgets.Inputs.Float</a></li> - <li><a href="fl_int_input.html">FLTK.Widgets.Inputs.Integer</a></li> + <li><a href="fl_float_input.html">FLTK.Widgets.Inputs.Floating_Point</a></li> <li><a href="fl_multiline_input.html">FLTK.Widgets.Inputs.Multiline</a></li> <li><a href="fl_output.html">FLTK.Widgets.Inputs.Outputs</a></li> <li><a href="fl_multiline_output.html">FLTK.Widgets.Inputs.Outputs.Multiline</a></li> <li><a href="fl_secret_input.html">FLTK.Widgets.Inputs.Secret</a></li> + <li><a href="fl_int_input.html">FLTK.Widgets.Inputs.Whole_Number</a></li> <li><a href="fl_menu_.html">FLTK.Widgets.Menus</a></li> <li><a href="fl_choice.html">FLTK.Widgets.Menus.Choices</a></li> <li><a href="fl_menu_bar.html">FLTK.Widgets.Menus.Menu_Bars</a></li> @@ -225,9 +225,9 @@ <li><a href="fl_roller.html">FLTK.Widgets.Valuators.Rollers</a></li> <li><a href="fl_slider.html">FLTK.Widgets.Valuators.Sliders</a></li> <li><a href="fl_fill_slider.html">FLTK.Widgets.Valuators.Sliders.Fill</a></li> - <li><a href="fl_hor_fill_slider.html">FLTK.Widgets.Valuators.Sliders.Hor_Fill</a></li> - <li><a href="fl_hor_nice_slider.html">FLTK.Widgets.Valuators.Sliders.Hor_Nice</a></li> <li><a href="fl_hor_slider.html">FLTK.Widgets.Valuators.Sliders.Horizontal</a></li> + <li><a href="fl_hor_fill_slider.html">FLTK.Widgets.Valuators.Sliders.Horizontal_Fill</a></li> + <li><a href="fl_hor_nice_slider.html">FLTK.Widgets.Valuators.Sliders.Horizontal_Nice</a></li> <li><a href="fl_nice_slider.html">FLTK.Widgets.Valuators.Sliders.Nice</a></li> <li><a href="fl_scrollbar.html">FLTK.Widgets.Valuators.Sliders.Scrollbars</a></li> <li><a href="fl_value_slider.html">FLTK.Widgets.Valuators.Sliders.Value</a></li> diff --git a/src/fltk-dialogs.adb b/src/fltk-asks.adb index 59137f2..880c4c8 100644 --- a/src/fltk-dialogs.adb +++ b/src/fltk-asks.adb @@ -14,7 +14,7 @@ use type Interfaces.C.Strings.chars_ptr; -package body FLTK.Dialogs is +package body FLTK.Asks is procedure dialog_fl_alert @@ -341,5 +341,5 @@ begin Wrapper (Icon_Box).Needs_Dealloc := False; -end FLTK.Dialogs; +end FLTK.Asks; diff --git a/src/fltk-dialogs.ads b/src/fltk-asks.ads index 9574e4f..cfe0522 100644 --- a/src/fltk-dialogs.ads +++ b/src/fltk-asks.ads @@ -10,7 +10,7 @@ with FLTK.Widgets.Groups.Color_Choosers; -package FLTK.Dialogs is +package FLTK.Asks is type Beep_Kind is @@ -133,5 +133,5 @@ private pragma Inline (Set_Message_Title_Default); -end FLTK.Dialogs; +end FLTK.Asks; diff --git a/src/fltk-widgets-inputs-float.adb b/src/fltk-widgets-inputs-floating_point.adb index 248b9ad..68b7fe6 100644 --- a/src/fltk-widgets-inputs-float.adb +++ b/src/fltk-widgets-inputs-floating_point.adb @@ -13,7 +13,7 @@ use type Interfaces.C.Strings.chars_ptr; -package body FLTK.Widgets.Inputs.Float is +package body FLTK.Widgets.Inputs.Floating_Point is procedure float_input_set_draw_hook @@ -117,7 +117,7 @@ package body FLTK.Widgets.Inputs.Float is function Get_Value (This : in Float_Input) - return Standard.Float + return Long_Float is Ptr : Interfaces.C.Strings.chars_ptr := fl_input_get_value (This.Void_Ptr); begin @@ -126,7 +126,7 @@ package body FLTK.Widgets.Inputs.Float is then return 0.0; else - return Standard.Float'Value (Interfaces.C.Strings.Value (Ptr)); + return Long_Float'Value (Interfaces.C.Strings.Value (Ptr)); end if; end Get_Value; @@ -150,5 +150,5 @@ package body FLTK.Widgets.Inputs.Float is end Handle; -end FLTK.Widgets.Inputs.Float; +end FLTK.Widgets.Inputs.Floating_Point; diff --git a/src/fltk-widgets-inputs-float.ads b/src/fltk-widgets-inputs-floating_point.ads index 6e009a4..dcc19de 100644 --- a/src/fltk-widgets-inputs-float.ads +++ b/src/fltk-widgets-inputs-floating_point.ads @@ -4,7 +4,7 @@ -- Released into the public domain -package FLTK.Widgets.Inputs.Float is +package FLTK.Widgets.Inputs.Floating_Point is type Float_Input is new Input with private; @@ -29,7 +29,7 @@ package FLTK.Widgets.Inputs.Float is function Get_Value (This : in Float_Input) - return Standard.Float; + return Long_Float; @@ -68,5 +68,5 @@ private pragma Inline (Handle); -end FLTK.Widgets.Inputs.Float; +end FLTK.Widgets.Inputs.Floating_Point; diff --git a/src/fltk-widgets-inputs-integer.adb b/src/fltk-widgets-inputs-whole_number.adb index 401ca7c..0709506 100644 --- a/src/fltk-widgets-inputs-integer.adb +++ b/src/fltk-widgets-inputs-whole_number.adb @@ -13,7 +13,7 @@ use type Interfaces.C.Strings.chars_ptr; -package body FLTK.Widgets.Inputs.Integer is +package body FLTK.Widgets.Inputs.Whole_Number is procedure int_input_set_draw_hook @@ -115,7 +115,7 @@ package body FLTK.Widgets.Inputs.Integer is function Get_Value (This : in Integer_Input) - return Standard.Integer + return Long_Integer is Ptr : Interfaces.C.Strings.chars_ptr := fl_input_get_value (This.Void_Ptr); begin @@ -124,7 +124,7 @@ package body FLTK.Widgets.Inputs.Integer is then return 0; else - return Standard.Integer'Value (Interfaces.C.Strings.Value (Ptr)); + return Long_Integer'Value (Interfaces.C.Strings.Value (Ptr)); end if; end Get_Value; @@ -148,5 +148,5 @@ package body FLTK.Widgets.Inputs.Integer is end Handle; -end FLTK.Widgets.Inputs.Integer; +end FLTK.Widgets.Inputs.Whole_Number; diff --git a/src/fltk-widgets-inputs-integer.ads b/src/fltk-widgets-inputs-whole_number.ads index fb76662..d9a9787 100644 --- a/src/fltk-widgets-inputs-integer.ads +++ b/src/fltk-widgets-inputs-whole_number.ads @@ -4,7 +4,7 @@ -- Released into the public domain -package FLTK.Widgets.Inputs.Integer is +package FLTK.Widgets.Inputs.Whole_Number is type Integer_Input is new Input with private; @@ -29,7 +29,7 @@ package FLTK.Widgets.Inputs.Integer is function Get_Value (This : in Integer_Input) - return Standard.Integer; + return Long_Integer; @@ -68,5 +68,5 @@ private pragma Inline (Handle); -end FLTK.Widgets.Inputs.Integer; +end FLTK.Widgets.Inputs.Whole_Number; diff --git a/src/fltk-widgets-valuators-sliders-hor_fill.adb b/src/fltk-widgets-valuators-sliders-horizontal_fill.adb index 1b0e7ea..e14e230 100644 --- a/src/fltk-widgets-valuators-sliders-hor_fill.adb +++ b/src/fltk-widgets-valuators-sliders-horizontal_fill.adb @@ -9,7 +9,7 @@ with Interfaces.C.Strings; -package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is +package body FLTK.Widgets.Valuators.Sliders.Horizontal_Fill is procedure hor_fill_slider_set_draw_hook @@ -56,14 +56,14 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is procedure Extra_Final - (This : in out Hor_Fill_Slider) is + (This : in out Horizontal_Fill_Slider) is begin Extra_Final (Slider (This)); end Extra_Final; procedure Finalize - (This : in out Hor_Fill_Slider) is + (This : in out Horizontal_Fill_Slider) is begin Extra_Final (This); if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then @@ -76,7 +76,7 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is procedure Extra_Init - (This : in out Hor_Fill_Slider; + (This : in out Horizontal_Fill_Slider; X, Y, W, H : in Integer; Text : in String) is begin @@ -89,9 +89,9 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is function Create (X, Y, W, H : in Integer; Text : in String := "") - return Hor_Fill_Slider is + return Horizontal_Fill_Slider is begin - return This : Hor_Fill_Slider do + return This : Horizontal_Fill_Slider do This.Void_Ptr := new_fl_hor_fill_slider (Interfaces.C.int (X), Interfaces.C.int (Y), @@ -112,14 +112,14 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is procedure Draw - (This : in out Hor_Fill_Slider) is + (This : in out Horizontal_Fill_Slider) is begin fl_hor_fill_slider_draw (This.Void_Ptr); end Draw; function Handle - (This : in out Hor_Fill_Slider; + (This : in out Horizontal_Fill_Slider; Event : in Event_Kind) return Event_Outcome is begin @@ -128,5 +128,5 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Fill is end Handle; -end FLTK.Widgets.Valuators.Sliders.Hor_Fill; +end FLTK.Widgets.Valuators.Sliders.Horizontal_Fill; diff --git a/src/fltk-widgets-valuators-sliders-hor_fill.ads b/src/fltk-widgets-valuators-sliders-horizontal_fill.ads index b4142c3..9047552 100644 --- a/src/fltk-widgets-valuators-sliders-hor_fill.ads +++ b/src/fltk-widgets-valuators-sliders-horizontal_fill.ads @@ -4,12 +4,12 @@ -- Released into the public domain -package FLTK.Widgets.Valuators.Sliders.Hor_Fill is +package FLTK.Widgets.Valuators.Sliders.Horizontal_Fill is - type Hor_Fill_Slider is new Slider with private; + type Horizontal_Fill_Slider is new Slider with private; - type Hor_Fill_Slider_Reference (Data : not null access Hor_Fill_Slider'Class) is + type Horizontal_Fill_Slider_Reference (Data : not null access Horizontal_Fill_Slider'Class) is limited null record with Implicit_Dereference => Data; @@ -20,7 +20,7 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Fill is function Create (X, Y, W, H : in Integer; Text : in String := "") - return Hor_Fill_Slider; + return Horizontal_Fill_Slider; end Forge; @@ -28,10 +28,10 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Fill is procedure Draw - (This : in out Hor_Fill_Slider); + (This : in out Horizontal_Fill_Slider); function Handle - (This : in out Hor_Fill_Slider; + (This : in out Horizontal_Fill_Slider; Event : in Event_Kind) return Event_Outcome; @@ -39,19 +39,19 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Fill is private - type Hor_Fill_Slider is new Slider with null record; + type Horizontal_Fill_Slider is new Slider with null record; overriding procedure Finalize - (This : in out Hor_Fill_Slider); + (This : in out Horizontal_Fill_Slider); procedure Extra_Init - (This : in out Hor_Fill_Slider; + (This : in out Horizontal_Fill_Slider; X, Y, W, H : in Integer; Text : in String) with Inline; procedure Extra_Final - (This : in out Hor_Fill_Slider) + (This : in out Horizontal_Fill_Slider) with Inline; @@ -59,5 +59,5 @@ private pragma Inline (Handle); -end FLTK.Widgets.Valuators.Sliders.Hor_Fill; +end FLTK.Widgets.Valuators.Sliders.Horizontal_Fill; diff --git a/src/fltk-widgets-valuators-sliders-hor_nice.adb b/src/fltk-widgets-valuators-sliders-horizontal_nice.adb index f6a0751..f6b8e90 100644 --- a/src/fltk-widgets-valuators-sliders-hor_nice.adb +++ b/src/fltk-widgets-valuators-sliders-horizontal_nice.adb @@ -9,7 +9,7 @@ with Interfaces.C.Strings; -package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is +package body FLTK.Widgets.Valuators.Sliders.Horizontal_Nice is procedure hor_nice_slider_set_draw_hook @@ -56,14 +56,14 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is procedure Extra_Final - (This : in out Hor_Nice_Slider) is + (This : in out Horizontal_Nice_Slider) is begin Extra_Final (Slider (This)); end Extra_Final; procedure Finalize - (This : in out Hor_Nice_Slider) is + (This : in out Horizontal_Nice_Slider) is begin Extra_Final (This); if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then @@ -76,7 +76,7 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is procedure Extra_Init - (This : in out Hor_Nice_Slider; + (This : in out Horizontal_Nice_Slider; X, Y, W, H : in Integer; Text : in String) is begin @@ -89,9 +89,9 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is function Create (X, Y, W, H : in Integer; Text : in String := "") - return Hor_Nice_Slider is + return Horizontal_Nice_Slider is begin - return This : Hor_Nice_Slider do + return This : Horizontal_Nice_Slider do This.Void_Ptr := new_fl_hor_nice_slider (Interfaces.C.int (X), Interfaces.C.int (Y), @@ -112,14 +112,14 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is procedure Draw - (This : in out Hor_Nice_Slider) is + (This : in out Horizontal_Nice_Slider) is begin fl_hor_nice_slider_draw (This.Void_Ptr); end Draw; function Handle - (This : in out Hor_Nice_Slider; + (This : in out Horizontal_Nice_Slider; Event : in Event_Kind) return Event_Outcome is begin @@ -128,5 +128,5 @@ package body FLTK.Widgets.Valuators.Sliders.Hor_Nice is end Handle; -end FLTK.Widgets.Valuators.Sliders.Hor_Nice; +end FLTK.Widgets.Valuators.Sliders.Horizontal_Nice; diff --git a/src/fltk-widgets-valuators-sliders-hor_nice.ads b/src/fltk-widgets-valuators-sliders-horizontal_nice.ads index 9ebb06b..f2af349 100644 --- a/src/fltk-widgets-valuators-sliders-hor_nice.ads +++ b/src/fltk-widgets-valuators-sliders-horizontal_nice.ads @@ -4,12 +4,12 @@ -- Released into the public domain -package FLTK.Widgets.Valuators.Sliders.Hor_Nice is +package FLTK.Widgets.Valuators.Sliders.Horizontal_Nice is - type Hor_Nice_Slider is new Slider with private; + type Horizontal_Nice_Slider is new Slider with private; - type Hor_Nice_Slider_Reference (Data : not null access Hor_Nice_Slider'Class) is + type Horizontal_Nice_Slider_Reference (Data : not null access Horizontal_Nice_Slider'Class) is limited null record with Implicit_Dereference => Data; @@ -20,7 +20,7 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Nice is function Create (X, Y, W, H : in Integer; Text : in String := "") - return Hor_Nice_Slider; + return Horizontal_Nice_Slider; end Forge; @@ -28,10 +28,10 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Nice is procedure Draw - (This : in out Hor_Nice_Slider); + (This : in out Horizontal_Nice_Slider); function Handle - (This : in out Hor_Nice_Slider; + (This : in out Horizontal_Nice_Slider; Event : in Event_Kind) return Event_Outcome; @@ -39,19 +39,19 @@ package FLTK.Widgets.Valuators.Sliders.Hor_Nice is private - type Hor_Nice_Slider is new Slider with null record; + type Horizontal_Nice_Slider is new Slider with null record; overriding procedure Finalize - (This : in out Hor_Nice_Slider); + (This : in out Horizontal_Nice_Slider); procedure Extra_Init - (This : in out Hor_Nice_Slider; + (This : in out Horizontal_Nice_Slider; X, Y, W, H : in Integer; Text : in String) with Inline; procedure Extra_Final - (This : in out Hor_Nice_Slider) + (This : in out Horizontal_Nice_Slider) with Inline; @@ -59,5 +59,5 @@ private pragma Inline (Handle); -end FLTK.Widgets.Valuators.Sliders.Hor_Nice; +end FLTK.Widgets.Valuators.Sliders.Horizontal_Nice; |