Commit in CVS (665-Fix).
Laurent.
> BOOL
> PeekMessage(handle, min=0, max=0, message=&PL_sv_undef)
> HWND handle
> UINT min
> UINT max
> SV* message
> PREINIT:
> MSG msg;
> CODE:
> ZeroMemory(&msg, sizeof(msg));
> RETVAL = PeekMessage(&msg, handle, min, max, PM_NOREMOVE);
> if(message != &PL_sv_undef) {
> if(SvROK(message) && SvTYPE(SvRV(message)) == SVt_PVAV) {
> av_clear((AV*) SvRV(message));
> av_push((AV*) SvRV(message), newSViv((long) msg.hwnd));
> av_push((AV*) SvRV(message), newSViv(msg.message));
> av_push((AV*) SvRV(message), newSViv(msg.wParam));
> av_push((AV*) SvRV(message), newSViv(msg.lParam));
> av_push((AV*) SvRV(message), newSViv(msg.time));
> av_push((AV*) SvRV(message), newSViv(msg.pt.x));
> av_push((AV*) SvRV(message), newSViv(msg.pt.y));
> } else {
> if(PL_dowarn) warn("Win32::GUI: fourth parameter to
PeekMessage is not an array reference");
> }
> }
> OUTPUT:
> RETVAL
>
