From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 6 Feb 2025 19:28:33 +1300
Subject: Slightly better / more consistent comments

---
 body/fltk-help_dialogs.adb | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

(limited to 'body/fltk-help_dialogs.adb')

diff --git a/body/fltk-help_dialogs.adb b/body/fltk-help_dialogs.adb
index fc5ab07..48cdf18 100644
--- a/body/fltk-help_dialogs.adb
+++ b/body/fltk-help_dialogs.adb
@@ -21,6 +21,8 @@ package body FLTK.Help_Dialogs is
     --  Functions From C  --
     ------------------------
 
+    --  Allocation  --
+
     function new_fl_help_dialog
         return Storage.Integer_Address;
     pragma Import (C, new_fl_help_dialog, "new_fl_help_dialog");
@@ -34,6 +36,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Visibility  --
+
     procedure fl_help_dialog_show
            (D : in Storage.Integer_Address);
     pragma Import (C, fl_help_dialog_show, "fl_help_dialog_show");
@@ -60,6 +64,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Topline  --
+
     procedure fl_help_dialog_set_topline_number
            (D : in Storage.Integer_Address;
             N : in Interfaces.C.int);
@@ -75,6 +81,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Content  --
+
     procedure fl_help_dialog_load
            (D : in Storage.Integer_Address;
             N : in Interfaces.C.char_array);
@@ -96,6 +104,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Settings  --
+
     function fl_help_dialog_get_textsize
            (D : in Storage.Integer_Address)
         return Interfaces.C.int;
@@ -111,6 +121,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Dimensions  --
+
     function fl_help_dialog_get_x
            (D : in Storage.Integer_Address)
         return Interfaces.C.int;
@@ -191,6 +203,9 @@ package body FLTK.Help_Dialogs is
             end return;
         end Create;
 
+
+        pragma Inline (Create);
+
     end Forge;
 
 
@@ -200,6 +215,8 @@ package body FLTK.Help_Dialogs is
     --  API Subprograms  --
     -----------------------
 
+    --  Visibility  --
+
     procedure Show
            (This : in out Help_Dialog) is
     begin
@@ -231,6 +248,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Topline  --
+
     procedure Set_Topline_Number
            (This : in out Help_Dialog;
             Line : in     Positive) is
@@ -249,6 +268,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Content  --
+
     procedure Load
            (This : in out Help_Dialog;
             Name : in     String) is
@@ -282,6 +303,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Settings  --
+
     function Get_Text_Size
            (This : in Help_Dialog)
         return Font_Size is
@@ -300,6 +323,8 @@ package body FLTK.Help_Dialogs is
 
 
 
+    --  Dimensions  --
+
     function Get_X
            (This : in Help_Dialog)
         return Integer is
-- 
cgit