mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-19 23:44:46 +00:00
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
This commit is contained in:
parent
c92a050116
commit
ef3b235d95
1 changed files with 6 additions and 5 deletions
|
@ -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) = "<hr>" OR c$(6) = "<hr />" THEN
|
||||
IF c$(4) = "<hr>" THEN i = i + 3
|
||||
IF c$(6) = "<hr />" 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
|
||||
|
|
Loading…
Reference in a new issue