home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / util / rexx / fw_macros.lha / Draw_TextBlock < prev    next >
Encoding:
Text File  |  1995-03-26  |  1.2 KB  |  42 lines
  1. /* ======================================== */
  2. /*  FINAL WRITER AREXX MACRO                */
  3. /*    by Nigel S. Domaingue, 28/1/95        */
  4. /*  Draw_TextBox                            */
  5. /*  $Ver:  Draw_TextBox v1.0 (30/1/95)      */
  6. /* ======================================== */
  7.  
  8. Options Results
  9.  
  10. /* Must determine the current page and the current */
  11. /* scroll-position so that the box will be placed  */
  12. /* in the field of view.                           */
  13.  
  14. Status Page
  15. CurPage = Result
  16.  
  17. Status ScrollPos
  18. Parse VAR Result Left Top
  19. Top = Top +1
  20. Left = Left +1
  21.  
  22. /* For some reason, this script did not work properly  */
  23. /* if an ordinary graohic was already selected.  It    */
  24. /* failed to put up the requester before placing text, */
  25. /* theeby placing whatever was previously the default. */
  26. /*  By switching to the texttool and back, this should */
  27. /* hopefully be resolved.                              */
  28.  
  29. TextTool
  30. GraphicTool
  31.  
  32. /* Call up the requester.                       */
  33. /* This in fact changes the default settings.   */
  34. TextBlockPrefs Prompt
  35.  
  36. /* Create a text box with the default settings. */
  37. GetTextBlockPrefs Text
  38. text=Result
  39. DrawTextBlock CurPage Left Top text
  40. Redraw
  41.  
  42.