clip_children() apparently not in current FLTK version, so temp disabled

1 files changed, 12 insertions, 12 deletions

diff --git a/src/fltk-widgets-groups.adb b/src/fltk-widgets-groups.adb
index c66c653..d5b8197 100644
--- a/src/fltk-widgets-groups.adb
+++ b/src/fltk-widgets-groups.adb
@@ -179,22 +179,22 @@ package body FLTK.Widgets.Groups is
 
 
 
-    function Get_Clip_Mode
-           (This : in Group)
-        return Clip_Mode is
-    begin
-        return Clip_Mode'Val (fl_group_get_clip_children (This.Void_Ptr));
-    end Get_Clip_Mode;
+    --  function Get_Clip_Mode
+    --         (This : in Group)
+    --      return Clip_Mode is
+    --  begin
+    --      return Clip_Mode'Val (fl_group_get_clip_children (This.Void_Ptr));
+    --  end Get_Clip_Mode;
 
 
 
 
-    procedure Set_Clip_Mode
-           (This : in out Group;
-            Mode : in     Clip_Mode) is
-    begin
-        fl_group_set_clip_children (This.Void_Ptr, Clip_Mode'Pos (Mode));
-    end Set_Clip_Mode;
+    --  procedure Set_Clip_Mode
+    --         (This : in out Group;
+    --          Mode : in     Clip_Mode) is
+    --  begin
+    --      fl_group_set_clip_children (This.Void_Ptr, Clip_Mode'Pos (Mode));
+    --  end Set_Clip_Mode;