mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-20 09:04:43 +00:00
Adds "View on Wiki" button to help panel.
This commit is contained in:
parent
bad61fd840
commit
6773a82924
1 changed files with 23 additions and 5 deletions
|
@ -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"
|
||||||
|
|
Loading…
Reference in a new issue