home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Merciful 3
/
Merciful_Release_3.bin
/
software
/
f
/
finalwriter
/
finalwriterv5.03a.dms
/
finalwriterv5.03a.adf
/
FWMacros.lha
/
TxtLeading_Decr
< prev
next >
Wrap
Text File
|
1993-10-25
|
578b
|
26 lines
/* ================================================= */
/* Set current paragraph to variable spacing and */
/* decrease leading by 1 point. */
/* FinalWriter macro written by Ric Fischer - 7/7/93 */
/* $VER: TxtLeading_Decr 3.0 (22.7.93) */
/* ================================================= */
Options Results
Status ParaPos
IF (Words(Result) > 2) THEN DO
Status Spacing
IF (Result ~= "Variable") THEN
Spacing Variable
Status FontLeading
Result = Result - 1
IF ( Result >= 4 ) THEN
Leading Result
END