Code style improvements, constants marked as constant

1 files changed, 7 insertions, 4 deletions

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;
 
+