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

4 files changed, 27 insertions, 27 deletions

diff --git a/src/c_fl_group.cpp b/src/c_fl_group.cpp
index 7e7786d..db3b9b3 100644
--- a/src/c_fl_group.cpp
+++ b/src/c_fl_group.cpp
@@ -145,12 +145,12 @@ void * fl_group_child(GROUP g, int place) {
 }
 
 
-unsigned int flt_group_get_clip_children(GROUP g) {
-    return reinterpret_cast<Fl_Group*>(g)->clip_children();
-}
+//unsigned int flt_group_get_clip_children(GROUP g) {
+//    return reinterpret_cast<Fl_Group*>(g)->clip_children();
+//}
 
 
-void fl_group_set_clip_children(GROUP g, int c) {
-    reinterpret_cast<Fl_Group*>(g)->clip_children(c);
-}
+//void fl_group_set_clip_children(GROUP g, int c) {
+//    reinterpret_cast<Fl_Group*>(g)->clip_children(c);
+//}
 
diff --git a/src/c_fl_group.h b/src/c_fl_group.h
index a911296..ddd8ef0 100644
--- a/src/c_fl_group.h
+++ b/src/c_fl_group.h
@@ -31,8 +31,8 @@ extern "C" void fl_group_set_resizable(GROUP g, WIDGET item);
 
 extern "C" int fl_group_children(GROUP g);
 extern "C" void * fl_group_child(GROUP g, int place);
-extern "C" unsigned int fl_group_get_clip_children(GROUP g);
-extern "C" void fl_group_set_clip_children(GROUP g, int c);
+//extern "C" unsigned int fl_group_get_clip_children(GROUP g);
+//extern "C" void fl_group_set_clip_children(GROUP g, int c);
 
 
 #endif
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;
 
 
 
diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads
index 84859b0..d7fbdb5 100644
--- a/src/fltk-widgets-groups.ads
+++ b/src/fltk-widgets-groups.ads
@@ -10,7 +10,7 @@ package FLTK.Widgets.Groups is
 
 
     type Index is new Positive;
-    type Clip_Mode is (No_Clip, Clip);
+    --  type Clip_Mode is (No_Clip, Clip);
 
 
     function Create
@@ -35,14 +35,14 @@ package FLTK.Widgets.Groups is
         return Natural;
 
 
-    function Get_Clip_Mode
-           (This : in Group)
-        return Clip_Mode;
+    --  function Get_Clip_Mode
+    --         (This : in Group)
+    --      return Clip_Mode;
 
 
-    procedure Set_Clip_Mode
-           (This : in out Group;
-            Mode : in     Clip_Mode);
+    --  procedure Set_Clip_Mode
+    --         (This : in out Group;
+    --          Mode : in     Clip_Mode);
 
 
     procedure Clear