home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / WordProcessors / PS3B01.LHA / 3.0bupdate / Macros.LHA / AutomaticTextFrame.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-20  |  1.4 KB  |  45 lines
  1. /* $VER: AutomaticTextFrame.rexx 1.0 (02.9.94)
  2.    Copyright 1994 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik 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.  
  12. ADDRESS 'PAGESTREAM'
  13.  
  14. /* Check and see if a text frame is selected */
  15. 'getobject type objtype'
  16. say objtype
  17. if objtype=11 then do
  18.     'refresh wait'
  19.     getcolumn position pstem columns number gutter space rotation rstem about rstem constrain cflag print pflag
  20.     pstring=pstem.left' 'pstem.top' 'pstem.right' 'pstem.bottom' skew 'rstem.slant' 'rstem.twist' columns 'number' gutter 'space
  21.     if rstem.mode=POINT then pstring=pstring' about 'rstem.x' 'rstem.y
  22.     if cflag=ON then pstring=pstring' constrain'
  23.     if pflag=OFF then pstring=pstring' noprint'
  24.     getdisplay dstem
  25.     display page dstem.page+1
  26.     'drawcolumn 'pstring
  27.     'refresh continue'
  28. end
  29. else do
  30.     allocarexxrequester '"Automatic Text Frame Error!"' 524 51
  31.     reqhandle=result
  32.     addarexxgadget reqhandle EXIT 235 34 70 label "_Exit"
  33.         Exithandle=result
  34.     addarexxgadget reqhandle TEXT 8 10 504 border none string "'The insertion point must be in a text frame to use this macro.'"
  35.     doarexxrequester reqhandle
  36.     freearexxrequester reqhandle
  37.     EXIT
  38. end
  39. EXIT
  40.  
  41. CANCEL:
  42. selectobject objectid objnum
  43. 'refresh continue'
  44. EXIT
  45.