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 ()
|
