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.
|
