[Release] Final changes for 2.18.0.4

Author: RobertvanderHulst

src/Master.sln

@@ -143,6 +143,7 @@ EndProject
 Project("{AA6C8D78-22FF-423A-9C7C-5F2393824E04}") = "XSharp.Core", "Runtime\XSharp.Core\XSharp.Core.xsproj", "{535DFF14-EFB7-43F5-A4E1-71C1C4280040}"
 	ProjectSection(ProjectDependencies) = postProject
 		{2175700A-1AAE-4204-A89A-054C5AB9A21A} = {2175700A-1AAE-4204-A89A-054C5AB9A21A}
+		{9D02E3F9-7157-46B7-9E97-F62010E4B3F2} = {9D02E3F9-7157-46B7-9E97-F62010E4B3F2}
 	EndProjectSection
 EndProject
 Project("{AA6C8D78-22FF-423A-9C7C-5F2393824E04}") = "XSharp.RT", "Runtime\XSharp.RT\XSharp.RT.xsproj", "{EF8D2BF2-E81A-479A-BA4F-294C4C348B66}"

src/VisualStudio/XSharpCodeModelXs/Parser/ModelWalker.prg

@@ -144,8 +144,7 @@ BEGIN NAMESPACE XSharpModel
         STATIC METHOD Suspend() AS VOID
             ModelWalker.suspendLevel++
             IF (_projects:Count > 0)
-                LOCAL project := NULL AS XProject
-                IF _projects:TryPeek(REF project)
+                IF _projects:TryPeek(OUT VAR _)
                     XSolution.SetStatusBarText("")
                 ENDIF
             ENDIF

src/VisualStudio/XSharpVoEditors/Designers/VOMenuEditor.prg

@@ -1375,7 +1375,7 @@ PARTIAL CLASS VOMenuEditor INHERIT DesignerBase
         LOCAL nMaxOriginalDefineValue := 0 AS INT
         FOREACH oDesign AS DesignMenuItem IN aControls
             LOCAL nOriginalDefineValue := 0 AS INT
-            Int32.TryParse(oDesign:GetProperty("OriginalDefineValue"):TextValue, REF nOriginalDefineValue)
+            Int32.TryParse(oDesign:GetProperty("OriginalDefineValue"):TextValue, OUT nOriginalDefineValue)
             IF nOriginalDefineValue > nMaxOriginalDefineValue
                 nMaxOriginalDefineValue := nOriginalDefineValue
             ENDIF
@@ -1414,7 +1414,7 @@ PARTIAL CLASS VOMenuEditor INHERIT DesignerBase
             oDesign:GetProperty("MenuID"):Value := SELF:GetNewMenuID()
             END IF*/
             LOCAL nValueToUse := 0 AS INT
-            Int32.TryParse(oDesign:GetProperty("OriginalDefineValue"):TextValue, REF nValueToUse)
+            Int32.TryParse(oDesign:GetProperty("OriginalDefineValue"):TextValue, OUT nValueToUse)
             IF nValueToUse == 0
                 nValueToUse := nId
                 nId ++