OpenEuphoria

Re: beeps

• Posted by George Walters <gwalters at sc.rr.com> Jul 23, 2004
• 579 views

Well, putting in some dots to indicate missing code ended up deleting the rest
of my message so I removed them and here it is.


I'm trying to discover why windows beeps when I "tab" through fields. It does
not beep when I "arrow" throught fields and in my code there is no (apparent to
me) difference between tabbing and arrowing. Look at this code

procedure keyPressProcessA(integer self, integer processId, sequence arg)
   integer keyCode, shift

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

   if keyCode = tab then -- make tab same as arrows
       if shift = 0 then
           keyCode = downArrow
       else
           keyCode = upArrow
       end if
   end if

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

end procedure

   setHandler(Screen, w32HKeyPress, routine_id("keyPressProcessB"))
   setHandler(Screen, w32HKeyDown, routine_id("keyPressProcessA"))

   tmp = setTabCodes(0)
   WinMain({Main,lbt[1]},Normal)

I set the code from tabbing to be the same as arrowing and hitting the arrows
does not beep but tabbing does....any Idea's??
BTW when beeps occurr what does that mean as far as win32? What is windows
trying to tell me? I'm running win32 version 59.1 if that might make any
difference.

george