home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / d / d009_2 / 1.ddi / SAMPLES / DOCS / MENUTEST.MS$ / MENUTEST.bin
Encoding:
Text File  |  1992-02-03  |  1.4 KB  |  62 lines
  1. '*********************** MENUTEST.MST ************************************
  2. 'Demonstrates:  Use of FastTest menu procedures.
  3. '
  4. 'Required Files: FASTTEST.INC, WRITE.EXE
  5. '
  6. 'Uses: FASTTEST
  7. '
  8. 'Complexity Level: INTRODUCTORY
  9. '
  10. 'Notes:
  11. '
  12. '*************************************************************************
  13.  
  14. '$INCLUDE 'FASTTEST.INC'
  15.  
  16. '*** Set up some logging options
  17.  
  18. XSetLogOptions LOG_SCREEN
  19. Viewport Clear
  20. XLogBanner "Starting WRITE.EXE Test"
  21.  
  22. XStartApp "write.exe",""
  23.  
  24. '*** Log a failure if File, File/Open, File/Save,
  25. '*** or File/Save As do not exist:
  26.  
  27. XMenuItemExists "&File", "", ""
  28. XMenuItemExists "&File", "&Open...", ""
  29. XMenuItemExists "&File", "&Save", ""
  30. XMenuItemExists "&File", "Save &As...", ""
  31.  
  32. '*** Log a failure if Close is on the File menu:
  33.  
  34. XMenuItemNotExists "&File", "&Close", ""
  35.  
  36. '*** Log a failure if Edit/Cut or Edit/Copy are not grayed:
  37.  
  38. XMenuItemGrayed "&Edit", "Cu&t", ""
  39. XMenuItemGrayed "&Edit", "&Copy",""
  40.  
  41. '*** Select the Help/About menu item and press Enter:
  42.  
  43. XSelectMenuItem "&Help", "&About Write...",""
  44. XEnter ""
  45.  
  46. '*** Select the Paragraph/Centered menu item and enter some text:
  47.  
  48. XSelectMenuItem "&Paragraph", "&Centered", ""
  49. XEnter "Some text to save in the file"
  50.  
  51. '*** Save the file by selecting File/Save and entering a filename:
  52.  
  53. XSelectMenuItem "&File", "&Save", ""
  54. XEnter "test.wri"
  55.  
  56. '*** Exit the Write program
  57.  
  58. XSelectMenuItem "&File", "E&xit", ""
  59.  
  60. END
  61.  
  62.