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

[pbludov]

Log:
Propetry type case

Author: pbludov
Date: Wed Nov  8 10:26:49 2006
New Revision: 6848

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	Wed Nov  8 10:26:49 2006
@@ -140,7 +140,13 @@
           else
             (fb.Location,        null, fb)
 
-      | pb is PropertyBuilder => (pb.Location,      null, pb)
+      | pb is PropertyBuilder =>
+
+          if (pb.Ast.ty.Location.Contains(line, col))
+            (pb.Ast.ty.Location, null, (pb.GetMemType() :> MType.Fun).to)
+          else
+            (pb.Location,        null, pb)
+
       | tb is TypeBuilder     => (tb.Location,      null, tb)
       | null                  => (Location.Default, null, null)
       | _                     =>