Squeak-dev May 2023

squeak-dev@lists.squeakfoundation.org

16 participants
109 discussions

UK Smalltalk User Group meeting - 31 May 2023
by Giovanni Corriga 31 May '23

31 May '23

For our May presentation, Stephane Ducasse will present the vision behind Pharo and how that is been implemented incrementally across multiple releases. In Stef's words: "The vision of Pharo is based on three pillars: - First we want to make sure that Pharo is used to develop complex and robust systems (by complex we means multiple millions lines of code or objects). - Second we want Pharo to be a modular system that can be versatile (Pharo on iot, on large servers, in the web browser….) - Third Pharo should be an evolvable system that can adapt to new needs (modular tools, first class slot, new debuggers, packages…). Sometimes it can be unclear that we follow this vision but over the years we are delivering this vision and we will continue. In this talk I will briefly recall the vision behind Pharo and show the achievements so far. I will show that our development is heavily backed by tests. In the second part of the talk I will focus on the current effort to improve the user interface. I will show that the reimplementation of the Spec UI framework is a cornerstone of the future replacement of Morphic and use of GTK. I will also answer questions about Pharo 11 and Pharo 12." Stephane is an Inria Research Director, currently lead the RMoD team ( http://rmod.lille.inria.fr/ ). Stef is an expert in language design, software quality, program understanding, program visualisations, reengineering and metamodeling. Among his contributions we can list: traits (implemented in Pharo, Perl, PHP and other languages); Moose, an open-source software analysis platform ( http://www.moosetechnology.org/ ). Stef is one of the leaders of Pharo ( http://www.pharo.org/ ), a dynamic reflective object-oriented language supporting live programming, and of the industrial Pharo consortium ( https://consortium.pharo.org/ ). Stef works regularly with companies such as Thales, Wordline, Siemens, Berger-Levrault, Arolla, and others on their software evolution problems. Stef has authored a couple hundred articles ( http://stephane.ducasse.free.fr/Publications.html ) and several books ( http://books.pharo.org/ ). This will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page ( https://www.meetup.com/ukstug/events/293473947/ ) to receive the meeting details.

1 0

The Trunk: Kernel-mt.1514.mcz
by commits＠source.squeak.org 30 May '23

30 May '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1514.mcz ==================== Summary ==================== Name: Kernel-mt.1514 Author: mt Time: 30 May 2023, 11:44:07.655516 am UUID: 37594c1e-993f-fd47-968f-4a96f29233ee Ancestors: Kernel-mt.1513 Adds more known benchmark results for #tinyNumbers. Moves results-comment to the end of method to not obfuscate the source code. =============== Diff against Kernel-mt.1513 =============== Item was changed: ----- Method: Integer>>tinyBenchmarks (in category 'benchmarks') ----- tinyBenchmarks "Report the results of running the two tiny Squeak benchmarks. ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results" "0 tinyBenchmarks" + - "On a 292 MHz G3 Mac: 23,000,000 bytecodes/sec; 980,000 sends/sec" - "On a 400 MHz PII/Win98: 18,000,000 bytecodes/sec; 1,100,000 sends/sec" - "On a 2800 MHz i7: 1,200,000,000 bytecodes/sec; 25,000,000 sends/sec" - "On a 2800 MHz i7 (CogVM): 1,700,000,000 bytecodes/sec; 260,000,000 sends/sec" | t1 t2 r n1 n2 | n1 := 1. [t1 := Time millisecondsToRun: [n1 benchmark]. t1 < 1000] whileTrue:[n1 := n1 * 2]. "Note: #benchmark's runtime is about O(n)" n2 := 28. [t2 := Time millisecondsToRun: [r := n2 benchFib]. t2 < 1000] whileTrue:[n2 := n2 + 1]. "Note: #benchFib's runtime is about O(k^n), where k is the golden number = (1 + 5 sqrt) / 2 = 1.618...." ^ ((n1 * 500000 * 1000) // t1 significantDigits: 2) asStringWithCommas, ' bytecodes/sec; ', ((r * 1000) // t2 significantDigits: 2) asStringWithCommas, ' sends/sec' + " + Known benchmark results: + On a 292 MHz G3 Mac: 23,000,000 bytecodes/sec; 980,000 sends/sec + On a 400 MHz PII/Win98: 18,000,000 bytecodes/sec; 1,100,000 sends/sec + On a 2800 MHz i7: 1,200,000,000 bytecodes/sec; 25,000,000 sends/sec + On a 2800 MHz i7 (CogVM): 1,700,000,000 bytecodes/sec; 260,000,000 sends/sec + On a RaspberryPi 3B+ ARMv6 (CogVM, April 2018): 330,000,000 bytecodes/sec; 19,000,000 sends/sec + On an Apple M1 (macMini 2020, CogVM 202112201228): 4,400,000,000 bytecodes/sec; 330,000,000 sends/sec + On an Apple M1 x64/Rosetta (macMini 2020, CogVM 202112201228): 3,500,000,000 bytecodes/sec; 270,000,000 sends/sec + On a Core i7-1185G7 (Surface Pro 8, CogVM 202206021410): 3,800,000,000 bytecodes/sec; 290,000,000 sends/sec + "! - !

