var previousCharIsClosingChar =
            original.CaretPosition.StartColumn > 0 &&
            original.CaretLine[original.CaretPosition.StartColumn - 1] == pair.ClosingChar;

    err.Raise 5, _
|

Err.Raise 5, _
          "

    public OpenProjectPropertiesCommand OpenProjectPropertiesCommand { get; set; }

<!-- wp:paragraph -->
<p>Back in the <a href="https://rubberduckvba.wordpress.com/2017/10/17/rubberduck-2-1-x/">2.1.x announcement</a> post over a whole year ago, one of the bullet points about the upcoming roadmap said we were going to "<strong>make you never want to use the VBE’s </strong><em><strong>Project References </strong></em><strong>dialog ever again</strong>"; it took a bit longer than expected, but as far as we can tell, this feature does exactly that.</p>
<!-- /wp:paragraph -->

<!-- wp:paragraph -->

Public Property Get IsSunken(ByVal position As GridCoord) As Boolean
    Dim currentShip As IShip
    For Each currentShip In this.ships
        If currentShip.IsSunken Then
            If currentShip.Orientation = Horizontal Then
                If currentShip.GridPosition.Y = position.Y Then
                    If position.X >= currentShip.GridPosition.X And _
                       position.X <= currentShip.GridPosition.X + currentShip.Size - 1 _
                    Then
                        IsSunken = True

Public Property Get State(ByVal position As GridCoord) As GridState
    On Error Resume Next
    State = this.State(position.X, position.Y)
    On Error GoTo 0
End Property

Public Property Get HasDamagedShip(ByVal position As GridCoord) As Boolean

    Dim currentShip As IShip
    For Each currentShip In this.ships

        Dim currentX As Long
        Dim currentY As Long

        If currentShip.GridPosition.Y = position.Y And currentShip.Orientation = Horizontal Then
            For currentX = currentShip.GridPosition.X To currentShip.GridPosition.X + currentShip.Size - 1
                If currentX = position.X Then
                    HasDamagedShip = Not currentShip.IsSunken And currentShip.HitAreas.Count > 0

    public virtual bool IsObject =>
        AsTypeName == Tokens.Object || (
            AsTypeDeclaration?.DeclarationType.HasFlag(DeclarationType.ClassModule) ??
                !AsTypeIsBaseType
                && !IsArray
                && !DeclarationType.HasFlag(DeclarationType.UserDefinedType)
                && !DeclarationType.HasFlag(DeclarationType.Enumeration));

    public virtual bool IsObject
    {
        get
        {
            if (AsTypeName == Tokens.Object ||
                (AsTypeDeclaration?.DeclarationType.HasFlag(DeclarationType.ClassModule) ?? false))
            {
                return true;
            }

            return !(AsTypeIsBaseType ||
                     IsArray ||
                     DeclarationType.HasFlag(DeclarationType.UserDefinedType) ||
                     DeclarationType.HasFlag(DeclarationType.Enumeration));
        }

    public override bool IsObject =>
        base.IsObject || (Parameters.OrderBy(p => p.Selection).LastOrDefault()?.IsObject ?? false);