#1246 implemented ShowParserErrorsCommand

Author: retailcoder

RetailCoder.VBE/App.cs

@@ -47,7 +47,7 @@ public App(VBE vbe, IMessageBox messageBox,
             IGeneralConfigService configService,
             IAppMenu appMenus,
             RubberduckCommandBar stateBar,
-            IIndenter indenter/*,
+            IIndenter indenter/*
             IRubberduckHooks hooks*/)
         {
             _vbe = vbe;

RetailCoder.VBE/Rubberduck.csproj

@@ -346,6 +346,8 @@
     <Compile Include="UI\About\AboutDialog.Designer.cs">
       <DependentUpon>AboutDialog.cs</DependentUpon>
     </Compile>
+    <Compile Include="UI\Command\ShowParserErrorsCommand.cs" />
+    <Compile Include="UI\Command\SyntaxErrorExtensions.cs" />
     <Compile Include="UI\Controls\DeclarationTypeToStringConverter.cs" />
     <Compile Include="UI\Controls\SearchResultPresenterInstanceManager.cs" />
     <Compile Include="UI\Controls\ISearchResultsWindowViewModel.cs" />

RetailCoder.VBE/UI/Command/MenuItems/RubberduckCommandBar.cs

@@ -12,18 +12,28 @@ public class RubberduckCommandBar
     {
         private readonly RubberduckParserState _state;
         private readonly VBE _vbe;
+        private readonly IShowParserErrorsCommand _command;
 
         private CommandBarButton _refreshButton;
         private CommandBarButton _statusButton;
 
-        public RubberduckCommandBar(RubberduckParserState state, VBE vbe)
+        public RubberduckCommandBar(RubberduckParserState state, VBE vbe, IShowParserErrorsCommand command)
         {
             _state = state;
             _vbe = vbe;
+            _command = command;
             _state.StateChanged += State_StateChanged;
             Initialize();
         }
 
+        private void _statusButton_Click(CommandBarButton Ctrl, ref bool CancelDefault)
+        {
+            if (_state.Status == ParserState.Error)
+            {
+                _command.Execute(null);
+            }
+        }
+
         public void SetStatusText(string value = null)
         {
             _statusButton.Caption = value ?? RubberduckUI.ResourceManager.GetString("ParserState_" + _state.Status);
@@ -60,6 +70,7 @@ public void Initialize()
             _statusButton = (CommandBarButton)commandbar.Controls.Add(MsoControlType.msoControlButton);
             _statusButton.Style = MsoButtonStyle.msoButtonCaption;
             _statusButton.Tag = "Status";
+            _statusButton.Click += _statusButton_Click;
 
             commandbar.Visible = true;
         }

RetailCoder.VBE/UI/Command/ShowParserErrorsCommand.cs

@@ -0,0 +1,69 @@
+using System;
+using System.Linq;
+using System.Runtime.InteropServices;
+using System.Windows.Input;
+using Microsoft.Vbe.Interop;
+using Rubberduck.Parsing.Symbols;
+using Rubberduck.Parsing.VBA;
+using Rubberduck.UI.Controls;
+
+namespace Rubberduck.UI.Command
+{
+    public interface IShowParserErrorsCommand : ICommand { }
+
+    [ComVisible(false)]
+    public class ShowParserErrorsCommand : CommandBase, IShowParserErrorsCommand
+    {
+        private readonly INavigateCommand _navigateCommand;
+        private readonly RubberduckParserState _state;
+        private readonly ISearchResultsWindowViewModel _viewModel;
+        private readonly SearchResultPresenterInstanceManager _presenterService;
+
+        public ShowParserErrorsCommand(INavigateCommand navigateCommand, RubberduckParserState state, ISearchResultsWindowViewModel viewModel, SearchResultPresenterInstanceManager presenterService)
+        {
+            _navigateCommand = navigateCommand;
+            _state = state;
+            _viewModel = viewModel;
+            _presenterService = presenterService;
+        }
+
+        public override void Execute(object parameter)
+        {
+            if (_state.Status != ParserState.Error)
+            {
+                return;
+            }
+
+            var viewModel = CreateViewModel();
+            _viewModel.AddTab(viewModel);
+            _viewModel.SelectedTab = viewModel;
+
+            try
+            {
+                var presenter = _presenterService.Presenter(_viewModel);
+                presenter.Show();
+            }
+            catch (Exception e)
+            {
+                Console.WriteLine(e);
+            }
+        }
+
+        private SearchResultsViewModel CreateViewModel()
+        {
+            var errors = from error in _state.ModuleExceptions
+                let declaration = FindModuleDeclaration(error.Item1)
+                select new SearchResultItem(declaration, error.Item2.GetNavigateCodeEventArgs(declaration), error.Item2.Message);
+
+            var viewModel = new SearchResultsViewModel(_navigateCommand, "Parser Errors", null, errors.ToList());
+            return viewModel;
+        }
+
+        private Declaration FindModuleDeclaration(VBComponent component)
+        {
+            return _state.AllUserDeclarations.Single(item => item.Project == component.Collection.Parent
+                                                             && item.QualifiedName.QualifiedModuleName.Component == component 
+                                                             && (item.DeclarationType == DeclarationType.Class || item.DeclarationType == DeclarationType.Module));
+        }
+    }
+}

RetailCoder.VBE/UI/Command/SyntaxErrorExtensions.cs

@@ -0,0 +1,14 @@
+using Rubberduck.Parsing.Symbols;
+using Rubberduck.VBEditor;
+
+namespace Rubberduck.UI.Command
+{
+    public static class SyntaxErrorExtensions
+    {
+        public static NavigateCodeEventArgs GetNavigateCodeEventArgs(this SyntaxErrorException exception, Declaration declaration)
+        {
+            var selection = new Selection(exception.LineNumber, exception.Position, exception.LineNumber, exception.Position);
+            return new NavigateCodeEventArgs(declaration.QualifiedName.QualifiedModuleName, selection);
+        }
+    }
+}