Bug in Nov-2002 Hugs with graphics library

John Hughes john.hughes@swipnet.se
Thu, 21 Nov 2002 01:55:14 +0100


This is a multi-part message in MIME format.

------=_NextPart_000_002B_01C29101.08B88360
Content-Type: multipart/alternative;
	boundary="----=_NextPart_001_002C_01C29101.08B88360"


------=_NextPart_001_002C_01C29101.08B88360
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

The attached program crashes the November 2002 hugs/winhugs. A graphics =
window appears, but when the mouse is moved over it (generating graphics =
events), hugs crashes.

John Hughes


------=_NextPart_001_002C_01C29101.08B88360
Content-Type: text/html;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 6.00.2719.2200" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>The attached program crashes the =
November 2002=20
hugs/winhugs. A graphics window appears, but when the mouse is moved =
over it=20
(generating graphics events), hugs crashes.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>John Hughes</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV></BODY></HTML>

------=_NextPart_001_002C_01C29101.08B88360--

------=_NextPart_000_002B_01C29101.08B88360
Content-Type: application/octet-stream;
	name="Bug.hs"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
	filename="Bug.hs"

import GraphicsUtils

bug = runGraphics$ do
  w <- openWindow "Bug" (300,100)
  loop w
  return ()

loop w = do
  ev <- getWindowEvent w
  setGraphic w (text (0,50) (show ev))
  loop w
------=_NextPart_000_002B_01C29101.08B88360--