home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / slt-pgs3.lzx / PageStream3 / Scripts / SetRotationPoint.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1996-10-20  |  746 b   |  30 lines
  1. /* $VER: SetRotationPoint.rexx 1.1 (09.10.96)
  2.    Copyright 1995 SoftLogik Publishing Corporation
  3.    May not be distributed without SoftLogik Publishing Corporation's express written permission */
  4.  
  5. ADDRESS 'PAGESTREAM'
  6. options results
  7.  
  8. getobject
  9. if rc=0 then do
  10.     'getcoord click message "Click to set the rotation point..."'
  11.     editobject about click.x click.y
  12.     end
  13. else do
  14.     call doalert("Select only one object.")
  15.  
  16. end
  17.  
  18. EXIT
  19.  
  20. DOALERT:
  21. parse arg astring
  22. /* Display an alert requester */
  23.         allocarexxrequester '"Script Alert"' 334 55
  24.             hAlertReq=result
  25.         addarexxgadget hAlertReq TEXT 8 12 268 border none string '"'astring'"'
  26.         addarexxgadget hAlertReq EXIT 252 38 70 label "Exit"
  27.         doarexxrequester hAlertReq
  28.         freearexxrequester hAlertReq
  29. RETURN
  30.