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

---
 doc/fl_device.html         | 33 +++++++++++++++++++++++++++
 doc/fl_surface_device.html | 57 ++++++++++++++++++++++++++++++++++++++++------
 2 files changed, 83 insertions(+), 7 deletions(-)

(limited to 'doc')

diff --git a/doc/fl_device.html b/doc/fl_device.html
index 086a45c..c87b543 100644
--- a/doc/fl_device.html
+++ b/doc/fl_device.html
@@ -36,6 +36,39 @@
     <td>Device</td>
   </tr>
 
+  <tr>
+    <td>&nbsp;</td>
+    <td>Device_Reference</td>
+  </tr>
+
+</table>
+
+
+
+<table class="function">
+  <tr><th colspan="2">Static Attributes</th></tr>
+
+  <tr>
+<td><pre>
+static const char * class_id = "Fl_Device";
+</pre></td>
+<td>Use runtime tag checks instead</td>
+  </tr>
+
+</table>
+
+
+
+<table class="function">
+  <tr><th colspan="2">Functions and Procedures</th></tr>
+
+  <tr>
+<td><pre>
+virtual const char * class_name();
+</pre></td>
+<td>Deprecated, use runtime tag checks instead</td>
+  </tr>
+
 </table>
 
 
diff --git a/doc/fl_surface_device.html b/doc/fl_surface_device.html
index f4fa6e4..b6ba5f5 100644
--- a/doc/fl_surface_device.html
+++ b/doc/fl_surface_device.html
@@ -46,7 +46,21 @@
 
 
 <table class="function">
-  <tr><th colspan="2">Functions and Procedures</th></tr>
+  <tr><th colspan="2">Static Attributes</th></tr>
+
+  <tr>
+<td><pre>
+static const char * class_id = "Fl_Surface_Device";
+</pre></td>
+<td>Use runtime tag checks instead</td>
+  </tr>
+
+</table>
+
+
+
+<table class="function">
+  <tr><th colspan="2">Constructors</th></tr>
 
   <tr>
 <td><pre>
@@ -54,11 +68,18 @@ Fl_Surface_Device(Fl_Graphics_Driver *graphics_driver);
 </pre></td>
 <td><pre>
 function Create
-       (Graphics : in out FLTK.Devices.Graphics.Graphics_Driver)
+       (Graphics : in FLTK.Devices.Graphics.Graphics_Driver)
     return Surface_Device;
 </pre></td>
   </tr>
 
+</table>
+
+
+
+<table class="function">
+  <tr><th colspan="2">Functions and Procedures</th></tr>
+
   <tr>
 <td><pre>
 const char * class_name();
@@ -68,16 +89,28 @@ const char * class_name();
 
   <tr>
 <td><pre>
-void driver(Fl_Graphics_Driver *graphics_driver);
+Fl_Graphics_Driver * driver();
+</pre></td>
+<td><pre>
+function Has_Driver
+       (This : in Surface_Device)
+    return Boolean;
+
+function Get_Driver
+       (This : in out Surface_Device)
+    return FLTK.Devices.Graphics.Graphics_Driver_Reference;
 </pre></td>
-<td>TBA</td>
   </tr>
 
   <tr>
 <td><pre>
-Fl_Graphics_Driver * driver();
+void driver(Fl_Graphics_Driver *graphics_driver);
+</pre></td>
+<td><pre>
+procedure Set_Driver
+       (This   : in out Surface_Device;
+        Driver : in     FLTK.Devices.Graphics.Graphics_Driver'Class);
 </pre></td>
-<td>TBA</td>
   </tr>
 
   <tr>
@@ -90,13 +123,23 @@ procedure Set_Current
 </pre></td>
   </tr>
 
+</table>
+
+
+
+<table class="function">
+  <tr><th colspan="2">Static Functions and Procedures</th></tr>
+
   <tr>
 <td><pre>
 static Fl_Surface_Device * surface();
 </pre></td>
 <td><pre>
 function Get_Current
-    return access Surface_Device'Class;
+    return Surface_Device_Reference;
+
+function Get_Original
+    return Surface_Device_Reference;
 </pre></td>
   </tr>
 
-- 
cgit