Another fix of 'gambas' highlighting when 'CanRewrite' is FALSE.

[GB.HIGHLIGHT]
* BUG: Another fix of 'gambas' highlighting when 'CanRewrite' is FALSE.
* BUG: Fix 'webpage' highlighting of '<%/%>'.

comp/src/gb.highlight/.src/Main.module

@@ -28,7 +28,7 @@ Public Sub Main()
     'Print .ToANSI(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/style/style-modern.css"))
     'Print .ToANSI(File.Load("~/gambas/git/master/comp/src/gb.desktop/.src/Desktop.class"))
     'Print .ToANSI(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Site/Dialog.webpage"))
-    File.Save("~/test.html", .ToHTML(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Site/Dialog.webpage")))
+    File.Save("~/test.html", .ToHTML(File.Load("~/asap/omogen/master/src/kernel/guygle.cgi/.src/Site/CloseMe.webpage")))
   End With
 
 End

comp/src/gb.highlight/.src/_TextHighlighter_Gambas.class

@@ -103,6 +103,12 @@ Public Sub _Analyze(Text As String, (State) As Byte[], Optional (MatchLimit) As
     
     sSym = Highlight.Symbols[I]
     If Limit And If sSym Begins Limit Then
+      If Not bRewrite Then
+        If iPos < Highlight.Positions[I] Then
+          TextHighlighter._Add(aHighlight, 0, Highlight.Positions[I] - iPos)
+          iPos = Highlight.Positions[I]
+        Endif
+      Endif
       bNewLine = False
       bGotLimit = True
       sTextAfter = Left(sTextAfter, -2)

comp/src/gb.highlight/highlight/webpage.include

+root{Preprocessor}:
+  match "<%/%>"
 comment.webpage{Preprocessor}:
   from <%-- to --%>
 webpage{Preprocessor}: