OpenEuphoria

Can't trap the down arrow key

• Posted by Ron Austin <ronaustin at alltel.net> Nov 25, 2003
• 394 views

I want to use the up and down arrows to scroll back and forth through a 
file, but I can't seem to get the up and down arrows to do anything.  I 
have a screen with six LText controls, Diag[1] thru Diag[6}.  Here's the 
code I used to see if my program recognized the down arrow key:

onKeyDown[Diag[1]] = routine_id("onKeyDown_Win")
onKeyDown[Diag[2]] = routine_id("onKeyDown_Win")
onKeyDown[Diag[3]] = routine_id("onKeyDown_Win")
onKeyDown[Diag[4]] = routine_id("onKeyDown_Win")
onKeyDown[Diag[5]] = routine_id("onKeyDown_Win")
onKeyDown[Diag[6]] = routine_id("onKeyDown_Win")

procedure OnKeyDown_Win(integer key, integer shift)

setText(Diag[2],"Gotcha")

	if key =  VK_DOWN then
	    setText(Diag[2],"Gotcha Again")
	end if
end procedure

Neither "Gotcha" or "Gotcha Again" show up on the screen.  What do you 
suppose the problem is?