Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: MultilingualTests-mt.43.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-mt.43.mcz ==================== Summary ==================== Name: MultilingualTests-mt.43 Author: mt Time: 5 April 2022, 5:04:30.780349 pm UUID: b6f83d06-9399-4276-9fa4-1126c3aa6a45 Ancestors: MultilingualTests-mt.42 Fixes font tests. =============== Diff against MultilingualTests-mt.42 =============== Item was changed: ----- Method: FontTest>>testMultistringFallbackFont (in category 'tests') ----- testMultistringFallbackFont "self debug: #testMultistringFallbackFont" | text p style height width | + TextStyle defaultFont isFontSet ifFalse: [^ self]. + TextStyle defaultFont fontArray + at: JapaneseEnvironment leadingChar + ifAbsent: [^ self]. - [(TextStyle default fontArray at: JapaneseEnvironment leadingChar) - ifNil: [^ self]] - ifError: [:err :rcvr | ^ self]. text := ((#(20983874 20983876 20983878 ) collect: [:e | e asCharacter]) as: String) asText. p := NewParagraph new. style := TextStyle new newFontArray: {Preferences standardFlapFont}. p compose: text style: style from: 1 in: (0 @ 0 corner: 100 @ 100). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" height := style defaultFont lineGrid. width := p caretWidth + (text inject: 0 into: [:tally :next | tally + (style defaultFont widthOf: next)]). p adjustRightX. self assert: p extent = (width @ height). "Display getCanvas paragraph: p bounds: (10 @ 10 extent: 100 @ 100) color: Color black"! Item was changed: ----- Method: FontTest>>testMultistringFont (in category 'tests') ----- testMultistringFont "self debug: #testMultistringFont" | text p style height width | + TextStyle defaultFont isFontSet ifFalse: [^ self]. + TextStyle defaultFont fontArray + at: JapaneseEnvironment leadingChar + ifAbsent: [^ self]. - [(TextStyle default fontArray at: JapaneseEnvironment leadingChar) - ifNil: [^ self]] - ifError: [:err :rcvr | ^ self]. text := ((#(20983874 20983876 20983878 ) collect: [:e | e asCharacter]) as: String) asText. p := NewParagraph new. style := TextStyle default. p compose: text style: style from: 1 in: (0 @ 0 corner: 100 @ 100). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" height := style defaultFont lineGrid. width := p caretWidth + (text inject: 0 into: [:tally :next | tally + (style defaultFont widthOf: next)]). p adjustRightX. self assert: p extent = (width @ height). "Display getCanvas paragraph: p bounds: (10 @ 10 extent: 100 @ 100) color: Color black"! Item was changed: ----- Method: FontTest>>testParagraph (in category 'tests') ----- testParagraph "self debug: #testParagraph" | text p style height width | text := 'test' asText. p := NewParagraph new. style := TextStyle default. p compose: text style: style from: 1 in: (0 @ 0 corner: 1000000 @ 1000000). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" height := style defaultFont lineGrid. width := (text inject: 0 into: [:tally :next | tally + + (style defaultFont widthOf: next)]). - + (style defaultFont widthOf: next)]) + p caretWidth. "because it is added by the paragraph formatting" p adjustRightX. self assert: p extent = (width @ height)! Item was changed: ----- Method: FontTest>>testParagraphFallback (in category 'tests') ----- testParagraphFallback "self debug: #testParagraphFallback" | text p style height width e expect | e := (Character value: 257) asString. text := ('test' , e , e , e , e , 'test') asText. expect := 'test????test'. p := NewParagraph new. style := TextStyle default. p compose: text style: style from: 1 in: (0 @ 0 corner: 1000000 @ 1000000). "See CompositionScanner>>setActualFont: & CompositionScanner>>composeFrom:inRectangle:firstLine:leftSide:rightSide:" height := style defaultFont lineGrid. width := (expect inject: 0 into: [:tally :next | tally + + (style defaultFont widthOf: next)]). - + (style defaultFont widthOf: next)]) + p caretWidth. p adjustRightX. self assert: p extent = (width @ height). "Display getCanvas paragraph: p bounds: (10 @ 10 extent: 100 @ 100) color: Color black"! Item was changed: ----- Method: FontTest>>testResetAfterEmphasized (in category 'tests') ----- testResetAfterEmphasized "self debug: #testResetAfterEmphasized" + | normal code derivative | - | normal derivative | normal := TextStyle defaultFont. + code := TextEmphasis bold emphasisCode bitOr: TextEmphasis italic emphasisCode. + derivative := normal emphasized: code. + self assert: (normal derivativeFonts at: code) == derivative. + normal isTTCFont ifFalse: [ + normal reset. + self assert: (normal derivativeFonts select:[:any| any isSynthetic]) isEmpty]. - derivative := normal emphasized: 3. - self assert: (normal derivativeFonts at: 3) == derivative. - normal reset. - self assert: (normal derivativeFonts select:[:any| any isSynthetic]) isEmpty !

1 0

The Trunk: MorphicTests-mt.85.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.85.mcz ==================== Summary ==================== Name: MorphicTests-mt.85 Author: mt Time: 5 April 2022, 4:53:39.334186 pm UUID: f3f26703-4a52-4861-b543-bb410ed24a66 Ancestors: MorphicTests-mt.84 Fixes text-anchor layout tests. =============== Diff against MorphicTests-mt.84 =============== Item was changed: TestCase subclass: #TextAnchorTest + instanceVariableNames: 'anchoredMorph anchorAttribute font text textMorph' - instanceVariableNames: 'anchoredMorph anchorAttribute text textMorph' classVariableNames: '' poolDictionaries: '' category: 'MorphicTests-Text Support'! Item was changed: ----- Method: TextAnchorTest>>prepareTextMorph (in category 'utility') ----- prepareTextMorph textMorph := text asMorph. + textMorph font: font. self refreshTextMorph.! Item was changed: ----- Method: TextAnchorTest>>setUp (in category 'running') ----- setUp super setUp. anchoredMorph := TextAnchorTestMorph new. anchorAttribute := TextAnchor new anchoredMorph: anchoredMorph. text := Text streamContents: [:stream | stream nextPutAll: 'Here is a contrived example '; nextPutAll: (Text string: Character startOfHeader asString attributes: { anchorAttribute. TextColor color: Color transparent}); nextPutAll: ' whose morph is in the center.' ]. + font := TextStyle defaultFont. self prepareTextMorph.! Item was changed: ----- Method: TextAnchorTest>>testHavingADocumentAnchorShouldNotAffectTheLineHeight (in category 'tests') ----- testHavingADocumentAnchorShouldNotAffectTheLineHeight | firstLine | anchoredMorph := Morph new. + anchoredMorph height: font height * 2. - anchoredMorph height: 50. anchoredMorph textAnchorProperties positionInDocument: 20 @ 10; anchorLayout: #document. anchorAttribute anchoredMorph: anchoredMorph. self prepareTextMorph. firstLine := textMorph paragraph lines first. self + assert: firstLine lineHeight < anchoredMorph height - assert: (firstLine bottom - firstLine top) < 25 description: '#document layouted anchor should not affect line height'. ! Item was changed: ----- Method: TextAnchorTest>>testPaddingBottom (in category 'tests-padding') ----- testPaddingBottom self after: [ anchoredMorph height: 20. anchoredMorph textAnchorProperties verticalAlignment: #(bottom baseline). anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding bottom: 10)] paddingChangesTo: [:line | + self assert: line baseline equals: anchoredMorph bottom + 10 ]! - self assert: anchoredMorph bottom + 10 = line baseline ]! Item was changed: ----- Method: TextAnchorTest>>testPaddingBottomAndBottom (in category 'tests-padding') ----- testPaddingBottomAndBottom self after: [ anchoredMorph height: 20. anchoredMorph textAnchorProperties verticalAlignment: #(bottom bottom). anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding bottom: 10)] paddingChangesTo: [:line | + self assert: line baseline + font descent "= visual line bottom" equals: anchoredMorph bottom + 10 ]! - self assert: anchoredMorph bottom + 10 = line bottom ]! Item was changed: ----- Method: TextAnchorTest>>testPaddingBottomAndBottomWithConvenienceAlignment (in category 'tests-padding') ----- testPaddingBottomAndBottomWithConvenienceAlignment self after: [ anchoredMorph height: 20. anchoredMorph textAnchorProperties verticalAlignment: #bottom. anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding bottom: 10)] paddingChangesTo: [:line | + self assert: line baseline + font descent "= visual line bottom" equals: anchoredMorph bottom + 10 ]! - self assert: anchoredMorph bottom + 10 = line bottom ]! Item was changed: ----- Method: TextAnchorTest>>testPaddingTop (in category 'tests-padding') ----- testPaddingTop self after: [ anchoredMorph height: 20. anchoredMorph textAnchorProperties verticalAlignment: #(top baseline). anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding top: 10)] + paddingChangesTo: [:line | + self assert: line baseline equals: anchoredMorph top - 10 ]! - paddingChangesTo: [:line | | anchoredMorphTop | - anchoredMorphTop := anchoredMorph top - textMorph top. - self assert: anchoredMorphTop - 10 = line baseline ]! Item was changed: ----- Method: TextAnchorTest>>testPaddingTopAndBottom (in category 'tests-padding') ----- testPaddingTopAndBottom self after: [ anchoredMorph height: 30. anchoredMorph textAnchorProperties verticalAlignment: #(#bottom #bottom). anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding bottom: 10). anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding top: 10).] paddingChangesTo: [:line | + self assert: line baseline + font descent "= visual line bottom" equals: anchoredMorph bottom + 10. + self + deny: line baseline - font ascent "= visual line top" + equals: anchoredMorph top - 10 + description: 'We only apply padding to the morph position'.]! - self assert: anchoredMorph bottom + 10 = line bottom. - self deny: anchoredMorph top - 10= line top description: 'We only apply padding to the morph position'.]! Item was changed: ----- Method: TextAnchorTest>>testPaddingTopAndTop (in category 'tests-padding') ----- testPaddingTopAndTop self after: [ anchoredMorph height: 20. + anchoredMorph textAnchorProperties verticalAlignment: #(top top). - anchoredMorph textAnchorProperties verticalAlignment: #(top baseline). anchoredMorph textAnchorProperties padding: (anchoredMorph textAnchorProperties padding top: 10)] + paddingChangesTo: [:line | + self assert: line baseline - font ascent "= visual line top" equals: anchoredMorph top - 10 ]! - paddingChangesTo: [:line | | anchoredMorphTop | - anchoredMorphTop := anchoredMorph top - textMorph top. - self assert: anchoredMorphTop - 10 = line baseline ]!

1 0

The Trunk: SUnitGUI-mt.87.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.87.mcz ==================== Summary ==================== Name: SUnitGUI-mt.87 Author: mt Time: 5 April 2022, 3:37:02.213949 pm UUID: 76f6e024-4ac9-ef4e-9e3e-704fd2a2e440 Ancestors: SUnitGUI-ct.86 We usually need 3 lines of text in the status field. =============== Diff against SUnitGUI-ct.86 =============== Item was changed: ----- Method: TestRunner>>statusHeight (in category 'building') ----- statusHeight + ^ ToolBuilder default inputFieldHeightFor: 3! - ^Preferences standardCodeFont height * 2 + 12!

1 0

The Trunk: Morphic-mt.1957.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1957.mcz ==================== Summary ==================== Name: Morphic-mt.1957 Author: mt Time: 5 April 2022, 3:30:34.499949 pm UUID: cc3da8b2-65c1-4045-8227-46b2545f5c63 Ancestors: Morphic-ul.1956 Enable image-side composition buffer for Morphic on all macOS platforms. See commentary in #startUpActions. =============== Diff against Morphic-ul.1956 =============== Item was changed: ----- Method: MorphicProject>>startUpActions (in category 'enter') ----- startUpActions super startUpActions. self world install. + self world firstHand position: 100@100. + + "April 2022: None of the currently supported graphics backends on macOS (i.e., -metal -core-graphics, -opengl) in the OSVM supports an extra display buffer at the VM side, which may result in flickering during compositing or an expensive (over-)committing at vsync boundaries. Thus, use an image-side buffer for compositing to mitigate (or avoid) these issues." + WorldState disableDeferredUpdates: Smalltalk platformName = 'Mac OS'.! - self world firstHand position: 100@100.! Item was changed: ----- Method: PasteUpMorph>>installFlaps (in category 'world state') ----- installFlaps "Get flaps installed within the bounds of the receiver" | localFlapTabs | Project current assureFlapIntegrity. self addGlobalFlaps. localFlapTabs := self localFlapTabs. localFlapTabs do: [:each | each visible: false]. + localFlapTabs keysAndValuesDo: [:i :each | + each adaptToWorld. + each visible: true. + self changed]. - Preferences eToyFriendly ifTrue: [ - ProgressInitiationException display: 'Building Viewers...' translated - during: [:bar | - localFlapTabs keysAndValuesDo: [:i :each | - each adaptToWorld. - each visible: true. - each unhibernate. - self changed. - bar value: i / self localFlapTabs size]]. - ] ifFalse: [ - localFlapTabs keysAndValuesDo: [:i :each | - each adaptToWorld. - each visible: true. - self changed]]. self assureFlapTabsFitOnScreen. self bringTopmostsToFront! Item was changed: + (PackageInfo named: 'Morphic') postscript: 'Preferences maxBalloonHelpLineLength: 45. + + "See commentary in MorphicProject >> #startUpActions." + WorldState disableDeferredUpdates: Smalltalk platformName = ''Mac OS''.'! - (PackageInfo named: 'Morphic') postscript: 'Preferences maxBalloonHelpLineLength: 45.'!

1 0

The Trunk: System-mt.1334.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1334.mcz ==================== Summary ==================== Name: System-mt.1334 Author: mt Time: 5 April 2022, 3:28:26.895949 pm UUID: d03e8df4-a41b-0d46-9afc-94959770ade2 Ancestors: System-ct.1333 Minor clean up and more documentation around Project startUp and shutDown. =============== Diff against System-ct.1333 =============== Item was changed: ----- Method: Project class>>shutDown: (in category 'snapshots') ----- shutDown: quitting + "1) Give the current project a chance to clean-up if we are about to quit." + quitting ifTrue: [Project current shutDownActions]. + + "2) To save some space in the .image file, shrink the display bits. Not sure why we need to #invalidate, though..." + Project current invalidate; shrinkDisplay.! - Project current - invalidate; - shrinkDisplay. - - quitting ifTrue: [ - Project current world triggerEvent: #aboutToLeaveWorld].! Item was changed: ----- Method: Project class>>startUp: (in category 'snapshots') ----- startUp: startAfresh + "0) No blitting onto Display must be performed before this point!! Or the VM will crash." + + "1) We just shrunk the display form to save space in the .image file. We have to restore it now. Also, when we start afresh, we MUST communicate display form and depth to the VM as both are cannot be retrieved from the image header." Project current restoreDisplay. + "2) Give the current project a chance to initialize if we start afresh. After that, repaint everything to avoid flickering if the start-up actions changed something." + startAfresh ifTrue: [Project current startUpActions; restore].! - startAfresh ifTrue: [ - Project current startUpActions. - Project current world triggerEvent: #aboutToEnterWorld]. - - Project current restore.! Item was added: + ----- Method: Project>>shutDownActions (in category 'enter') ----- + shutDownActions + "The image is about to be snapshotted *and* quitting after that." + + self world triggerEvent: #aboutToLeaveWorld. + ! Item was changed: ----- Method: Project>>startUpActions (in category 'enter') ----- startUpActions "The image is being newly started, not just snapshotted." + self world triggerEvent: #aboutToEnterWorld. !

1 0

The Trunk: MultilingualTests-mt.42.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of MultilingualTests to project The Trunk: http://source.squeak.org/trunk/MultilingualTests-mt.42.mcz ==================== Summary ==================== Name: MultilingualTests-mt.42 Author: mt Time: 5 April 2022, 3:15:31.575397 pm UUID: 255b0130-5a2b-4cb6-8c3b-9799e047dcb0 Ancestors: MultilingualTests-ct.41 Ignore KOI8FTextConverter from the tests because it maps two different bytes to the same Unicode code points. We cannot go back. 16r9A -> 16rA0 16rA0 -> 16rA0 =============== Diff against MultilingualTests-ct.41 =============== Item was changed: ----- Method: MultiByteFileStreamTest>>testByteTextConverter (in category 'tests') ----- testByteTextConverter | byteCharacters converterClasses | byteCharacters := Character allByteCharacters. converterClasses := ByteTextConverter allSubclasses + copyWithoutAll: {ISO8859TextConverter . WinCPTextConverter . MacOSCPTextConverter . KOI8FTextConverter }. - copyWithoutAll: {ISO8859TextConverter . WinCPTextConverter . MacOSCPTextConverter}. converterClasses do: [ :converterClass | | converter stream encoded decoded encoded2 | converter := converterClass new. stream := byteCharacters readStream. "Find bytes that can be decoded by this converter." encoded := byteCharacters select: [ :e | (converter nextFromStream: stream) notNil ]. "Decode those bytes." stream := encoded readStream. decoded := encoded collect: [ :e | converter nextFromStream: stream ]. self assert: stream atEnd. "Re-encode the decoded bytes using #nextPutAll:toStream:, and check if they match the original bytes." encoded2 := String streamContents: [ :writeStream | converter nextPutAll: decoded toStream: writeStream ]. encoded with: encoded2 do: [ :original :reencoded | self assert: original charCode = reencoded charCode description: [ '{1} could not decode or re-encode {2} using #nextPutAll:toStream:. Instead, it yielded {3}.' format: { converterClass name. original charCode. reencoded charCode } ] ]. "Re-encode the decoded bytes using #nextPut:toStream:, and check if they match the original bytes." encoded2 := String streamContents: [ :writeStream | decoded do: [:e | converter nextPut: e toStream: writeStream ] ]. encoded with: encoded2 do: [ :original :reencoded | self assert: original charCode = reencoded charCode description: [ '{1} could not decode or re-encode {2} using #nextPut:toStream:. Instead, it yielded {3}.' format: { converterClass name. original charCode. reencoded charCode } ] ] ]!

1 0

The Trunk: Multilingual-mt.274.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.274.mcz ==================== Summary ==================== Name: Multilingual-mt.274 Author: mt Time: 5 April 2022, 3:09:01.613197 pm UUID: e384534c-f1fa-4754-8e4b-a1562f60b990 Ancestors: Multilingual-mt.273 Clean-up some MC-related move-method issues, step 2 of 2. =============== Diff against Multilingual-mt.273 =============== Item was removed: - ----- Method: M17nEnvironment class>>fileNameConverterClass (in category 'subclass responsibilities') ----- - fileNameConverterClass - - ^ UTF8TextConverter. - ! Item was removed: - ----- Method: M17nEnvironment class>>leadingChar (in category 'subclass responsibilities') ----- - leadingChar - - ^ Unicode leadingChar. - ! Item was removed: - ----- Method: NepaleseEnvironment class>>fileNameConverterClass (in category 'subclass responsibilities') ----- - fileNameConverterClass - - ^ UTF8TextConverter. - !

1 0

The Trunk: Multilingual-mt.273.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.273.mcz ==================== Summary ==================== Name: Multilingual-mt.273 Author: mt Time: 5 April 2022, 3:08:30.567971 pm UUID: c11e9352-82d9-4d10-b72f-6041b36cf093 Ancestors: Multilingual-ct.272 Initialize Latin2TextConverter to make tests pass. Clean-up some MC-related move-method issues, step 1 of 2. =============== Diff against Multilingual-ct.272 =============== Item was added: + ----- Method: M17nEnvironment class>>fileNameConverterClass (in category 'subclass responsibilities') ----- + fileNameConverterClass + + ^ UTF8TextConverter. + ! Item was added: + ----- Method: M17nEnvironment class>>leadingChar (in category 'subclass responsibilities') ----- + leadingChar + + ^ Unicode leadingChar. + ! Item was added: + ----- Method: NepaleseEnvironment class>>fileNameConverterClass (in category 'subclass responsibilities') ----- + fileNameConverterClass + + ^ UTF8TextConverter. + ! Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'Latin2TextConverter initializeTables.'! - (PackageInfo named: 'Multilingual') postscript: 'Smalltalk removeFromStartUpList: LanguageEnvironment. - LanguageEnvironment resetKnownEnvironments.'!

1 0

The Trunk: MorphicTests-mt.84.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.84.mcz ==================== Summary ==================== Name: MorphicTests-mt.84 Author: mt Time: 5 April 2022, 2:36:45.389025 pm UUID: 6a7e9954-f900-44f9-b876-f2d43a5ee8bc Ancestors: MorphicTests-lrnp.83 Fixes some layout tests. =============== Diff against MorphicTests-lrnp.83 =============== Item was changed: ----- Method: TableLayoutTest>>testPluggableTextMorph (in category 'tests') ----- testPluggableTextMorph + | ptm ptmExtent | + ptmExtent := 100 @ (TextStyle defaultFont height * 3). - | ptm | ptm := PluggableTextMorph new + extent: ptmExtent; - extent: 100@50; setText: 'Hello World!! Hello World!! Hello World!! Hello World!!'; wrapFlag: true. container := self newContainer addMorphBack: ptm. self ensureLayout: container. + self assert: ptmExtent equals: container extent. - self assert: 100@50 equals: container extent. self assert: ptm vIsScrollbarShowing. self deny: ptm hIsScrollbarShowing. "Make it a one-liner." ptm wrapFlag: false. self ensureLayout: container. self deny: ptm vIsScrollbarShowing. self assert: ptm hIsScrollbarShowing. "Make it a one-liner without the horizontal scrollbar." ptm hideScrollBarsIndefinitely. self ensureLayout: container. self deny: ptm vIsScrollbarShowing. self deny: ptm hIsScrollbarShowing. ! Item was changed: ----- Method: TableLayoutTest>>testTwoTextMorphsHorizontal (in category 'tests') ----- testTwoTextMorphsHorizontal | str1 str2 label2 label1 heightAt200 | str1 := 'abc def'. str2 := 'tzu ghj qwe'. container := self newContainer hResizing: #spaceFill; vResizing: #shrinkWrap; addMorphBack: (label1 := TextMorph new contents: str1; wrapFlag: true; hResizing: #spaceFill); addMorphBack: (label2 := TextMorph new contents: str2; wrapFlag: true; hResizing: #spaceFill). container width: 200. self ensureLayout: container. heightAt200 := container height. self assert: 100 equals: label1 width. self assert: 100 equals: label2 width. container width: 100. self ensureLayout: container. self assert: 50 equals: label1 width. self assert: 50 equals: label2 width. self assert: container height > heightAt200. container width: 10000. self ensureLayout: container. self assert: 5000 equals: label1 width. self assert: 5000 equals: label2 width. + self assert: self defaultFont lineGrid equals: container height! - self assert: self defaultFont height + 2 equals: container height! Item was changed: ----- Method: TableLayoutTest>>testTwoTextMorphsVertical (in category 'tests') ----- testTwoTextMorphsVertical + | str1 str2 label2 label1 font minWidth | - | str1 str2 label2 label1 font | str1 := 'abc def'. str2 := 'tzu ghj qwe'. container := self newContainer hResizing: #spaceFill; vResizing: #shrinkWrap; listDirection: #topToBottom; addMorphBack: (label1 := TextMorph new contents: str1; wrapFlag: true; hResizing: #spaceFill); addMorphBack: (label2 := TextMorph new contents: str2; wrapFlag: true; hResizing: #spaceFill). font := self defaultFont. + minWidth := label1 minWidth max: label2 minWidth. + #(1 2 4 8) do: [:factor | + container width: factor * minWidth. + self ensureLayout: container. + self assert: container width equals: label1 width. + self assert: container width equals: label2 width. + self assert: 0 equals: container height \\ font lineGrid].! - container width: 200. - self ensureLayout: container. - self assert: 200 @ (font height + 2) equals: label1 extent. - self assert: 200 @ (font height + 2) equals: label2 extent. - - container width: 50. - self ensureLayout: container. - self assert: 50 equals: label1 width. - self assert: 50 equals: label2 width. - " check that we land on a multiple of the line height " - self assert: 0 equals: container height \\ (font height + 2). - - container width: 20. - self ensureLayout: container. - self assert: 20 equals: label1 width. - self assert: 20 equals: label2 width. - " check that we land on a multiple of the line height " - self assert: 0 equals: container height \\ (font height + 2)!

1 0

The Trunk: MorphicTests-lrnp.83.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-lrnp.83.mcz ==================== Summary ==================== Name: MorphicTests-lrnp.83 Author: lrnp Time: 29 March 2022, 10:37:07.821731 pm UUID: 4be0f980-b341-4fd3-80ac-9d187d1caf7d Ancestors: MorphicTests-ct.82 handle preferences that alter test results Turn off Always Show V Scrollbar. This causes many tests to fail when turned on. Use the preference-friendly #lineGridForMorphs method instead of #height. There are two font heights based on the Use Compact Lists preference; this method picks the correct one. =============== Diff against MorphicTests-ct.82 =============== Item was changed: ----- Method: TableLayoutTest>>setUp (in category 'running') ----- setUp super setUp. reset := { ([:enable | [self useRetractableScrollBars: enable]] + value: self useRetractableScrollBars). + ([:previous | [Preferences setFlag: #alwaysShowVScrollbar toValue: previous]] + value: (Preferences valueOfFlag: #alwaysShowVScrollbar)) - value: self useRetractableScrollBars) }. + self useRetractableScrollBars: false. + Preferences setFlag: #alwaysShowVScrollbar toValue: false.! - self useRetractableScrollBars: false! Item was changed: ----- Method: TableLayoutTest>>testBrowser (in category 'tests - example layouts') ----- testBrowser " replicate the layout used by the system browser with a table layout " | buttons | buttons := #('browse' 'senders' 'implementors' 'versions' 'inheritance' 'hierarchy' 'vars' 'source') collect: [:label | self newMorph hResizing: #spaceFill; vResizing: #shrinkWrap; wrapCentering: #center; layoutPolicy: TableLayout new; layoutInset: 8; addMorph: (StringMorph new contents: label)]. container := self newContainer listDirection: #topToBottom; layoutInset: 8; cellGap: 8; addMorphBack: (self newContainer cellGap: 8; listDirection: #leftToRight; hResizing: #spaceFill; vResizing: #spaceFill; minimumHeight: 30; addMorphBack: (self newMorph hResizing: #spaceFill; vResizing: #spaceFill); addMorphBack: (self newMorph hResizing: #spaceFill; vResizing: #spaceFill); addMorphBack: (self newMorph hResizing: #spaceFill; vResizing: #spaceFill); addMorphBack: (self newMorph hResizing: #spaceFill; vResizing: #spaceFill)); addMorphBack: (self newContainer vResizing: #shrinkWrap; hResizing: #spaceFill; cellGap: 2; addAllMorphsBack: buttons); addMorphBack: (self newMorph minimumHeight: 100; hResizing: #spaceFill; vResizing: #spaceFill). container extent: 0 @ 0. "container openInHand." self ensureLayout: container. + self assert: 100 + 30 + self defaultFont lineGridForMorphs + (8 * 6) equals: container height! - self assert: 100 + 30 + self defaultFont height + (8 * 6) equals: container height!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages April 2022