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-copy.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/fltk-devices-surface-copy.adb b/src/fltk-devices-surface-copy.adb
index fe96f91..7bb1c66 100644
--- a/src/fltk-devices-surface-copy.adb
+++ b/src/fltk-devices-surface-copy.adb
@@ -147,7 +147,7 @@ package body FLTK.Devices.Surface.Copy is
            (This : in out Copy_Surface) is
     begin
         fl_copy_surface_set_current (This.Void_Ptr);
-        Current_Ptr := This'Unchecked_Access;
+        This.Set_Current_Bookkeep;
     end Set_Current;
 
 
-- 
cgit