diff options
Diffstat (limited to 'body/fltk-event.adb')
| -rw-r--r-- | body/fltk-event.adb | 42 |
1 files changed, 33 insertions, 9 deletions
diff --git a/body/fltk-event.adb b/body/fltk-event.adb index 186df71..8c3db1f 100644 --- a/body/fltk-event.adb +++ b/body/fltk-event.adb @@ -27,6 +27,8 @@ package body FLTK.Event is -- Functions From C -- ------------------------ + -- Handlers -- + procedure fl_event_add_handler (F : in Storage.Integer_Address); pragma Import (C, fl_event_add_handler, "fl_event_add_handler"); @@ -48,6 +50,8 @@ package body FLTK.Event is + -- Receiving -- + function fl_event_get_grab return Storage.Integer_Address; pragma Import (C, fl_event_get_grab, "fl_event_get_grab"); @@ -91,16 +95,14 @@ package body FLTK.Event is + -- Multikey -- + function fl_event_compose (D : out Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_event_compose, "fl_event_compose"); pragma Inline (fl_event_compose); - procedure fl_event_compose_reset; - pragma Import (C, fl_event_compose_reset, "fl_event_compose_reset"); - pragma Inline (fl_event_compose_reset); - function fl_event_text return Interfaces.C.Strings.chars_ptr; pragma Import (C, fl_event_text, "fl_event_text"); @@ -114,6 +116,8 @@ package body FLTK.Event is + -- Modifiers -- + function fl_event_get return Interfaces.C.int; pragma Import (C, fl_event_get, "fl_event_get"); @@ -133,6 +137,8 @@ package body FLTK.Event is + -- Mouse -- + function fl_event_x return Interfaces.C.int; pragma Import (C, fl_event_x, "fl_event_x"); @@ -212,6 +218,8 @@ package body FLTK.Event is + -- Keyboard -- + function fl_event_key return Interfaces.C.int; pragma Import (C, fl_event_key, "fl_event_key"); @@ -257,6 +265,10 @@ package body FLTK.Event is + ------------- + -- Hooks -- + ------------- + function Event_Handler_Hook (Num : in Interfaces.C.int) return Interfaces.C.int @@ -296,6 +308,12 @@ package body FLTK.Event is + ----------------------- + -- API Subprograms -- + ----------------------- + + -- Handlers -- + procedure Add_Handler (Func : in Event_Handler) is begin @@ -351,6 +369,8 @@ package body FLTK.Event is + -- Receiving -- + function Get_Grab return access FLTK.Widgets.Groups.Windows.Window'Class is @@ -459,6 +479,8 @@ package body FLTK.Event is + -- Multikey -- + function Compose (Del : out Natural) return Boolean is @@ -466,11 +488,6 @@ package body FLTK.Event is return fl_event_compose (Interfaces.C.int (Del)) /= 0; end Compose; - procedure Compose_Reset is - begin - fl_event_compose_reset; - end Compose_Reset; - function Text return String @@ -494,6 +511,8 @@ package body FLTK.Event is + -- Modifiers -- + function Last return Event_Kind is begin @@ -518,6 +537,8 @@ package body FLTK.Event is + -- Mouse -- + function Mouse_X return Integer is begin @@ -631,6 +652,8 @@ package body FLTK.Event is + -- Keyboard -- + function Last_Key return Keypress is begin @@ -698,3 +721,4 @@ begin end FLTK.Event; + |