[htoolkit-cvs] port/src/Port Controls.hs,1.16,1.17

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

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