QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-06-26 00:50:37 +00:00
Code Releases Wiki Activity

More wiki updates.

Browse source 
- fixed the by usage page not loading in some cases.
- remove SUB Help_PreView; appears to be unused.
- fixed downloaded file being incorrectly saved with txt extension.
This commit is contained in:
Cory Smith 2022-09-02 21:20:45 -05:00
parent 0ad2acd7dd
commit dc2451cea6
2 changed files with 28 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
source/ide/ide_methods.bas
View file

@ -5315,7 +5315,7 @@ FUNCTION ide2 (ignore)
END IF END IF
IF menu$(m, s) = "#Keywords By Usage" THEN IF menu$(m, s) = "#Keywords By Usage" THEN
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
lnk$ = "Keyword Reference - By usage" lnk$ = "Keyword Reference - By Usage"
GOTO OpenHelpLnk GOTO OpenHelpLnk
END IF END IF

54
source/ide/wiki/wiki_methods.bas
View file

@ -87,7 +87,7 @@ FUNCTION Wiki$ (PageName$)
url$ = CHR$(34) + wikiBaseAddress$ + "/" + PageName2$ + ".md" + CHR$(34) url$ = CHR$(34) + wikiBaseAddress$ + "/" + PageName2$ + ".md" + CHR$(34)
outputFile$ = Cache_Folder$ + "/" + PageName2$ + ".txt" outputFile$ = Cache_Folder$ + "/" + PageName2$ + ".md"
SHELL _HIDE "curl -L -o " + CHR$(34) + outputFile$ + CHR$(34) + " " + url$ SHELL _HIDE "curl -L -o " + CHR$(34) + outputFile$ + CHR$(34) + " " + url$
fh = FREEFILE fh = FREEFILE
@ -183,34 +183,34 @@ SUB Help_NewLine
END SUB END SUB
SUB Help_PreView ' SUB Help_PreView ' Does not appear to be in use.
OPEN "help_preview.txt" FOR OUTPUT AS #1 ' OPEN "help_preview.txt" FOR OUTPUT AS #1
FOR i = 1 TO LEN(Help_Txt$) STEP 4 ' FOR i = 1 TO LEN(Help_Txt$) STEP 4
c = ASC(Help_Txt$, i) ' c = ASC(Help_Txt$, i)
c$ = CHR$(c) ' c$ = CHR$(c)
IF c = 13 THEN c$ = CHR$(13) + CHR$(10) ' IF c = 13 THEN c$ = CHR$(13) + CHR$(10)
PRINT #1, c$; ' PRINT #1, c$;
NEXT ' NEXT
CLOSE #1 ' CLOSE #1
CLS ' CLS
FOR i = 1 TO LEN(Help_Txt$) STEP 4 ' FOR i = 1 TO LEN(Help_Txt$) STEP 4
c = ASC(Help_Txt$, i) ' c = ASC(Help_Txt$, i)
col = ASC(Help_Txt$, i + 1) ' col = ASC(Help_Txt$, i + 1)
IF c = 13 THEN ' IF c = 13 THEN
COLOR col AND 15, col \ 16 ' COLOR col AND 15, col \ 16
PRINT SPACE$(help_w - POS(0)); ' PRINT SPACE$(help_w - POS(0));
COLOR 7, 0 ' COLOR 7, 0
PRINT SPACE$(_WIDTH - POS(0) + 1); ' PRINT SPACE$(_WIDTH - POS(0) + 1);
COLOR col AND 15, col \ 16 ' COLOR col AND 15, col \ 16
SLEEP ' SLEEP
ELSE ' ELSE
COLOR col AND 15, col \ 16 ' COLOR col AND 15, col \ 16
PRINT CHR$(c); ' PRINT CHR$(c);
END IF ' END IF
NEXT ' NEXT
END SUB ' END SUB
FUNCTION Help_Col 'helps to calculate the default color FUNCTION Help_Col 'helps to calculate the default color