home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 November / pcwk_11_98B.iso / Lotus / GERMAN / LOTUS027.DSK / MENU.TPL < prev    next >
Text File  |  1995-08-05  |  697b  |  23 lines
  1.  
  2. ' Create a new top level menu item
  3. MenuName = "&Neues Menⁿ"    
  4. Item1 = "&Erstes Menⁿelement..."
  5. Item2 = "&Zweites Menⁿelement..."
  6.  
  7. With .ApplicationWindow.lwpMenuBar
  8.     ' Delete the menu - prevents duplicates        
  9.     .deleteitem MenuName    
  10.     .newitem MenuName, "",0,"&Hilfe"         ' 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 "verbirgt das Menⁿ"
  23.