OpenEuphoria

Re: Win32lib questions

• Posted by CChris <christian.cuvier at a?ric?lture.gouv.fr> Sep 28, 2007
• 670 views

Judith Evans wrote:
> 
> CChris wrote:
> > 
> > 
> > Sorry but I won't have time to code something very clever before this
> > weekend.
> > Put the following in a file, say logger.ew:
> > }}}
<eucode>
> > 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())}))
> 
> I changed the above line to:
>   {getSelf(),which,sprint(data),sprint(getLastMsg(""))}))
> 
> > end procedure
> >
> > setHandler(Screen,{w32HKeyDown,w32HKeyUp,w32HKeyboard},routine_id("log_kbd"))
> > </eucode>
{{{

> > 
> > and add at the end of IDE.exw:
> > }}}
<eucode>
> > include logger.ew
> > </eucode>
{{{

> > 
> > 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

Ooops, I wrote this hurriedly as I started office work, and I don't have
win32lib yet on this new machine. Thanks.

CChris