Packages March 2023

packages@lists.squeakfoundation.org

1 participants
60 discussions

The Trunk: System-mt.1409.mcz
by commits＠source.squeak.org 31 Mar '23

31 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1409.mcz ==================== Summary ==================== Name: System-mt.1409 Author: mt Time: 31 March 2023, 3:47:13.230258 pm UUID: d1af62bf-d0ab-c54c-b294-1b872187104b Ancestors: System-mt.1408 Forgot to reset the clipboard constants ... sorry for the noise... =============== Diff against System-mt.1408 =============== Item was changed: + (PackageInfo named: 'System') postscript: 'ExtendedClipboardWinInterface initialize..'! - (PackageInfo named: 'System') postscript: 'ExtendedClipboardWinInterface initialize.'!

1 0

The Trunk: System-mt.1408.mcz
by commits＠source.squeak.org 31 Mar '23

31 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1408.mcz ==================== Summary ==================== Name: System-mt.1408 Author: mt Time: 31 March 2023, 3:46:27.004258 pm UUID: 7f2615f1-de4b-e94c-afc2-c6db47d95633 Ancestors: System-mt.1407 Make ExtendedClipboardWinInterface compatible with latest platform code: https://github.com/OpenSmalltalk/opensmalltalk-vm/commit/ed1f7431a09f044488… Avoid in-image use of CF_UNICODE and let CF_UTF8TEXT handle that consistently. Try reading the PNG data from the Windows Snipping Tool or copy a shape from PowerPoint and read CF_BITMAP. See #readFormClipboardData. More work needed. :-) =============== Diff against System-mt.1407 =============== Item was added: + ----- Method: Clipboard class>>extended (in category 'accessing') ----- + extended + + ^ ExtendedClipboardInterface current! Item was added: + ----- Method: Clipboard>>extended (in category 'accessing') ----- + extended + "Answer an object representing the extended clipboard interface." + + ^ self class extended! Item was changed: ----- Method: ExtendedClipboardInterface>>initialize (in category 'initialize-release') ----- initialize - super initialize. - clipboard := [self primCreateClipboard] on: Error do: [:ex | clipboard := 0].! Item was changed: ExtendedClipboardInterface subclass: #ExtendedClipboardWinInterface instanceVariableNames: '' + classVariableNames: 'CF_BITMAP CF_DIB CF_DIBV5 CF_HDROP CF_HTMLTEXT CF_LOCALE CF_OEMTEXT CF_PALETTE CF_PENDATA CF_PRIVATELAST CF_RIFF CF_TEXT CF_TIFF CF_UTF8TEXT CF_WAVE SQCF_GIF SQCF_HTML SQCF_MIME_BMP SQCF_MIME_GIF SQCF_MIME_HTML SQCF_MIME_JPEG SQCF_MIME_MPEG SQCF_MIME_PDF SQCF_MIME_PNG SQCF_MIME_RAW SQCF_MIME_RICHTEXT SQCF_MIME_RTF SQCF_MIME_SVG SQCF_MIME_TEXT SQCF_MIME_TEXTUTF8 SQCF_MIME_TIFF SQCF_MIME_WAV SQCF_MIME_XHTML SQCF_MIME_XML SQCF_PNG SQCF_RTF' - classVariableNames: 'CF_BITMAP CF_DIB CF_DIBV5 CF_HDROP CF_HTMLTEXT CF_LOCALE CF_OEMTEXT CF_PALETTE CF_PENDATA CF_PRIVATELAST CF_RIFF CF_TEXT CF_TIFF CF_UNICODETEXT CF_UTF8TEXT CF_WAVE' poolDictionaries: '' category: 'System-Clipboard'! Item was changed: ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardFormatMap (in category 'class initialization') ----- initializeClipboardFormatMap - "ExtendedClipboardWinInterface initializeClipboardFormatMap" - CF_TEXT := 1. - CF_BITMAP := 2. - "CF_METAFILEPICT := 3. - CF_SYLK := 4. - CF_DIF := 5." - CF_TIFF := 6. - CF_OEMTEXT := 7. - CF_DIB := 8. - CF_PALETTE := 9. - CF_PENDATA := 10. - CF_RIFF := 11. - CF_WAVE := 12. - CF_UNICODETEXT := 13. - "CF_ENHMETAFILE := 14." - CF_HDROP := 15. - CF_LOCALE := 16. - CF_DIBV5 := 17. - "CF_OWNERDISPLAY := 16r0080. - CF_DSPTEXT := 16r0081. - CF_DSPBITMAP := 16r0082. - CF_DSPMETAFILEPICT := 16r0083. - CF_DSPENHMETAFILE := 16r008E. - CF_PRIVATEFIRST := 16r0200." - CF_PRIVATELAST := 16r02FF. - CF_UTF8TEXT := CF_PRIVATELAST. "extension to the Windows ClipboardExtendedPlugin..." - "CF_GDIOBJFIRST := 16r0300. - CF_GDIOBJLAST := 16r03FF." - CF_HTMLTEXT := 49358. "a.k.a. 16rC0CE this is used by both Chrome and Edge when one selects HTML there-in." - clipboardFormatMap := Dictionary new. - "at: 6 put: 'image/tiff' asMIMEType; CF_TIFF" + self initializeClipboardStandardFormatMap. + self initializeClipboardRegisteredFormatMap. ! - clipboardFormatMap - at: 49510 put: 'text/rtf' asMIMEType; - at: 1 put: 'text/plain' asMIMEType; "CF_TEXT" - at: 2 put: 'image/bmp' asMIMEType; "CF_BITMAP" - at: 12 put: 'audio/wave'; "CF_WAVE" - at: 13 put: 'text/unicode' asMIMEType; "CF_UNICODETEXT" - at: 16 put: 'CF_LOCALE'; "CF_LOCALE" - yourself. - - - ! Item was added: + ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardRegisteredFormatMap (in category 'class initialization') ----- + initializeClipboardRegisteredFormatMap + "https://learn.microsoft.com/en-us/windows/win32/dataxchg/clipboard-formats#… + + ExtendedClipboardWinInterface initializeClipboardRegisteredFormatMap + " + + SQCF_HTML := 16r10001. + SQCF_RTF := 16r10002. + SQCF_PNG := 16r10003. + SQCF_GIF := 16r10004. + + clipboardFormatMap + " at: SQCF_HTML put: 'text/html' asMIMEType;" + at: SQCF_HTML put: 'HTML Format'; + " at: SQCF_RTF put: 'text/rtf' asMIMEType; + at: SQCF_RTF put: 'text/richtext' asMIMEType;" + at: SQCF_RTF put: 'Rich Text Format'; + " at: SQCF_PNG put: 'image/png' asMIMEType;" + at: SQCF_PNG put: 'PNG'; + " at: SQCF_GIF put: 'image/gif' asMIMEType;" + at: SQCF_GIF put: 'GIF'; + yourself. + + SQCF_MIME_TEXT := 16r20001. + SQCF_MIME_TEXTUTF8 := 16r20002. + SQCF_MIME_RICHTEXT := 16r20003. + SQCF_MIME_RTF := 16r20004. + SQCF_MIME_WAV := 16r20005. + SQCF_MIME_GIF := 16r20006. + SQCF_MIME_JPEG := 16r20007. + SQCF_MIME_TIFF := 16r20008. + SQCF_MIME_PNG := 16r20009. + SQCF_MIME_SVG := 16r2000A. + SQCF_MIME_BMP := 16r2000B. + SQCF_MIME_MPEG := 16r2000C. + SQCF_MIME_RAW := 16r2000D. + SQCF_MIME_PDF := 16r2000E. + SQCF_MIME_XHTML := 16r2000F. + SQCF_MIME_HTML := 16r20010. + SQCF_MIME_XML := 16r20011. + + clipboardFormatMap + at: SQCF_MIME_TEXT put: 'text/plain' asMIMEType; + at: SQCF_MIME_TEXTUTF8 put: 'text/plain;charset=utf-8' asMIMEType; + at: SQCF_MIME_RICHTEXT put: 'text/richtext' asMIMEType; + at: SQCF_MIME_RTF put: 'application/richtext' asMIMEType; + at: SQCF_MIME_WAV put: 'audio/wav' asMIMEType; + at: SQCF_MIME_GIF put: 'image/gif' asMIMEType; + at: SQCF_MIME_JPEG put: 'image/jpeg' asMIMEType; + at: SQCF_MIME_TIFF put: 'image/tiff' asMIMEType; + at: SQCF_MIME_PNG put: 'image/png' asMIMEType; + at: SQCF_MIME_SVG put: 'image/svg+xml' asMIMEType; + at: SQCF_MIME_BMP put: 'image/bmp' asMIMEType; + at: SQCF_MIME_MPEG put: 'video/mpeg' asMIMEType; + at: SQCF_MIME_RAW put: 'application/octet-stream' asMIMEType; + at: SQCF_MIME_PDF put: 'application/pdf' asMIMEType; + at: SQCF_MIME_XHTML put: 'application/xhtml+xml' asMIMEType; + at: SQCF_MIME_HTML put: 'text/html' asMIMEType; + at: SQCF_MIME_XML put: 'text/xml' asMIMEType; + yourself.! Item was added: + ----- Method: ExtendedClipboardWinInterface class>>initializeClipboardStandardFormatMap (in category 'class initialization') ----- + initializeClipboardStandardFormatMap + "https://learn.microsoft.com/en-us/windows/win32/dataxchg/standard-clipboard… + + ExtendedClipboardWinInterface initializeClipboardFormatMap + " + + CF_TEXT := 1. + CF_BITMAP := 2. + "CF_METAFILEPICT := 3. + CF_SYLK := 4. + CF_DIF := 5." + CF_TIFF := 6. + CF_OEMTEXT := 7. + CF_DIB := 8. + CF_PALETTE := 9. + CF_PENDATA := 10. + CF_RIFF := 11. + CF_WAVE := 12. + "CF_UNICODETEXT := 13. -- unused in image, see CF_UTF8TEXT" + "CF_ENHMETAFILE := 14." + CF_HDROP := 15. + CF_LOCALE := 16. + CF_DIBV5 := 17. + + "CF_OWNERDISPLAY := 16r0080. + CF_DSPTEXT := 16r0081. + CF_DSPBITMAP := 16r0082. + CF_DSPMETAFILEPICT := 16r0083. + CF_DSPENHMETAFILE := 16r008E. + CF_PRIVATEFIRST := 16r0200." + CF_PRIVATELAST := 16r02FF. + CF_UTF8TEXT := CF_PRIVATELAST. "extension to the Windows ClipboardExtendedPlugin..." + "CF_GDIOBJFIRST := 16r0300. + CF_GDIOBJLAST := 16r03FF." + + clipboardFormatMap + at: CF_UTF8TEXT put: 'text/unicode' asMIMEType; + at: CF_TEXT put: 'text/plain' asMIMEType; + at: CF_OEMTEXT put: 'OEM Text'; + at: CF_BITMAP put: 'image/bmp' asMIMEType; + " at: CF_DIB put: 'image/bmp' asMIMEType; + at: CF_DIBV5 put: 'image/bmp' asMIMEType; + " at: CF_WAVE put: 'audio/wav' asMIMEType; + at: CF_LOCALE put: 'Locale Identifier'; + at: CF_TIFF put: 'image/tiff' asMIMEType; + yourself. + + + ! Item was changed: ----- Method: ExtendedClipboardWinInterface class>>initializeMimeTypeMap (in category 'class initialization') ----- initializeMimeTypeMap "ExtendedClipboardWinInterface initializeMimeTypeMap" + self flag: #todo. mimeTypeMap := Dictionary new. mimeTypeMap at: 'text/rtf' asMIMEType put: 49510; at: 'text/plain' asMIMEType put: 1; "CF_TEXT" at: 'image/*' asMIMEType put: 2; "CF_BITMAP" at: 'metafile' put: 3; "CF_METAFILEPICT" at: 'CF_SYLK' put: 4; "CF_SYLK" at: 'CF_DIF' put: 5; "CF_DIF" at: 'image/tiff' asMIMEType put: 6; "CF_TIFF" at: 'oemtext' put: 7; "CF_OEMTEXT" at: 'CF_DIB' put: 8; "CF_DIB" at: 'CF_PALETTE' put: 9; "CF_PALETTE" at: 'CF_PENDATA' put: 10; "CF_PENDATA" at: 'CF_RIFF' put: 11; "CF_RIFF" at: 'wave' put: 12; "CF_WAVE" at: 'text/unicode' asMIMEType put: 13; "CF_UNICODETEXT" at: 'CF_ENHMETAFILE' put: 14; "CF_ENHMETAFILE" at: 'CF_HDROP' put: 15; "CF_HDROP" at: 'CF_LOCALE' put: 16; "CF_LOCALE" at: 'CF_DIBV5' put: 17; "CF_DIBV5" yourself ! Item was changed: + ----- Method: ExtendedClipboardWinInterface>>clipboardText: (in category 'accessing') ----- - ----- 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 isPlainText or: [clipboard = 0 or: [self class pluginVersion < 3276]]) ifTrue: [^false]. htmlPayload := self packageAsHTML: aText printHtmlString. self clearClipboard. "We don't understand why yet, but sometimes the plugin fails to copy HTML text." + ^(self tryAddClipboardData: htmlPayload dataFormat: SQCF_HTML) - ^(self tryAddClipboardData: htmlPayload dataFormat: CF_HTMLTEXT) and: [self tryAddClipboardData: (UTF8TextConverter new encodeString: aText asString) dataFormat: CF_UTF8TEXT]! Item was added: + ----- Method: ExtendedClipboardWinInterface>>convertPNGBytesToForm: (in category 'private') ----- + convertPNGBytesToForm: aByteArray + + ^ PNGReadWriter formFromStream: aByteArray readStream! Item was removed: - ----- Method: ExtendedClipboardWinInterface>>readAvailableFormats (in category 'general-api-read') ----- - readAvailableFormats - - | lastFormat availableFormats | - availableFormats := OrderedCollection new: 10. - lastFormat := 0. - [(lastFormat := self getClipboardFormat: lastFormat) notNil] - whileTrue: [ - (self class clipboardFormatMap at: lastFormat ifAbsent: [nil]) - ifNotNil: [:mimeType | availableFormats add: mimeType]]. - ^ availableFormats! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readFormClipboardData (in category 'general-api-read') ----- readFormClipboardData self readAvailableRawFormats sorted reverseDo: [:format| format caseOf: { [CF_DIBV5] -> [^self convertDIBV5BytesToForm: (self readClipboardData: format)]. [CF_DIB] -> [^self convertDIBBytesToForm: (self readClipboardData: format)]. + [CF_BITMAP] -> [^self convertBitmapBytesToForm: (self readClipboardData: format)]. + [SQCF_PNG] -> [^ self convertPNGBytesToForm: (self readClipboardData: format)]. - [CF_BITMAP] -> [^self convertBitmapBytesToForm: (self readClipboardData: format)] } otherwise: []]. ^nil! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readWideStringClipboardData (in category 'general-api-read') ----- readWideStringClipboardData + ^ (self hasClipboardData: CF_UTF8TEXT) - ^ (self hasClipboardData: CF_UNICODETEXT) ifTrue: [((self readClipboardData: CF_UTF8TEXT) changeClassTo: ByteString) utf8ToSqueak]!

