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

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

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