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

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

diff --git a/src/fltk-devices-surface-paged-printers.adb b/src/fltk-devices-surface-paged-printers.adb
index f5c964a..d454f78 100644
--- a/src/fltk-devices-surface-paged-printers.adb
+++ b/src/fltk-devices-surface-paged-printers.adb
@@ -349,7 +349,7 @@ package body FLTK.Devices.Surface.Paged.Printers is
            (This : in out Printer) is
     begin
         fl_printer_set_current (This.Void_Ptr);
-        Current_Ptr := This'Unchecked_Access;
+        This.Set_Current_Bookkeep;
     end Set_Current;
 
 
-- 
cgit