From 620c9cedb6880f28a2b3657a5d55d120bf83e9ba Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 23 Mar 2025 13:10:56 +1300 Subject: Improved project files, constant variables now constant --- body/fltk-widgets-groups-windows-double-overlay.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'body/fltk-widgets-groups-windows-double-overlay.adb') diff --git a/body/fltk-widgets-groups-windows-double-overlay.adb b/body/fltk-widgets-groups-windows-double-overlay.adb index 2534d31..94542af 100644 --- a/body/fltk-widgets-groups-windows-double-overlay.adb +++ b/body/fltk-widgets-groups-windows-double-overlay.adb @@ -125,7 +125,7 @@ package body FLTK.Widgets.Groups.Windows.Double.Overlay is procedure Overlay_Window_Draw_Overlay_Hook (U : in Storage.Integer_Address) is - Overlay_Widget : access Overlay_Window'Class := + Overlay_Widget : constant access Overlay_Window'Class := Over_Convert.To_Pointer (Storage.To_Address (U)); begin Overlay_Widget.Draw_Overlay; -- cgit