1 files changed, 21 insertions, 0 deletions
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