1 0

The Trunk: System-mt.1407.mcz
by commits＠source.squeak.org 31 Mar '23

31 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1407.mcz ==================== Summary ==================== Name: System-mt.1407 Author: mt Time: 31 March 2023, 1:03:38.939305 pm UUID: b9a7d013-e3e5-264b-8376-9e3fcb8c2396 Ancestors: System-mt.1406 For (multi-lingual) text morphs from Squeak 4.3, add a class-rename to be able to load .morph files without prompt. =============== Diff against System-mt.1406 =============== Item was changed: ----- Method: SmartRefStream>>initKnownRenames (in category 'read write') ----- initKnownRenames renamed at: #FlasherMorph put: #Flasher; at: #AlansTextPlusMorph put: #TextPlusMorph; at: #Project put: #MorphicProject; at: #Presenter put: #EtoysPresenter; at: #InputSensor put: #EventSensor; + at: #MultiNewParagraph put: #NewParagraph; yourself!

1 0

The Trunk: Multilingual-mt.288.mcz
by commits＠source.squeak.org 30 Mar '23

30 Mar '23

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.288.mcz ==================== Summary ==================== Name: Multilingual-mt.288 Author: mt Time: 30 March 2023, 9:24:00.543449 am UUID: 5301b1ee-1cd2-be44-9f02-a8829a3a2505 Ancestors: Multilingual-pre.287 Expands commentary on utf8 encoding/decoding. Documents the #changeClassTo: idiom. =============== Diff against Multilingual-pre.287 =============== Item was changed: ----- Method: ByteArray>>utf8Decoded (in category '*Multilingual-converting') ----- utf8Decoded + "Interprets the receiver as a UTF8-encoded String. Yields a String, or an InvalidUTF8 exception if the receiver is not valid UTF8. + If the receiver is only temporary (and writable), class adoption can be faster: + self changeClassTo: ByteString; utf8ToSqueak." + - "Interprets the receiver as a UTF8-encoded String. Yields a String, or an InvalidUTF8 exception if the receiver is not valid UTF8." - "Equivalent to the Pharo method of the same name." ^ self asString utf8ToSqueak! Item was changed: ----- Method: String>>utf8Encoded (in category '*Multilingual-converting') ----- utf8Encoded + "Yields a ByteArray containing the UTF8 encoding of the receiver's contents. + If the receiver is only temporary (and writable), class adoption can be faster: + self squeakToUtf8 changeClassTo: ByteArray." + - "Yields a ByteArray containing the UTF8 encoding of the receiver's contents." - "Equivalent to the Pharo method of the same name." ^ self squeakToUtf8 asByteArray!

