fix #1683 (#1689)

Andrin Meier · retailcoder · commit c0f612ae51f8 · 2016-06-03T18:34:57.000-04:00
diff --git a/Rubberduck.Parsing/VBA/AttributeParser.cs b/Rubberduck.Parsing/VBA/AttributeParser.cs
@@ -166,7 +166,12 @@ public override void ExitAttributeStmt(VBAParser.AttributeStmtContext context)
                     name = GetAttributeNameWithoutProcedureName((VBAParser.MemberAccessExprContext)expr);
                 }
                 var values = context.attributeValue().Select(e => e.GetText().Replace("\"", string.Empty)).ToList();
-                _currentScopeAttributes.Add(name, values);
+                IEnumerable<string> existingValues;
+                if (_currentScopeAttributes.TryGetValue(name, out existingValues))
+                {
+                    values.InsertRange(0, existingValues);
+                }
+                _currentScopeAttributes[name] = values;
             }
 
             private string GetAttributeNameWithoutProcedureName(VBAParser.MemberAccessExprContext expr)

Original file line number	Diff line number	Diff line change
`@@ -166,7 +166,12 @@ public override void ExitAttributeStmt(VBAParser.AttributeStmtContext context)`
`166`	`166`	`name = GetAttributeNameWithoutProcedureName((VBAParser.MemberAccessExprContext)expr);`
`167`	`167`	`}`
`168`	`168`	`var values = context.attributeValue().Select(e => e.GetText().Replace("\"", string.Empty)).ToList();`
`169`		`- _currentScopeAttributes.Add(name, values);`
	`169`	`+ IEnumerable<string> existingValues;`
	`170`	`+ if (_currentScopeAttributes.TryGetValue(name, out existingValues))`
	`171`	`+ {`
	`172`	`+ values.InsertRange(0, existingValues);`
	`173`	`+ }`
	`174`	`+ _currentScopeAttributes[name] = values;`
`170`	`175`	`}`
`171`	`176`
`172`	`177`	`private string GetAttributeNameWithoutProcedureName(VBAParser.MemberAccessExprContext expr)`