From 36e546c1c9a9bb8e778fb637c17f94390b4d23c2 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sat, 15 Feb 2025 14:29:16 +1300
Subject: Reorganising Fl / FLTK, improving enum docs

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

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

diff --git a/body/fltk-screen.adb b/body/fltk-screen.adb
index 54618fe..89f7413 100644
--- a/body/fltk-screen.adb
+++ b/body/fltk-screen.adb
@@ -139,11 +139,11 @@ package body FLTK.Screen is
 
     --  Environment  --
 
-    procedure Set_Display_Var
+    procedure Set_Display_String
            (Value : in String) is
     begin
         fl_screen_display (Interfaces.C.To_C (Value));
-    end Set_Display_Var;
+    end Set_Display_String;
 
 
 
-- 
cgit