1 files changed, 47 insertions, 0 deletions
diff --git a/spec/fltk-screen.ads b/spec/fltk-screen.ads
index b7d5521..38db9aa 100644
--- a/spec/fltk-screen.ads
+++ b/spec/fltk-screen.ads
@@ -7,6 +7,26 @@
 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;
+
+
+
+
     --  Basic Dimensions  --
 
     function Get_X
@@ -79,9 +99,31 @@ 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);
     pragma Inline (Get_W);
@@ -94,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;