home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxcliser.zip / VXREXX.2 / MACROS / RESIZE.VRM < prev    next >
Text File  |  1994-12-23  |  960b  |  37 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.00 )then do
  8.         call VRMessage "", "This program requires VX-REXX version 2.00 to run", "Error!"
  9.         return 32000
  10.     end
  11.  
  12.     signal on SYNTAX name _VRESyntax
  13.     signal _VREMain
  14.  
  15. _VRESyntax:
  16.     parse source . . _VRESourceSpec
  17.     call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL, "Error!"
  18.     exit 32000
  19.  
  20. _VREMain:
  21. /*:VRX         Main
  22. */
  23. /*  Main
  24. */
  25. /*  Assume invoked as a VRXEDIT macro :
  26.         resize( <parent>, <object>, <editWindow> )
  27. */
  28. Main:
  29.     parse arg , obj, editwin
  30.     call VRMethod editwin, "GetSelectedRoots", "stem."
  31.     do i = 1 to stem.0
  32.         call VRSet stem.i, "Height", VRGet( obj, "Height" ), "Width", VRGet( obj, "Width" )
  33.     end
  34.     drop obj editwin stem. i
  35. _VRELeaveMain:
  36. exit
  37.