diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-21 21:04:54 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-21 21:04:54 +1300 |
commit | b4438b2fbe895694be98e6e8426103deefc51448 (patch) | |
tree | 760d86cd7c06420a91dad102cc9546aee73146fc /src/fltk-help_dialogs.ads | |
parent | a4703a65b015140cd4a7a985db66264875ade734 (diff) |
Split public API and private implementation files into different directories
Diffstat (limited to 'src/fltk-help_dialogs.ads')
-rw-r--r-- | src/fltk-help_dialogs.ads | 149 |
1 files changed, 0 insertions, 149 deletions
diff --git a/src/fltk-help_dialogs.ads b/src/fltk-help_dialogs.ads deleted file mode 100644 index 655e357..0000000 --- a/src/fltk-help_dialogs.ads +++ /dev/null @@ -1,149 +0,0 @@ - - --- Programmed by Jedidiah Barber --- Released into the public domain - - -package FLTK.Help_Dialogs is - - - type Help_Dialog is new Wrapper with private; - - type Help_Dialog_Reference (Data : not null access Help_Dialog'Class) is limited null record - with Implicit_Dereference => Data; - - - - - package Forge is - - function Create - return Help_Dialog; - - function Create - (X, Y, W, H : in Integer) - return Help_Dialog; - - private - - pragma Inline (Create); - - end Forge; - - - - - procedure Show - (This : in out Help_Dialog); - - procedure Show_With_Args - (This : in out Help_Dialog); - - procedure Hide - (This : in out Help_Dialog); - - function Is_Visible - (This : in Help_Dialog) - return Boolean; - - - - - procedure Set_Topline_Number - (This : in out Help_Dialog; - Line : in Positive); - - procedure Set_Topline_Target - (This : in out Help_Dialog; - Value : in String); - - - - - -- 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; - Name : in String); - - function Get_Content - (This : in Help_Dialog) - return String; - - procedure Set_Content - (This : in out Help_Dialog; - Value : in String); - - - - - function Get_Text_Size - (This : in Help_Dialog) - return Font_Size; - - procedure Set_Text_Size - (This : in out Help_Dialog; - Size : in Font_Size); - - - - - function Get_X - (This : in Help_Dialog) - return Integer; - - function Get_Y - (This : in Help_Dialog) - return Integer; - - function Get_W - (This : in Help_Dialog) - return Integer; - - function Get_H - (This : in Help_Dialog) - return Integer; - - procedure Resize - (This : in out Help_Dialog; - X, Y, W, H : in Integer); - - procedure Reposition - (This : in out Help_Dialog; - X, Y : in Integer); - - -private - - - type Help_Dialog is new Wrapper with null record; - - overriding procedure Finalize - (This : in out Help_Dialog); - - - pragma Inline (Show); - pragma Inline (Show_With_Args); - pragma Inline (Hide); - pragma Inline (Is_Visible); - - pragma Inline (Set_Topline_Number); - pragma Inline (Set_Topline_Target); - - pragma Inline (Load); - pragma Inline (Set_Content); - - pragma Inline (Get_Text_Size); - pragma Inline (Set_Text_Size); - - pragma Inline (Get_X); - pragma Inline (Get_Y); - pragma Inline (Get_W); - pragma Inline (Get_H); - pragma Inline (Resize); - pragma Inline (Reposition); - - -end FLTK.Help_Dialogs; - - |