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
|
