The Inbox: MorphicTests-tobe.53.mcz

> On 19.09.2019, at 16:55, [hidden email] wrote:
>
> A new version of MorphicTests was added to project The Inbox:
> http://source.squeak.org/inbox/MorphicTests-tobe.53.mcz
>
> ==================== Summary ====================
>
> Name: MorphicTests-tobe.53
> Author: tobe
> Time: 19 September 2019, 4:55:02.076838 pm
> UUID: 66353635-22e9-4481-8de8-fd8f470e8aea
> Ancestors: MorphicTests-mt.52
>
> Some tests for the TableLayout, ScrollPane and Morph layouting. It includes examples for table layouts that may act as a reference for users.
>
> Please do check if you agree with the way the morph hierarchies are built-up, if we want this code to act as a form of reference as well.
>
> =============== Diff against MorphicTests-mt.52 ===============
>
> Item was added:
> + TestCase subclass: #MorphLayoutTest
> + instanceVariableNames: ''
> + classVariableNames: ''
> + poolDictionaries: ''
> + category: 'MorphicTests-Layouts'!
>
> Item was added:
> + ----- Method: MorphLayoutTest>>ensureLayout: (in category 'helper') -----
> + ensureLayout: aMorph
> +
> + ^ aMorph
> + fullBounds;
> + yourself!
>
> Item was added:
> + ----- Method: MorphLayoutTest>>testAdhereToEdge (in category 'tests') -----
> + testAdhereToEdge
> +
> + | child container |
> + container := Morph new
> + extent: 300 @ 200;
> + addMorphBack: (child := Morph new extent: 100 @ 100).
> +
> + child adhereToEdge: #right.
> + self ensureLayout: container.
> + self assert: 200 @ 0 equals: child position.
> +
> + child adhereToEdge: #bottom.
> + self ensureLayout: container.
> + self assert: 200 @ 100 equals: child position.
> +
> + child adhereToEdge: #topLeft.
> + self ensureLayout: container.
> + self assert: 0 @ 0 equals: child position!
>
> Item was added:
> + ----- Method: MorphLayoutTest>>testLayoutPropertyAssertions (in category 'tests') -----
> + testLayoutPropertyAssertions
> +
> + | morph |
> + morph := Morph new.
> +
> + self should: [morph vResizing: #shrriinkWraap] raise: Error.
> + self should: [morph hResizing: #spaceFlll] raise: Error.
> + self should: [morph cellSpacing: 0] raise: Error.
> + self should: [morph cellSpacing: #glob] raise: Error.
> + self should: [morph listSpacing: 2] raise: Error.
> + self should: [morph listSpacing: #eq] raise: Error!
>
> Item was added:
> + ----- Method: MorphLayoutTest>>testManualPositions (in category 'tests') -----
> + testManualPositions
> +
> + | container greenMorph redMorph |
> + container := Morph new
> + addMorphBack: (redMorph := Morph new color: Color red; extent: 30 @ 20; position: 20 @ 20);
> + addMorphBack: (greenMorph := Morph new color: Color green;  extent: 200 @ 300; position: 80 @ 80).
> +
> + self ensureLayout: container.
> + self assert: Morph new extent equals: container extent.
> +
> + container extent: 300 @ 300.
> + self assert: 300 @ 300 equals: container extent!
>
> Item was added:
> + ----- Method: MorphLayoutTest>>testScrollPaneBarUpdate (in category 'tests') -----
> + testScrollPaneBarUpdate
> +
> + | child container |
> + container := ScrollPane new color: Color green; extent: 300 @ 300; showVScrollBarOnlyWhenNeeded; showHScrollBarOnlyWhenNeeded.
> + container scroller addMorphBack: (child := Morph new color: Color red; extent: 100 @ 100).
> +
> + self ensureLayout: container.
> + self assert: container hScrollBar owner isNil.
> + self assert: container vScrollBar owner isNil.
> +
> + child extent: 400 @ 100.
> + self ensureLayout: container.
> + self assert: container hScrollBar owner notNil.
> + self assert: container vScrollBar owner isNil.
> +
> + child extent: 400 @ 400.
> + self ensureLayout: container.
> + self assert: container hScrollBar owner notNil.
> + self assert: container hScrollBar owner notNil!
>
> Item was added:
> + TestCase subclass: #TableLayoutTest
> + instanceVariableNames: ''
> + classVariableNames: ''
> + poolDictionaries: ''
> + category: 'MorphicTests-Layouts'!
>
> Item was added:
> + ----- Method: TableLayoutTest>>defaultFont (in category 'helper') -----
> + defaultFont
> +
> + ^ TextStyle defaultFont!
>
> Item was added:
> + ----- Method: TableLayoutTest>>defaultMorphSize (in category 'helper') -----
> + defaultMorphSize
> +
> + ^ Morph new extent!
>
> Item was added:
> + ----- Method: TableLayoutTest>>ensureLayout: (in category 'helper') -----
> + ensureLayout: aMorph
> +
> + ^ aMorph
> + fullBounds;
> + yourself!
>
> Item was added:
> + ----- Method: TableLayoutTest>>expectedFailures (in category 'failures') -----
> + expectedFailures
> +
> + ^ #(testDialog)!
>
> Item was added:
> + ----- Method: TableLayoutTest>>newContainer (in category 'helper') -----
> + newContainer
> +
> + ^ Morph new
> + layoutPolicy: TableLayout new;
> + vResizing: #shrinkWrap;
> + hResizing: #shrinkWrap;
> + listDirection: #leftToRight;
> + color: self randomColor!
>
> Item was added:
> + ----- Method: TableLayoutTest>>newMorph (in category 'helper') -----
> + newMorph
> +
> + ^ Morph new
> + layoutPolicy: TableLayout new;
> + color: self randomColor!
>
> Item was added:
> + ----- Method: TableLayoutTest>>randomColor (in category 'helper') -----
> + randomColor
> +
> + ^ Color h: 360 atRandom s: 1 v: 1!
>
> Item was added:
> + ----- Method: TableLayoutTest>>repeat:times: (in category 'helper') -----
> + repeat: aNumber times: aString
> +
> + ^ String streamContents: [:stream |
> + aNumber timesRepeat: [stream nextPutAll: aString]]!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testBrowser (in category 'tests - example layouts') -----
> + testBrowser
> + " replicate the layout used by the system browser with a table layout "
> +
> + | container 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 height + (8 * 6) equals: container height!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testCellGap (in category 'tests') -----
> + testCellGap
> +
> + | container first gap second |
> + gap := 13.
> + container := self newContainer
> + cellGap: gap;
> + addMorphBack: (first := self newMorph);
> + addMorphBack: (second := self newMorph).
> +
> + container listDirection: #leftToRight.
> + self ensureLayout: container.
> + self assert: (self defaultMorphSize x * 2 + gap) @ self defaultMorphSize y equals: container extent.
> + self assert: (0 @ 0 extent: first extent) equals: first bounds.
> + self assert: (first width + gap @ 0 extent: second extent) equals: second bounds.
> +
> + container listDirection: #topToBottom.
> + self ensureLayout: container.
> + self assert: self defaultMorphSize x @ (self defaultMorphSize y * 2 + gap) equals: container extent.
> + self assert: (0 @ 0 extent: first extent) equals: first bounds.
> + self assert: (0 @ (first height + gap) extent: second extent) equals: second bounds.
> +
> + container listDirection: #rightToLeft.
> + self ensureLayout: container.
> + " changing listDirection here moves our container in the world, reset for easier assertions "
> + container position: 0 @ 0.
> +
> + self assert: (self defaultMorphSize x * 2 + gap) @ self defaultMorphSize y equals: container extent.
> + self assert: (0 @ 0 extent: second extent) equals: second bounds.
> + self assert: (second width + gap @ 0 extent: first extent) equals: first bounds.
> +
> + container listDirection: #bottomToTop.
> + self ensureLayout: container.
> + container position: 0 @ 0.
> + self assert: self defaultMorphSize x @ (self defaultMorphSize y * 2 + gap) equals: container extent.
> + self assert: (0 @ 0 extent: second extent) equals: second bounds.
> + self assert: (0 @ (second height + gap) extent: first extent) equals: first bounds!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testCellInset (in category 'tests') -----
> + testCellInset
> +
> + | container first second inset |
> + container := self newContainer
> + addMorphBack: (first := self newMorph);
> + addMorphBack: (second := self newMorph).
> +
> + inset := 13.
> + self ensureLayout: (container cellInset: inset).
> + self assert: (self defaultMorphSize x  * 2 + (inset * 4)) @ (self defaultMorphSize y + (inset * 2)) equals: container extent.
> +
> + inset := Rectangle left: 13 right: 7 top: 3 bottom: 17.
> + self ensureLayout: (container cellInset: inset).
> + self assert: (self defaultMorphSize x * 2 + (inset left + inset right * 2)) @ (self defaultMorphSize y + (inset top + inset right * 2)) equals: container extent.
> +
> + inset := 7 @ 13.
> + self ensureLayout: (container cellInset: inset).
> + self assert: (self defaultMorphSize x * 2) + (inset x * 2 * 2) @ (self defaultMorphSize y + (inset y * 2)) equals: container extent!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testDialog (in category 'tests - example layouts') -----
> + testDialog
> + " construct a typical yes/no confirm dialog.
> +
> + the test itself is currently expected to fail, as we do not support minimum extent that is derived from layout for rigid containers "
> +
> + | container contentLabel font spacing |
> + spacing := 8.
> + container := self newContainer
> + listDirection: #topToBottom;
> + hResizing: #rigid;
> + cellGap: spacing;
> + layoutInset: (Rectangle left: 0 right: 0 top: 0 bottom: spacing);
> + addMorphBack: (self newContainer
> + cellGap: spacing;
> + hResizing: #spaceFill;
> + layoutInset: spacing;
> + addMorphBack: (self newMorph extent: 16 asPoint);
> + addMorphBack: (TextMorph new contents: 'Please Confirm'; hResizing: #spaceFill; centered);
> + addMorphBack: (self newMorph extent: 16 asPoint));
> + addMorphBack: (contentLabel := TextMorph new margins: spacing @ 0; vResizing: #shrinkWrap; hResizing: #spaceFill);
> + addMorphBack: (self newContainer
> + cellGap: spacing;
> + addMorphBack: (self newMorph extent: 50 @ 26);
> + addMorphBack: (self newMorph extent: 50 @ 26)).
> + "container openInHand."
> +
> + font := self defaultFont.
> + contentLabel contents: (self repeat: 80 times: 'a ').
> +
> + container width: (font widthOfString: contentLabel contents) + 2 + (spacing * 2).
> + self ensureLayout: container.
> + self assert: (font widthOfString: contentLabel contents) + 2 + (spacing * 2) equals: container width.
> +
> + container width: (font widthOfString: contentLabel contents) // 2.
> + self ensureLayout: container.
> + self assert: ((font widthOfString: contentLabel contents) // 2) equals: container width.
> +
> + " ensure we can't resize below our children's width "
> + container width: 0.
> + self ensureLayout: container.
> + self assert: container firstSubmorph width equals: container width!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testListCentering (in category 'tests') -----
> + testListCentering
> +
> + | container firstChild secondChild thirdChild |
> + container := self newContainer
> + hResizing: #rigid;
> + vResizing: #rigid;
> + listDirection: #topToBottom;
> + wrapCentering: #topLeft;
> + extent: 100 @ 200;
> + addMorphBack: (firstChild := self newMorph extent: 50 @ 50);
> + addMorphBack: (secondChild := self newMorph extent: 80 @ 50);
> + addMorphBack: (thirdChild := self newMorph extent: 50 @ 50).
> +
> + container listCentering: #topLeft.
> + self ensureLayout: container.
> + " 15 is (80 - 50) / 2, because of the wrapCentering we fill to the large child and then center "
> + self assert: 15 @ 0 equals: firstChild position.
> + self assert: 0 @ 50 equals: secondChild position.
> + self assert: 15 @ 100 equals: thirdChild position.
> +
> + container listCentering: #bottomRight.
> + self ensureLayout: container.
> + self assert: 15 @ 50 equals: firstChild position.
> + self assert: 0 @ 100 equals: secondChild position.
> + self assert: 15 @ 150 equals: thirdChild position.
> +
> + container listCentering: #justified.
> + self ensureLayout: container.
> + self assert: 15 @ 0 equals: firstChild position.
> + " center of the parent morph: "
> + self assert: 0 @ ((200 / 2) - (50 / 2)) equals: secondChild position.
> + self assert: 15 @ 150 equals: thirdChild position.
> +
> + container listCentering: #center.
> + self ensureLayout: container.
> + self assert: 15 @ 25 equals: firstChild position.
> + self assert: 0 @ ((200 / 2) - (50 / 2)) equals: secondChild position.
> + self assert: 15 @ 125 equals: thirdChild position!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testScrollPaneShrinkWrap (in category 'tests') -----
> + testScrollPaneShrinkWrap
> +
> + | container scroll scrollContent |
> + container := self newContainer
> + vResizing: #rigid;
> + addMorphBack: (self newMorph extent: 50 @ 50);
> + addMorphBack: (scroll := ScrollPane new
> + hResizing: #shrinkWrap;
> + vResizing: #spaceFill;
> + showVScrollBarOnlyWhenNeeded;
> + hideHScrollBarIndefinitely).
> +
> + " shrinkWrap the horizontal axis but scroll vertically "
> + scroll scroller
> + layoutPolicy: TableLayout new;
> + addMorphBack: (scrollContent := self newMorph extent: 200 @ 500).
> +
> + container extent: 250 @ 300.
> + self ensureLayout: container.
> + self assert: 211 @ 300 equals: scroll extent.
> +
> + scrollContent extent: 300 @ 500.
> + self ensureLayout: container.
> + self assert: 311 @ 300 equals: scroll extent!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testShrinkWrapAndSpaceFill (in category 'tests') -----
> + testShrinkWrapAndSpaceFill
> +
> + | container shrinkWrapped spaceFilled |
> + container := self newContainer
> + addMorphBack: (spaceFilled := self newMorph hResizing: #spaceFill; vResizing: #spaceFill);
> + addMorphBack: (shrinkWrapped := self newMorph hResizing: #shrinkWrap; vResizing: #shrinkWrap).
> +
> + " minimal size "
> + self ensureLayout: container.
> + self assert: 1 equals: spaceFilled width.
> + self assert: self defaultMorphSize equals: shrinkWrapped extent.
> +
> + " scale up horizontally "
> + self ensureLayout: (container extent: self defaultMorphSize x * 2 @ self defaultMorphSize y).
> + self assert: self defaultMorphSize equals: spaceFilled extent.
> + self assert: self defaultMorphSize equals: shrinkWrapped extent.
> +
> + " scale up in horizontally and vertically "
> + self ensureLayout: (container extent: self defaultMorphSize * 2).
> + self assert: self defaultMorphSize x @ (self defaultMorphSize y * 2) equals: spaceFilled extent.
> + self assert: self defaultMorphSize equals: shrinkWrapped extent!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testShrinkWrapScrollPaneAlwaysShowBars (in category 'tests') -----
> + testShrinkWrapScrollPaneAlwaysShowBars
> +
> + | container scroll scrollContent |
> + container := self newContainer
> + vResizing: #shrinkWrap;
> + hResizing: #shrinkWrap;
> + addMorphBack: (scroll := ScrollPane new
> + hResizing: #shrinkWrap;
> + vResizing: #shrinkWrap;
> + alwaysShowHScrollBar;
> + alwaysShowVScrollBar).
> +
> + scroll scroller
> + layoutPolicy: TableLayout new;
> + addMorphBack: (scrollContent := self newMorph extent: 300 @ 300).
> +
> + self ensureLayout: container.
> + self assert: (300 @ 300) + scroll scrollBarThickness + scroll borderWidth equals: container extent!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testSidebarAndScrollingView (in category 'tests - example layouts') -----
> + testSidebarAndScrollingView
> + " construct a container that has a fixed size sidebar on the left and a scrolling window that adapts flexibly to the container's size "
> +
> + | container scrolling sidebar content title |
> + container := self newContainer
> + addMorphBack: (sidebar := self newMorph width: 200; hResizing: #rigid; vResizing: #spaceFill);
> + addMorphBack: (scrolling := ScrollPane new hResizing: #spaceFill; vResizing: #spaceFill).
> +
> + scrolling scroller
> + layoutPolicy: TableLayout new;
> + addMorphBack: (self newContainer
> + hResizing: #spaceFill;
> + vResizing: #spaceFill;
> + listDirection: #topToBottom;
> + addMorphBack: (title := TextMorph new hResizing: #spaceFill; contents: 'Here comes a title');
> + addMorphBack: (content := self newMorph extent: 400 @ 400; hResizing: #spaceFill)).
> + "container openInHand."
> +
> + container extent: 500 @ 500.
> + self ensureLayout: container.
> + self assert: 200 @ 500 equals: sidebar extent.
> + self assert: 300 @ 500 equals: scrolling extent.
> + self assert: 300 - (scrolling borderWidth  * 2) @ 400 equals: content extent.
> +
> + container extent: 300 @ 300.
> + self ensureLayout: container.
> + self assert: 200 @ 300 equals: sidebar extent.
> + self assert: 100 @ 300 equals: scrolling extent.
> + self assert: 100 - scrolling borderWidth - scrolling scrollBarThickness @ 400 equals: content extent!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testTwoTextMorphsHorizontal (in category 'tests') -----
> + testTwoTextMorphsHorizontal
> +
> + | container 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 height + 2 equals: container height!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testTwoTextMorphsVertical (in category 'tests') -----
> + testTwoTextMorphsVertical
> +
> + | container 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.
> +
> + 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)!
>
> Item was added:
> + ----- Method: TableLayoutTest>>testWrappingLayout (in category 'tests') -----
> + testWrappingLayout
> +
> + | container |
> + container := self newContainer
> + hResizing: #rigid;
> + listDirection: #leftToRight;
> + wrapDirection: #none;
> + addMorphBack: (self newMorph extent: 50 @ 50);
> + addMorphBack: (self newMorph extent: 50 @ 50);
> + addMorphBack: (self newMorph extent: 50 @ 50).
> +
> + container width: 50.
> + self ensureLayout: container.
> + self assert: 50 @ 50 equals: container extent.
> + self assert: #(0 50 100) equals: (container submorphs collect: #left).
> +
> + container wrapDirection: #leftToRight.
> + self ensureLayout: container.
> + self assert: 50 @ 150 equals: container extent.
> + self assert: #(0 0 0) equals: (container submorphs collect: #left).
> +
> + container width: 125.
> + self ensureLayout: container.
> + self assert: 125 @ 100 equals: container extent.
> + self assert: #(0 50 0) equals: (container submorphs collect: #left)!
>
>