[htoolkit-cvs] port/src/Port Window.hs,1.15,1.16

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

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

Modified Files:
	Window.hs 
Log Message:
Make possible to hide/show a window at any time


Index: Window.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Window.hs,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Window.hs	24 Aug 2003 19:02:45 -0000	1.15
--- Window.hs	7 Oct 2003 21:31:29 -0000	1.16
***************
*** 17,21 ****
                 createWindow, createDialog
               -- * Operations
!              , showWindow, runDialog
               , dismissWindow, dismissAllWindows
               , destroyWindow, destroyAllWindows
--- 17,21 ----
                 createWindow, createDialog
               -- * Operations
!              , runDialog
               , dismissWindow, dismissAllWindows
               , destroyWindow, destroyAllWindows
***************
*** 23,27 ****
               , invalidateWindow
               -- * Properties
!              , getWindowFrame, setWindowFrame
               , setWindowResizeable
               , setWindowColor
--- 23,28 ----
               , invalidateWindow
               -- * Properties
! 	     , setWindowVisible, getWindowVisible
!              , setWindowFrame, getWindowFrame
               , setWindowResizeable
               , setWindowColor
***************
*** 128,133 ****
  foreign import ccall osSetWindowResizeable :: WindowHandle -> CBool -> IO ()
  
! -- | Make the window visible.
! foreign import ccall "osShowWindow" showWindow :: WindowHandle -> IO ()
  
  -- | Run a modal dialog.
--- 129,137 ----
  foreign import ccall osSetWindowResizeable :: WindowHandle -> CBool -> IO ()
  
! -- | Make the window visible\/invisible.
! foreign import ccall "osSetWindowVisible" setWindowVisible :: WindowHandle -> Bool -> IO ()
! 
! -- | Retrieves whether is visible.
! foreign import ccall "osGetWindowVisible" getWindowVisible :: WindowHandle -> IO Bool
  
  -- | Run a modal dialog.