home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxio46.zip / REPLAY.MDE < prev    next >
Text File  |  1999-11-27  |  1KB  |  41 lines
  1. /*       Capture and Replay Events*/
  2. Arg Action
  3.     if DlgBox <> "DLGBOX" then signal value Action
  4.     DlgBox=MaidDlgFrame("       Capture and Replay Events",104,83,141,149,Action)
  5. if DlgBox = "0" then exit
  6.     PUSHBUTTON 24 85 89 19 "BTN4" "Set Relative Window for Mouse Capture"
  7.     ENTRYLEFT  MARGIN AUTOSCROLL 12 107 115 13 "RELWINDOW"
  8.     FONT  "RELWINDOW" "System.Bold.11"
  9.     ENTRYLEFT  MARGIN AUTOSCROLL 15 56 113 15 "FILENAME" "TEST.REX"
  10.     FONT  "FILENAME" "System.Bold.12"
  11.     PUSHBUTTON 14 6 116 15 "BTN3" "Replay"
  12.     PUSHBUTTON 14 22 116 15 "BTN2" "Stop Capture"
  13.     PUSHBUTTON 14 38 116 15 "BTN1" "Start Capture"
  14.     TEXT 12 120 113 12 "TXT2" "Relative Window Title"
  15.     TEXT 15 70 80 12 "TXT1" "Event File Name"
  16. exit
  17. MAID_INIT:
  18. /* INIT DIALOG SECTION */
  19. f=RxFuncAdd('rexxioinit','REXXIO','rexxioinit')
  20. f=rexxioinit()
  21. exit
  22. MAID_BTN4:
  23. /*Single Click - BUTTON - BTN4*/
  24. f=setcoordwindow(RELWINDOW)
  25. exit
  26. MAID_BTN3:
  27. /*Single Click - BUTTON - BTN3*/
  28. f=runrexxscript(FILENAME)
  29. exit
  30. MAID_BTN2:
  31. /*Single Click - BUTTON - BTN2*/
  32. f=stopeventscapture()
  33. f=removelastevent(FILENAME)
  34. exit
  35. MAID_BTN1:
  36. /*Single Click - BUTTON - BTN1*/
  37. f=starteventscapture(FILENAME)
  38. exit
  39. MAID_SHOWVARIABLES: SHOWVARIABLES
  40. exit
  41.