OpenEuphoria

Re: Win32lib questions

• Posted by Andy Drummond <andy at kestrel?ele.?om> Sep 28, 2007
• 674 views

CChris wrote:
> 
> 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

Thanks CChris as modified by Judith!!

I'll add it into my machine's IDE and see what I can find for you.
I'll email you, CC, with the result and any comments I have.

Andy