Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1400.mcz
==================== Summary ====================
Name: System-eem.1400 Author: eem Time: 24 March 2023, 10:32:09.838089 am UUID: ebd792de-14b8-42e5-8443-aca3d03c4a4d Ancestors: System-eem.1399
Oops! ExtendedClipboard[Mac|Win]Interface>>clipboardText: must clear the clipboard before pasting text!!
=============== Diff against System-eem.1399 ===============
Item was changed: ----- Method: ExtendedClipboardMacInterface>>clipboardText: (in category 'general-api-add') ----- clipboardText: aText "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. Answer if the attempt succeeded. On the Mac we paste HTML and UTF8. But we can only paste more than one thing at a time with the VMMaker.oscog-eem.3276 version of the plugin, or later." | htmlPayload | (aText isText + and: [clipboard ~= 0 + and: [self class pluginVersion >= 3276]]) ifFalse: - and: [self class pluginVersion >= 3276]) ifFalse: [^false]. htmlPayload := String streamContents: [:stream | stream nextPutAll: '<meta charset="UTF-8">'. aText printHtmlOn: stream]. self + clearClipboard; addClipboardData: htmlPayload dataFormat: 'public.html'; addClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: 'public.utf8-plain-text'. ^true!
Item was changed: ----- Method: ExtendedClipboardWinInterface>>clipboardText: (in category 'private') ----- clipboardText: aText "Attempt to paste aText to the system clipboard in as many formats as makes sense on the platform. Answer if the attempt succeeded. On Windows we paste HTML and UTF8. But we can only paste more than one thing at a time with the VMMaker.oscog-eem.3276 version of the plugin, or later. Note that the funky HTML format (see packageAsHTML:) has been derived by observing Chrome and Edge." | htmlPayload | (aText isText + and: [clipboard ~= 0 + and: [self class pluginVersion >= 3276]]) ifFalse: - and: [self class pluginVersion >= 3276]) ifFalse: [^false]. htmlPayload := self packageAsHTML: aText printHtmlString. self + clearClipboard; addClipboardData: htmlPayload dataFormat: CF_HTMLTEXT; addClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: CF_UTF8TEXT. ^true!
packages@lists.squeakfoundation.org