Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.755.mcz
==================== Summary ====================
Name: Morphic-cmm.755 Author: cmm Time: 31 January 2015, 2:47:31.992 pm UUID: 46064dd7-97b4-48a7-856a-968440827256 Ancestors: Morphic-mt.754
Let the "Compare to Clipboard" function compare just the selected text to the clipboard text.
=============== Diff against Morphic-mt.754 ===============
Item was changed: ----- Method: TextEditor>>compareToClipboard (in category 'menu messages') ----- compareToClipboard "Check to see if whether the receiver's text is the same as the text currently on the clipboard, and inform the user." | s1 s2 | s1 := self clipboardText string. + s2 := self selection string. - s2 := paragraph text string. s1 = s2 ifTrue: [^ self inform: 'Exact match'].
(StringHolder new textContents: (TextDiffBuilder buildDisplayPatchFrom: s1 to: s2)) openLabel: 'Comparison to Clipboard Text'!