1with agar.core.event;
2
3package keyevent_callbacks is
4  package gui_event renames agar.core.event;
5
6  procedure keydown (event : gui_event.event_access_t);
7  procedure keyup (event : gui_event.event_access_t);
8  procedure quit (event : gui_event.event_access_t);
9
10  pragma convention (c, keydown);
11  pragma convention (c, keyup);
12  pragma convention (c, quit);
13end keyevent_callbacks;
14