luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Little patch to allow loading of slow generated texthighlighter

Browse source 
[GB.HIGHLIGHT]
BUG: TextHighLighter: Little patch to allow loading of slow generated texthighlighter
This commit is contained in:
gambix 2023-10-29 15:30:47 +01:00
parent 587bc846a0
commit 284c7c34dd
3 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

BIN
comp/src/gb.highlight/.icon.png
View file

Binary file not shown.
Side by side Swipe Overlay

Before

Width:  |  Height:  |  Size: 7.3 KiB

After

Width:  |  Height:  |  Size: 7.4 KiB

4
comp/src/gb.highlight/.src/Main.module
View file

@ -13,12 +13,12 @@ Public Sub Main()
TextHighlighter.CanRewrite = True
'TextHighlighter["gambas"].Run(" \"CTRL+A\": \"SelectAll\",\n", aState)
'File.Save("~/test.html", TextHighlighter["html"].ToHTML(File.Load("test/page.html")))
'File.Save("~/test.html", TextHighlighter["c"].ToHTML(File.Load("~/gambas/git/master/main/share/gambas.h")))
File.Save("~/test.html", TextHighlighter["c"].ToHTML(File.Load("~/gambas/main/share/gambas.h")))
'File.Save("~/test.html", TextHighlighter["diff"].ToHTML(File.Load(Application.Path &/ ".hidden/test/diff.txt")))
'TextHighlighter.Register("~/gambas/git/master/app/src/gambas3/highlight/conflict.highlight")
'File.Save("~/test.html", TextHighlighter["conflict"].ToHTML(File.Load("test/conflict.txt")))
'File.Save("~/test.html", TextHighlighter["javascript"].ToHTML(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/javascript/selectr.js")))
'File.Save("~/test.html", TextHighlighter["webpage"].ToHTML(File.Load(Application.Path &/ ".hidden/test/Webpage1.webpage")))
File.Save("~/test.html", TextHighlighter["sh"].ToHTML(File.Load("~/gambas/git/master/comp/src/gb.desktop/xdg-utils/xdg-open")))
'File.Save("~/test.html", TextHighlighter["sh"].ToHTML(File.Load("~/gambas/git/master/comp/src/gb.desktop/xdg-utils/xdg-open")))
End

2
comp/src/gb.highlight/.src/TextHighlighter.class
View file

@ -274,7 +274,7 @@ Static Private Sub CreateCustomHighlighter(sHighlight As String, sPath As String
Shell "cd " & Shell$(sDir) & " && gbc3 -agt 2>&1 && gba3 2>&1" To sOutput
sOutput = Trim(sOutput)
If Process.LastValue And If sOutput Then Error.Raise(sOutput)
Wait 0.1
Component.Load(sDir &/ "gb.highlight." & sHighlight & ".gambas")
Catch