From 1c0ddbf9eeb33f6bedc1fb9156e124b3a7b17bbc Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 13 May 2017 12:35:40 +1000 Subject: Handle method added for Boxes, Buttons, Widgets --- src/fltk-enums.ads | 29 +++++++++++++++++++++++++++++ 1 file changed, 29 insertions(+) (limited to 'src/fltk-enums.ads') diff --git a/src/fltk-enums.ads b/src/fltk-enums.ads index 91f7353..0057cec 100644 --- a/src/fltk-enums.ads +++ b/src/fltk-enums.ads @@ -99,6 +99,35 @@ package FLTK.Enums is Free_Label); + type Event_Kind is + (No_Event, + Push, + Release, + Enter, + Leave, + Drag, + Focus, + Unfocus, + Keydown, + Keyup, + Close, + Move, + Shortcut, + Deactivate, + Activate, + Hide, + Show, + Paste, + Selection_Clear, + Mouse_Wheel, + DnD_Enter, + DnD_Drag, + DnD_Leave, + DnD_Release, + Screen_Config_Changed, + Fullscreen); + + -- type Modifier_Key is private; type Modifier_Key is new Interfaces.Unsigned_8; -- cgit