OpenEuphoria

Re: Win32lib questions

• Posted by CChris <christian.cuvier at agric?ltur?.gouv.fr> Sep 28, 2007
• 686 views

Sorry but I won't have time to code something very clever before this weekend.
Put the following in a file, say logger.ew:

include win32lib.ew

constant logfile=open("keylog.out","w")

procedure log_kbd(integer id,integer event,sequence data)
sequence which
if event=w32HKeyDown then which="down" 
elsif event=w32HKeyUp then which="up"
else which="keyboard"
end if
puts(logfile,sprintf("%d got key event %s: \n\tEvent data: %s\n\tMessage data:
%s\n",
  {getSelf(),which,sprint(data),sprint(GetLastMsg())}))
end procedure
setHandler(Screen,{w32HKeyDown,w32HKeyUp,w32HKeyboard},routine_id("log_kbd"))

and add at the end of IDE.exw:

include logger.ew

When you encounter the problem, try keying a very unusual keyboard sequence
(like shift-alt-F5 or something). This will be an useful marker. Then close IDE,
zip keylog.out which should be alongside IDE.exw and email it to me at oedoc hat
free doubt fr .

Hopefully this will catch enough info for me to figure out whats going on.
Anyone else with the problem can try it as well and send output to me too.

CChris