[htoolkit-cvs] port/src/Port Controls.hs,1.29,1.30

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

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv9347/src/Port

Modified Files:
	Controls.hs 
Log Message:
Initial support for Splitter. (Only Windows)


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Controls.hs	25 Nov 2003 14:12:22 -0000	1.29
--- Controls.hs	15 May 2004 06:45:45 -0000	1.30
***************
*** 40,43 ****
--- 40,45 ----
      
      * NotebookPage
+     
+     * Splitter
  -}
  -----------------------------------------------------------------------------------------
***************
*** 117,120 ****
--- 119,126 ----
             , destroyNotebookPage
             , getNotebookPageSize
+            -- * Splitter
+            , createHorzSplitter, createVertSplitter
+            , getSplitterRequestSize
+            , setSplitterChildren
             ) where
  
***************
*** 608,609 ****
--- 614,631 ----
    map <- readMVar windowBitmaps
    return (PtrMap.lookup hwnd map)
+ 
+ -----------------------------------------------------------------------------------------
+ -- Splitter
+ -----------------------------------------------------------------------------------------
+ 
+ -- | Create a new horizontal splitter control.
+ foreign import ccall "osCreateHorzSplitter" createHorzSplitter :: WindowHandle -> IO WindowHandle
+ 
+ -- | Create a new vertical splitter control.
+ foreign import ccall "osCreateVertSplitter" createVertSplitter :: WindowHandle -> IO WindowHandle
+ 
+ getSplitterRequestSize :: WindowHandle -> IO Size
+ getSplitterRequestSize hwnd = withCSizeResult (osGetSplitterReqSize hwnd)
+ foreign import ccall osGetSplitterReqSize :: WindowHandle -> Ptr CInt -> IO ()
+ 
+ foreign import ccall "osSetSplitterChildren" setSplitterChildren :: WindowHandle -> WindowHandle -> WindowHandle -> IO ()