Merge branch 'next' of https://github.com/retailcoder/Rubberduck

Author: retailcoder

RetailCoder.VBE/Extensions/VbeExtensions.cs

@@ -27,7 +27,7 @@ public static IEnumerable<CodeModule> FindCodeModules(this VBE vbe, string proje
         {
             var matches = 
                 vbe.VBProjects.Cast<VBProject>()
-                              .Where(project => project.Name == projectName)
+                              .Where(project => project.Protection != vbext_ProjectProtection.vbext_pp_locked && project.Name == projectName)
                               .SelectMany(project => project.VBComponents.Cast<VBComponent>()
                                                                          .Where(component => component.Name == componentName))
                               .Select(component => component.CodeModule);
@@ -55,7 +55,7 @@ public static void SetSelection(this VBE vbe, QualifiedSelection selection)
         {
             //not a very robust method. Breaks if there are multiple projects with the same name.
             var project = vbe.VBProjects.Cast<VBProject>()
-                            .FirstOrDefault(p => p.Name == selection.QualifiedName.ProjectName);
+                            .FirstOrDefault(p => p.Protection != vbext_ProjectProtection.vbext_pp_locked && p.Name == selection.QualifiedName.ProjectName);
 
             VBComponent component = null;
             if (project != null)

RetailCoder.VBE/Inspections/CodeInspectionResultBase.cs

@@ -77,7 +77,7 @@ public virtual QualifiedSelection QualifiedSelection
         public VBComponent FindComponent(VBE vbe)
         {
             return vbe.VBProjects.Cast<VBProject>()
-                      .Where(project => project.Name == QualifiedName.ProjectName)
+                      .Where(project => project.Protection != vbext_ProjectProtection.vbext_pp_locked && project.Name == QualifiedName.ProjectName)
                       .SelectMany(project =>
                                     project.VBComponents.Cast<VBComponent>()
                                            .Where(component => component.Name == QualifiedName.ModuleName))

RetailCoder.VBE/Properties/AssemblyInfo.cs

@@ -31,5 +31,5 @@
 // You can specify all the values or you can default the Build and Revision Numbers 
 // by using the '*' as shown below:
 // [assembly: AssemblyVersion("1.0.*")]
-[assembly: AssemblyVersion("1.21.*")]
-[assembly: AssemblyFileVersion("1.21.1.0")]
+[assembly: AssemblyVersion("1.22.*")]
+[assembly: AssemblyFileVersion("1.22.0.0")]

RetailCoder.VBE/UI/AboutWindow.Designer.cs

@@ -81,7 +81,7 @@ private async Task<IOrderedEnumerable<ToDoItem>> GetItems()
         {
             await Task.Yield();
             var items = new ConcurrentBag<ToDoItem>();
-            var projects = VBE.VBProjects.Cast<VBProject>();
+            var projects = VBE.VBProjects.Cast<VBProject>().Where(project => project.Protection != vbext_ProjectProtection.vbext_pp_locked);
             Parallel.ForEach(projects,
                 project =>
                 {
@@ -114,9 +114,10 @@ private IEnumerable<ToDoItem> GetToDoMarkers(CommentNode comment)
         private void NavigateToDoItem(object sender, ToDoItemClickEventArgs e)
         {
             var projects = VBE.VBProjects.Cast<VBProject>()
-                .Where(p => p.Name == e.SelectedItem.ProjectName
-                                    && p.VBComponents.Cast<VBComponent>()
-                                        .Any(c => c.Name == e.SelectedItem.ModuleName)
+                .Where(p => p.Protection != vbext_ProjectProtection.vbext_pp_locked
+                            && p.Name == e.SelectedItem.ProjectName
+                            && p.VBComponents.Cast<VBComponent>()
+                                .Any(c => c.Name == e.SelectedItem.ModuleName)
                                 );
 
             if (projects == null)

RetailCoder.VBE/UI/ToDoItems/ToDoExplorerDockablePresenter.cs

@@ -81,7 +81,7 @@ public void SynchronizeEngineWithIDE()
             try
             {
                 _testEngine.AllTests = this.VBE.VBProjects
-                                .Cast<VBProject>()
+                                .Cast<VBProject>().Where(project => project.Protection != vbext_ProjectProtection.vbext_pp_locked)
                                 .SelectMany(project => project.TestMethods())
                                 .ToDictionary(test => test, test => _testEngine.AllTests.ContainsKey(test) ? _testEngine.AllTests[test] : null);
 
@@ -164,7 +164,8 @@ private void OnExplorerGoToSelectedTest(object sender, SelectedTestEventArgs e)
             var signature = string.Concat("Public Sub ", controlSelection.MethodName, "()");
 
             var projects = this.VBE.VBProjects.Cast<VBProject>()
-                    .Where(project => project.Name == controlSelection.ProjectName
+                    .Where(project => project.Protection != vbext_ProjectProtection.vbext_pp_locked
+                                && project.Name == controlSelection.ProjectName
                                 && project.VBComponents
                                     .Cast<VBComponent>()
                                     .Any(c => c.Name == controlSelection.ModuleName)