3 2

Please Review | Fix for Time class >> #nanosecondsToRunHighRes:
by Marcel Taeumel 30 May '23

30 May '23

Hi all -- Here is a proposed fix for #nanosecondsToRunHighRes: to be actually useful. - Let a block run for at least 10 milliseconds to reliably convert ticks to time. - Sanity check for core switch by checking monotonicity of value. I found the current approach of having a fixed conversion factor to be not useful at all. Time nanosecondsToRunHighRes: [Morph new]. Best, Marcel

1 0

The Trunk: Kernel-mt.1515.mcz
by commits＠source.squeak.org 30 May '23

30 May '23

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1515.mcz ==================== Summary ==================== Name: Kernel-mt.1515 Author: mt Time: 30 May 2023, 3:27:35.849516 pm UUID: 751f066c-41a3-1b4e-bf98-d179a8cc2d13 Ancestors: Kernel-mt.1514 Disable high-precision clock for #tinyBenchmarks to not suffer from inaccurate ticks-to-milliseconds factor. =============== Diff against Kernel-mt.1514 =============== Item was changed: ----- Method: Integer>>tinyBenchmarks (in category 'benchmarks') ----- tinyBenchmarks "Report the results of running the two tiny Squeak benchmarks. ar 9/10/1999: Adjusted to run at least 1 sec to get more stable results" "0 tinyBenchmarks" + | t1 t2 r n1 n2 pref | + pref := Time useHighResClockForTiming. + Time useHighResClockForTiming: false. - | t1 t2 r n1 n2 | n1 := 1. [t1 := Time millisecondsToRun: [n1 benchmark]. t1 < 1000] whileTrue:[n1 := n1 * 2]. "Note: #benchmark's runtime is about O(n)" n2 := 28. [t2 := Time millisecondsToRun: [r := n2 benchFib]. t2 < 1000] whileTrue:[n2 := n2 + 1]. "Note: #benchFib's runtime is about O(k^n), where k is the golden number = (1 + 5 sqrt) / 2 = 1.618...." + Time useHighResClockForTiming: pref. + ^ ((n1 * 500000 * 1000) // t1 significantDigits: 2) asStringWithCommas, ' bytecodes/sec; ', ((r * 1000) // t2 significantDigits: 2) asStringWithCommas, ' sends/sec' " Known benchmark results: On a 292 MHz G3 Mac: 23,000,000 bytecodes/sec; 980,000 sends/sec On a 400 MHz PII/Win98: 18,000,000 bytecodes/sec; 1,100,000 sends/sec On a 2800 MHz i7: 1,200,000,000 bytecodes/sec; 25,000,000 sends/sec On a 2800 MHz i7 (CogVM): 1,700,000,000 bytecodes/sec; 260,000,000 sends/sec On a RaspberryPi 3B+ ARMv6 (CogVM, April 2018): 330,000,000 bytecodes/sec; 19,000,000 sends/sec On an Apple M1 (macMini 2020, CogVM 202112201228): 4,400,000,000 bytecodes/sec; 330,000,000 sends/sec On an Apple M1 x64/Rosetta (macMini 2020, CogVM 202112201228): 3,500,000,000 bytecodes/sec; 270,000,000 sends/sec On a Core i7-1185G7 (Surface Pro 8, CogVM 202206021410): 3,800,000,000 bytecodes/sec; 290,000,000 sends/sec "!

