From 1af7e4ade37d6eec2b45af82734f9c5c7b74df73 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 3 Jun 2017 00:52:56 +1000 Subject: clip_children() apparently not in current FLTK version, so temp disabled --- src/fltk-widgets-groups.ads | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'src/fltk-widgets-groups.ads') 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 -- cgit