aboutsummaryrefslogtreecommitdiff
path: root/src/fltk-help_dialogs.ads
diff options
context:
space:
mode:
authorJedidiah Barber <contact@jedbarber.id.au>2025-01-21 21:04:54 +1300
committerJedidiah Barber <contact@jedbarber.id.au>2025-01-21 21:04:54 +1300
commitb4438b2fbe895694be98e6e8426103deefc51448 (patch)
tree760d86cd7c06420a91dad102cc9546aee73146fc /src/fltk-help_dialogs.ads
parenta4703a65b015140cd4a7a985db66264875ade734 (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.ads149
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;
-
-