1 0

Mailing lists updated | Please reclaim your mail address
by Marcel Taeumel 30 May '23

30 May '23

Hi all -- We successfully migrated our mailing lists from mailman2 and pipermail to mailman3 and HyperKitty: - https://lists.squeakfoundation.org/mailman3/lists/ - https://lists.squeakfoundation.org/archives/ Your subscriptions were transferred to the new system so that mail delivery continued to function as expected. To manage mail delivery and other preferences, you can now create an actual account using your mail address. Please do so at your earliest convenience: - https://lists.squeakfoundation.org/accounts/signup/?next=/mailman3/lists/ You might want to use a different password as mailman2 stored those in plaintext, which enabled the system to remind you of your current password as a "feature" ... ;-) This is not possible anymore. Best, Marcel

2 1

Mail test
by David T. Lewis 25 May '23

25 May '23

Sorry for the test message, but it seems that I have not been receiving mail from any of the Squeak lists since about April 25, so I'm sending this to see if it gets through. Dave

1 0

The Trunk: NetworkTests-ct.67.mcz
by commits＠source.squeak.org 22 May '23

22 May '23

Christoph Thiede uploaded a new version of NetworkTests to project The Trunk: http://source.squeak.org/trunk/NetworkTests-ct.67.mcz ==================== Summary ==================== Name: NetworkTests-ct.67 Author: ct Time: 20 May 2023, 8:15:20.041721 pm UUID: b341bb29-4f6f-9348-840d-fdfbe22204a4 Ancestors: NetworkTests-ct.66 Complements Network-ct.270 (improves reading/exploring of MailMessages). Adds detailed acceptance tests for #bodyTextFormatted:. =============== Diff against NetworkTests-ct.66 =============== Item was added: + ----- Method: MIMEDocumentTest>>testBodyTextFormatted (in category 'tests') ----- + testBodyTextFormatted + + | pngContent pngText pngContent2 pngText2 mailContent mailText | + pngContent := (ByteArray streamContents: [:s | PNGReadWriter putForm: (Form dotOfSize: 8 color: Color orange) onStream: s]) asString. + pngText := '<img src="code://Form dotOfSize: 8 color: Color orange" />' asTextFromHtml removeAttributesThat: [:ea | ea isKindOf: TextColor]; yourself. + pngContent2 := (ByteArray streamContents: [:s | PNGReadWriter putForm: (Form dotOfSize: 16 color: Color blue) onStream: s]) asString. + pngText2 := '<img src="code://Form dotOfSize: 16 color: Color blue" />' asTextFromHtml removeAttributesThat: [:ea | ea isKindOf: TextColor]; yourself. + mailContent := MailMessage empty in: [:m | m body content: 'hi']; text. + mailText := 'hi\\' withCRs. + OrderedDictionary new + "text" + at: (MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'plain test') put: 'plain test'; + at: (MIMEDocument contentType: MIMEDocument contentTypeHtml content: 'html test') put: 'html test' asText; + at: (MIMEDocument contentType: MIMEDocument contentTypeHtml content: 'bold <img src="https://squeak.org/static/img/squeak.png" /> <img src="code://Form dotOfSize: 8" />') put: 'bold <img src="https://squeak.org/static/img/squeak.png" /> <img src="lol" />' asTextFromHtml; + + "embedded stuff" + at: (MIMEDocument contentType: 'image/png' content: pngContent) put: pngText; + at: (MIMEDocument contentType: 'message/rfc822' content: mailContent) put: mailText; + + "multipart/alternative" + "plain and rich text" + at: ((MIMEDocument contentType: 'multipart/alternative') addPart: (MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'plain test'); addPart: (MIMEDocument contentType: MIMEDocument contentTypeHtml content: 'html test'); yourself) put: {'plain test'. 'html test' asText}; + "plain and rich text (different ordr)" + at: ((MIMEDocument contentType: 'multipart/alternative') addPart: (MIMEDocument contentType: MIMEDocument contentTypeHtml content: 'html test'); addPart: (MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'plain test'); yourself) put: {'plain test'. 'html test' asText}; + "only plain text" + at: ((MIMEDocument contentType: 'multipart/alternative') addPart: (MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'plain test'); yourself) put: 'plain test'; + "only rich text" + at: ((MIMEDocument contentType: 'multipart/alternative') addPart: (MIMEDocument contentType: MIMEDocument contentTypeHtml content: 'html test'); yourself) put: 'html test' asText; + "only other stuff" + at: ((MIMEDocument contentType: 'multipart/alternative') addPart: (MIMEDocument contentType: 'message/rfc822' content: mailContent); yourself) put: mailText; + + "multipart/related" + "plain text with CIDs" + at: ((MIMEDocument contentType: 'multipart/related') addPart: (MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'plain test [cid:griffle] [cid:plonk] [cid:goo]'); addPart: ((MIMEDocument contentType: 'image/png' content: pngContent) setField: 'content-id' toString: 'plonk'; yourself); addPart: ((MIMEDocument contentType: 'image/png' content: pngContent2) setField: 'content-id' toString: 'griffle'; yourself); yourself) put: ('plain test {1} {2} [cid:goo]' asTextFromHtml format: {pngText2. pngText}); + "rich text with CIDs" + at: ((MIMEDocument contentType: 'multipart/related') addPart: (MIMEDocument contentType: MIMEDocument contentTypeHtml content: 'html test <img src="cid:griffle" /> <img src="cid:plonk" /> <img src="cid:goo" />'); addPart: ((MIMEDocument contentType: 'image/png' content: pngContent) setField: 'content-id' toString: 'plonk'; yourself); addPart: ((MIMEDocument contentType: 'image/png' content: pngContent2) setField: 'content-id' toString: 'griffle'; yourself); yourself) put: 'html test <img src="code://Form dotOfSize: 16 color: Color blue" /> <img src="code://Form dotOfSize: 8 color: Color orange" /> <img src="lol" />' asTextFromHtml; + + "multipart/mixed" + at: ((MIMEDocument contentType: 'multipart/mixed') addPart: ((MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'plonk') setField: 'content-disposition' toString: 'inline'; yourself); addPart: ((MIMEDocument contentType: MIMEDocument contentTypePlainText content: 'griffle') setField: 'content-disposition' toString: 'attachment'; yourself); addPart: (MIMEDocument contentType: 'image/png' content: pngContent); yourself) put: ('plonk\' withCRs asText , ('[attachment]' asText addAttribute: TextMessageLink new; yourself) , '\' withCRs , pngText); + + keysAndValuesDo: [:document :expectedTexts | + | expectedText actualText | + expectedText := expectedTexts isArray ifTrue: [expectedTexts first] ifFalse: [expectedTexts]. + actualText := document bodyTextFormatted. + self + assert: expectedText asString + equals: actualText asString; + assert: (expectedText isText ifTrue: [expectedText runs printString]) + equals: (actualText isText ifTrue: [actualText runs printString])]; + + keysAndValuesDo: [:document :expectedTexts | + | expectedText actualText | + expectedText := expectedTexts isArray ifTrue: [expectedTexts second] ifFalse: [expectedTexts]. + actualText := document bodyTextFormattedRich. + self + assert: expectedText asString + equals: actualText asString; + assert: (expectedText isText ifTrue: [expectedText runs printString]) + equals: (actualText isText ifTrue: [actualText runs printString])].!

