[htoolkit-cvs] port/src/Port Menu.hs,1.4,1.5

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

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

Modified Files:
	Menu.hs 
Log Message:
Additional functions for menu item state


Index: Menu.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Menu.hs,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** Menu.hs	31 Jan 2003 01:01:42 -0000	1.4
--- Menu.hs	26 Mar 2003 13:03:49 -0000	1.5
***************
*** 21,29 ****
             -- * Menu items
             , addMenuItem
!            , addMenuSeparatorItem           
!            , setMenuItemState
!            , setMenuItemLabel
             , addMenuCheckItem
!            , setCheckMenuItemState
             ) where
  
--- 21,29 ----
             -- * Menu items
             , addMenuItem
!            , addMenuSeparatorItem
             , addMenuCheckItem
!            , setMenuItemEnabled, getMenuItemEnabled
!            , setMenuItemLabel
!            , setMenuItemChecked, getMenuItemChecked
             ) where
  
***************
*** 86,97 ****
  
  -- | Enable or disable a menu item.
! setMenuItemState :: MenuHandle -> MenuHandle -> Bool -> IO ()
! setMenuItemState parent item enable
!   = osSetMenuItemSelectState parent item (toCBool enable)
! foreign import ccall osSetMenuItemSelectState :: MenuHandle -> MenuHandle -> CBool -> IO ()
  
! -- | Mark or unmark a checkable menu item.
! setCheckMenuItemState :: MenuHandle -> MenuHandle -> Bool -> IO ()
! setCheckMenuItemState parent item enable
!   = osSetCheckMenuItemState parent item (toCBool enable)
! foreign import ccall osSetCheckMenuItemState :: MenuHandle -> MenuHandle -> CBool -> IO ()
--- 86,97 ----
  
  -- | Enable or disable a menu item.
! foreign import ccall unsafe "osSetMenuItemEnabled" setMenuItemEnabled :: MenuHandle -> MenuHandle -> Bool -> IO ()
  
! -- | returns True if the menu item is enabled.
! foreign import ccall unsafe "osGetMenuItemEnabled" getMenuItemEnabled :: MenuHandle -> MenuHandle -> IO Bool
! 
! -- | Check or uncheck a checkable menu item.
! foreign import ccall "osSetMenuItemChecked" setMenuItemChecked :: MenuHandle -> MenuHandle -> Bool -> IO ()
! 
! -- | returns True if the menu item is checked.
! foreign import ccall "osGetMenuItemChecked" getMenuItemChecked :: MenuHandle -> MenuHandle -> IO Bool