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-counters.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

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

diff --git a/body/fltk-widgets-valuators-counters.adb b/body/fltk-widgets-valuators-counters.adb
index 1c5426f..f05df69 100644
--- a/body/fltk-widgets-valuators-counters.adb
+++ b/body/fltk-widgets-valuators-counters.adb
@@ -6,8 +6,7 @@
 
 with
 
-    FLTK.Widgets.Groups,
-    Interfaces.C.Strings;
+    FLTK.Widgets.Groups;
 
 
 package body FLTK.Widgets.Valuators.Counters is
@@ -331,7 +330,7 @@ package body FLTK.Widgets.Valuators.Counters is
            (This : in out Counter)
         return Counter_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 Counter_Kind'Val (Result);
     exception
-- 
cgit