Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv26881/port/src/Port
Modified Files:
Controls.hs
Log Message:
Implementation for CompoundControl
Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** Controls.hs 17 Jul 2003 19:30:03 -0000 1.16
--- Controls.hs 20 Aug 2003 21:37:26 -0000 1.17
***************
*** 28,31 ****
--- 28,33 ----
* ProgressBar
+
+ * CompoundControl
-}
-----------------------------------------------------------------------------------------
***************
*** 78,81 ****
--- 80,85 ----
, createHorzProgressBar, createVertProgressBar, getProgressBarRequestSize
, setProgressBarFraction, getProgressBarFraction
+ -- * CompoundControl
+ , createCompoundControl, getCompoundControlRequestSize
) where
***************
*** 402,403 ****
--- 406,418 ----
return (fromCInt pos)
foreign import ccall osGetProgressBarFraction :: WindowHandle -> CInt -> CInt -> IO CInt
+
+ -----------------------------------------------------------------------------------------
+ -- CompoundControl
+ -----------------------------------------------------------------------------------------
+
+ -- | Create a new compound control
+ foreign import ccall "osCreateCompoundControl" createCompoundControl :: WindowHandle -> IO WindowHandle
+
+ getCompoundControlRequestSize :: WindowHandle -> IO Size
+ getCompoundControlRequestSize hwnd = withCSizeResult (osGetCompoundControlReqSize hwnd)
+ foreign import ccall osGetCompoundControlReqSize :: WindowHandle -> Ptr CInt -> IO ()
|