1 0

The Trunk: System-mt.1406.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1406.mcz ==================== Summary ==================== Name: System-mt.1406 Author: mt Time: 29 March 2023, 2:00:42.416692 pm UUID: 4c3f078b-95a5-0d41-aa13-9362a238ea52 Ancestors: System-mt.1405 Initialize format constants for extended clipboard on Windows platform. =============== Diff against System-mt.1405 =============== Item was changed: + (PackageInfo named: 'System') postscript: 'ExtendedClipboardWinInterface initialize.'! - (PackageInfo named: 'System') postscript: '#(caretWidth defaultAnnotationPaneHeight defaultButtonPaneHeight defaultChangeSetDirectoryName defaultWorldColor eToysFont eToysTitleFont haloLabelFont insertionPointColor keyboardFocusColor menuBorderColor menuBorderWidth menuColor menuLineColor menuSelectionColor menuTitleBorderColor menuTitleBorderWidth menuTitleColor numberOfRecentSubmissionsToStore paintBoxButtonFont standardButtonFont standardCodeFont standardFlapFont standardListFont standardMenuFont textHighlightColor windowColors windowTitleFont) - do: [:projectParameter | - Preferences expungeParameter: projectParameter].'!

1 0

The Trunk: System-mt.1405.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1405.mcz ==================== Summary ==================== Name: System-mt.1405 Author: mt Time: 29 March 2023, 1:56:30.174927 pm UUID: 0ff6d772-c400-ec4b-98db-219158b3a7dd Ancestors: System-mt.1404 Try to use the extended clipboard for both set/get contents. Gracefully fallback to the old primitive. Retain in-image buffer (and text attributes) when string contents are unchanged. Note that there is no #getClipboardData: but only #readClipboardData:. =============== Diff against System-mt.1404 =============== Item was changed: ----- Method: Clipboard>>clipboardText (in category 'accessing') ----- clipboardText + "Answer the text currently in the (system) clipboard. To preserve image-specifc formatting, simply answer the text from an in-image buffer UNLESS that buffer differs from what is in the system clipboard. Also use that buffer if the sytem clipboard got cleared by some other application." - "Return the text currently in the clipboard. If the system clipboard is empty, or if it differs from the Smalltalk clipboard text, use the Smalltalk clipboard. This is done since (a) the Mac clipboard gives up on very large chunks of text and (b) since not all platforms support the notion of a clipboard." + | systemContents needsDecoding stringOrText | + needsDecoding := false. + systemContents := ExtendedClipboardInterface current readTextClipboardData + ifNil: [needsDecoding := true. + self primitiveClipboardText "old primitive"]. + stringOrText := systemContents withSqueakLineEndings. + (stringOrText isEmpty or: [stringOrText asString = contents asString]) - | string decodedString | - string := self primitiveClipboardText withSqueakLineEndings. - (string isEmpty - or: [string = contents asString]) ifTrue: [^ contents]. + ^ needsDecoding + ifFalse: [stringOrText asText] + ifTrue: [ | decodedString | "from old primitive" + decodedString := self interpreter fromSystemClipboard: stringOrText asString. + decodedString = contents asString + ifTrue: [contents] + ifFalse: [decodedString asText]].! - decodedString := self interpreter fromSystemClipboard: string. - ^ decodedString = contents asString - ifTrue: [contents] - ifFalse: [decodedString asText]. - ! Item was changed: ----- Method: Clipboard>>clipboardText: (in category 'accessing') ----- clipboardText: text + + self clipboardText: text notifyWith: nil! - (ExtendedClipboardInterface current clipboardText: text) ifFalse: - [self clipboardText: text notifyWith: nil]! Item was changed: ----- Method: Clipboard>>clipboardText:notifyWith: (in category 'accessing') ----- + clipboardText: stringOrText notifyWith: anObject + "Set the contents of the (system) clipboard. anObject can be used as a marker for the source of the clipboard change, the default value is nil. Try to use the extended interface so that, e.g., rich text can be encoded and transported to other applications." - clipboardText: text notifyWith: anObject - "Set the contents of the clipboard to text. anObject can be used as a marker for the source of the clipboard change, the default value is nil." + | newContents | + newContents := stringOrText asText. + self noteRecentClipping: newContents. + contents := newContents. "Preserve in-image attributes. See #clipboardText." + + (ExtendedClipboardInterface current clipboardText: newContents) + ifFalse: [ | string | + "Extended interface failed. Use old primitive and plain text with system-specific encoding." + string := newContents asString. + string := self interpreter toSystemClipboard: string. + self primitiveClipboardText: string]. + + self triggerEvent: #contentChanged withArguments: { newContents. anObject }.! - | string | - string := text asString. - self noteRecentClipping: text asText. - contents := text asText. - string := self interpreter toSystemClipboard: string. - self primitiveClipboardText: string. - self triggerEvent: #contentChanged withArguments: { text. anObject }! Item was added: + ----- Method: ExtendedClipboardInterface>>clipboardText (in category 'general-api-read') ----- + clipboardText + + ^ self readTextClipboardData ifNil: ['' asText]! Item was changed: ----- Method: ExtendedClipboardInterface>>readStringClipboardData (in category 'general-api-read') ----- readStringClipboardData + + ^ self readWideStringClipboardData + ifNil: [self readByteStringClipboardData]! - ^ self subclassResponsibility! Item was changed: ----- Method: ExtendedClipboardInterface>>readTextClipboardData (in category 'general-api-read') ----- readTextClipboardData + ^ self readStringClipboardData ifNotNil: [:string | string asText]! - ^ nil! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readByteStringClipboardData (in category 'general-api-read') ----- readByteStringClipboardData + ^ (self hasClipboardData: CF_TEXT) + ifTrue: [(self readClipboardData: CF_TEXT) asString]! - (self hasClipboardData: 1) "CF_TEXT" - ifFalse: [^ nil]. - - ^ (self readClipboardData: 1) "CF_TEXT" asString! Item was changed: ----- Method: ExtendedClipboardWinInterface>>readWideStringClipboardData (in category 'general-api-read') ----- readWideStringClipboardData + ^ (self hasClipboardData: CF_UNICODETEXT) + ifTrue: [((self readClipboardData: CF_UTF8TEXT) changeClassTo: ByteString) utf8ToSqueak]! - (self hasClipboardData: 13) "CF_UNICODETEXT" - ifFalse: [^ nil]. - - ^((self getClipboardData: CF_UTF8TEXT) changeClassTo: ByteString) utf8ToSqueak!

