diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 18:49:32 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-12 18:49:32 +1300 |
| commit | 75a8e0e68e4980647a6d588a15bb300d132b6650 (patch) | |
| tree | a728a05b9a4db547ad0886bb6975f8e0729c919c /src/fltk-widgets-groups.ads | |
| parent | 8b01c23e0ba1fd22e0bfc797d6ca540c79079674 (diff) | |
Fixed several preprocessor ABI version issues
Diffstat (limited to 'src/fltk-widgets-groups.ads')
| -rw-r--r-- | src/fltk-widgets-groups.ads | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads index f7b2173..9212085 100644 --- a/src/fltk-widgets-groups.ads +++ b/src/fltk-widgets-groups.ads @@ -28,7 +28,7 @@ package FLTK.Widgets.Groups is subtype Extended_Index is Natural; No_Index : constant Extended_Index := Extended_Index'First; - -- type Clip_Mode is (No_Clip, Clip); + type Clip_Mode is (No_Clip, Clip); type Cursor is private; @@ -116,13 +116,13 @@ package FLTK.Widgets.Groups is - -- 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 := Clip); |