[htoolkit-cvs] port/src/Port Handlers.hs,1.10,1.11

[<kr_...@us...>]

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 ()