3 4

The Inbox: ToolBuilder-Morphic-ct.342.mcz
by commits＠source.squeak.org 22 May '23

22 May '23

Christoph Thiede uploaded a new version of ToolBuilder-Morphic to project The Inbox: http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.342.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-ct.342 Author: ct Time: 20 May 2023, 8:36:35.416721 pm UUID: fe89f5d8-869f-854f-8b5d-7f897ac1cb54 Ancestors: ToolBuilder-Morphic-mt.341 Proposal: When opening them as tools, also attach regular morphs to the cursor depending on #openToolsAttachedToMouseCursor. Thus, opening non-window tools using the mouse feels more natural when the preference is enabled. For instance, TextMessageLink would benefit from this. "SketchMorph extraExampleCook openAsTool" =============== Diff against ToolBuilder-Morphic-mt.341 =============== Item was changed: ----- Method: Morph>>openAsTool (in category '*ToolBuilder-Morphic-opening') ----- openAsTool + "Open this morph as a tool, that is, honor the preference #openToolsAttachedToMouseCursor." + self openInWorld. + (Project uiManager openToolsAttachedToMouseCursor + and: [ | event | + event := self currentEvent. + event isMouse and: [event isMouseUp]]) + ifTrue: [ + self currentHand attachMorph: self].! - self openInWorld.!

