Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv15913/src/Port
Modified Files:
Handlers.hs
Log Message:
ensure that getAllWindowHandles will always return list of handles without dupplications
Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Handlers.hs 3 Mar 2003 19:44:29 -0000 1.10
--- Handlers.hs 3 Mar 2003 19:47:26 -0000 1.11
***************
*** 201,205 ****
registerWindow hwnd
= do hwnds <- takeMVar windows
! putMVar windows (hwnd:hwnds)
unregisterWindow :: WindowHandle -> IO ()
--- 201,205 ----
registerWindow hwnd
= do hwnds <- takeMVar windows
! putMVar windows (hwnd : L.delete hwnd hwnds)
unregisterWindow :: WindowHandle -> IO ()
|
