DataMuseum.dk

top - download

    Length: 17247 (0x435f)
    Types: TextFile
    Names: »V«

└─⟦6ac9a67ca⟧ Bits:30000548 8mm tape, Rational 1000, access 1_0_1
    └─ ⟦78f173837⟧ »DATA« 
        └─⟦687a7d38f⟧ 
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦687a7d38f⟧ 
            └─⟦ac87b4c51⟧ 
                └─⟦this⟧ 
└─⟦6c4f54b10⟧ Bits:30000747 8mm tape, Rational 1000, ACCESS 0_8_0 INTERNAL RELEASE
    └─ ⟦5d1d5404f⟧ »DATA« 
        └─⟦bc378d74e⟧ 
            └─⟦this⟧ 

TextFile

package Rational_Access_Key_Names is

----Generic X Keysym key file.
----05/23/89 - Mouse_0..Mouse_9
----4/15/92
----7/10/92 Mouse_Button7[_Up,_Dbl]..Mouse_Button9[_Up,_Dbl]
    type Key_Names is  
       (

----Special non-X11 keys we need for Rational Menus

        Menu_Job_Kill, Menu_Job_Disable, Menu_Debug_Stop, Menu_Return,

        Mouse_Argument, Mouse_Down, Mouse_Right,  
        Mouse_Image_Down, Mouse_Image_Right,  
        Mouse_Button1, Mouse_Button2, Mouse_Button3,  
        Mouse_Button4, Mouse_Button5, Mouse_Button6,
        Mouse_Button7, Mouse_Button8, Mouse_Button9,
        Mouse_Button1_Up, Mouse_Button2_Up, Mouse_Button3_Up,  
        Mouse_Button4_Up, Mouse_Button5_Up, Mouse_Button6_Up,
        Mouse_Button7_Up, Mouse_Button8_Up, Mouse_Button9_Up,
        Mouse_Button1_Dbl, Mouse_Button2_Dbl, Mouse_Button3_Dbl,  
        Mouse_Button4_Dbl, Mouse_Button5_Dbl, Mouse_Button6_Dbl,
        Mouse_Button7_Dbl, Mouse_Button8_Dbl, Mouse_Button9_Dbl,

        Menu_Pick, Mouse_Minus,  
        Mouse_0, Mouse_1, Mouse_2, Mouse_3, Mouse_4,  
        Mouse_5, Mouse_6, Mouse_7, Mouse_8, Mouse_9,

        X_No_Op, X_Screen_Height, X_Screen_Width, X_Screen_Redraw,

----X11 Miscellaneous Keys

        Backspace,      -- back space, back char
        S_Backspace, C_Backspace, M_Backspace, Cs_Backspace,
        Cm_Backspace, Ms_Backspace, Cms_Backspace,

        Tab, S_Tab, C_Tab, M_Tab, Cs_Tab, Cm_Tab, Ms_Tab, Cms_Tab,

        Linefeed,       -- Linefeed, LF
        C_Linefeed, M_Linefeed, Cm_Linefeed, S_Linefeed,
        Cs_Linefeed, Ms_Linefeed, Cms_Linefeed,

        Carriage_Return,-- Return, enter
        C_Carriage_Return, M_Carriage_Return, Cm_Carriage_Return,
        S_Carriage_Return, Cs_Carriage_Return,
        Ms_Carriage_Return, Cms_Carriage_Return,

        Escape, C_Escape, M_Escape, Cm_Escape,
        S_Escape, Cs_Escape, Ms_Escape, Cms_Escape,

        Delete,         -- Delete, rubout
        C_Delete, M_Delete, Cm_Delete, S_Delete,
        Cs_Delete, Ms_Delete, Cms_Delete,

        Left,           -- Move left, left arrow
        C_Left, M_Left, Cm_Left, S_Left, Cs_Left, Ms_Left, Cms_Left,

        Up,             -- Move up, up arrow
        C_Up, M_Up, Cm_Up, S_Up, Cs_Up, Ms_Up, Cms_Up,

        Right,          -- Move right, right arrow
        C_Right, M_Right, Cm_Right, S_Right, Cs_Right, Ms_Right, Cms_Right,

        Down,           -- Move down, down arrow
        C_Down, M_Down, Cm_Down, S_Down, Cs_Down, Ms_Down, Cms_Down,

        Alt, C_Alt, M_Alt, Cm_Alt, S_Alt, Cs_Alt, Ms_Alt, Cms_Alt,

        Alt_Graph, C_Alt_Graph, M_Alt_Graph, Cm_Alt_Graph,
        S_Alt_Graph, Cs_Alt_Graph, Ms_Alt_Graph, Cms_Alt_Graph,

        Compose, C_Compose, M_Compose, Cm_Compose,
        S_Compose, Cs_Compose, Ms_Compose, Cms_Compose,

        Stop, C_Stop, M_Stop, Cm_Stop,  
        S_Stop, Cs_Stop, Ms_Stop, Cms_Stop,

        Again, C_Again, M_Again, Cm_Again,  
        S_Again, Cs_Again, Ms_Again, Cms_Again,

        Props, C_Props, M_Props, Cm_Props,  
        S_Props, Cs_Props, Ms_Props, Cms_Props,

        Undo, C_Undo, M_Undo, Cm_Undo,  
        S_Undo, Cs_Undo, Ms_Undo, Cms_Undo,

        Front, C_Front, M_Front, Cm_Front,  
        S_Front, Cs_Front, Ms_Front, Cms_Front,

        Copy, C_Copy, M_Copy, Cm_Copy,  
        S_Copy, Cs_Copy, Ms_Copy, Cms_Copy,

        Open, C_Open, M_Open, Cm_Open,  
        S_Open, Cs_Open, Ms_Open, Cms_Open,

        Paste, C_Paste, M_Paste, Cm_Paste,  
        S_Paste, Cs_Paste, Ms_Paste, Cms_Paste,

        Find, C_Find, M_Find, Cm_Find,  
        S_Find, Cs_Find, Ms_Find, Cms_Find,

        Cut, C_Cut, M_Cut, Cm_Cut,  
        S_Cut, Cs_Cut, Ms_Cut, Cms_Cut,

        Help, C_Help, M_Help, Cm_Help,  
        S_Help, Cs_Help, Ms_Help, Cms_Help,

        Object, Region, Window, Image, Line, Word, Mark,


        Pause, C_Pause, M_Pause, Cm_Pause,  
        S_Pause, Cs_Pause, Ms_Pause, Cms_Pause,

        Print, C_Print, M_Print, Cm_Print,  
        S_Print, Cs_Print, Ms_Print, Cms_Print,

        Num_Lock, C_Num_Lock, M_Num_Lock, Cm_Num_Lock,  
        S_Num_Lock, Cs_Num_Lock, Ms_Num_Lock, Cms_Num_Lock,

        Scroll_Lock, C_Scroll_Lock, M_Scroll_Lock, Cm_Scroll_Lock,  
        S_Scroll_Lock, Cs_Scroll_Lock, Ms_Scroll_Lock, Cms_Scroll_Lock,

        Kp_Equal, C_Kp_Equal, M_Kp_Equal, Cm_Kp_Equal,  
        S_Kp_Equal, Cs_Kp_Equal, Ms_Kp_Equal, Cms_Kp_Equal,

        Kp_Divide, C_Kp_Divide, M_Kp_Divide, Cm_Kp_Divide,  
        S_Kp_Divide, Cs_Kp_Divide, Ms_Kp_Divide, Cms_Kp_Divide,

        Kp_Multiply, C_Kp_Multiply, M_Kp_Multiply, Cm_Kp_Multiply,  
        S_Kp_Multiply, Cs_Kp_Multiply, Ms_Kp_Multiply, Cms_Kp_Multiply,

        Kp_Subtract, C_Kp_Subtract, M_Kp_Subtract, Cm_Kp_Subtract,  
        S_Kp_Subtract, Cs_Kp_Subtract, Ms_Kp_Subtract, Cms_Kp_Subtract,

        Begin_Of, C_Begin_Of, M_Begin_Of, Cm_Begin_Of,  
        S_Begin_Of, Cs_Begin_Of, Ms_Begin_Of, Cms_Begin_Of,

        Page_Up, C_Page_Up, M_Page_Up, Cm_Page_Up,  
        S_Page_Up, Cs_Page_Up, Ms_Page_Up, Cms_Page_Up,

        Kp_Add, C_Kp_Add, M_Kp_Add, Cm_Kp_Add,  
        S_Kp_Add, Cs_Kp_Add, Ms_Kp_Add, Cms_Kp_Add,

        Kp_5, C_Kp_5, M_Kp_5, Cm_Kp_5,  
        S_Kp_5, Cs_Kp_5, Ms_Kp_5, Cms_Kp_5,

        End_Key, C_End_Key, M_End_Key, Cm_End_Key,  
        S_End_Key, Cs_End_Key, Ms_End_Key, Cms_End_Key,

        Page_Down, C_Page_Down, M_Page_Down, Cm_Page_Down,  
        S_Page_Down, Cs_Page_Down, Ms_Page_Down, Cms_Page_Down,

        Kp_Enter, C_Kp_Enter, M_Kp_Enter, Cm_Kp_Enter,  
        S_Kp_Enter, Cs_Kp_Enter, Ms_Kp_Enter, Cms_Kp_Enter,

        Insert, C_Insert, M_Insert, Cm_Insert,  
        S_Insert, Cs_Insert, Ms_Insert, Cms_Insert,

        Kp_Decimal, C_Kp_Decimal, M_Kp_Decimal, Cm_Kp_Decimal,  
        S_Kp_Decimal, Cs_Kp_Decimal, Ms_Kp_Decimal, Cms_Kp_Decimal,

        F1, C_F1, M_F1, Cm_F1, S_F1, Cs_F1, Ms_F1, Cms_F1,  
        F2, C_F2, M_F2, Cm_F2, S_F2, Cs_F2, Ms_F2, Cms_F2,  
        F3, C_F3, M_F3, Cm_F3, S_F3, Cs_F3, Ms_F3, Cms_F3,  
        F4, C_F4, M_F4, Cm_F4, S_F4, Cs_F4, Ms_F4, Cms_F4,  
        F5, C_F5, M_F5, Cm_F5, S_F5, Cs_F5, Ms_F5, Cms_F5,  
        F6, C_F6, M_F6, Cm_F6, S_F6, Cs_F6, Ms_F6, Cms_F6,  
        F7, C_F7, M_F7, Cm_F7, S_F7, Cs_F7, Ms_F7, Cms_F7,  
        F8, C_F8, M_F8, Cm_F8, S_F8, Cs_F8, Ms_F8, Cms_F8,  
        F9, C_F9, M_F9, Cm_F9, S_F9, Cs_F9, Ms_F9, Cms_F9,

        F10, C_F10, M_F10, Cm_F10,  
        S_F10, Cs_F10, Ms_F10, Cms_F10,

        F11, C_F11, M_F11, Cm_F11,  
        S_F11, Cs_F11, Ms_F11, Cms_F11,

        F12, C_F12, M_F12, Cm_F12,  
        S_F12, Cs_F12, Ms_F12, Cms_F12,


----X11 Latin1 keys

        ' ', C_Space, M_Space, Cm_Space, S_Space, Cs_Space, Ms_Space, Cms_Space,  
        '!', C_Exclam, M_Exclam, Cm_Exclam,  
        '"', C_Quotation, M_Quotation, Cm_Quotation,  
        '#', C_Sharp, M_Sharp, Cm_Sharp,  
        '$', C_Dollar, M_Dollar, Cm_Dollar,  
        '%', C_Percent, M_Percent, Cm_Percent,  
        '&', C_Ampersand, M_Ampersand, Cm_Ampersand,  
        ''', C_Tick, M_Tick, Cm_Tick,  
        '(', C_Left_Paren, M_Left_Paren, Cm_Left_Paren,  
        ')', C_Right_Paren, M_Right_Paren, Cm_Right_Paren,  
        '*', C_Star, M_Star, Cm_Star,  
        '+', C_Plus, M_Plus, Cm_Plus,  
        ',', C_Comma, M_Comma, Cm_Comma,  
        '-', C_Minus, M_Minus, Cm_Minus,  
        '.', C_Period, M_Period, Cm_Period,  
        '/', C_Slash, M_Slash, Cm_Slash,  
        '0', C_0, M_0, Cm_0,  
        '1', C_1, M_1, Cm_1,  
        '2', C_2, M_2, Cm_2,  
        '3', C_3, M_3, Cm_3,  
        '4', C_4, M_4, Cm_4,  
        '5', C_5, M_5, Cm_5,  
        '6', C_6, M_6, Cm_6,  
        '7', C_7, M_7, Cm_7,  
        '8', C_8, M_8, Cm_8,  
        '9', C_9, M_9, Cm_9,  
        ':', C_Colon, M_Colon, Cm_Colon,  
        ';', C_Semicolon, M_Semicolon, Cm_Semicolon,  
        '<', C_Less_Than, M_Less_Than, Cm_Less_Than,  
        '=', C_Equal, M_Equal, Cm_Equal,  
        '>', C_Greater_Than, M_Greater_Than, Cm_Greater_Than,  
        '?', C_Question, M_Question, Cm_Question,  
        '@', C_At_Sign, M_At_Sign, Cm_At_Sign,

        'a', C_A, M_A, Cm_A, 'A', Cs_A, Ms_A, Cms_A,  
        'b', C_B, M_B, Cm_B, 'B', Cs_B, Ms_B, Cms_B,  
        'c', C_C, M_C, Cm_C, 'C', Cs_C, Ms_C, Cms_C,  
        'd', C_D, M_D, Cm_D, 'D', Cs_D, Ms_D, Cms_D,  
        'e', C_E, M_E, Cm_E, 'E', Cs_E, Ms_E, Cms_E,  
        'f', C_F, M_F, Cm_F, 'F', Cs_F, Ms_F, Cms_F,  
        'g', C_G, M_G, Cm_G, 'G', Cs_G, Ms_G, Cms_G,  
        'h', C_H, M_H, Cm_H, 'H', Cs_H, Ms_H, Cms_H,  
        'i', C_I, M_I, Cm_I, 'I', Cs_I, Ms_I, Cms_I,  
        'j', C_J, M_J, Cm_J, 'J', Cs_J, Ms_J, Cms_J,  
        'k', C_K, M_K, Cm_K, 'K', Cs_K, Ms_K, Cms_K,  
        'l', C_L, M_L, Cm_L, 'L', Cs_L, Ms_L, Cms_L,  
        'm', C_M, M_M, Cm_M, 'M', Cs_M, Ms_M, Cms_M,  
        'n', C_N, M_N, Cm_N, 'N', Cs_N, Ms_N, Cms_N,  
        'o', C_O, M_O, Cm_O, 'O', Cs_O, Ms_O, Cms_O,  
        'p', C_P, M_P, Cm_P, 'P', Cs_P, Ms_P, Cms_P,  
        'q', C_Q, M_Q, Cm_Q, 'Q', Cs_Q, Ms_Q, Cms_Q,  
        'r', C_R, M_R, Cm_R, 'R', Cs_R, Ms_R, Cms_R,  
        's', C_S, M_S, Cm_S, 'S', Cs_S, Ms_S, Cms_S,  
        't', C_T, M_T, Cm_T, 'T', Cs_T, Ms_T, Cms_T,  
        'u', C_U, M_U, Cm_U, 'U', Cs_U, Ms_U, Cms_U,  
        'v', C_V, M_V, Cm_V, 'V', Cs_V, Ms_V, Cms_V,  
        'w', C_W, M_W, Cm_W, 'W', Cs_W, Ms_W, Cms_W,  
        'x', C_X, M_X, Cm_X, 'X', Cs_X, Ms_X, Cms_X,  
        'y', C_Y, M_Y, Cm_Y, 'Y', Cs_Y, Ms_Y, Cms_Y,  
        'z', C_Z, M_Z, Cm_Z, 'Z', Cs_Z, Ms_Z, Cms_Z,

        '[', C_Left_Bracket, M_Left_Bracket, Cm_Left_Bracket,  
        '\', C_Backslash, M_Backslash, Cm_Backslash,  
        ']', C_Right_Bracket, M_Right_Bracket, Cm_Right_Bracket,  
        '^', C_Circumflex, M_Circumflex, Cm_Circumflex,  
        '_', C_Underline, M_Underline, Cm_Underline,  
        '`', C_Grave, M_Grave, Cm_Grave,

        '{', C_Left_Brace, M_Left_Brace, Cm_Left_Brace,  
        '|', C_Bar, M_Bar, Cm_Bar,  
        '}', C_Right_Brace, M_Right_Brace, Cm_Right_Brace,  
        '~', C_Tilde, M_Tilde, Cm_Tilde

        );

----Convenient names for control characters.

    Nul : constant Key_Names := C_At_Sign;

    Home : constant Key_Names := Begin_Of;
    C_Home : constant Key_Names := C_Begin_Of;
    M_Home : constant Key_Names := M_Begin_Of;
    Cm_Home : constant Key_Names := Cm_Begin_Of;  
    S_Home : constant Key_Names := S_Begin_Of;
    Cs_Home : constant Key_Names := Cs_Begin_Of;
    Ms_Home : constant Key_Names := Ms_Begin_Of;
    Cms_Home : constant Key_Names := Cms_Begin_Of;

    Kp_0 : constant Key_Names := Insert;
    S_Kp_0 : constant Key_Names := S_Insert;
    C_Kp_0 : constant Key_Names := C_Insert;
    M_Kp_0 : constant Key_Names := M_Insert;
    Cs_Kp_0 : constant Key_Names := Cs_Insert;
    Ms_Kp_0 : constant Key_Names := Ms_Insert;
    Cm_Kp_0 : constant Key_Names := Cm_Insert;
    Cms_Kp_0 : constant Key_Names := Cms_Insert;

    Kp_1 : constant Key_Names := End_Key;
    S_Kp_1 : constant Key_Names := S_End_Key;
    C_Kp_1 : constant Key_Names := C_End_Key;
    M_Kp_1 : constant Key_Names := M_End_Key;
    Cs_Kp_1 : constant Key_Names := Cs_End_Key;
    Ms_Kp_1 : constant Key_Names := Ms_End_Key;
    Cm_Kp_1 : constant Key_Names := Cm_End_Key;
    Cms_Kp_1 : constant Key_Names := Cms_End_Key;

    Kp_2 : constant Key_Names := Down;
    S_Kp_2 : constant Key_Names := S_Down;
    C_Kp_2 : constant Key_Names := C_Down;
    M_Kp_2 : constant Key_Names := M_Down;
    Cs_Kp_2 : constant Key_Names := Cs_Down;
    Ms_Kp_2 : constant Key_Names := Ms_Down;
    Cm_Kp_2 : constant Key_Names := Cm_Down;
    Cms_Kp_2 : constant Key_Names := Cms_Down;

    Kp_3 : constant Key_Names := Page_Down;
    S_Kp_3 : constant Key_Names := S_Page_Down;
    C_Kp_3 : constant Key_Names := C_Page_Down;
    M_Kp_3 : constant Key_Names := M_Page_Down;
    Cs_Kp_3 : constant Key_Names := Cs_Page_Down;
    Ms_Kp_3 : constant Key_Names := Ms_Page_Down;
    Cm_Kp_3 : constant Key_Names := Cm_Page_Down;
    Cms_Kp_3 : constant Key_Names := Cms_Page_Down;

    Kp_4 : constant Key_Names := Left;
    S_Kp_4 : constant Key_Names := S_Left;
    C_Kp_4 : constant Key_Names := C_Left;
    M_Kp_4 : constant Key_Names := M_Left;
    Cs_Kp_4 : constant Key_Names := Cs_Left;
    Ms_Kp_4 : constant Key_Names := Ms_Left;
    Cm_Kp_4 : constant Key_Names := Cm_Left;
    Cms_Kp_4 : constant Key_Names := Cms_Left;

    Kp_6 : constant Key_Names := Right;
    S_Kp_6 : constant Key_Names := S_Right;
    C_Kp_6 : constant Key_Names := C_Right;
    M_Kp_6 : constant Key_Names := M_Right;
    Cs_Kp_6 : constant Key_Names := Cs_Right;
    Ms_Kp_6 : constant Key_Names := Ms_Right;
    Cm_Kp_6 : constant Key_Names := Cm_Right;
    Cms_Kp_6 : constant Key_Names := Cms_Right;

    Kp_7 : constant Key_Names := Begin_Of;
    S_Kp_7 : constant Key_Names := S_Begin_Of;
    C_Kp_7 : constant Key_Names := C_Begin_Of;
    M_Kp_7 : constant Key_Names := M_Begin_Of;
    Cs_Kp_7 : constant Key_Names := Cs_Begin_Of;
    Ms_Kp_7 : constant Key_Names := Ms_Begin_Of;
    Cm_Kp_7 : constant Key_Names := Cm_Begin_Of;
    Cms_Kp_7 : constant Key_Names := Cms_Begin_Of;

    Kp_8 : constant Key_Names := Up;
    S_Kp_8 : constant Key_Names := S_Up;
    C_Kp_8 : constant Key_Names := C_Up;
    M_Kp_8 : constant Key_Names := M_Up;
    Cs_Kp_8 : constant Key_Names := Cs_Up;
    Ms_Kp_8 : constant Key_Names := Ms_Up;
    Cm_Kp_8 : constant Key_Names := Cm_Up;
    Cms_Kp_8 : constant Key_Names := Cms_Up;

    Kp_9 : constant Key_Names := Page_Up;
    S_Kp_9 : constant Key_Names := S_Page_Up;
    C_Kp_9 : constant Key_Names := C_Page_Up;
    M_Kp_9 : constant Key_Names := M_Page_Up;
    Cs_Kp_9 : constant Key_Names := Cs_Page_Up;
    Ms_Kp_9 : constant Key_Names := Ms_Page_Up;
    Cm_Kp_9 : constant Key_Names := Cm_Page_Up;
    Cms_Kp_9 : constant Key_Names := Cms_Page_Up;

    L1 : constant Key_Names := Stop;
    C_L1 : constant Key_Names := C_Stop;
    M_L1 : constant Key_Names := M_Stop;
    Cm_L1 : constant Key_Names := Cm_Stop;  
    S_L1 : constant Key_Names := S_Stop;
    Cs_L1 : constant Key_Names := Cs_Stop;
    Ms_L1 : constant Key_Names := Ms_Stop;
    Cms_L1 : constant Key_Names := Cms_Stop;

    L2 : constant Key_Names := Again;
    C_L2 : constant Key_Names := C_Again;
    M_L2 : constant Key_Names := M_Again;
    Cm_L2 : constant Key_Names := Cm_Again;  
    S_L2 : constant Key_Names := S_Again;
    Cs_L2 : constant Key_Names := Cs_Again;
    Ms_L2 : constant Key_Names := Ms_Again;
    Cms_L2 : constant Key_Names := Cms_Again;

    L3 : constant Key_Names := Props;
    C_L3 : constant Key_Names := C_Props;
    M_L3 : constant Key_Names := M_Props;
    Cm_L3 : constant Key_Names := Cm_Props;  
    S_L3 : constant Key_Names := S_Props;
    Cs_L3 : constant Key_Names := Cs_Props;
    Ms_L3 : constant Key_Names := Ms_Props;
    Cms_L3 : constant Key_Names := Cms_Props;

    L4 : constant Key_Names := Undo;
    C_L4 : constant Key_Names := C_Undo;
    M_L4 : constant Key_Names := M_Undo;
    Cm_L4 : constant Key_Names := Cm_Undo;  
    S_L4 : constant Key_Names := S_Undo;
    Cs_L4 : constant Key_Names := Cs_Undo;
    Ms_L4 : constant Key_Names := Ms_Undo;
    Cms_L4 : constant Key_Names := Cms_Undo;

    L5 : constant Key_Names := Front;
    C_L5 : constant Key_Names := C_Front;
    M_L5 : constant Key_Names := M_Front;
    Cm_L5 : constant Key_Names := Cm_Front;  
    S_L5 : constant Key_Names := S_Front;
    Cs_L5 : constant Key_Names := Cs_Front;
    Ms_L5 : constant Key_Names := Ms_Front;
    Cms_L5 : constant Key_Names := Cms_Front;

    L6 : constant Key_Names := Copy;
    C_L6 : constant Key_Names := C_Copy;
    M_L6 : constant Key_Names := M_Copy;
    Cm_L6 : constant Key_Names := Cm_Copy;  
    S_L6 : constant Key_Names := S_Copy;
    Cs_L6 : constant Key_Names := Cs_Copy;
    Ms_L6 : constant Key_Names := Ms_Copy;
    Cms_L6 : constant Key_Names := Cms_Copy;

    L7 : constant Key_Names := Open;
    C_L7 : constant Key_Names := C_Open;
    M_L7 : constant Key_Names := M_Open;
    Cm_L7 : constant Key_Names := Cm_Open;  
    S_L7 : constant Key_Names := S_Open;
    Cs_L7 : constant Key_Names := Cs_Open;
    Ms_L7 : constant Key_Names := Ms_Open;
    Cms_L7 : constant Key_Names := Cms_Open;

    L8 : constant Key_Names := Paste;
    C_L8 : constant Key_Names := C_Paste;
    M_L8 : constant Key_Names := M_Paste;
    Cm_L8 : constant Key_Names := Cm_Paste;  
    S_L8 : constant Key_Names := S_Paste;
    Cs_L8 : constant Key_Names := Cs_Paste;
    Ms_L8 : constant Key_Names := Ms_Paste;
    Cms_L8 : constant Key_Names := Cms_Paste;

    L9 : constant Key_Names := Find;
    C_L9 : constant Key_Names := C_Find;
    M_L9 : constant Key_Names := M_Find;
    Cm_L9 : constant Key_Names := Cm_Find;  
    S_L9 : constant Key_Names := S_Find;
    Cs_L9 : constant Key_Names := Cs_Find;
    Ms_L9 : constant Key_Names := Ms_Find;
    Cms_L9 : constant Key_Names := Cms_Find;

    L10 : constant Key_Names := Cut;
    C_L10 : constant Key_Names := C_Cut;
    M_L10 : constant Key_Names := M_Cut;
    Cm_L10 : constant Key_Names := Cm_Cut;  
    S_L10 : constant Key_Names := S_Cut;
    Cs_L10 : constant Key_Names := Cs_Cut;
    Ms_L10 : constant Key_Names := Ms_Cut;
    Cms_L10 : constant Key_Names := Cms_Cut;

end Rational_Access_Key_Names;