   #
   # @param [Selection] selection the selection to compare to this
   atLeftOf: (selection) ->
-    (@endPos.word == selection.startPos.word and
-     @endPos.pos == selection.startPos.pos)
+    (@right == selection.left and
+     @rightPos == selection.leftPos)
 
   #TODO
   setStyle: (@style) ->

  # @param [Selection] s the selection to compare to this
  #
  equals: (selection)->
    @startPos.word == selection.startPos.word and
    @startPos.pos == selection.startPos.pos and
    @endPos.word == selection.endPos.word and
    @endPos.pos == selection.endPos.pos

  # Compares *the bounds* of two selections
  #


      @rte = rte

      retStart = @_relativeFromAbsolute start
      retEnd = @_relativeFromAbsolute end

      @startPos = retStart
      @endPos = retEnd
      @setStyle style

      @left = @rte.getWord retStart.word
      @leftPos = retStart.pos
      @right = @rte.getWord retEnd.word
      @rightPos = retEnd.pos

      @left.left.push @
      @right.right.push @
