diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/c_fl_group.cpp | 12 | ||||
| -rw-r--r-- | src/c_fl_group.h | 4 | ||||
| -rw-r--r-- | src/fltk-widgets-groups.adb | 24 | ||||
| -rw-r--r-- | src/fltk-widgets-groups.ads | 14 |
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 |