2 1

The Trunk: CollectionsTests-ct.395.mcz
by commits＠source.squeak.org 22 May '23

22 May '23

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.395.mcz ==================== Summary ==================== Name: CollectionsTests-ct.395 Author: ct Time: 22 May 2023, 2:24:30.353446 pm UUID: b9a99b6b-3dc7-0d46-a359-e5707a4f58d4 Ancestors: CollectionsTests-mt.394 Makes HtmlReadWriterTest>>#test16ImgTag scale-factor-aware. Thanks to Marcel for the hint! =============== Diff against CollectionsTests-mt.394 =============== Item was changed: ----- Method: HtmlReadWriterTest>>test16ImgTag (in category 'tests') ----- test16ImgTag <timeout: 10> + | imgUrl imgExpression formFromUrl formFromExpression placeholderForm | - | imgUrl imgExpression formFromUrl formFromExpression | imgUrl := 'https://squeak.org/img/downloads/image.png'. imgExpression := 'Form dotOfSize: 12@12 color: Color green'. self ensureSecureInternetConnection. formFromUrl := (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | Form fromBinaryStream: (client httpGet: imgUrl) content asByteArray readStream]. formFromExpression := Compiler evaluate: imgExpression. + placeholderForm := readWriter imagePlaceholder. + RealEstateAgent scaleFactor = 1.0 ifFalse: [ formFromUrl := formFromUrl scaledToSize: (formFromUrl extent * RealEstateAgent scaleFactor). + formFromExpression := formFromExpression scaledToSize: (formFromExpression extent * RealEstateAgent scaleFactor). + placeholderForm := placeholderForm scaledToSize: (placeholderForm extent * RealEstateAgent scaleFactor)]. - formFromExpression := formFromExpression scaledToSize: (formFromExpression extent * RealEstateAgent scaleFactor)]. ({ []. imgUrl. formFromUrl. + []. 'fantasy:wonderland/alice'. placeholderForm. - []. 'fantasy:wonderland/alice'. readWriter imagePlaceholder. []. 'code://' , imgExpression. formFromExpression. + []. 'code://Object'. placeholderForm. + []. 'code://' , imgExpression , ';'. placeholderForm. - []. 'code://Object'. readWriter imagePlaceholder. - []. 'code://' , imgExpression , ';'. readWriter imagePlaceholder. + [readWriter shallDownloadResources: false]. imgUrl. placeholderForm. - [readWriter shallDownloadResources: false]. imgUrl. readWriter imagePlaceholder. + [readWriter shallEvaluateResources: false]. 'code://' , imgExpression. placeholderForm. - [readWriter shallEvaluateResources: false]. 'code://' , imgExpression. readWriter imagePlaceholder. } groupsCollect: [:prepareBlock :src :expectedForm | { 'Hello <img src="{1}"> World' format: { src }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: expectedForm asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. prepareBlock}]) , ({ "different closing tag styles" 'Hello <img src="code://{1}"></img> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. 'Hello <img src="code://{1}"/> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. "case, spaces, escape sequence" 'Hello <IMG SRC = "code://{1}"> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. "leading and trailing images" '<img src="code://{1}"> squeak <img src="code://{1}">' format: { imgExpression }. ('{1} squeak {1}' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 1 to: 1; addAttribute: (TextColor color: Color transparent) from: 1 to: 1; addAttribute: formFromExpression asTextAnchor from: 10 to: 10; addAttribute: (TextColor color: Color transparent) from: 10 to: 10. + } pairsCollect: [:a :b | {a. b}]) + + collect: [:spec | - - } pairsCollect: [:a :b | {a. b}]) collect: [:spec | | givenHtml expectedText prepareBlock | givenHtml := spec first. expectedText := spec second. prepareBlock := spec at: 3 ifAbsent: []. self setUpReadWriter. prepareBlock value. self convertHtml: givenHtml. self assert: expectedText string equals: text string. expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | self assert: (expectedAttribute = actualAttribute or: [ ((expectedAttribute respondsTo: #anchoredMorph) and: [actualAttribute respondsTo: #anchoredMorph]) and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!

