OpenEuphoria

Re: win32lib v0.58.5 release

• Posted by Derek Parnell <ddparnell at bigpond.com> Apr 17, 2003
• 415 views

This is a multi-part message in MIME format.

------=_NextPart_000_0065_01C30578.833C7E20
	charset="iso-8859-1"

Here's is a replacement "click.exw" demo.

----------------
cheers,
Derek Parnell
----- Original Message -----
From: "C. K. Lester" <cklester at yahoo.com>
To: "EUforum" <EUforum at topica.com>
Sent: Friday, April 18, 2003 5:06 AM
Subject: Re: win32lib v0.58.5 release


>
> Derek,
>
> I found that in click.exw, the scroll mouse causes the following crash:
>
> C:\Euphoria_Programs\win32lib\Demo\click.exw:27 in procedure showclick()
> subscript value 10 is out of bounds, reading from a sequence of length 6
> ... called from C:\EUPHORIA\include\win32lib.ew:7121 in function
> invokeHandler()
>
> ... called from C:\EUPHORIA\include\win32lib.ew:22671 in function
fDoMouse()
> ... called from C:\EUPHORIA\include\win32lib.ew:23884 in function
> MessageProcess
> or()
> ... called from C:\EUPHORIA\include\win32lib.ew:23937 in function
SubProc()
>
> ^^^ call-back from Windows
> ... called from C:\EUPHORIA\include\w32dll.ew:279 in procedure w32Proc()
> ... called from C:\EUPHORIA\include\win32lib.ew:24215 in procedure
> eventLoop()
>
> ... called from C:\EUPHORIA\include\win32lib.ew:24359 in procedure
WinMain()
> ... called from C:\Euphoria_Programs\win32lib\Demo\click.exw:34
> --> see ex.err
>
>
>
> TOPICA - Start your own email discussion group. FREE!
>

------=_NextPart_000_0065_01C30578.833C7E20
Content-Type: application/octet-stream;
	name="click.exw"
Content-Transfer-Encoding: quoted-printable
Content-Disposition: attachment;
	filename="click.exw"

include win32lib.ew
without warning

constant win =3D create(Window, "Click", 0, 0, 0, 450, 450, 0),
         sb  =3D create(StatusBar, "", win, 0, 0, 0, 0, 0),
         lv =3D create(ListView, "", win, 10, 10, 150, 150, 0),
         ls =3D create(List, "", win, 200, 10, 200, 350, WS_VSCROLL),
         bt =3D create(Button, "NULL", win, 10, 180, 40, 25, 0)

integer s s =3D 0        =20
integer oldself oldself =3D 0
constant mev =3D {"Left Down", "Left Up", "Left Dbl", "Right Down", =
"Right Up", "Right Dbl",
                "Middle Down", "Middle Up", "", "Wheel"}
constant ctl =3D {{win,sb,lv,ls,bt}, {"Window", "Statusbar", "ListView", =
"List", "Button"}}

procedure showclick(integer self, integer event, sequence parms)

    sequence lx
   =20
    if parms[1] =3D WM_MOUSEMOVE then
        return
    end if    =20
    s +=3D 1
  if self !=3D oldself then
    oldself =3D self
    addItem(ls, sprintf("Control =3D %s", {ctl[2][find(self, ctl[1])]}))
  end if
  addItem(ls, sprintf("#%3d %s", {s,mev[parms[1]-512]}))
  setIndex(ls, getCount(ls))

end procedure

setHandler({win,lv, ls, sb, bt}, w32HMouse, routine_id("showclick"))

WinMain(win, 0)         
------=_NextPart_000_0065_01C30578.833C7E20--