[svn] r6972: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n

[IT]

Log:
Added processing for getters and setters, but it's the TExpr.Error.

Author: IT
Date: Tue Nov 21 04:23:43 2006
New Revision: 6972

Modified:
   vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n

Modified: vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n
==============================================================================
--- vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n	(original)
+++ vs-plugin/trunk/Nemerle.Compiler.Utils/Nemerle.Completion2/CodeModel/Project.Type.n	Tue Nov 21 04:23:43 2006
@@ -143,10 +143,8 @@
         }
       }
 
-      match (member)
+      def getMethod(method)
       {
-      | method is MethodBuilder => 
-
         def ast = method.Ast;
 
         // Body must be processed first.
@@ -181,7 +179,11 @@
         {
           (Location.Default, null, null)
         }
+      }
 
+      match (member)
+      {
+      | method is MethodBuilder => getMethod(method)
       | fb is FieldBuilder      => 
 
         if (typeDecl.Builder.IsEnum)
@@ -210,6 +212,17 @@
             }
           else if (pb.Ast.name.Location.Contains(line, col))
             (pb.Ast.name.Location, null, pb)
+          else if ({
+              def getter = pb.GetGetter() :> MethodBuilder;
+              getter != null && getter.BodyLocation.Contains(line, col)
+            })
+            // IT: This finds an object located, but it's the 'ERROR' :xz:
+            getMethod(pb.GetGetter() :> MethodBuilder)
+          else if ({
+              def setter = pb.GetSetter() :> MethodBuilder;
+              setter != null && setter.BodyLocation.Contains(line, col)
+            })
+            getMethod(pb.GetSetter() :> MethodBuilder)
           else
             (Location.Default, null, null)