[htoolkit-cvs] port/src/Port Handlers.hs,1.8,1.9

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv5600/src/Port

Modified Files:
	Handlers.hs 
Log Message:
the modified getAllWindowHandles returns the list sorted in Z-order


Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Handlers.hs	10 Feb 2003 22:42:08 -0000	1.8
--- Handlers.hs	3 Mar 2003 19:23:53 -0000	1.9
***************
*** 109,112 ****
--- 109,113 ----
  import Control.Monad( when )
  import System.IO.Unsafe( unsafePerformIO )
+ import qualified Data.List as L
  
  {-----------------------------------------------------------------------------------------
***************
*** 190,196 ****
  -----------------------------------------------------------------------------------------}
  {-# NOINLINE windows #-}
! windows :: MVar (PtrMap WindowHandle ())
  windows
!   = unsafePerformIO (newMVar empty)
  
  -- | 'registerWindow' should be called by all top-level window creation functions. 
--- 191,197 ----
  -----------------------------------------------------------------------------------------}
  {-# NOINLINE windows #-}
! windows :: MVar [WindowHandle]
  windows
!   = unsafePerformIO (newMVar [])
  
  -- | 'registerWindow' should be called by all top-level window creation functions. 
***************
*** 200,214 ****
  registerWindow :: WindowHandle -> IO ()
  registerWindow hwnd
!   = do set <- takeMVar windows
!        putMVar windows (insert hwnd () set)
  
- -- returns True when this was the last open window.
  unregisterWindow :: WindowHandle -> IO ()
  unregisterWindow hwnd
!   = do set <- takeMVar windows
!        putMVar windows (delete hwnd set)
  
  getAllWindowHandles :: IO [WindowHandle]
! getAllWindowHandles = fmap keys (readMVar windows)
  
  {-----------------------------------------------------------------------------------------
--- 201,215 ----
  registerWindow :: WindowHandle -> IO ()
  registerWindow hwnd
!   = do hwnds <- takeMVar windows
!        putMVar windows (hwnd:hwnds)
  
  unregisterWindow :: WindowHandle -> IO ()
  unregisterWindow hwnd
!   = do hwnds <- takeMVar windows
!        putMVar windows (L.delete hwnd hwnds)
  
+ -- | 'getAllWindowHandles' returns list of handles for all opened windows, sorted in Z-order.
  getAllWindowHandles :: IO [WindowHandle]
! getAllWindowHandles = readMVar windows
  
  {-----------------------------------------------------------------------------------------
***************
*** 405,410 ****
  
  handleWindowActivate :: WindowHandle -> IO ()
! handleWindowActivate hwnd
!   = invokeHandler hwnd handlersWindowActivate id
  
  
--- 406,413 ----
  
  handleWindowActivate :: WindowHandle -> IO ()
! handleWindowActivate hwnd = do
! 	hwnds <- takeMVar windows
! 	putMVar windows (hwnd : L.delete hwnd hwnds)
! 	invokeHandler hwnd handlersWindowActivate id