Support for write-only properties.

[DEVELOPMENT ENVIRONMENT]
* NEW: Support for write-only properties.

app/src/gambas3/.src/Component/CDocumentation.class

@@ -670,6 +670,10 @@ Private Sub ScanClass(hModule As Object, cSymbol As Collection, bModule As Boole
           If sKind = "p" Then sKind = "r"
           Inc iInd
           Break
+        Case "WRITE"
+          If sKind = "p" Then sKind = "w"
+          Inc iInd
+          Break
         Case "EVENT"
           sKind = ":"
           bStatic = False

app/src/gambas3/.src/Component/CSymbolInfo.class

@@ -152,6 +152,8 @@ Public Function GetIcon() As String
 
     Case "r"
       sIcon = If(bStatic, "s-property-ro", "property-ro")
+    Case "w"
+      sIcon = If(bStatic, "s-property-rw", "property-rw")
     Case "p"
       sIcon = If(bStatic, "s-property", "property")
     Case "v"
@@ -633,6 +635,8 @@ Public Function GetDescription(Optional bBalise As Boolean) As String
   
     Case "r"
       sDesc = sStatic & "Property Read"
+    Case "w"
+      sDesc = sStatic & "Property Write"
     Case "p"
       sDesc = sStatic & "Property"
     'CASE "v"
@@ -1439,6 +1443,8 @@ Public Sub WikiGetSyntax() As String[]
           sSyntax = sSyntax & Keyword("Property") & " "
         Case "r"
           sSyntax = sSyntax & Keyword("Property Read") & " "
+        Case "w"
+          sSyntax = sSyntax & Keyword("Property Write") & " "
         Case "c"
           sSyntax = sSyntax & Keyword("Const") & " "
         Case ":"

app/src/gambas3/.src/Editor/Code/FEditor.class

@@ -639,19 +639,23 @@ Private Sub InsertProperty(bShift As Boolean)
   Dim iLine As Integer
   Dim iCol As Integer
   Dim aSymbols As String[]
+  Dim bWrite As Boolean
 
   aSymbols = Highlight.Symbols
 
-  If aSymbols[0] = "STATIC" Then
+  If aSymbols[0] == "STATIC" Then
     bStatic = True
     iPos = 2
   Else
     iPos = 1
   Endif
 
-  If aSymbols[iPos] = "READ" Then
+  If aSymbols[iPos] == "READ" Then
     bRead = True
     Inc iPos
+  Else If aSymbols[iPos] == "WRITE" Then
+    bWrite = True
+    Inc iPos
   Endif
 
 ANOTHER_SYMBOL: 
@@ -696,10 +700,8 @@ ANOTHER_SYMBOL:
   iCol = $hEditor.Column
 
   $hEditor.Begin
-  InsertFunction(sName & "_Read", sType, False, "", bStatic)
-  If Not bRead Then
-    InsertFunction(sName & "_Write", "", False, "Value As " & sType, bStatic)
-  Endif
+  If Not bWrite Then InsertFunction(sName & "_Read", sType, False, "", bStatic)
+  If Not bRead Then InsertFunction(sName & "_Write", "", False, "Value As " & sType, bStatic)
   $hEditor.End
 
   $hEditor.Goto(iCol, iLine)

app/src/gambas3/.src/Project/FProjectProperty.form

@@ -677,7 +677,7 @@
         { cmbForceBytecodeVersion ComboBox
           MoveScaled(61,0,14,4)
           #Translate = False
-          List = ["", "3.8", "3.15"]
+          List = ["", "3.8", "3.15", "3.18"]
         }
       }
       { Label19 Label