Renamed popups to dialogs

1 files changed, 32 insertions, 0 deletions

diff --git a/fltk-dialogs.ads b/fltk-dialogs.ads
new file mode 100644
index 0000000..cf8f80e
--- /dev/null
+++ b/fltk-dialogs.ads
@@ -0,0 +1,32 @@
+
+
+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, Default : in String)
+        return String;
+
+
+    procedure Message_Box
+           (Message : in String);
+
+
+end FLTK.Dialogs;
+