summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2017-06-03 00:52:56 +1000
committerJed Barber <jjbarber@y7mail.com>2017-06-03 00:52:56 +1000
commit1af7e4ade37d6eec2b45af82734f9c5c7b74df73 (patch)
treef82a049eb32f98aac5b08c5dc882fbfefe278e23
parent3fdde0b81a1a7e56d87e69f3038f0e41df5092a5 (diff)
clip_children() apparently not in current FLTK version, so temp disabled
-rw-r--r--src/c_fl_group.cpp12
-rw-r--r--src/c_fl_group.h4
-rw-r--r--src/fltk-widgets-groups.adb24
-rw-r--r--src/fltk-widgets-groups.ads14
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