Filled holes in FLTK, FLTK.Events, FLTK.Screen, tweaked Fl_Shortcut implementation

1 files changed, 37 insertions, 0 deletions

diff --git a/spec/fltk-screen.ads b/spec/fltk-screen.ads
index ccfd224..38db9aa 100644
--- a/spec/fltk-screen.ads
+++ b/spec/fltk-screen.ads
@@ -7,11 +7,23 @@
 package FLTK.Screen is
 
 
+    type Visual_Mode is (RGB, RGB_24bit, Double_Buffer, Double_RGB, Double_RGB_24bit);
+
+
+
+
     --  Environment  --
 
     procedure Set_Display_String
            (Value : in String);
 
+    procedure Set_Visual_Mode
+           (Value : in Visual_Mode);
+
+    function Set_Visual_Mode
+           (Value : in Visual_Mode)
+        return Boolean;
+
 
 
 
@@ -87,10 +99,30 @@ package FLTK.Screen is
             PX, PY, PW, PH : in     Integer);
 
 
+
+
+    --  Drawing  --
+
+    function Is_Damaged
+        return Boolean;
+
+    procedure Set_Damaged
+           (To : in Boolean);
+
+    procedure Flush;
+
+    procedure Redraw;
+
+
 private
 
 
+    pragma Import (C, Flush, "fl_screen_flush");
+    pragma Import (C, Redraw, "fl_screen_redraw");
+
+
     pragma Inline (Set_Display_String);
+    pragma Inline (Set_Visual_Mode);
 
     pragma Inline (Get_X);
     pragma Inline (Get_Y);
@@ -104,6 +136,11 @@ private
     pragma Inline (Work_Area);
     pragma Inline (Bounding_Rect);
 
+    pragma Inline (Is_Damaged);
+    pragma Inline (Set_Damaged);
+    pragma Inline (Flush);
+    pragma Inline (Redraw);
+
 
 end FLTK.Screen;