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

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

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

Modified Files:
	Window.hs 
Log Message:
Complete implementation for modal and modeless dialogs


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** Window.hs	31 Mar 2003 00:12:06 -0000	1.8
--- Window.hs	26 Apr 2003 20:03:06 -0000	1.9
***************
*** 17,21 ****
                 createWindow, createDialog
               -- * Operations
!              , showWindow, runWindow
               , dismissWindow, dismissAllWindows
               , destroyWindow, destroyAllWindows
--- 17,21 ----
                 createWindow, createDialog
               -- * Operations
!              , showWindow, runDialog
               , dismissWindow, dismissAllWindows
               , destroyWindow, destroyAllWindows
***************
*** 76,80 ****
  foreign import ccall osInvalidateWindowRect :: WindowHandle -> CInt -> CInt -> CInt -> CInt -> IO ()
  
! -- | Create a new (invisible) window.
  createWindow :: IO WindowHandle
  createWindow = do
--- 76,81 ----
  foreign import ccall osInvalidateWindowRect :: WindowHandle -> CInt -> CInt -> CInt -> CInt -> IO ()
  
! -- | Create a new (invisible) window. If the function succeeds, the return value is a handle to the new window.
! -- If the function fails, the return value is nullHandle.
  createWindow :: IO WindowHandle
  createWindow = do
***************
*** 92,96 ****
  
  -- | Create a new (invisible) dialog window.
! createDialog :: WindowHandle -> IO WindowHandle
  createDialog hparent = do
  	hwnd <- osCreateDialog hparent
--- 93,101 ----
  
  -- | Create a new (invisible) dialog window.
! createDialog :: WindowHandle           -- ^ Handle to the owner window of the dialog being created. 
!                                        -- If this parameter is nullHandle or is a handle of a window instead of dialog
!                                        -- then the dialog owner is the process window.
!                 -> IO WindowHandle     -- ^ If the function succeeds, the return value is a handle to the new dialog.
!                                        -- If the function fails, the return value is nullHandle.
  createDialog hparent = do
  	hwnd <- osCreateDialog hparent
***************
*** 137,142 ****
  foreign import ccall "osShowWindow" showWindow :: WindowHandle -> IO ()
  
! -- | Run a modal dialog (or window).
! foreign import ccall "osRunWindow" runWindow  :: WindowHandle -> IO ()
  
  -- | Dismiss a window.
--- 142,147 ----
  foreign import ccall "osShowWindow" showWindow :: WindowHandle -> IO ()
  
! -- | Run a modal dialog.
! foreign import ccall "osRunDialog" runDialog :: WindowHandle -> IO ()
  
  -- | Dismiss a window.