home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / MAJ / 1513 / MACRO.MN_ < prev    next >
Text File  |  1993-10-07  |  2KB  |  65 lines
  1. ;
  2. ; WinEdit Script for Macro Menu
  3. ;
  4. ; WinEdit Pro records macros as WIL scripts.  After recording a macro,
  5. ; save the resulting script as MACROx.MAC, where x is a digit from 0 to 9.
  6. ; This menu script will then be able to play back the recorded macro with
  7. ; a Control+digit hotkey.
  8. ;
  9. ; You can edit the names which appear on the macro menu by editing this
  10. ; script.   You can also call any other WIL scripts as macros by
  11. ; editing the filename used for the call().
  12.  
  13. Record Macro         \ ^R  ; Start or Stop recording a macro
  14.         wRecord()
  15.         
  16. _&1.    Macro 1      \ ^1  ; Play back Macro 1
  17.         TheFile=strcat(DirHome(),"MACRO1.MAC")   
  18.         if FileExist(TheFile) then call(TheFile,"")
  19.         Drop(TheFile)
  20.         
  21. &2.    Macro 2       \ ^2    ; Play back Macro 2
  22.         TheFile=strcat(DirHome(),"MACRO2.MAC")
  23.         if FileExist(TheFile) then call(TheFile,"")
  24.         Drop(TheFile)
  25.  
  26. &3.    Macro 3       \ ^3    ; Play back Macro 3
  27.         TheFile=strcat(DirHome(),"MACRO3.MAC")
  28.         if FileExist(TheFile) then call(TheFile,"")
  29.         Drop(TheFile)
  30.  
  31. &4.    Macro 4       \ ^4    ; Play back Macro 4
  32.         TheFile=strcat(DirHome(),"MACRO4.MAC")
  33.         if FileExist(TheFile) then call(TheFile,"")
  34.         Drop(TheFile)
  35.  
  36. &5.    Macro 5       \ ^5    ; Play back Macro 5
  37.         TheFile=strcat(DirHome(),"MACRO5.MAC")
  38.         if FileExist(TheFile) then call(TheFile,"")
  39.         Drop(TheFile)
  40.  
  41. &6.    Macro 6       \ ^6    ; Play back Macro 6
  42.         TheFile=strcat(DirHome(),"MACRO6.MAC")
  43.         if FileExist(TheFile) then call(TheFile,"")
  44.         Drop(TheFile)
  45.  
  46. &7.    Macro 7       \ ^7    ; Play back Macro 7
  47.         TheFile=strcat(DirHome(),"MACRO7.MAC")
  48.         if FileExist(TheFile) then call(TheFile,"")
  49.         Drop(TheFile)
  50.  
  51. &8.    Macro 8       \ ^8    ; Play back Macro 8
  52.         TheFile=strcat(DirHome(),"MACRO8.MAC")
  53.         if FileExist(TheFile) then call(TheFile,"")
  54.         Drop(TheFile)
  55.  
  56. &9.    Macro 9       \ ^9    ; Play back Macro 9
  57.         TheFile=strcat(DirHome(),"MACRO9.MAC")
  58.         if FileExist(TheFile) then call(TheFile,"")
  59.         Drop(TheFile)
  60.  
  61. 1&0.  Macro 10      \ ^0     ; Play back Macro 10
  62.         TheFile=strcat(DirHome(),"MACRO0.MAC")
  63.         if FileExist(TheFile) then call(TheFile,"")
  64.         Drop(TheFile)
  65.