From ba40e0e277a2a959209e082fd62a3c2e796a9566 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 24 Dec 2024 12:33:28 +1300
Subject: Completed Fl_Surface_Device binding

---
 src/fltk-devices-surface-image.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fltk-devices-surface-image.adb')

diff --git a/src/fltk-devices-surface-image.adb b/src/fltk-devices-surface-image.adb
index d9a5e1b..e9e7de4 100644
--- a/src/fltk-devices-surface-image.adb
+++ b/src/fltk-devices-surface-image.adb
@@ -162,7 +162,7 @@ package body FLTK.Devices.Surface.Image is
            (This : in out Image_Surface) is
     begin
         fl_image_surface_set_current (This.Void_Ptr);
-        Current_Ptr := This'Unchecked_Access;
+        This.Set_Current_Bookkeep;
     end Set_Current;
 
 
-- 
cgit