home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalMacros / Macros / ResizeObject.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  483 b   |  28 lines
  1. /* ResizeObject 1.0 (10.02.95) by NDY's  */
  2. OPTIONS RESULTS
  3. /* Scan objects */
  4. FirstObject "SELECTED"
  5. cnt=0
  6. obj.cnt=RESULT
  7. DO WHILE obj.cnt~=0
  8.   NextObject obj.cnt "SELECTED"
  9.   cnt=cnt+1
  10.   obj.cnt=RESULT
  11. END
  12. /* Object types */
  13. group=0
  14. box=0
  15. DO i=0 TO cnt-1
  16.   GetObjectType obj.i
  17.   IF RESULT=8 THEN
  18.     group=obj.i
  19.   ELSE
  20.     IF RESULT=4 THEN box=obj.i
  21. END
  22. IF group=0 | box=0 THEN EXIT
  23. /* Resize  */
  24. GetObjectCoords box
  25. PARSE VAR RESULT p x y w h
  26. SetObjectCoords group p x y w h
  27. EXIT
  28.