home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / ftnote1.zip / FOOTLINE < prev    next >
Text File  |  1993-11-07  |  1KB  |  39 lines
  1. !       filename FOOTLINE  11/07/93
  2. VAR thickness
  3. VAR separation
  4. VAR defaultSeparation
  5. MACRO FootnoteSeparator
  6.         CancelDefinedBlock
  7.         StyleCreateVariation
  8.         SET AttributeUnderline TO TRUE
  9.         GET "How thick should the footnote separator line be?  Enter the number of points. Default is   1 pt" TOVALUE thickness
  10.         ParagraphDown
  11.         SET a TO StylePointSize
  12.         SET b TO StylePointSize
  13.         SET c TO StyleLeading
  14.         ParagraphUp
  15.         GET "How many points between the line and the first footnote's text?  Default is footnote pointsize - 2" TOVALUE separation
  16.                 IF separation = 0 THEN
  17.                         SET defaultSeparation TO a - 2pt
  18.                         SET defaultSeparation TO -defaultSeparation
  19.                 ELSE
  20.                         SET separation TO -separation
  21.                 END IF
  22.         IF thickness = 0 THEN
  23.                 SET UnderlineSize TO 1
  24.         ELSE
  25.                 SET UnderlineSize TO thickness
  26.         END IF
  27.         IF separation = 0 THEN
  28.                 SET UnderlinePosition TO defaultSeparation
  29.         ELSE
  30.                 SET UnderlinePosition TO separation
  31.         END IF
  32.         SET StylePointSize TO b
  33.         SET StyleLeading TO c
  34.         StyleApplyVariation
  35.         MSG "Place your cursor where you want the separator line to END, and press the space bar."
  36.         DefineRight
  37.         CursorLeft
  38. END MACRO
  39.