TextEditor: Take the mode into account when selecting a word.

[GB.FORM.EDITOR]
* BUG: TextEditor: Take the mode into account when selecting a word.
* BUG: TextEditor: Correctly define the identifier characters of the different modes.

comp/src/gb.form.editor/.component

 [Component]
 Key=gb.form.editor
-Version=3.16.90
+Version=3.17.90
 Needs=Form
 Requires=gb.eval.highlight,gb.util,gb.form

comp/src/gb.form.editor/.project

@@ -2,7 +2,7 @@
 Title=Text editor with syntax highlighting
 Startup=FTestEditor
 Icon=.hidden/control/texteditor.png
-Version=3.16.90
+Version=3.17.90
 VersionFile=1
 Component=gb.image
 Component=gb.gui

comp/src/gb.form.editor/.src/CDocument.class

@@ -1200,14 +1200,10 @@ End
 
 Private Sub IsWordChar(sCar As String) As Boolean
   
-  If IsSpace(sCar) Then Return
-  If IsPunct(sCar) And If InStr("_$", sCar) = 0 Then Return
-  If String.Code(sCar) = 160 Then Return
-  Return True
+  Return _Mode.IsIdentCar(sCar)
   
 End
 
-
 Public Sub WordLeft(X As Integer, Y As Integer, Optional bWord As Boolean) As Integer
 
   Dim sLine As String = Lines[Y]

comp/src/gb.form.editor/.src/TextEditorMode.class

@@ -44,7 +44,6 @@ Private Sub IsSpacePunctCar(sText As String, iPos As Integer) As Boolean
   
 End
 
-
 Public Sub InsideString(hEditor As TextEditor) As Boolean
   
   Dim iLen As Integer

comp/src/gb.form.editor/.src/TextEditorMode_CSS.class

@@ -3,3 +3,10 @@
 Inherits TextEditorMode
 
 Static Public Const STRING_DELIM As String = "\"'"
+
+Public Sub IsIdentCar(sCar As String) As Boolean
+  
+  If IsLetter(sCar) Or If IsDigit(sCar) Or If InStr("-_", sCar) Then Return True
+  
+End
+

comp/src/gb.form.editor/.src/TextEditorMode_HTML.class

@@ -8,6 +8,12 @@ Static Public Const STRING_DELIM As String = "\"'"
 
 Static Private $aDoNotClose As String[] = ["area", "base", "br", "col", "command", "embed", "hr", "img", "input", "keygen", "link", "meta", "param", "source", "track", "wbr"]
 
+Public Sub IsIdentCar(sCar As String) As Boolean
+  
+  If IsLetter(sCar) Or If IsDigit(sCar) Or If InStr("-_", sCar) Then Return True
+  
+End
+
 Private Sub InsertClosingMarkup(hEditor As TextEditor)
 
   Dim sLine As String

comp/src/gb.form.editor/.src/TextEditorMode_Javascript.class

@@ -5,3 +5,10 @@ Inherits TextEditorMode
 Static Public Const BRACES_OPEN As String = "([{"
 Static Public Const BRACES_CLOSE As String = ")]}"
 Static Public Const STRING_DELIM As String = "\"'`"
+
+Public Sub IsIdentCar(sCar As String) As Boolean
+  
+  If IsLetter(sCar) Or If IsDigit(sCar) Or If InStr("_$", sCar) Then Return True
+  
+End
+