From 620c9cedb6880f28a2b3657a5d55d120bf83e9ba Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 23 Mar 2025 13:10:56 +1300
Subject: Improved project files, constant variables now constant

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

(limited to 'body/fltk-widgets-valuators-sliders.adb')

diff --git a/body/fltk-widgets-valuators-sliders.adb b/body/fltk-widgets-valuators-sliders.adb
index 00153dc..b670ba2 100644
--- a/body/fltk-widgets-valuators-sliders.adb
+++ b/body/fltk-widgets-valuators-sliders.adb
@@ -7,7 +7,7 @@
 with
 
     FLTK.Widgets.Groups,
-    Interfaces.C.Strings;
+    Interfaces.C;
 
 
 package body FLTK.Widgets.Valuators.Sliders is
@@ -367,7 +367,7 @@ package body FLTK.Widgets.Valuators.Sliders is
            (This : in Slider)
         return Slider_Kind
     is
-        Result : Interfaces.C.unsigned_char := fl_widget_get_type (This.Void_Ptr);
+        Result : constant Interfaces.C.unsigned_char := fl_widget_get_type (This.Void_Ptr);
     begin
         return Slider_Kind'Val (Result);
     exception
-- 
cgit