findComponentByRect: (r, exclusionSet) ->
        match: null
        traverse activeScreen.rootComponent, (comp) ->
            unless inSet comp, exclusionSet
                if doesRectIntersectRect r, rectOf comp
                    match: r  # don't return yet to find the innermost match
        match