1 files changed, 102 insertions, 0 deletions
diff --git a/body/fltk-screen.adb b/body/fltk-screen.adb
index c7c7957..6b8118e 100644
--- a/body/fltk-screen.adb
+++ b/body/fltk-screen.adb
@@ -17,9 +17,44 @@ package body FLTK.Screen is
 
 
     ------------------------
+    --  Constants From C  --
+    ------------------------
+
+    fl_enum_mode_rgb : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_rgb, "fl_enum_mode_rgb");
+
+    fl_enum_mode_rgb8 : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_rgb8, "fl_enum_mode_rgb8");
+
+    fl_enum_mode_double : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_double, "fl_enum_mode_double");
+
+    fl_enum_mode_index : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_index, "fl_enum_mode_index");
+
+
+
+
+    ------------------------
     --  Functions From C  --
     ------------------------
 
+    --  Environment  --
+
+    procedure fl_screen_display
+           (V : in Interfaces.C.char_array);
+    pragma Import (C, fl_screen_display, "fl_screen_display");
+    pragma Inline (fl_screen_display);
+
+    function fl_screen_visual
+           (F : in Interfaces.C.int)
+        return Interfaces.C.int;
+    pragma Import (C, fl_screen_visual, "fl_screen_visual");
+    pragma Inline (fl_screen_visual);
+
+
+
+
     --  Basic Dimensions  --
 
     function fl_screen_x
@@ -123,10 +158,59 @@ package body FLTK.Screen is
 
 
 
+    --  Drawing  --
+
+    function fl_screen_get_damage
+        return Interfaces.C.int;
+    pragma Import (C, fl_screen_get_damage, "fl_screen_get_damage");
+    pragma Inline (fl_screen_get_damage);
+
+    procedure fl_screen_set_damage
+           (V : in Interfaces.C.int);
+    pragma Import (C, fl_screen_set_damage, "fl_screen_set_damage");
+    pragma Inline (fl_screen_set_damage);
+
+
+
+
     -----------------------
     --  API Subprograms  --
     -----------------------
 
+    --  Environment  --
+
+    procedure Set_Display_String
+           (Value : in String) is
+    begin
+        fl_screen_display (Interfaces.C.To_C (Value));
+    end Set_Display_String;
+
+
+    procedure Set_Visual_Mode
+           (Value : in Visual_Mode)
+    is
+        Ignore : Boolean := Set_Visual_Mode (Value);
+    begin
+        null;
+    end Set_Visual_Mode;
+
+
+    function Set_Visual_Mode
+           (Value : in Visual_Mode)
+        return Boolean is
+    begin
+        return fl_screen_visual
+           ((case Value is
+            when RGB              => fl_enum_mode_rgb,
+            when RGB_24bit        => fl_enum_mode_rgb8,
+            when Double_Buffer    => fl_enum_mode_double + fl_enum_mode_index,
+            when Double_RGB       => fl_enum_mode_double + fl_enum_mode_rgb,
+            when Double_RGB_24bit => fl_enum_mode_double + fl_enum_mode_rgb8)) /= 0;
+    end Set_Visual_Mode;
+
+
+
+
     --  Basic Dimensions  --
 
     function Get_X return Integer is
@@ -297,6 +381,24 @@ package body FLTK.Screen is
     end Bounding_Rect;
 
 
+
+
+    --  Drawing  --
+
+    function Is_Damaged
+        return Boolean is
+    begin
+        return fl_screen_get_damage /= 0;
+    end Is_Damaged;
+
+
+    procedure Set_Damaged
+           (To : in Boolean) is
+    begin
+        fl_screen_set_damage (Boolean'Pos (To));
+    end Set_Damaged;
+
+
 end FLTK.Screen;