1 0

The Trunk: CollectionsTests-mt.386.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.386.mcz ==================== Summary ==================== Name: CollectionsTests-mt.386 Author: mt Time: 29 March 2023, 11:46:09.135107 am UUID: 4eac586d-966a-a248-b6df-63cdbbab87ae Ancestors: CollectionsTests-tpr.385 Tests for Collections-mt.1031 =============== Diff against CollectionsTests-tpr.385 =============== Item was added: + ----- Method: TextTest>>testAsPlainText (in category 'tests - plain text') ----- + testAsPlainText + + | exampleString exampleText | + exampleString := 'hello'. + exampleText := exampleString asText. + exampleText addAttribute: TextColor yellow. + + self assert: exampleString asPlainText isPlainText. + self assert: exampleText asPlainText isPlainText.! Item was added: + ----- Method: TextTest>>testAsPlainTextIdentity (in category 'tests - plain text') ----- + testAsPlainTextIdentity + + | exampleString exampleText | + exampleString := 'hello'. + exampleText := exampleString asText. + + self assert: exampleString == exampleString asPlainText. + self assert: exampleText == exampleText asPlainText. + + exampleText addAttribute: TextColor yellow. + self deny: exampleText == exampleText asPlainText. + self assert: exampleText hasColorAttribute.! Item was added: + ----- Method: TextTest>>testHasAnyAttribute (in category 'tests - plain text') ----- + testHasAnyAttribute + + | exampleText | + exampleText := 'hello' asText. + exampleText addAttribute: TextColor yellow. + + self assert: exampleText hasAnyAttribute. + exampleText removeAllAttributes. + self deny: exampleText hasAnyAttribute. + + exampleText addAttribute: TextAlignment centered. + self assert: exampleText hasAnyAttribute. + self assert: exampleText isPlainText.! Item was added: + ----- Method: TextTest>>testIsPlainText (in category 'tests - plain text') ----- + testIsPlainText + + self assert: 'hello' isPlainText. + self assert: 'hello' asText isPlainText. + + self deny: ('hello' asText addAttribute: TextColor yellow) isPlainText. + self assert: ('hello' asText addAttribute: TextAlignment centered) isPlainText. + + self assert: ('hello' asText addAttribute: TextColor yellow) asString asText isPlainText.!

