jcframework-commits

[Dan M. <dan...@us...>]

Update of /cvsroot/jcframework/dotnet
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7362/dotnet

Modified Files:
	AFExceptions.vb 
Log Message:
Add the Inner exception message to the exception's message.

Index: AFExceptions.vb
===================================================================
RCS file: /cvsroot/jcframework/dotnet/AFExceptions.vb,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- AFExceptions.vb	27 Jun 2004 22:57:54 -0000	1.1
+++ AFExceptions.vb	12 Oct 2004 08:57:52 -0000	1.2
@@ -8,7 +8,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -20,7 +20,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -32,7 +32,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -44,7 +44,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -56,7 +56,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -68,7 +68,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -80,7 +80,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -92,7 +92,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -104,7 +104,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -116,7 +116,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -128,7 +128,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -140,7 +140,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -152,7 +152,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -164,7 +164,7 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
 
@@ -176,6 +176,6 @@
     MyBase.New(Message)
   End Sub
   Public Sub New(ByVal Message As String, ByVal Inner As Exception)
-    MyBase.New(Message)
+		MyBase.New(Message & Environment.NewLine & "Inner Exception message : " & Inner.Message)
   End Sub
 End Class
\ No newline at end of file