no longer sets LoadingReferences parser state, only sets status text when *actually* loading COM references

Author: retailcoder

RetailCoder.VBE/App.cs

@@ -69,6 +69,7 @@ public App(VBE vbe, IMessageBox messageBox,
             _configService.SettingsChanged += _configService_SettingsChanged;
             _configService.LanguageChanged += ConfigServiceLanguageChanged;
             _parser.State.StateChanged += Parser_StateChanged;
+            _parser.State.StatusMessageUpdate += State_StatusMessageUpdate;
             _stateBar.Refresh += _stateBar_Refresh;
 
             var sink = new VBProjectsEventsSink();
@@ -93,6 +94,18 @@ public App(VBE vbe, IMessageBox messageBox,
             UiDispatcher.Initialize();
         }
 
+        private void State_StatusMessageUpdate(object sender, RubberduckStatusMessageEventArgs e)
+        {
+            var message = e.Message;
+            if (message == ParserState.LoadingReference.ToString())
+            {
+                // note: ugly hack to enable Rubberduck.Parsing assembly to do this
+                message = RubberduckUI.ParserState_LoadingReference;
+            }
+
+            _stateBar.SetStatusText(message);
+        }
+
         private void _hooks_MessageReceived(object sender, HookEventArgs e)
         {
             var hookType = sender.GetType();

Rubberduck.Parsing/VBA/RubberduckParser.cs

@@ -100,8 +100,6 @@ public void Parse()
                 .ToList();
 
             var components = projects.SelectMany(p => p.VBComponents.Cast<VBComponent>()).ToList();
-            _state.SetModuleState(ParserState.LoadingReference);
-
             SyncComReferences(projects);
 
             foreach (var component in components)
@@ -137,7 +135,6 @@ private void ParseAll()
             var modified = components.Where(_state.IsModified).ToList();
             var unchanged = components.Where(c => !_state.IsModified(c)).ToList();
 
-            _state.SetModuleState(ParserState.LoadingReference); // todo: change that to a simple statusbar text update
             SyncComReferences(projects);
 
             if (!modified.Any())
@@ -190,6 +187,7 @@ private void SyncComReferences(IReadOnlyList<VBProject> projects)
 
                     if (!map.IsLoaded)
                     {
+                        _state.OnStatusMessageUpdate(ParserState.LoadingReference.ToString());
                         var items = _comReflector.GetDeclarationsForReference(reference).ToList();
                         foreach (var declaration in items)
                         {

Rubberduck.Parsing/VBA/RubberduckParserState.cs

@@ -42,10 +42,20 @@ public ParseRequestEventArgs(VBComponent component)
         public bool IsFullReparseRequest { get { return _component == null; } }
     }
 
-    public sealed class RubberduckParserState
+    public class RubberduckStatusMessageEventArgs : EventArgs
     {
-        public event EventHandler<ParseRequestEventArgs> ParseRequest;
+        private readonly string _message;
+
+        public RubberduckStatusMessageEventArgs(string message)
+        {
+            _message = message;
+        }
 
+        public string Message { get { return _message; } }
+    }
+
+    public sealed class RubberduckParserState
+    {
         // circumvents VBIDE API's tendency to return a new instance at every parse, which breaks reference equality checks everywhere
         private readonly IDictionary<string,Func<VBProject>> _projects = new Dictionary<string,Func<VBProject>>();
 
@@ -76,6 +86,19 @@ public sealed class RubberduckParserState
         private readonly ConcurrentDictionary<QualifiedModuleName, IDictionary<Tuple<string, DeclarationType>, Attributes>> _moduleAttributes =
             new ConcurrentDictionary<QualifiedModuleName, IDictionary<Tuple<string, DeclarationType>, Attributes>>();
 
+        public event EventHandler<ParseRequestEventArgs> ParseRequest;
+        public event EventHandler<RubberduckStatusMessageEventArgs> StatusMessageUpdate;
+
+        public void OnStatusMessageUpdate(string message)
+        {
+            var handler = StatusMessageUpdate;
+            if (handler != null)
+            {
+                var args=  new RubberduckStatusMessageEventArgs(message);
+                handler.Invoke(this, args);
+            }
+        }
+
         public void AddProject(VBProject project)
         {
             if (string.IsNullOrEmpty(project.HelpFile))