* support-test-*.cs: Rename from test-*-p2.cs.

[mono.git] / mcs / class / PresentationFramework / System.Windows.Serialization / data-classes-builder.pl

diff --git a/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl b/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl
index d2ebd2e8b322171c8eb28c6eab00262743257ce0..ee40a19069b77c6811a57beb3bc3defa96bf4bab 100644 (file)
--- a/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl
+++ b/mcs/class/PresentationFramework/System.Windows.Serialization/data-classes-builder.pl
@@ -186,8 +186,13 @@ for $class (keys %classes) {
                $propname = substr($prop, index($prop, " ") + 1);
                $fieldname = "_$propname";
 
+               if ($propname =~ m/^[a-z]/) {
+                       $access = "internal";
+               } else {
+                       $access = "public";
+               }
 
-               print X "\n\tpublic $proptype $propname {\n";
+               print X "\n\t$access $proptype $propname {\n";
                print X "\t\tget { return $fieldname; }\n";
                print X "\t}\n";
                print X "\n\tinternal void set$propname($proptype v) {\n";