QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-26 17:10:38 +00:00
Code Issues Releases Wiki Activity

Adjusts " View on Wiki " link.

Browse source 
Fixes launching of urls with some special characters.
This commit is contained in:
Fellippe Heitor 2021-07-28 13:47:18 -03:00
parent 8de0ca17f6
commit fa96640624
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
source/ide/ide_methods.bas
View file

@ -2230,12 +2230,14 @@ FUNCTION ide2 (ignore)
IF mCLICK THEN
IF (mY = idewy AND (mX >= idewx - 6 AND mX <= idewx - 4)) THEN 'launch wiki
IF (mY = idewy AND (mX >= idewx - 17 AND mX <= idewx - 4)) THEN 'view on wiki
launchWiki:
url$ = StrReplace$("http://www.qb64.org/wiki/index.php?title=" + Back$(Help_Back_Pos), " ", "%20")
IF INSTR(_OS$, "WIN") = 0 THEN
url$ = StrReplace$(url$, "$", "\$")
url$ = StrReplace$(url$, "&", "\&")
url$ = StrReplace$(url$, "(", "\(")
url$ = StrReplace$(url$, ")", "\)")
END IF
IF INSTR(_OS$, "WIN") THEN
@ -6293,7 +6295,8 @@ FUNCTION ide2 (ignore)
PRINT CHR$(196);
END IF
NEXT
COLOR 15, 3: _PRINTSTRING (idewx - 6, idewy), " " + CHR$(233) + " "
COLOR 7, 0: _PRINTSTRING (idewx - 18, idewy), CHR$(180)
COLOR 15, 3: _PRINTSTRING (idewx - 17, idewy), " View on Wiki "
RETURN
END FUNCTION