[htoolkit-cvs] port/src/Port Menu.hs,1.10,1.11

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

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

Modified Files:
	Menu.hs 
Log Message:
Implementation for popup menus


Index: Menu.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Menu.hs,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Menu.hs	15 Aug 2003 21:24:54 -0000	1.10
--- Menu.hs	17 Aug 2003 16:45:07 -0000	1.11
***************
*** 9,13 ****
      Portability :  portable
  
!     Menus
  -}
  -----------------------------------------------------------------------------------------
--- 9,17 ----
      Portability :  portable
  
!     The module contains all functions for creation and management of menus.
!     A menu is a list of items that specify options or groups of options (a submenu). 
!     Clicking a menu item opens a submenu or causes the application to carry out a command. 
!     A menu is arranged in a hierarchy. At the top level of the hierarchy is the menu bar; 
!     which contains a list of menus, which in turn can contain submenus. 
  -}
  -----------------------------------------------------------------------------------------
***************
*** 19,22 ****
--- 23,29 ----
             , insertMenu
             , getMenuItemCount
+            -- * Popup menus
+            , createPopupMenu
+            , trackPopupMenu
             -- * Menu items
             , insertMenuItem
***************
*** 48,52 ****
  -----------------------------------------------------------------------------------------
  
! -- | The handle of the main application menu
  mainMenu :: MenuHandle
  mainMenu = nullHandle
--- 55,59 ----
  -----------------------------------------------------------------------------------------
  
! -- | The main application menu (the menu bar)
  mainMenu :: MenuHandle
  mainMenu = nullHandle
***************
*** 56,66 ****
  -----------------------------------------------------------------------------------------
  
! -- | Add a sub menu.
! insertMenu :: MenuHandle -> Maybe Int -> IO MenuHandle
  insertMenu handle pos = osInsertMenu handle (fromMaybe (-1) pos)
  foreign import ccall osInsertMenu :: MenuHandle -> Int -> IO MenuHandle
  
! -- | The getMenuItemsCount function determines the number of items in the specified menu.
  foreign import ccall "osGetMenuItemCount" getMenuItemCount :: MenuHandle -> IO Int
  
  -----------------------------------------------------------------------------------------
--- 63,101 ----
  -----------------------------------------------------------------------------------------
  
! -- | The 'insertMenu' function creates and inserts an item with submenu in the parent menu. 
! -- The created submenu is initially empty. You can insert or append menu items by using the 
! -- 'insertMenuItem', 'insertMenuCheckItem', 'insertMenuRadioItem' or 'insertMenuSeparatorItem' 
! -- functions. Using the 'insertMenu' you can create nested submenus.
! insertMenu :: MenuHandle                          -- ^ The handle of the parent menu.
!                                                   -- Use the 'mainMenu' handle if you want to
!                                                   -- place the menu in the application menu bar.
!            -> Maybe Int                           -- ^ The position where to place the submenu.
!                                                   -- or Nothing if you want to append it.
!            -> IO MenuHandle                       -- ^ The handle of the created submenu.
  insertMenu handle pos = osInsertMenu handle (fromMaybe (-1) pos)
  foreign import ccall osInsertMenu :: MenuHandle -> Int -> IO MenuHandle
  
! -- | The 'getMenuItemCount' function determines the number of items in the 
! -- specified popup or sub menu.
  foreign import ccall "osGetMenuItemCount" getMenuItemCount :: MenuHandle -> IO Int
+ 
+ -----------------------------------------------------------------------------------------
+ --  Popup menus
+ -----------------------------------------------------------------------------------------
+ 
+ -- | The 'createPopupMenu' function creates a drop-down menu. The menu is initially empty.
+ -- You can insert or append menu items by using the 'insertMenuItem',
+ -- 'insertMenuCheckItem', 'insertMenuRadioItem' or 'insertMenuSeparatorItem' functions.
+ -- Using the 'insertMenu' you can create nested submenus.
+ foreign import ccall "osCreatePopupMenu" createPopupMenu :: IO MenuHandle -- ^ The handle of the created popup menu.
+ 
+ -- | The 'trackPopupMenu' function displays a shortcut menu at the specified location in the 
+ -- window and tracks the selection of items on the menu.
+ trackPopupMenu :: MenuHandle                      -- ^ The handle of the popup menu
+                -> WindowHandle                    -- ^ The handle of the window in which to popup the menu
+                -> Point                           -- ^ The location inside the window at which to display the menu
+                -> IO ()
+ trackPopupMenu handle hwnd pos = withCPoint pos (osTrackPopupMenu handle hwnd)
+ foreign import ccall osTrackPopupMenu :: MenuHandle -> WindowHandle -> CInt -> CInt -> IO ()
  
  -----------------------------------------------------------------------------------------