with Window_Io;
package New_Keys is

    package Raw renames Window_Io.Raw;

    subtype Key_Type is Raw.Key;

    Up : Key_Type;
    Down : Key_Type;
    Left : Key_Type;
    Right : Key_Type;

    Promote : Key_Type;
    Enter : Key_Type;
    User_Interrupt : Key_Type;

    Quit : Key_Type;
    Step_Forward : Key_Type;
    Step_Backward : Key_Type;
    Step_Many : Key_Type;
    Step_Exact : Key_Type;
    Menu_Select : Key_Type;
    Select_Script : Key_Type;
    function Is_Alphabet_Key (K : Key_Type) return Boolean;

end New_Keys;