home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 February / PCWK0297.iso / lotus / english / lotus031.dsk / MENU.LSS < prev    next >
Text File  |  1995-07-19  |  683b  |  23 lines
  1.  
  2. ' Create a new top level menu item
  3. MenuName = "&New Menu"    
  4. Item1 = "&First Menu Item..."
  5. Item2 = "&Second Menu Item..."
  6.  
  7. With .ApplicationWindow.lwpMenuBar
  8.     ' Delete the menu - prevents duplicates        
  9.     .deleteitem MenuName    
  10.     .newitem MenuName, "",0,"&Help"         ' add a menu before &Help
  11. End With
  12.     
  13. Set mymenu=.applicationwindow.lwpmenubar.items.item(MenuName)      ' set menu object
  14. mymenu.newitem Item1,"!HitMenu",,              ' add item to menu
  15. mymenu.newitem Item2,"!HitMenu",,           ' add item to menu
  16.  
  17.  
  18.  
  19. Sub HitMenu
  20.     ' This routine is called when a menuitem is selected
  21.     ' Press Ctrl+PageUp to navigate available functions and subs
  22.     Messagebox "hit the menu"
  23.