home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / d / d009_2 / 1.ddi / SAMPLES / DOCS / MOUSTEST.MS$ / MOUSTEST.bin
Encoding:
Text File  |  1992-02-03  |  1.3 KB  |  49 lines
  1. '*********************** MOUSTEST.MST ************************************
  2. 'Demonstrates:  Some of FastTest's mouse procedures.  It starts the
  3. '               Windows Paintbrush program, maximizes it to full screen,
  4. '               and draws a "picture" using mouse events.
  5. '
  6. 'Required Files: FASTTEST.INC
  7. '
  8. 'Uses: FASTTEST
  9. '
  10. 'Complexity Level: INTRODUCTORY
  11. '
  12. 'Notes:
  13. '
  14. '*************************************************************************
  15.  
  16. '$INCLUDE 'FASTTEST.INC'
  17.  
  18. '*** Set up logging options and start Paintbrush
  19.  
  20. XSetLogOptions LOG_SCREEN
  21. Viewport Clear
  22. XLogBanner "Starting PBRUSH.EXE Test"
  23. XStartApp "pbrush.exe", ""
  24.  
  25. '*** Maximize application window to have mouse events
  26. '*** maintain consistency:
  27.  
  28. XMaxWindow
  29.  
  30. '*** Draw some dots on the screen by clicking the mouse
  31.  
  32. XClickMouse LBUTTON, 150, 150 '*** LBUTTON is a constant - the LEFT mouse button
  33. XClickMouse LBUTTON, 200, 150
  34. XClickMouse LBUTTON, 150, 200
  35.  
  36. '*** Connect the dots by moving and dragging the mouse
  37.  
  38. XMoveMouse 150, 150
  39. XDragMouse LBUTTON, 150, 150, 200, 150
  40. XDragMouse LBUTTON, 200, 150, 150, 200
  41. XDragMouse LBUTTON, 150, 200, 150, 150
  42.  
  43. '*** Exit the program and answer 'no' when it asks to save the picture
  44. XDblClickMouse LBUTTON, 5, 5
  45. XEnter "n"
  46.  
  47. END
  48.  
  49.