From 446989277ad276e9820e54ea1fb4ed550b93e998 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 10 Feb 2025 22:50:09 +1300
Subject: Filled holes in Enumerations and FLTK (Screen) APIs

---
 body/fltk-screen.adb | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

(limited to 'body/fltk-screen.adb')

diff --git a/body/fltk-screen.adb b/body/fltk-screen.adb
index c7c7957..54618fe 100644
--- a/body/fltk-screen.adb
+++ b/body/fltk-screen.adb
@@ -20,6 +20,16 @@ package body FLTK.Screen is
     --  Functions From C  --
     ------------------------
 
+    --  Environment  --
+
+    procedure fl_screen_display
+           (V : in Interfaces.C.char_array);
+    pragma Import (C, fl_screen_display, "fl_screen_display");
+    pragma Inline (fl_screen_display);
+
+
+
+
     --  Basic Dimensions  --
 
     function fl_screen_x
@@ -127,6 +137,17 @@ package body FLTK.Screen is
     --  API Subprograms  --
     -----------------------
 
+    --  Environment  --
+
+    procedure Set_Display_Var
+           (Value : in String) is
+    begin
+        fl_screen_display (Interfaces.C.To_C (Value));
+    end Set_Display_Var;
+
+
+
+
     --  Basic Dimensions  --
 
     function Get_X return Integer is
-- 
cgit