'From etoys2.3 of 2 December 2007 [latest update: #1894] on 19 February 2008 at 4:28:47 pm'!
"Change Set:		compareToClipFix-sw
Date:			26 February 2008
Author:			Scott Wallace

Fixes the compare-to-clipboard feature (alt-shift-C issued in a text pane) for the case where a string, rather than a text, is already on the clipboard."!


!ParagraphEditor methodsFor: 'menu messages' stamp: 'sw 2/26/2008 15:03'!
compareToClipboard
	"Check to see whether the receiver's text is the same as the text currently on the clipboard, and if there are any differences, show the complete 'diff' in a new window."

	| s1 s2 |
	s1 _ self clipboardText asString.
	s2 _ paragraph text string.
	s1 = s2 ifTrue: [^ self inform: 'Exact match' translated].

	(StringHolder new textContents:
		(TextDiffBuilder buildDisplayPatchFrom: s1 to: s2))
		openLabel: 'Comparison to Clipboard' translated! !