note
	description: "This class represents the MS WINDOWS virtual keys."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class
	VIRTUAL_KEYS_WINDOWS

inherit
	WEL_VK_CONSTANTS

feature

	virtual_keys: ARRAY [STRING]
		local
			i : INTEGER
		once
			create Result.make (0,255)
			from
				i := 0
			variant
				256 - i
			until
				i > 255
			loop
				Result.put ("", i)
				i := i + 1
			end
			Result.put ("LBUTTON", Vk_lbutton) 
			Result.put ("RBUTTON", Vk_rbutton) 
			Result.put ("CANCEL", Vk_cancel) 
			Result.put ("MBUTTON", Vk_mbutton) 
			Result.put ("BACK", Vk_back)
			Result.put ("TAB", Vk_tab)
			Result.put ("CLEAR", Vk_clear)
			Result.put ("RETURN", Vk_return)
			Result.put ("SHIFT", Vk_shift)
			Result.put ("CONTROL", Vk_control)
			Result.put ("MENU", Vk_menu)
			Result.put ("PAUSE", Vk_pause)
			Result.put ("CAPITAL", Vk_capital)
			Result.put ("ESCAPE", Vk_escape)
			Result.put ("SPACE", Vk_space)
			Result.put ("PRIOR", Vk_prior)
			Result.put ("NEXT", Vk_next)
			Result.put ("END", Vk_end)
			Result.put ("HOME", Vk_home)
			Result.put ("LEFT", Vk_left)
			Result.put ("UP", Vk_up)
			Result.put ("RIGHT", Vk_right)
			Result.put ("DOWN", Vk_down)
			Result.put ("SELECT", Vk_select)
			Result.put ("PRINT", Vk_print)
			Result.put ("EXECUTE", Vk_execute)
			Result.put ("SNAPSHOT", Vk_snapshot)
			Result.put ("INSERT", Vk_insert)
			Result.put ("DELETE", Vk_delete)
			Result.put ("HELP", Vk_help)

			Result.put ("0", 48)
			Result.put ("1", 49)
			Result.put ("2", 50)
			Result.put ("3", 51)
			Result.put ("4", 52)
			Result.put ("5", 53)
			Result.put ("6", 54)
			Result.put ("7", 55)
			Result.put ("8", 56)
			Result.put ("9", 57)
			Result.put ("A", 65)
			Result.put ("B", 66)
			Result.put ("C", 67)
			Result.put ("D", 68)
			Result.put ("E", 69)
			Result.put ("F", 70)
			Result.put ("G", 71)
			Result.put ("H", 72)
			Result.put ("I", 73)
			Result.put ("J", 74)
			Result.put ("K", 75)
			Result.put ("L", 76)
			Result.put ("M", 77)
			Result.put ("N", 78)
			Result.put ("O", 79)
			Result.put ("P", 80)
			Result.put ("Q", 81)
			Result.put ("R", 82)
			Result.put ("S", 83)
			Result.put ("T", 84)
			Result.put ("U", 85)
			Result.put ("V", 86)
			Result.put ("W", 87)
			Result.put ("X", 88)
			Result.put ("Y", 89)
			Result.put ("Z", 90)

			Result.put ("NUMPAD0", Vk_numpad0)
			Result.put ("NUMPAD1", Vk_numpad1)
			Result.put ("NUMPAD2", Vk_numpad2)
			Result.put ("NUMPAD3", Vk_numpad3)
			Result.put ("NUMPAD4", Vk_numpad4)
			Result.put ("NUMPAD5", Vk_numpad5)
			Result.put ("NUMPAD6", Vk_numpad6)
			Result.put ("NUMPAD7", Vk_numpad7)
			Result.put ("NUMPAD8", Vk_numpad8)
			Result.put ("NUMPAD9", Vk_numpad9)
			Result.put ("MULTIPLY", Vk_multiply)
			Result.put ("ADD", Vk_add)
			Result.put ("SEPARATOR", Vk_separator)
			Result.put ("SUBTRACT", Vk_subtract)
			Result.put ("DECIMAL", Vk_decimal)
			Result.put ("DIVIDE", Vk_divide)
			Result.put ("F1", Vk_f1)
			Result.put ("F2", Vk_f2)
			Result.put ("F3", Vk_f3)
			Result.put ("F4", Vk_f4)
			Result.put ("F5", Vk_f5)
			Result.put ("F6", Vk_f6)
			Result.put ("F7", Vk_f7)
			Result.put ("F8", Vk_f8)
			Result.put ("F9", Vk_f9)
			Result.put ("F10", Vk_f10)
			Result.put ("F11", Vk_f11)
			Result.put ("F12", Vk_f12)
			Result.put ("F13", Vk_f13)
			Result.put ("F14", Vk_f14)
			Result.put ("F15", Vk_f15)
			Result.put ("F16", Vk_f16)
			Result.put ("F17", Vk_f17)
			Result.put ("F18", Vk_f18)
			Result.put ("F19", Vk_f19)
			Result.put ("F20", Vk_f20)
			Result.put ("F21", Vk_f21)
			Result.put ("F22", Vk_f22)
			Result.put ("F23", Vk_f23)
			Result.put ("F24", Vk_f24)
			Result.put ("NUMLOCK", Vk_numlock)
			Result.put ("SCROLL", Vk_scroll)
		end


note
	copyright:	"Copyright (c) 1984-2006, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"




end -- class VIRTUAL_KEYS_WINDOWS