From d12fdd75d1c131bbe4bd49413c3da51131cd1e73 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Mon, 19 Sep 2016 18:48:47 +1000
Subject: All File/Edit functions working, just need to add Search/About menu
 stuff

---
 fltk-popups.adb | 113 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 113 insertions(+)
 create mode 100644 fltk-popups.adb

(limited to 'fltk-popups.adb')

diff --git a/fltk-popups.adb b/fltk-popups.adb
new file mode 100644
index 0000000..40a8d3e
--- /dev/null
+++ b/fltk-popups.adb
@@ -0,0 +1,113 @@
+
+
+with Interfaces.C;
+with Interfaces.C.Strings;
+use type Interfaces.C.Strings.chars_ptr;
+
+
+package body FLTK.Popups is
+
+
+    procedure popup_fl_alert
+           (M : in Interfaces.C.char_array);
+    pragma Import (C, popup_fl_alert, "popup_fl_alert");
+
+    function popup_fl_choice
+           (M, A, B, C : in Interfaces.C.char_array)
+        return Interfaces.C.int;
+    pragma Import (C, popup_fl_choice, "popup_fl_choice");
+
+    function popup_fl_file_chooser
+           (M, P, D : in Interfaces.C.char_array;
+            R : in Interfaces.C.int)
+        return Interfaces.C.Strings.chars_ptr;
+    pragma Import (C, popup_fl_file_chooser, "popup_fl_file_chooser");
+
+    function popup_fl_input
+           (M, D : in Interfaces.C.char_array)
+        return Interfaces.C.Strings.chars_ptr;
+    pragma Import (C, popup_fl_input, "popup_fl_input");
+
+    procedure popup_fl_message
+           (M : in Interfaces.C.char_array);
+    pragma Import (C, popup_fl_message, "popup_fl_message");
+
+
+
+
+    procedure Alert
+           (Message : String) is
+    begin
+        popup_fl_alert (Interfaces.C.To_C (Message));
+    end Alert;
+
+
+
+
+    function Three_Way_Choice
+           (Message, Button1, Button2, Button3 : in String)
+        return Choice is
+
+        Result : Interfaces.C.int := popup_fl_choice
+               (Interfaces.C.To_C (Message),
+                Interfaces.C.To_C (Button1),
+                Interfaces.C.To_C (Button2),
+                Interfaces.C.To_C (Button3));
+
+    begin
+        return Choice'Val (Result);
+    end Three_Way_Choice;
+
+
+
+
+    function File_Chooser
+           (Message, Filter_Pattern, Default : in String;
+            Relative : in Boolean := False)
+        return String is
+
+        Result : Interfaces.C.Strings.chars_ptr := popup_fl_file_chooser
+               (Interfaces.C.To_C (Message),
+                Interfaces.C.To_C (Filter_Pattern),
+                Interfaces.C.To_C (Default),
+                Boolean'Pos (Relative));
+
+    begin
+        if Result = Interfaces.C.Strings.Null_Ptr then
+            return "";
+        else
+            return Interfaces.C.Strings.Value (Result);
+        end if;
+    end File_Chooser;
+
+
+
+
+    function Text_Input
+           (Message, Default : in String)
+        return String is
+
+        Result : Interfaces.C.Strings.chars_ptr := popup_fl_input
+               (Interfaces.C.To_C (Message),
+                Interfaces.C.To_C (Default));
+
+    begin
+        if Result = Interfaces.C.Strings.Null_Ptr then
+            return "";
+        else
+            return Interfaces.C.Strings.Value (Result);
+        end if;
+    end Text_Input;
+
+
+
+
+    procedure Message_Box
+           (Message : in String) is
+    begin
+        popup_fl_message (Interfaces.C.To_C (Message));
+    end Message_Box;
+
+
+end FLTK.Popups;
+
-- 
cgit