home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / d / d009_2 / 1.ddi / SAMPLES / DOCS / WINTEST.MS$ / WINTEST.bin
Encoding:
Text File  |  1992-02-03  |  1.4 KB  |  52 lines
  1. '*********************** WINTEST.MST *************************************
  2. 'Demonstrates:  Some of FastTest's windowing procedures.  It starts the
  3. '               Windows Paintbrush program and changes the size, location,
  4. '               maximized status of the window
  5. '
  6. 'Required Files: FASTTEST.INC, NOTEPAD.EXE
  7. '
  8. 'Uses: FASTTEST
  9. '
  10. 'Complexity Level: INTRODUCTORY
  11. '
  12. 'Notes:
  13. '
  14. '*************************************************************************
  15.  
  16. '$DEFINE W_WINDOW
  17. '$INCLUDE 'MSTEST.INC'
  18. '$INCLUDE 'FASTTEST.INC'
  19.  
  20. '*** Set up test log and start Paintbrush
  21.  
  22. XSetLogOptions LOG_SCREEN
  23. Viewport Clear
  24. XLogBanner "Starting PBRUSH.EXE Test"
  25. XStartApp "pbrush.exe", ""
  26.  
  27. '*** Is the Paintbrush window title correct?
  28.  
  29. 'XCaptionExists "Paintbrush - (Untitled)"
  30.  
  31. '*** Move the window to the upper-left corner of the screen
  32.  
  33. XMoveActiveWindow 0, 0, TRUE
  34.  
  35. '*** Stretch lower-right portion of window
  36. '*** to lower-right corner
  37.  
  38. XSizeActiveWindow 640, 480, TRUE
  39.  
  40. XMinWindow                            '*** Minimize the window
  41. XWindowMinimized                      '*** Is the window minimized?
  42. XMaxWindow                            '*** Maximize the window
  43. XWindowMaximized                      '*** Is the window maximized?
  44.  
  45. XSizeActiveWindow 200, 200, TRUE      '*** Make the window smaller
  46.  
  47. XAlt "f"                              '*** Exit the program
  48. XEnter "x"
  49.  
  50. END
  51.  
  52.