1 0

The Trunk: System-mt.1404.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1404.mcz ==================== Summary ==================== Name: System-mt.1404 Author: mt Time: 29 March 2023, 11:45:14.718107 am UUID: e6746bf6-9dd7-ce49-ad64-410f5ae752c8 Ancestors: System-mt.1403 Complement Collections-mt.1031 =============== Diff against System-mt.1403 =============== Item was removed: - ----- Method: String>>isPlainText (in category '*System-Support') ----- - isPlainText - "For compatibility with Text" - ^true! Item was removed: - ----- Method: Text>>isPlainText (in category '*System-Support') ----- - isPlainText - "A Text with no emphasis has empty values." - ^runs values = #(#())!

1 0

The Trunk: Morphic-mt.2100.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2100.mcz ==================== Summary ==================== Name: Morphic-mt.2100 Author: mt Time: 29 March 2023, 11:44:49.143107 am UUID: 4c032757-c84e-d945-87eb-eeb6124849b3 Ancestors: Morphic-mt.2099 Complement Collections-mt.1031 =============== Diff against Morphic-mt.2099 =============== Item was changed: ----- Method: TextMorph>>newContents: (in category 'accessing') ----- newContents: stringOrText "Accept new text contents." | newText embeddedMorphs oldSelection | newText := stringOrText isString ifTrue: [Text fromString: stringOrText copy ] ifFalse: [ stringOrText copy asText. "should be veryDeepCopy?" ]. + self plainTextOnly ifTrue: [ newText removeAttributesForPlainText ]. - self plainTextOnly ifTrue: [ newText removeAttributesThat: [:att | att isTextAlignment not] ]. (text = newText and: [text runs = newText runs]) ifTrue: [^ self]. "No substantive change" text ifNotNil: [(embeddedMorphs := text embeddedMorphs) ifNotNil: [self removeAllMorphsIn: embeddedMorphs. embeddedMorphs do: [:m | m delete]]]. oldSelection := editor ifNotNil: [:ed | ed selectionInterval]. text := newText. "add all morphs off the visible region; they'll be moved into the right place when they become visible. (this can make the scrollable area too large, though)" newText embeddedMorphs do: [:m | self addMorph: m. m position: -1000 @ 0]. self releaseParagraph. "update the paragraph cache" self paragraph. oldSelection ifNotNil: [:sel | self selectFrom: sel first to: sel last]. "re-instantiate to set bounds" self world ifNotNil: [self world startSteppingSubmorphsOf: self]!