1 0

The Trunk: CollectionsTests-mt.394.mcz
by commits＠source.squeak.org 22 May '23

22 May '23

Marcel Taeumel uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-mt.394.mcz ==================== Summary ==================== Name: CollectionsTests-mt.394 Author: mt Time: 22 May 2023, 11:09:50.647186 am UUID: dee472bd-4a4e-8448-aea9-b9828d240ff9 Ancestors: CollectionsTests-ct.393 Remove variable shadows. =============== Diff against CollectionsTests-ct.393 =============== Item was changed: ----- Method: HtmlReadWriterTest>>test16ImgTag (in category 'tests') ----- test16ImgTag <timeout: 10> | imgUrl imgExpression formFromUrl formFromExpression | imgUrl := 'https://squeak.org/img/downloads/image.png'. imgExpression := 'Form dotOfSize: 12@12 color: Color green'. self ensureSecureInternetConnection. formFromUrl := (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | Form fromBinaryStream: (client httpGet: imgUrl) content asByteArray readStream]. formFromExpression := Compiler evaluate: imgExpression. RealEstateAgent scaleFactor = 1.0 ifFalse: [ formFromUrl := formFromUrl scaledToSize: (formFromUrl extent * RealEstateAgent scaleFactor). formFromExpression := formFromExpression scaledToSize: (formFromExpression extent * RealEstateAgent scaleFactor)]. ({ []. imgUrl. formFromUrl. []. 'fantasy:wonderland/alice'. readWriter imagePlaceholder. []. 'code://' , imgExpression. formFromExpression. []. 'code://Object'. readWriter imagePlaceholder. []. 'code://' , imgExpression , ';'. readWriter imagePlaceholder. [readWriter shallDownloadResources: false]. imgUrl. readWriter imagePlaceholder. [readWriter shallEvaluateResources: false]. 'code://' , imgExpression. readWriter imagePlaceholder. } groupsCollect: [:prepareBlock :src :expectedForm | { 'Hello <img src="{1}"> World' format: { src }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: expectedForm asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. prepareBlock}]) , ({ "different closing tag styles" 'Hello <img src="code://{1}"></img> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. 'Hello <img src="code://{1}"/> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. "case, spaces, escape sequence" 'Hello <IMG SRC = "code://{1}"> World' format: { imgExpression }. ('Hello {1} World' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 7 to: 7; addAttribute: (TextColor color: Color transparent) from: 7 to: 7. "leading and trailing images" '<img src="code://{1}"> squeak <img src="code://{1}">' format: { imgExpression }. ('{1} squeak {1}' format: { Character startOfHeader }) asText addAttribute: formFromExpression asTextAnchor from: 1 to: 1; addAttribute: (TextColor color: Color transparent) from: 1 to: 1; addAttribute: formFromExpression asTextAnchor from: 10 to: 10; addAttribute: (TextColor color: Color transparent) from: 10 to: 10. + } pairsCollect: [:a :b | {a. b}]) collect: [:spec | + | givenHtml expectedText prepareBlock | + givenHtml := spec first. - } pairsCollect: [:html :expectedText | {html. expectedText}]) - collect: [:spec | - | html expectedText prepareBlock | - html := spec first. expectedText := spec second. prepareBlock := spec at: 3 ifAbsent: []. self setUpReadWriter. prepareBlock value. + self convertHtml: givenHtml. - self convertHtml: html. self assert: expectedText string equals: text string. expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | self assert: (expectedAttribute = actualAttribute or: [ ((expectedAttribute respondsTo: #anchoredMorph) and: [actualAttribute respondsTo: #anchoredMorph]) and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!

1 0

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