On 02 February 2005 12:08, Ross Paterson wrote:
> On Wed, Feb 02, 2005 at 12:01:51PM -0000, Simon Marlow wrote:
>> On 02 February 2005 11:58, Ross Paterson wrote:
>>
>>> On Wed, Feb 02, 2005 at 11:55:11AM -0000, Simon Marlow wrote:
>>>> On 20 January 2005 14:53, Ross Paterson wrote:
>>>>
>>>>> The Win32 package, and the HGL package using it, seem to work
>>>>> with Hugs.
>>>>>
>>>>> Would someone like to test them with GHC?
>>>>> (specifically the programs in the examples directories)
>>>>
>>>> HGL/examples/GTest.exe: segfaults
>>>> HGL/examples/HelloWorld.exe: hangs
>>>> HGL/examples/Tests.exe: just exits
>>>
>>> Thanks for the good news. How about Win32/examples/hello.lhs?
>>
>> I suppose we ought to have this working in GHC 6.4. Do you need any
>> help looking into it?
>
> I need all the help I can get.
The patch below helps. I suspect there are more like this required:
===================================================================
RCS file:
/home/cvs/root/fptools/libraries/Win32/Graphics/Win32/Window.hsc,v
retrieving revision 1.9
diff -c -r1.9 Window.hsc
*** Window.hsc 2 Dec 2004 15:57:00 -0000 1.9
--- Window.hsc 2 Feb 2005 12:26:35 -0000
***************
*** 329,335 ****
, sW_RESTORE = SW_RESTORE
}
! foreign import stdcall unsafe "windows.h ShowWindow"
showWindow :: HWND -> ShowWindowControl -> IO Bool
----------------------------------------------------------------
--- 329,335 ----
, sW_RESTORE = SW_RESTORE
}
! foreign import stdcall "windows.h ShowWindow"
showWindow :: HWND -> ShowWindowControl -> IO Bool
----------------------------------------------------------------
Cheers,
Simon
_______________________________________________
Cvs-libraries mailing list
[EMAIL PROTECTED]
http://www.haskell.org/mailman/listinfo/cvs-libraries
