'From Squeak3.7beta of ''1 April 2004'' [latest update: #5868] on 9 April 2004 at 2:01:29 pm'! "Change Set: ParagraphEditorExchange-cmm Date: 9 April 2004 Author: Chris Muller This appears to fix the exchange command in text editors."! !ParagraphEditor methodsFor: 'private' stamp: 'cmm 4/9/2004 14:00'! isDisjointFrom: anInterval "Answer true if anInterval is a caret not touching or within the current interval, or if anInterval is a non-caret that does not overlap the current selection." | fudge | fudge _ anInterval size = 0 ifTrue: [1] ifFalse: [0]. ^(anInterval last + fudge < self startIndex or: [anInterval first - fudge >= self stopIndex]) ! !