Squeak-dev March 2023

squeak-dev@lists.squeakfoundation.org

32 participants
124 discussions

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

Squeak 6.0: System-mt.1369.mcz
by commits＠source.squeak.org 31 Mar '23

31 Mar '23

Marcel Taeumel uploaded a new version of System to project Squeak 6.0: http://source.squeak.org/squeak60/System-mt.1369.mcz ==================== Summary ==================== Name: System-mt.1369 Author: mt Time: 31 March 2023, 1:01:52.037169 pm UUID: 33602789-7b4d-4e4e-b6e7-62ff9b47ec91 Ancestors: System-mt.1368 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.1368 =============== 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

testing 900 characters is "too large" to send, according to my ISP
by LawsonEnglish 29 Mar '23

29 Mar '23

this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. this is a test. 290

1 0

yet another test (sorry)
by LawsonEnglish 29 Mar '23

29 Mar '23

still trying to get my email function. L

1 0

testing email connection mailing list (sorry)
by LAWSON ENGLISH 29 Mar '23

29 Mar '23

This is only a test. L

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: System-mt.1403.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.1403.mcz ==================== Summary ==================== Name: System-mt.1403 Author: mt Time: 27 March 2023, 10:00:56.498651 am UUID: 106cd43c-6be0-314c-ac46-e16bf55f8a89 Ancestors: System-eem.1402 As usual, move domain-specific string/text messages into extension protocol. Use *System-Support for now but it could be *Network as well or something that relates to the underlying MIME classification (here: text/plain). =============== Diff against System-eem.1402 =============== Item was added: + ----- Method: String>>isPlainText (in category '*System-Support') ----- + isPlainText + "For compatibility with Text" + ^true! Item was added: + ----- Method: Text>>isPlainText (in category '*System-Support') ----- + isPlainText + "A Text with no emphasis has empty values." + ^runs values = #(#())!

3 4

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

← Newer
1
2
3
4
5
6
7
8
...
13
Older →