From baa3a346cde2c2c965243e554a15ed3bd6f5c7fe Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Wed, 16 Apr 2025 15:51:58 +1200 Subject: Code style improvements, constants marked as constant --- src/grids.adb | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'src/grids.adb') diff --git a/src/grids.adb b/src/grids.adb index 12f1ae4..5bf82c3 100644 --- a/src/grids.adb +++ b/src/grids.adb @@ -8,10 +8,12 @@ package body Grids is Text : in String) return Grid is begin - return This : Grid := - (FLTK.Widgets.Widget'(FLTK.Widgets.Forge.Create (X, Y, W, H, Text)) with - Cells => Square_Vector_Vectors.Empty_Vector, - Rows => 0, Cols => 0); + return This : constant Grid := + (FLTK.Widgets.Forge.Create (X, Y, W, H, Text) + with + Cells => Square_Vector_Vectors.Empty_Vector, + Rows => 0, + Cols => 0); end Create; @@ -129,3 +131,4 @@ package body Grids is end Grids; + -- cgit