home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / vxdemo.zip / RESIZE.$$$ / RESIZE.VRX < prev   
Text File  |  1993-09-04  |  477b  |  24 lines
  1. /*:VRX         Main
  2. */
  3. /*  Main
  4. */
  5. Main:
  6.  
  7. /*  Assume called as a pop-up menu macro
  8. */
  9.     parent = arg( 1 )
  10.     object = arg( 2 )
  11.     editWindow = arg( 3 )
  12.  
  13.     height = VRGet( object, "Height" )
  14.     width = VRGet( object, "Width" )
  15.  
  16.     call VRMethod editWindow, "GetSelectedRoots", "selectedList." 
  17.     do i = 1 to selectedList.0
  18.         call VRSet selectedList.i, "Height", height,,
  19.                                    "Width", width 
  20.     end
  21.  
  22. return
  23.  
  24.