diff options
Diffstat (limited to 'src/fltk-event.adb')
-rw-r--r-- | src/fltk-event.adb | 64 |
1 files changed, 64 insertions, 0 deletions
diff --git a/src/fltk-event.adb b/src/fltk-event.adb index a62f0ee..398021d 100644 --- a/src/fltk-event.adb +++ b/src/fltk-event.adb @@ -4,6 +4,10 @@ with Interfaces.C; +use type + + Interfaces.C.int; + package body FLTK.Event is @@ -15,6 +19,29 @@ package body FLTK.Event is + function fl_event_x + return Interfaces.C.int; + pragma Import (C, fl_event_x, "fl_event_x"); + + function fl_event_x_root + return Interfaces.C.int; + pragma Import (C, fl_event_x_root, "fl_event_x_root"); + + function fl_event_y + return Interfaces.C.int; + pragma Import (C, fl_event_y, "fl_event_y"); + + function fl_event_y_root + return Interfaces.C.int; + pragma Import (C, fl_event_y_root, "fl_event_y_root"); + + function fl_event_is_click + return Interfaces.C.int; + pragma Import (C, fl_event_is_click, "fl_event_is_click"); + + + + function Last_Keypress return Shortcut_Key is begin @@ -22,5 +49,42 @@ package body FLTK.Event is end Last_Keypress; + + + function Mouse_X + return Integer is + begin + return Integer (fl_event_x); + end Mouse_X; + + + function Mouse_X_Root + return Integer is + begin + return Integer (fl_event_x_root); + end Mouse_X_Root; + + + function Mouse_Y + return Integer is + begin + return Integer (fl_event_y); + end Mouse_Y; + + + function Mouse_Y_Root + return Integer is + begin + return Integer (fl_event_y_root); + end Mouse_Y_Root; + + + function Is_Click + return Boolean is + begin + return fl_event_is_click /= 0; + end Is_Click; + + end FLTK.Event; |