1 0

The Trunk: Collections-mt.1031.mcz
by commits＠source.squeak.org 29 Mar '23

29 Mar '23

Marcel Taeumel uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-mt.1031.mcz ==================== Summary ==================== Name: Collections-mt.1031 Author: mt Time: 29 March 2023, 11:43:16.766107 am UUID: 90b7b1a5-0369-5542-9507-80d32a98cc4a Ancestors: Collections-mt.1030 Document and expand on the notion of "plain text" as a property that can be checked on any String or Text. See commentary in #isPlainText for more inforamtion. Add #hasAnyAttribute to be used if a more strict check is necessary. =============== Diff against Collections-mt.1030 =============== Item was added: + ----- Method: String>>asPlainText (in category 'converting') ----- + asPlainText + "For compatibility with Text" + ^self! Item was added: + ----- Method: String>>isPlainText (in category 'testing') ----- + isPlainText + "For compatibility with Text" + ^true! Item was added: + ----- Method: Text>>asPlainText (in category 'converting') ----- + asPlainText + "Answer a copy of the receiver that represents text that has no attributes substantially related to the visual representation of glyphs. If the receiver represents already plain text, just return it. Thus, do not rely on this method to always answer a copy." + + self isPlainText ifTrue: [^ self]. + ^ self copy removeAttributesForPlainText! Item was added: + ----- Method: Text>>hasAnyAttribute (in category 'testing') ----- + hasAnyAttribute + "Also see (commentary in) #isPlainText, which is compatible with the String protocol. + Examples: + data isStringOrText and: [data isPlainText]. + data isString or: [data isText and: [data hasAnyAttribute not]]." + + ^ self notEmpty and: [self runs anySatisfy: [:attributes | attributes notEmpty]]! Item was added: + ----- Method: Text>>hasAttributeThat: (in category 'testing') ----- + hasAttributeThat: block + + ^ self runs anySatisfy: [:attributes | + attributes anySatisfy: [:attribute | + block value: attribute]]! Item was changed: ----- Method: Text>>hasClickableAttribute (in category 'testing') ----- hasClickableAttribute + ^ self hasAttributeThat: [:attr | attr mayActOnClick]! - ^ self runs anySatisfy: [:attrs | attrs anySatisfy: [:attr | - attr respondsTo: #mayActOnClick]]! Item was changed: ----- Method: Text>>hasColorAttribute (in category 'testing') ----- hasColorAttribute + ^ self hasAttributeThat: [:attr | attr respondsTo: #color]! - ^ self runs anySatisfy: [:attrs | attrs anySatisfy: [:attr | - attr respondsTo: #color]]! Item was changed: ----- Method: Text>>hasFontAttribute (in category 'testing') ----- hasFontAttribute + ^ self hasAttributeThat: [:attr | + (attr respondsTo: #fontNumber) or: [attr respondsTo: #font]]! - ^ self runs anySatisfy: [:attrs | attrs anySatisfy: [:attr | - (attr respondsTo: #fontNumber) or: [attr respondsTo: #font]]]! Item was added: + ----- Method: Text>>isPlainText (in category 'testing') ----- + isPlainText + "A plain text has no attribute that is substantial for a character's visual representation. As of now, this excludes text alignment as this is regarded more a layout property of the surrounding text container (or widget). See #hasAttributes for a more strict check and #asPlainText for conversion. Note that Squeak's notion of text attributes is more powerful and expressive compared to what plain-text is outside Squeak's context." + + self flag: #todo. "mt: First, we should find a way to make widget-specific text alignment possible without having to set attributes on the (plain) text it is showing. See uses of #plainTextOnly(:). Second, there might be an entire category of text attributes possible that only affects Squeak-specific magic but not related to the user's notin of plain text. Thus, find a better check." + ^ (self hasAttributeThat: [:att | att isTextAlignment not]) not! Item was added: + ----- Method: Text>>removeAttributesForPlainText (in category 'private') ----- + removeAttributesForPlainText + "In the receiver, remove all text attributes so that #isPlainText will answer true after this." + + self removeAttributesThat: [:att | att isTextAlignment not].!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2023