[htoolkit-cvs] port/src/Port ToolBar.hs,1.2,1.3

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

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

Modified Files:
	ToolBar.hs 
Log Message:
Added support for ToolRadioButton


Index: ToolBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/ToolBar.hs,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** ToolBar.hs	8 Jul 2003 21:44:49 -0000	1.2
--- ToolBar.hs	16 Aug 2003 09:59:41 -0000	1.3
***************
*** 21,30 ****
  		, insertToolButton
  		, insertToolCheckButton
  		, insertToolLine
  		, setToolButtonBitmap,  getToolButtonBitmap
  		, setToolButtonEnabled, getToolButtonEnabled
! 		, setToolButtonTip,        getToolButtonTip
! 		, setToolButtonText,      getToolButtonText
! 		, setToolButtonChecked,getToolButtonChecked
  		, getToolItemPos
  		, destroyToolItem
--- 21,32 ----
  		, insertToolButton
  		, insertToolCheckButton
+ 		, insertToolRadioButton
  		, insertToolLine
+ 		, setToolRadioGroup
  		, setToolButtonBitmap,  getToolButtonBitmap
  		, setToolButtonEnabled, getToolButtonEnabled
! 		, setToolButtonTip,     getToolButtonTip
! 		, setToolButtonText,    getToolButtonText
! 		, setToolButtonChecked, getToolButtonChecked
  		, getToolItemPos
  		, destroyToolItem
***************
*** 32,38 ****
  
  import Graphics.UI.Port.Types
! import Graphics.UI.Port.Handlers
  import Graphics.UI.Port.PtrMap as PtrMap
! import Foreign.Ptr
  import Foreign.C
  import Control.Concurrent.MVar
--- 34,40 ----
  
  import Graphics.UI.Port.Types
! import Graphics.UI.Port.Handlers 
  import Graphics.UI.Port.PtrMap as PtrMap
! import Foreign
  import Foreign.C
  import Control.Concurrent.MVar
***************
*** 62,65 ****
--- 64,75 ----
  insertToolCheckButton toolBar pos = osInsertToolCheckButton toolBar (fromMaybe (-1) pos)
  foreign import ccall osInsertToolCheckButton :: WindowHandle -> Int -> IO ToolHandle
+ 
+ insertToolRadioButton :: WindowHandle -> Maybe Int -> IO ToolHandle
+ insertToolRadioButton toolBar pos = osInsertToolRadioButton toolBar (fromMaybe (-1) pos)
+ foreign import ccall osInsertToolRadioButton :: WindowHandle -> Int -> IO ToolHandle
+ 
+ setToolRadioGroup :: [ToolHandle] -> IO ()
+ setToolRadioGroup handles = withArray0 nullHandle handles osSetToolRadioGroup
+ foreign import ccall osSetToolRadioGroup :: Ptr ToolHandle -> IO ()
  
  insertToolLine :: WindowHandle -> Maybe Int -> IO ToolHandle