home *** CD-ROM | disk | FTP | other *** search
/ MACD 4 / MACD4.iso / Patch / Programs / PGS32TU3.LHA / scripts.lha / PlaceGraphicAt.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-11-08  |  1.3 KB  |  52 lines
  1. /* $VER: PlaceGraphicAt.rexx 1.1 (11.08.96)
  2.    Copyright 1996 SoftLogik Publishing Corporation
  3.    May not be distributed without SoftLogik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6. TRACE OFF
  7.  
  8. /* Make sure rexx support is opened */
  9. IF ~SHOW('L','rexxsupport.library') THEN
  10.     CALL ADDLIB('rexxsupport.library',0,-30)
  11. IF ~SHOW('L','softlogik:libs/slarexxsupport.library') THEN
  12.     CALL ADDLIB('softlogik:libs/slarexxsupport.library', 0, -30)
  13.  
  14. ADDRESS 'PAGESTREAM'
  15.  
  16. /* SELECT THE GRAPHIC */
  17. 'refresh wait'
  18. 'placegraphic status'
  19. if rc~=0 then signal cancel
  20.  
  21. /* GET THE OBJECT ID AND TYPE */
  22. 'getobject type objtype'
  23. objnum=result
  24.  
  25. /* POSITION THE PICTURE */
  26. getregion coord message '"Click or drag to place the picture."'
  27. if rc=10 then do
  28.     'deleteobject'
  29.     signal cancel
  30. end
  31.  
  32. if (abs(coord.x1-coord.x2))<0.25 | (abs(coord.y1-coord.y2))<0.25 then DO
  33.     if objtype=12 then getpicture position pstem
  34.     if objtype=2 then getdrawing position pstem
  35.     if objtype=13 then geteps position pstem
  36.     coord.x2=pstem.right-pstem.left+coord.x1
  37.     coord.y2=pstem.bottom-pstem.top+coord.y1
  38. end
  39.  
  40. if objtype=12 then editpicture position coord.x1 coord.y1 coord.x2 coord.y2
  41. if objtype=2 then editdrawing position coord.x1 coord.y1 coord.x2 coord.y2
  42. if objtype=13 then editeps position coord.x1 coord.y1 coord.x2 coord.y2
  43.  
  44. 'refresh continue'
  45.  
  46. EXIT
  47.  
  48.  
  49. CANCEL:
  50. 'refresh continue'
  51. EXIT
  52.