* roottypes.cs: Rename from tree.cs.
[mono.git] / mcs / class / corlib / System.Security.Policy / PolicyException.cs
index 148d5b765bbd1881bdacea6365554741cd523513..5cbcc3c35a5b98cb044029bad214750caa787a76 100644 (file)
@@ -5,10 +5,7 @@
 //     Duncan Mak (duncan@ximian.com)
 //
 // 2002 (C) Ximian, Inc. http://www.ximian.com
-//
-
-//
-// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
+// Copyright (C) 2004-2005 Novell, Inc (http://www.novell.com)
 //
 // Permission is hereby granted, free of charge, to any person obtaining
 // a copy of this software and associated documentation files (the
 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 //
 
-using System;
 using System.Globalization;
+using System.Runtime.InteropServices;
 using System.Runtime.Serialization;
 
-namespace System.Security.Policy
-{
-          [Serializable]
-          public class PolicyException : SystemException
-          {
-                        // Constructors
-                        public PolicyException ()
-                                   : base (Locale.GetText ("Cannot run because of policy."))
-                        {
-                        }
+namespace System.Security.Policy {
+
+       [Serializable]
+#if NET_2_0
+       [ComVisible (true)]
+       public class PolicyException : SystemException, _Exception {
+#else
+       public class PolicyException : SystemException {
+#endif
+               // Constructors
+               public PolicyException ()
+                       : base (Locale.GetText ("Cannot run because of policy."))
+               {
+               }
 
-                        public PolicyException (string message)
-                                   : base (message)
-                        {
-                        }
+               public PolicyException (string message)
+                       : base (message)
+               {
+               }
                         
-                        protected PolicyException (SerializationInfo info,
-                                   StreamingContext context)
-                                   : base (info, context)
-                        {
-                        }
+               protected PolicyException (SerializationInfo info, StreamingContext context)
+                       : base (info, context)
+               {
+               }
 
-                        public PolicyException (string message, Exception innerException)
-                                   :base (message, innerException)
-                        {
-                        }
-                                   
-          }
+               public PolicyException (string message, Exception innerException)
+                       :base (message, innerException)
+               {
+               }
+       }
 }