QB64/qb64
QB64/qb64
1
1
Fork 0
mirror of https://github.com/QB64Official/qb64.git synced 2024-07-07 20:20:25 +00:00
Code Releases Wiki Activity

Adds "View on Wiki" button to help panel.

Browse source
This commit is contained in:
FellippeHeitor 2021-07-28 02:25:27 -03:00
parent bad61fd840
commit 6773a82924
1 changed files with 23 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
source/ide/ide_methods.bas
View file

@ -438,6 +438,8 @@ FUNCTION ide2 (ignore)
menuDesc$(m, i - 1) = "Downloads the latest version of an article from the wiki" menuDesc$(m, i - 1) = "Downloads the latest version of an article from the wiki"
menu$(m, i) = "Update All #Pages...": i = i + 1 menu$(m, i) = "Update All #Pages...": i = i + 1
menuDesc$(m, i - 1) = "Downloads the latest version of all articles from the wiki" menuDesc$(m, i - 1) = "Downloads the latest version of all articles from the wiki"
menu$(m, i) = "View Current Page On #Wiki": i = i + 1
menuDesc$(m, i - 1) = "Launches the default browser and navigates to the current article on the wiki"
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
menu$(m, i) = "#About...": i = i + 1 menu$(m, i) = "#About...": i = i + 1
menuDesc$(m, i - 1) = "Displays the current version of QB64" menuDesc$(m, i - 1) = "Displays the current version of QB64"
@ -2216,10 +2218,6 @@ FUNCTION ide2 (ignore)
IF mCLICK OR K$ = CHR$(27) THEN IF mCLICK OR K$ = CHR$(27) THEN
IF (mY = idewy AND (mX >= idewx - 3 AND mX <= idewx - 1)) OR K$ = CHR$(27) THEN 'close help IF (mY = idewy AND (mX >= idewx - 3 AND mX <= idewx - 1)) OR K$ = CHR$(27) THEN 'close help
'IF idesubwindow THEN PCOPY 3, 0: SCREEN , , 3, 0: idewait4mous: idewait4alt: GOTO ideloop
'idesubwindow = idewy \ 2: idewy = idewy - idesubwindow
closeHelp: closeHelp:
idewy = idewy + idesubwindow idewy = idewy + idesubwindow
idehelp = 0 idehelp = 0
@ -2227,12 +2225,24 @@ FUNCTION ide2 (ignore)
skipdisplay = 0 skipdisplay = 0
IdeSystem = 1 IdeSystem = 1
retval = 1: GOSUB redrawItAll retval = 1: GOSUB redrawItAll
END IF END IF
END IF END IF
IF mCLICK THEN IF mCLICK THEN
IF (mY = idewy AND (mX >= idewx - 6 AND mX <= idewx - 4)) THEN 'launch wiki
launchWiki:
url$ = StrReplace$("http://www.qb64.org/wiki/index.php?title=" + Back$(Help_Back_Pos), " ", "%20")
IF INSTR(_OS$, "WIN") THEN
SHELL _DONTWAIT "start " + url$
ELSEIF INSTR(_OS$, "MAC") THEN
SHELL _DONTWAIT "open " + url$
ELSE
SHELL _DONTWAIT "xdg-open " + url$
END IF
GOTO specialchar
END IF
IF mY = idewy THEN IF mY = idewy THEN
sx = 2 sx = 2
@ -5202,6 +5212,11 @@ FUNCTION ide2 (ignore)
GOTO ideloop GOTO ideloop
END IF END IF
IF menu$(m, s) = "View Current Page On #Wiki" THEN
PCOPY 3, 0: SCREEN , , 3, 0
IF idehelp THEN GOTO launchWiki
END IF
IF menu$(m, s) = "#Update Current Page" THEN IF menu$(m, s) = "#Update Current Page" THEN
PCOPY 3, 0: SCREEN , , 3, 0 PCOPY 3, 0: SCREEN , , 3, 0
IF idehelp THEN IF idehelp THEN
@ -6272,6 +6287,7 @@ FUNCTION ide2 (ignore)
PRINT CHR$(196); PRINT CHR$(196);
END IF END IF
NEXT NEXT
COLOR 15, 3: _PRINTSTRING (idewx - 6, idewy), " " + CHR$(233) + " "
RETURN RETURN
END FUNCTION END FUNCTION
@ -15451,6 +15467,8 @@ SUB IdeMakeContextualMenu
menuDesc$(m, i - 1) = "Downloads the latest version of this article from the wiki" menuDesc$(m, i - 1) = "Downloads the latest version of this article from the wiki"
menu$(m, i) = "Update All #Pages...": i = i + 1 menu$(m, i) = "Update All #Pages...": i = i + 1
menuDesc$(m, i - 1) = "Downloads the latest version of all articles from the wiki" menuDesc$(m, i - 1) = "Downloads the latest version of all articles from the wiki"
menu$(m, i) = "View Current Page On #Wiki": i = i + 1
menuDesc$(m, i - 1) = "Launches the default browser and navigates to the current article on the wiki"
menu$(m, i) = "-": i = i + 1 menu$(m, i) = "-": i = i + 1
menu$(m, i) = "Clo#se Help ESC": i = i + 1 menu$(m, i) = "Clo#se Help ESC": i = i + 1
menuDesc$(m, i - 1) = "Closes help window" menuDesc$(m, i - 1) = "Closes help window"