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