From 547e538476a788dfeb5974f9b8ad29441d18980b Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Thu, 6 Feb 2025 19:28:33 +1300 Subject: Slightly better / more consistent comments --- spec/fltk-help_dialogs.ads | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'spec/fltk-help_dialogs.ads') 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; -- cgit