home *** CD-ROM | disk | FTP | other *** search
/ Merciful 3 / Merciful_Release_3.bin / software / f / finalwriter / finalwriterv5.03h.dms / finalwriterv5.03h.adf / FWMacros.lha / TxtStyle_Plain < prev    next >
Text File  |  1993-10-25  |  1KB  |  38 lines
  1. /* ======================================== */
  2. /* Final Copy II Arexx Macro - TO Plain     */
  3. /* Set the font at the insertion point to   */
  4. /* Plain. Note that this will only work for */
  5. /* fonts whose styled names start with '_'  */
  6. /* (the underscore character) such as       */
  7. /* X X_Italic, X_Bold, X_BoldItalic.        */
  8. /* $VER: TxtStyle_Plain 3.0 (22.7.93)       */
  9. /* ======================================== */
  10. Options Results
  11.  
  12. /* ------------------------------ */
  13. /* Get the complete font pathname */
  14. /* ------------------------------ */
  15. Status FontPath
  16. fontpath = Result
  17.  
  18. /* ------------------------------------- */
  19. /* Get only the font filename (w/o path) */
  20. /* ------------------------------------- */
  21. Status FontName
  22. fontname = Result
  23.  
  24. /* -------------------------------- */
  25. /* Does the file name have an '_'   */
  26. /* This will signify if the font is */
  27. /* normal or styled.                */
  28. /* -------------------------------- */
  29. pos = LASTPOS('_', fontname)
  30. IF (pos ~= 0) THEN
  31.    DO
  32.    pos = LASTPOS('_', fontpath)
  33.    fontpath = DELSTR(fontpath, pos)
  34.    END
  35.  
  36. Font fontpath
  37.  
  38.