From 6e5b33a195324bd33d946cad15844139d1ba9650 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 15 May 2018 16:47:35 +1000
Subject: Updated to bring into line with FLTK binding

---
 src/grids.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/grids.adb')

diff --git a/src/grids.adb b/src/grids.adb
index 3da212b..12f1ae4 100644
--- a/src/grids.adb
+++ b/src/grids.adb
@@ -9,7 +9,7 @@ package body Grids is
         return Grid is
     begin
         return This : Grid :=
-            (FLTK.Widgets.Widget'(FLTK.Widgets.Create (X, Y, W, H, Text)) with
+            (FLTK.Widgets.Widget'(FLTK.Widgets.Forge.Create (X, Y, W, H, Text)) with
                 Cells => Square_Vector_Vectors.Empty_Vector,
                 Rows => 0, Cols => 0);
     end Create;
-- 
cgit