OpenEuphoria

beep

• Posted by George Walters <gwalters at sc.rr.com> Oct 02, 2004
• 639 views

Well, I guess I don't understand the issue of windows(xp) beeping. I've 
spend several days trying to remove the annoyance and have failed. The 
escape, enter, and tab keys beep eventhough I've placed returnValue(-1). 
  Perhaps I've put in at the wrong place in the code. Interesting is 
that if instead of using 'keyDown' I use 'keyPress' the beeping stops 
but then I have the 'q' having the same keyCode as 'F2'problem. Here's a 
snip of the code

If anyone has a hint of where to look please clue me in...
BTW, I'm using win32 59.1

--------------------------------------------------------------------------
procedure keyDownProcess(integer self, integer processId, sequence arg)

     integer keyCode, shift


	keyCode = arg[1]
	shift   = arg[2]

     if find (keyCode, {esc, tab, downArrow, upArrow, cr, f1, 
f2, f3 , 					f4, f5, f6, f7, f8, f9, f10}) then

     	SpecialKeyProcess(self, processId, {keyCode, shift})
		returnValue(-1)

     else

		NormalKeyProcess(self, processId, {keyCode, shift})

     end if

end procedure


--	setHandler(Screen, w32HKeyPress, routine_id("keyPressProcess"))
	setHandler(Screen, w32HKeyDown, routine_id("keyDownProcess"))
-------------------------------------------------------------------------------------
     WinMain(Main,Normal)