FLTK.Event done, a whole bunch more polishing

1 files changed, 16 insertions, 0 deletions

diff --git a/src/fltk-devices-surfaces-copy.ads b/src/fltk-devices-surfaces-copy.ads
index deafe8d..d0a0d2f 100644
--- a/src/fltk-devices-surfaces-copy.ads
+++ b/src/fltk-devices-surfaces-copy.ads
@@ -10,6 +10,9 @@ package FLTK.Devices.Surfaces.Copy is
 
     type Copy_Surface is new Surface_Device with private;
 
+    type Copy_Surface_Reference (Data : not null access Copy_Surface'Class) is
+        limited null record with Implicit_Dereference => Data;
+
 
 
 
@@ -61,5 +64,18 @@ private
            (This : in out Copy_Surface);
 
 
+
+
+    pragma Inline (Get_W);
+    pragma Inline (Get_H);
+
+
+    pragma Inline (Draw_Widget);
+    pragma Inline (Draw_Decorated_Window);
+
+
+    pragma Inline (Set_Current);
+
+
 end FLTK.Devices.Surfaces.Copy;