home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / ca100b3.zip / LPEXMAC.VRM < prev    next >
Text File  |  1995-09-26  |  924b  |  48 lines
  1. /* Custom mainline for macro */
  2.  
  3.     call RXFuncAdd "VRLoadFuncs", "VROBJ", "VRLoadFuncs"
  4.     call VRLoadFuncs
  5.  
  6.     _VREVersion = SubWord( VRVersion( "VRObj" ), 1, 1 )
  7.     if( _VREVersion < 2.13 )then do
  8.         call VRMessage "", "This program requires VX-REXX version 2.1c to run.", "Error!"
  9.         return 32000
  10.     end
  11.  
  12.  
  13.     signal on SYNTAX name _VRESyntax
  14.     signal _VREMain
  15.  
  16. _VRESyntax:
  17.     parse source . . _VRESourceSpec
  18.     call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL":" ErrorText(rc), "Error!"
  19.     exit 32000
  20.  
  21. _VREMain:
  22. /*:VRX         Main
  23. */
  24. Main:
  25.     signal on halt
  26.  
  27.     call 'C:\ASSIST\QUEUELX.VRM'
  28.     text = ""
  29.  
  30.     text = VRMethod("Application", "GetClipboard")
  31.     if text = 0 then
  32.         text = ""
  33.  
  34.     if text <> "" then
  35.     Do
  36.         lxn clip paste
  37.         lxn set window activated
  38.     End
  39.  
  40. exit
  41.  
  42. /*:VRX         Halt
  43. */
  44. Halt:
  45.  
  46. exit
  47.  
  48.