Organising source

1 files changed, 33 insertions, 0 deletions

diff --git a/src/fltk-dialogs.ads b/src/fltk-dialogs.ads
new file mode 100644
index 0000000..cb5b966
--- /dev/null
+++ b/src/fltk-dialogs.ads
@@ -0,0 +1,33 @@
+
+
+package FLTK.Dialogs is
+
+
+    procedure Alert
+           (Message : String);
+
+
+    type Choice is (First, Second, Third);
+    function Three_Way_Choice
+           (Message, Button1, Button2, Button3 : in String)
+        return Choice;
+
+
+    function File_Chooser
+           (Message, Filter_Pattern, Default : in String;
+            Relative                         : in Boolean := False)
+        return String;
+
+
+    function Text_Input
+           (Message : in String;
+            Default : in String := "")
+        return String;
+
+
+    procedure Message_Box
+           (Message : in String);
+
+
+end FLTK.Dialogs;
+