class interface KEYBOARD_ROUTINES feature(s) from KEYBOARD_ROUTINES -- Functions ascii_to_vkey (alpha: CHARACTER): VIRTUAL_KEY -- Produce virtual key corresponding to alpha character. require alpha: is_alpha(alpha) ensure is_copy: Result /= Void control_x_accelerator (alpha: CHARACTER): ACCELERATOR -- Create a classic control+letter accelerator based -- on a virtual key (to avoid case sensitivity of -- character based accelerator). require alpha: is_alpha(alpha) ensure is_copy: Result /= Void is_alpha (char: CHARACTER): BOOLEAN -- Is character an a-z code? (case insensitive) end of KEYBOARD_ROUTINES