home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxdemo.zip / MACROS.$$$ / RESIZE.VRM < prev    next >
Text File  |  1993-09-04  |  1KB  |  45 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 < 1.01 )then do
  8.         call VRMessage "", "This program requires VX-REXX version 1.01 to run", "Error!"
  9.         _VREReturnValue = 32000
  10.         signal _VRELeaveMain
  11.     end
  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, "Error!"
  19.     exit 32000
  20.  
  21. _VREMain:
  22. /*:VRX         Main
  23. */
  24. /*  Main
  25. */
  26. Main:
  27.  
  28. /*  Assume called as a pop-up menu macro
  29. */
  30.     parent = arg( 1 )
  31.     object = arg( 2 )
  32.     editWindow = arg( 3 )
  33.  
  34.     height = VRGet( object, "Height" )
  35.     width = VRGet( object, "Width" )
  36.  
  37.     call VRMethod editWindow, "GetSelectedRoots", "selectedList." 
  38.     do i = 1 to selectedList.0
  39.         call VRSet selectedList.i, "Height", height,,
  40.                                    "Width", width 
  41.     end
  42.  
  43. return
  44.  
  45.