From 81402241c0ec54a64b088f7f2156eb0a6546cf1b Mon Sep 17 00:00:00 2001
From: fanoI <fanoIlPrimo@gmail.com>
Date: Mon, 29 Aug 2016 15:44:57 +0200
Subject: [PATCH] Fixed Template for Visual Basic kernel

- Visual Basict projects do not accept ';' as separator between the constant definitions they accept instead ','
- The example kernel was wrong as nothing was really echoed back!
---
 .../Projects/CosmosKernel (VB)/Kernel.vb      | 25 ++++++++++---------
 .../CosmosKernel (VB)/VBProjKernel.vbproj     |  2 +-
 .../Projects/CosmosProject (VB)/Kernel.vb     | 25 ++++++++++---------
 .../CosmosProject (VB)/VBProjKernel.vbproj    |  2 +-
 4 files changed, 28 insertions(+), 26 deletions(-)

diff --git a/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/Kernel.vb b/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/Kernel.vb
index 00b577bb1e..30285f5f9c 100644
--- a/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/Kernel.vb	
+++ b/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/Kernel.vb	
@@ -4,19 +4,20 @@ Imports System.Text
 
 Namespace $safeprojectname$
 
-	Public Class Kernel
-		Inherits Cosmos.System.Kernel
+    Public Class Kernel
+        Inherits Cosmos.System.Kernel
 
-		Protected Overrides Sub BeforeRun()
-			Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
-		End Sub
+        Protected Overrides Sub BeforeRun()
+            Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
+        End Sub
 
-		Protected Overrides Sub Run()
-			Console.Write("Input: ")
-			Console.ReadLine()
-			Console.Write("Text typed: ")
-		End Sub
+        Protected Overrides Sub Run()
+            Console.Write("Input: ")
+            Dim input = Console.ReadLine()
+            Console.Write("Text typed: ")
+            Console.WriteLine(input)
+        End Sub
 
-	End Class
+    End Class
 
-End Namespace
\ No newline at end of file
+End Namespace
diff --git a/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/VBProjKernel.vbproj b/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/VBProjKernel.vbproj
index 918a5bbc0f..73a2a44e89 100644
--- a/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/VBProjKernel.vbproj	
+++ b/source/Cosmos.VS.Package/Templates/Projects/CosmosKernel (VB)/VBProjKernel.vbproj	
@@ -21,7 +21,7 @@
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
     <DebugSymbols>true</DebugSymbols>
     <OutputPath>bin\Debug\</OutputPath>
-    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <DefineConstants>DEBUG,TRACE</DefineConstants>
     <DebugType>full</DebugType>
     <PlatformTarget>x86</PlatformTarget>
     <ErrorReport>prompt</ErrorReport>
diff --git a/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/Kernel.vb b/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/Kernel.vb
index 00b577bb1e..30285f5f9c 100644
--- a/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/Kernel.vb	
+++ b/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/Kernel.vb	
@@ -4,19 +4,20 @@ Imports System.Text
 
 Namespace $safeprojectname$
 
-	Public Class Kernel
-		Inherits Cosmos.System.Kernel
+    Public Class Kernel
+        Inherits Cosmos.System.Kernel
 
-		Protected Overrides Sub BeforeRun()
-			Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
-		End Sub
+        Protected Overrides Sub BeforeRun()
+            Console.WriteLine("Cosmos booted successfully. Type a line of text to get it echoed back.")
+        End Sub
 
-		Protected Overrides Sub Run()
-			Console.Write("Input: ")
-			Console.ReadLine()
-			Console.Write("Text typed: ")
-		End Sub
+        Protected Overrides Sub Run()
+            Console.Write("Input: ")
+            Dim input = Console.ReadLine()
+            Console.Write("Text typed: ")
+            Console.WriteLine(input)
+        End Sub
 
-	End Class
+    End Class
 
-End Namespace
\ No newline at end of file
+End Namespace
diff --git a/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/VBProjKernel.vbproj b/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/VBProjKernel.vbproj
index 918a5bbc0f..73a2a44e89 100644
--- a/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/VBProjKernel.vbproj	
+++ b/source/Cosmos.VS.Package/Templates/Projects/CosmosProject (VB)/VBProjKernel.vbproj	
@@ -21,7 +21,7 @@
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x86'">
     <DebugSymbols>true</DebugSymbols>
     <OutputPath>bin\Debug\</OutputPath>
-    <DefineConstants>DEBUG;TRACE</DefineConstants>
+    <DefineConstants>DEBUG,TRACE</DefineConstants>
     <DebugType>full</DebugType>
     <PlatformTarget>x86</PlatformTarget>
     <ErrorReport>prompt</ErrorReport>