diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-06 19:28:33 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-06 19:28:33 +1300 |
| commit | 547e538476a788dfeb5974f9b8ad29441d18980b (patch) | |
| tree | 00a3c7d80ee403969971bc4b814876b4399f3ada /spec/fltk-event.ads | |
| parent | befe66a0a98a58e0bdb31bb8c2db4a975a744072 (diff) | |
Slightly better / more consistent comments
Diffstat (limited to 'spec/fltk-event.ads')
| -rw-r--r-- | spec/fltk-event.ads | 19 |
1 files changed, 14 insertions, 5 deletions
diff --git a/spec/fltk-event.ads b/spec/fltk-event.ads index 3b0dec9..e512432 100644 --- a/spec/fltk-event.ads +++ b/spec/fltk-event.ads @@ -29,6 +29,8 @@ package FLTK.Event is + -- Handlers -- + procedure Add_Handler (Func : in Event_Handler); @@ -49,6 +51,8 @@ package FLTK.Event is + -- Receiving -- + function Get_Grab return access FLTK.Widgets.Groups.Windows.Window'Class; @@ -78,6 +82,8 @@ package FLTK.Event is + -- Multikey -- + function Compose (Del : out Natural) return Boolean; @@ -93,6 +99,8 @@ package FLTK.Event is + -- Modifiers -- + function Last return Event_Kind; @@ -106,6 +114,8 @@ package FLTK.Event is + -- Mouse -- + function Mouse_X return Integer; @@ -155,6 +165,8 @@ package FLTK.Event is + -- Keyboard -- + function Last_Key return Keypress; @@ -206,6 +218,7 @@ private pragma Inline (fl_widget_get_user_data); + pragma Import (C, Compose_Reset, "fl_event_compose_reset"); pragma Inline (Add_Handler); @@ -214,7 +227,6 @@ private -- pragma Inline (Set_Dispatch); -- pragma Inline (Default_Dispatch); - pragma Inline (Get_Grab); pragma Inline (Set_Grab); pragma Inline (Release_Grab); @@ -225,17 +237,14 @@ private pragma Inline (Get_Focus); pragma Inline (Set_Focus); - pragma Inline (Compose); pragma Inline (Compose_Reset); pragma Inline (Text); pragma Inline (Text_Length); - pragma Inline (Last); pragma Inline (Last_Modifier); - pragma Inline (Mouse_X); pragma Inline (Mouse_X_Root); pragma Inline (Mouse_Y); @@ -252,7 +261,6 @@ private pragma Inline (Mouse_Right); pragma Inline (Is_Inside); - pragma Inline (Last_Key); pragma Inline (Original_Last_Key); pragma Inline (Pressed_During); @@ -265,3 +273,4 @@ private end FLTK.Event; + |