From ef3b235d95f25b7ad8bdfc6cc7be32d1de4aaa2d Mon Sep 17 00:00:00 2001 From: Roland Heyder Date: Wed, 19 Jun 2024 15:27:19 +0200 Subject: [PATCH] Improved blank line logic - an explicit blank line check now cancels any pending request for an implicit one - avoid blank lines between multiple successive horizontal rulers --- source/ide/wiki/wiki_methods.bas | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/source/ide/wiki/wiki_methods.bas b/source/ide/wiki/wiki_methods.bas index dd30739e2..d3150d5d9 100644 --- a/source/ide/wiki/wiki_methods.bas +++ b/source/ide/wiki/wiki_methods.bas @@ -134,7 +134,7 @@ END FUNCTION SUB Help_AddTxt (t$, col, link) 'Add help text, handle word wrap IF t$ = "" THEN EXIT SUB - IF Help_ChkBlank <> 0 THEN Help_CheckBlankLine: Help_ChkBlank = 0 + IF Help_ChkBlank <> 0 THEN Help_CheckBlankLine FOR i = 1 TO LEN(t$) c = ASC(t$, i) @@ -227,6 +227,7 @@ SUB Help_CheckBlankLine 'Make sure the last help line is a blank line (implies f IF ASC(Help_Txt$, Help_Txt_Len - 2) < 128 THEN Help_NewLine IF ASC(Help_Txt$, Help_Txt_Len - 6) < 128 THEN Help_NewLine END IF + Help_ChkBlank = 0 END SUB SUB Help_CheckRemoveBlankLine 'If the last help line is blank, then remove it @@ -802,17 +803,17 @@ SUB WikiParse (a$) 'Wiki page interpret 'Rulers IF c$(4) = "----" AND nl = 1 THEN i = i + 3 - Help_CheckBlankLine + IF Help_ChkBlank = -1 THEN Help_ChkBlank = 0: ELSE Help_CheckBlankLine Help_AddTxt STRING$(Help_ww, 196), 14, 0 - Help_ChkBlank = 1 + Help_ChkBlank = -1 GOTO charDone END IF IF c$(4) = "
" OR c$(6) = "
" THEN IF c$(4) = "
" THEN i = i + 3 IF c$(6) = "
" THEN i = i + 5 - Help_CheckBlankLine + IF Help_ChkBlank = -1 THEN Help_ChkBlank = 0: ELSE Help_CheckBlankLine Help_AddTxt STRING$(Help_ww, 196), 14, 0 - Help_ChkBlank = 1 + Help_ChkBlank = -1 GOTO charDone END IF END IF