X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mcs%2Fclass%2FMicrosoft.VisualBasic%2FTest%2Fstandalone%2F12302.vb;h=0641509f411b2cd1eae29e12b0ec3f20f4c4053c;hb=13bbfef28c7175701866862dfd24b1ba044947a1;hp=07333f6637cc6a0e37ac5c36a6ac8ca8eea199fc;hpb=234225d112c4b018b8d1796f4c06a15812137500;p=mono.git

diff --git a/mcs/class/Microsoft.VisualBasic/Test/standalone/12302.vb b/mcs/class/Microsoft.VisualBasic/Test/standalone/12302.vb
index 07333f6637c..0641509f411 100644
--- a/mcs/class/Microsoft.VisualBasic/Test/standalone/12302.vb
+++ b/mcs/class/Microsoft.VisualBasic/Test/standalone/12302.vb
@@ -1,49 +1,45 @@
-  '
-  ' Copyright (c) 2002-2003 Mainsoft Corporation.
-  '
-  ' Permission is hereby granted, free of charge, to any person obtaining a
-  ' copy of this software and associated documentation files (the "Software"),
-  ' to deal in the Software without restriction, including without limitation
-  ' the rights to use, copy, modify, merge, publish, distribute, sublicense,
-  ' and/or sell copies of the Software, and to permit persons to whom the
-  ' Software is furnished to do so, subject to the following conditions:
-  ' 
-  ' The above copyright notice and this permission notice shall be included in
-  ' all copies or substantial portions of the Software.
-  ' 
-  ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-  ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-  ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-  ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-  ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-  ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-  ' DEALINGS IN THE SOFTWARE.
   '
-
-
-Imports Microsoft.VisualBasic
-Public Class TestClass
-    Public Function Test() As String
-        Dim oCa As New Ca()
-        Dim str1 As String
-
-        '  Set a property.
-        CallByName(oCa, "prop", CallType.Set, "New Text")
-
-        Return oCa.prop
-    End Function
-End Class
-Public Class Ca
-    Private m_value As String
-    Public Property prop() As String
-        Get
-            Return m_value
-        End Get
-        Set(ByVal Value As String)
-            m_value = Value
-        End Set
-    End Property
-    Public Function foo() As String
-        Return "foo" & m_value
-    End Function
+  ' Copyright (c) 2002-2003 Mainsoft Corporation.
+  '
+  ' Permission is hereby granted, free of charge, to any person obtaining a
+  ' copy of this software and associated documentation files (the "Software"),
+  ' to deal in the Software without restriction, including without limitation
+  ' the rights to use, copy, modify, merge, publish, distribute, sublicense,
+  ' and/or sell copies of the Software, and to permit persons to whom the
+  ' Software is furnished to do so, subject to the following conditions:
+  ' 
+  ' The above copyright notice and this permission notice shall be included in
+  ' all copies or substantial portions of the Software.
+  ' 
+  ' THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+  ' IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+  ' FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+  ' AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+  ' LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
+  ' FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
+  ' DEALINGS IN THE SOFTWARE.
+  '
+Imports Microsoft.VisualBasic
+Public Class TestClass
+    Public Function Test() As String
+        Dim oCa As New Ca()
+        Dim str1 As String
+        '  Set a property.
+        CallByName(oCa, "prop", CallType.Set, "New Text")
+        Return oCa.prop
+    End Function
+End Class
+Public Class Ca
+    Private m_value As String
+    Public Property prop() As String
+        Get
+            Return m_value
+        End Get
+        Set(ByVal Value As String)
+            m_value = Value
+        End Set
+    End Property
+    Public Function foo() As String
+        Return "foo" & m_value
+    End Function
 End Class
\ No newline at end of file