Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv6679/port/src/Port
Modified Files:
ToolBar.hs
Log Message:
Add support for ToolDropDownButton
Index: ToolBar.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/ToolBar.hs,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** ToolBar.hs 16 Aug 2003 09:59:41 -0000 1.3
--- ToolBar.hs 17 Aug 2003 18:15:08 -0000 1.4
***************
*** 22,25 ****
--- 22,26 ----
, insertToolCheckButton
, insertToolRadioButton
+ , insertToolDropDownButton
, insertToolLine
, setToolRadioGroup
***************
*** 72,75 ****
--- 73,80 ----
setToolRadioGroup handles = withArray0 nullHandle handles osSetToolRadioGroup
foreign import ccall osSetToolRadioGroup :: Ptr ToolHandle -> IO ()
+
+ insertToolDropDownButton :: WindowHandle -> MenuHandle -> Maybe Int -> IO ToolHandle
+ insertToolDropDownButton toolBar menu pos = osInsertToolDropDownButton toolBar menu (fromMaybe (-1) pos)
+ foreign import ccall osInsertToolDropDownButton :: WindowHandle -> MenuHandle -> Int -> IO ToolHandle
insertToolLine :: WindowHandle -> Maybe Int -> IO ToolHandle
|
