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