1 files changed, 0 insertions, 133 deletions
diff --git a/src/fltk-dialogs.ads b/src/fltk-dialogs.ads
deleted file mode 100644
index 96a6bcf..0000000
--- a/src/fltk-dialogs.ads
+++ /dev/null
@@ -1,133 +0,0 @@
-
-
-with
-
-    FLTK.Widgets.Boxes,
-    FLTK.Widgets.Groups.Color_Choosers;
-
-
-package FLTK.Dialogs is
-
-
-    type Beep_Kind is
-       (Default_Beep, Message_Beep, Error_Beep,
-        Question_Beep, Password_Beep, Notification_Beep);
-
-    type Choice is (First, Second, Third);
-
-    type RGB_Float is new Long_Float range 0.0 .. 1.0;
-
-    type RGB_Int is mod 256;
-
-
-
-
-    procedure Alert
-           (Message : String);
-
-    --  function Ask
-    --         (Message : in String)
-    --      return Boolean;
-
-    procedure Beep
-           (Kind : in Beep_Kind);
-
-    function Three_Way_Choice
-           (Message, Button1, Button2, Button3 : in String)
-        return Choice;
-
-    function Text_Input
-           (Message : in String;
-            Default : in String := "")
-        return String;
-
-    procedure Message_Box
-           (Message : in String);
-
-    function Password
-           (Message : in String;
-            Default : in String := "")
-        return String;
-
-
-
-
-    function Color_Chooser
-           (Title   : in     String;
-            R, G, B : in out RGB_Float;
-            Mode    : in     FLTK.Widgets.Groups.Color_Choosers.Color_Mode :=
-                FLTK.Widgets.Groups.Color_Choosers.RGB)
-        return Boolean;
-
-    function Color_Chooser
-           (Title   : in     String;
-            R, G, B : in out RGB_Int;
-            Mode    : in     FLTK.Widgets.Groups.Color_Choosers.Color_Mode :=
-                FLTK.Widgets.Groups.Color_Choosers.RGB)
-        return Boolean;
-
-    function Dir_Chooser
-           (Message, Default : in String;
-            Relative         : in Boolean := False)
-        return String;
-
-    function File_Chooser
-           (Message, Filter_Pattern, Default : in String;
-            Relative                         : in Boolean := False)
-        return String;
-
-
-
-
-    function Get_Hotspot
-        return Boolean;
-
-    procedure Set_Hotspot
-           (To : in Boolean);
-
-    procedure Set_Message_Font
-           (Font : in Font_Kind;
-            Size : in Font_Size);
-
-    function Get_Message_Icon
-        return FLTK.Widgets.Boxes.Box_Reference;
-
-    procedure Set_Message_Title
-           (To : in String);
-
-    procedure Set_Message_Title_Default
-           (To : in String);
-
-
-private
-
-
-    Icon_Box : aliased FLTK.Widgets.Boxes.Box;
-
-
-
-
-    pragma Inline (Alert);
-    --  pragma Inline (Ask);
-    pragma Inline (Beep);
-    pragma Inline (Three_Way_Choice);
-    pragma Inline (Text_Input);
-    pragma Inline (Message_Box);
-    pragma Inline (Password);
-
-
-    pragma Inline (Color_Chooser);
-    pragma Inline (Dir_Chooser);
-    pragma Inline (File_Chooser);
-
-
-    pragma Inline (Get_Hotspot);
-    pragma Inline (Set_Hotspot);
-    pragma Inline (Set_Message_Font);
-    pragma Inline (Get_Message_Icon);
-    pragma Inline (Set_Message_Title);
-    pragma Inline (Set_Message_Title_Default);
-
-
-end FLTK.Dialogs;
-