1 files changed, 0 insertions, 361 deletions
diff --git a/src/fltk-help_dialogs.adb b/src/fltk-help_dialogs.adb
deleted file mode 100644
index fc5ab07..0000000
--- a/src/fltk-help_dialogs.adb
+++ /dev/null
@@ -1,361 +0,0 @@
-
-
---  Programmed by Jedidiah Barber
---  Released into the public domain
-
-
-with
-
-    FLTK.Show_Argv,
-    Interfaces.C.Strings;
-
-use type
-
-    Interfaces.C.int;
-
-
-package body FLTK.Help_Dialogs is
-
-
-    ------------------------
-    --  Functions From C  --
-    ------------------------
-
-    function new_fl_help_dialog
-        return Storage.Integer_Address;
-    pragma Import (C, new_fl_help_dialog, "new_fl_help_dialog");
-    pragma Inline (new_fl_help_dialog);
-
-    procedure free_fl_help_dialog
-           (D : in Storage.Integer_Address);
-    pragma Import (C, free_fl_help_dialog, "free_fl_help_dialog");
-    pragma Inline (free_fl_help_dialog);
-
-
-
-
-    procedure fl_help_dialog_show
-           (D : in Storage.Integer_Address);
-    pragma Import (C, fl_help_dialog_show, "fl_help_dialog_show");
-    pragma Inline (fl_help_dialog_show);
-
-    procedure fl_help_dialog_show2
-           (D : in Storage.Integer_Address;
-            C : in Interfaces.C.int;
-            V : in Storage.Integer_Address);
-    pragma Import (C, fl_help_dialog_show2, "fl_help_dialog_show2");
-    pragma Inline (fl_help_dialog_show2);
-
-    procedure fl_help_dialog_hide
-           (D : in Storage.Integer_Address);
-    pragma Import (C, fl_help_dialog_hide, "fl_help_dialog_hide");
-    pragma Inline (fl_help_dialog_hide);
-
-    function fl_help_dialog_visible
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_help_dialog_visible, "fl_help_dialog_visible");
-    pragma Inline (fl_help_dialog_visible);
-
-
-
-
-    procedure fl_help_dialog_set_topline_number
-           (D : in Storage.Integer_Address;
-            N : in Interfaces.C.int);
-    pragma Import (C, fl_help_dialog_set_topline_number, "fl_help_dialog_set_topline_number");
-    pragma Inline (fl_help_dialog_set_topline_number);
-
-    procedure fl_help_dialog_set_topline_target
-           (D : in Storage.Integer_Address;
-            T : in Interfaces.C.char_array);
-    pragma Import (C, fl_help_dialog_set_topline_target, "fl_help_dialog_set_topline_target");
-    pragma Inline (fl_help_dialog_set_topline_target);
-
-
-
-
-    procedure fl_help_dialog_load
-           (D : in Storage.Integer_Address;
-            N : in Interfaces.C.char_array);
-    pragma Import (C, fl_help_dialog_load, "fl_help_dialog_load");
-    pragma Inline (fl_help_dialog_load);
-
-    function fl_help_dialog_get_value
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.Strings.chars_ptr;
-    pragma Import (C, fl_help_dialog_get_value, "fl_help_dialog_get_value");
-    pragma Inline (fl_help_dialog_get_value);
-
-    procedure fl_help_dialog_set_value
-           (D : in Storage.Integer_Address;
-            V : in Interfaces.C.char_array);
-    pragma Import (C, fl_help_dialog_set_value, "fl_help_dialog_set_value");
-    pragma Inline (fl_help_dialog_set_value);
-
-
-
-
-    function fl_help_dialog_get_textsize
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_help_dialog_get_textsize, "fl_help_dialog_get_textsize");
-    pragma Inline (fl_help_dialog_get_textsize);
-
-    procedure fl_help_dialog_set_textsize
-           (D : in Storage.Integer_Address;
-            S : in Interfaces.C.int);
-    pragma Import (C, fl_help_dialog_set_textsize, "fl_help_dialog_set_textsize");
-    pragma Inline (fl_help_dialog_set_textsize);
-
-
-
-
-    function fl_help_dialog_get_x
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_help_dialog_get_x, "fl_help_dialog_get_x");
-    pragma Inline (fl_help_dialog_get_x);
-
-    function fl_help_dialog_get_y
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_help_dialog_get_y, "fl_help_dialog_get_y");
-    pragma Inline (fl_help_dialog_get_y);
-
-    function fl_help_dialog_get_w
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_help_dialog_get_w, "fl_help_dialog_get_w");
-    pragma Inline (fl_help_dialog_get_w);
-
-    function fl_help_dialog_get_h
-           (D : in Storage.Integer_Address)
-        return Interfaces.C.int;
-    pragma Import (C, fl_help_dialog_get_h, "fl_help_dialog_get_h");
-    pragma Inline (fl_help_dialog_get_h);
-
-    procedure fl_help_dialog_resize
-           (D          : in Storage.Integer_Address;
-            X, Y, W, H : in Interfaces.C.int);
-    pragma Import (C, fl_help_dialog_resize, "fl_help_dialog_resize");
-    pragma Inline (fl_help_dialog_resize);
-
-    procedure fl_help_dialog_position
-           (D    : in Storage.Integer_Address;
-            X, Y : in Interfaces.C.int);
-    pragma Import (C, fl_help_dialog_position, "fl_help_dialog_position");
-    pragma Inline (fl_help_dialog_position);
-
-
-
-
-    -------------------
-    --  Destructors  --
-    -------------------
-
-    procedure Finalize
-           (This : in out Help_Dialog) is
-    begin
-        if This.Void_Ptr /= Null_Pointer and This.Needs_Dealloc then
-            free_fl_help_dialog (This.Void_Ptr);
-            This.Void_Ptr := Null_Pointer;
-        end if;
-    end Finalize;
-
-
-
-
-    --------------------
-    --  Constructors  --
-    --------------------
-
-    package body Forge is
-
-        function Create
-            return Help_Dialog is
-        begin
-            return This : Help_Dialog do
-                This.Void_Ptr := new_fl_help_dialog;
-            end return;
-        end Create;
-
-
-        function Create
-               (X, Y, W, H : in Integer)
-            return Help_Dialog is
-        begin
-            return This : Help_Dialog do
-                This.Void_Ptr := new_fl_help_dialog;
-                This.Resize (X, Y, W, H);
-            end return;
-        end Create;
-
-    end Forge;
-
-
-
-
-    -----------------------
-    --  API Subprograms  --
-    -----------------------
-
-    procedure Show
-           (This : in out Help_Dialog) is
-    begin
-        fl_help_dialog_show (This.Void_Ptr);
-    end Show;
-
-
-    procedure Show_With_Args
-           (This : in out Help_Dialog) is
-    begin
-        FLTK.Show_Argv.Dispatch (fl_help_dialog_show2'Access, This.Void_Ptr);
-    end Show_With_Args;
-
-
-    procedure Hide
-           (This : in out Help_Dialog) is
-    begin
-        fl_help_dialog_hide (This.Void_Ptr);
-    end Hide;
-
-
-    function Is_Visible
-           (This : in Help_Dialog)
-        return Boolean is
-    begin
-        return fl_help_dialog_visible (This.Void_Ptr) = 1;
-    end Is_Visible;
-
-
-
-
-    procedure Set_Topline_Number
-           (This : in out Help_Dialog;
-            Line : in     Positive) is
-    begin
-        fl_help_dialog_set_topline_number (This.Void_Ptr, Interfaces.C.int (Line) - 1);
-    end Set_Topline_Number;
-
-
-    procedure Set_Topline_Target
-           (This  : in out Help_Dialog;
-            Value : in     String) is
-    begin
-        fl_help_dialog_set_topline_target (This.Void_Ptr, Interfaces.C.To_C (Value));
-    end Set_Topline_Target;
-
-
-
-
-    procedure Load
-           (This : in out Help_Dialog;
-            Name : in     String) is
-    begin
-        fl_help_dialog_load (This.Void_Ptr, Interfaces.C.To_C (Name));
-    end Load;
-
-
-    function Get_Content
-           (This : in Help_Dialog)
-        return String
-    is
-        Raw_Chars : Interfaces.C.Strings.chars_ptr := fl_help_dialog_get_value (This.Void_Ptr);
-        use type Interfaces.C.Strings.chars_ptr;
-    begin
-        if Raw_Chars = Interfaces.C.Strings.Null_Ptr then
-            return "";
-        else
-            return Interfaces.C.Strings.Value (Raw_Chars);
-        end if;
-    end Get_Content;
-
-
-    procedure Set_Content
-           (This  : in out Help_Dialog;
-            Value : in     String) is
-    begin
-        fl_help_dialog_set_value (This.Void_Ptr, Interfaces.C.To_C (Value));
-    end Set_Content;
-
-
-
-
-    function Get_Text_Size
-           (This : in Help_Dialog)
-        return Font_Size is
-    begin
-        return Font_Size (fl_help_dialog_get_textsize (This.Void_Ptr));
-    end Get_Text_Size;
-
-
-    procedure Set_Text_Size
-           (This : in out Help_Dialog;
-            Size : in     Font_Size) is
-    begin
-        fl_help_dialog_set_textsize (This.Void_Ptr, Interfaces.C.int (Size));
-    end Set_Text_Size;
-
-
-
-
-    function Get_X
-           (This : in Help_Dialog)
-        return Integer is
-    begin
-        return Integer (fl_help_dialog_get_x (This.Void_Ptr));
-    end Get_X;
-
-
-    function Get_Y
-           (This : in Help_Dialog)
-        return Integer is
-    begin
-        return Integer (fl_help_dialog_get_y (This.Void_Ptr));
-    end Get_Y;
-
-
-    function Get_W
-           (This : in Help_Dialog)
-        return Integer is
-    begin
-        return Integer (fl_help_dialog_get_w (This.Void_Ptr));
-    end Get_W;
-
-
-    function Get_H
-           (This : in Help_Dialog)
-        return Integer is
-    begin
-        return Integer (fl_help_dialog_get_h (This.Void_Ptr));
-    end Get_H;
-
-
-    procedure Resize
-           (This       : in out Help_Dialog;
-            X, Y, W, H : in     Integer) is
-    begin
-        fl_help_dialog_resize
-           (This.Void_Ptr,
-            Interfaces.C.int (X),
-            Interfaces.C.int (Y),
-            Interfaces.C.int (W),
-            Interfaces.C.int (H));
-    end Resize;
-
-
-    procedure Reposition
-           (This : in out Help_Dialog;
-            X, Y : in     Integer) is
-    begin
-        fl_help_dialog_position
-           (This.Void_Ptr,
-            Interfaces.C.int (X),
-            Interfaces.C.int (Y));
-    end Reposition;
-
-
-end FLTK.Help_Dialogs;
-
-