diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st index b8c3389c..8dedb927 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st @@ -11,7 +11,7 @@ editFieldFor: model text: getTextSelector onChange: setTextSelector onAccept: ac borderWidth: 0; editTextSelector: setTextSelector; vResizing: #shrinkWrap; - hResizing: #rigid; + hResizing: #shrinkWrap; wrapFlag: true; wantsFrameAdornments: false; cellPositioning: #topLeft; diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st index 88534ca0..55313e41 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/initialize.st @@ -11,7 +11,7 @@ initialize listDirection: #leftToRight; vResizing: #shrinkWrap; cellInset: 1; - layoutInset: 1. + layoutInset: 5@1. BPStyler withSidebarAnnotations: [ diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st deleted file mode 100644 index 9fe649fe..00000000 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -rightSideOffset - - ^ 40 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/step.st deleted file mode 100644 index 23069ed9..00000000 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/step.st +++ /dev/null @@ -1,5 +0,0 @@ -as yet unclassified -step - - BPStyler withoutSidebarAnnotations: [ - self width: self owner width - self rightSideOffset] \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json index 2e250890..8897fab2 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json @@ -17,7 +17,7 @@ "codeContentChanged" : "pre 1/21/2021 16:45", "containingBrowser" : "pre 1/6/2021 19:45", "createErrorIndicatorFor:" : "pre 2/22/2021 12:15", - "editFieldFor:text:onChange:onAccept:" : "pre 6/7/2021 16:27", + "editFieldFor:text:onChange:onAccept:" : "joabe 8/9/2023 16:11", "editFieldInitialContent:onChange:onAccept:" : "pre 7/20/2022 17:19", "editFieldStyledInitialContent:onChange:onAccept:" : "pre 7/20/2022 17:17", "emptyTraces" : "pre 5/3/2021 16:56", @@ -31,7 +31,7 @@ "iconSize" : "pre 7/24/2019 13:18", "id" : "pre 7/2/2019 16:38", "id:" : "pre 7/2/2019 16:38", - "initialize" : "joabe 5/31/2023 14:28", + "initialize" : "joabe 8/9/2023 16:59", "isAssertion" : "pre 7/3/2019 11:11", "isBPAnnotationMorph" : "pre 7/3/2019 11:10", "isExample" : "pre 7/23/2019 12:47", @@ -51,11 +51,9 @@ "openInBrowser" : "jb 2/22/2022 20:45", "refreshTextComposition" : "pre 1/11/2021 11:31", "removeButtonClicked" : "jb 12/7/2020 18:57", - "rightSideOffset" : "ek 7/14/2023 11:38", "scrollBarSize" : "pre 7/23/2019 11:18", "smallFontHeight" : "pre 10/6/2020 16:54", "startTag" : "pre 7/25/2019 15:42", - "step" : "ek 7/14/2023 11:38", "stopTag" : "pre 7/25/2019 15:42", "textEmphasis" : "pre 11/14/2019 14:29", "updateLabelGraphicOf:labeled:" : "joabe 7/1/2023 20:16", diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st index 9eb5c619..5702f2b5 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st @@ -14,4 +14,6 @@ initialize self cellPositioning: #leftCenter; cellInset: 0; - cellGap: ((0.7 * self fontWidth) rounded max: 2) \ No newline at end of file + cellGap: ((0.7 * self fontWidth) rounded max: 2); + layoutInset: 20@2; + hResizing: #spaceFill. \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st index dc4ec5a6..a7852263 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st @@ -2,7 +2,6 @@ stepping and presenter step | trace | - super step. trace := self example currentTrace. (trace notNil and: [trace exampleErrored]) ifTrue: [self ensureErrorIndicatorFor: trace] diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json index d2c57e74..6f4bcf40 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json @@ -28,7 +28,7 @@ "example:" : "jb 12/7/2020 18:58", "expand" : "pre 7/19/2022 15:29", "expandInExamplesMorph" : "pre 7/19/2022 15:41", - "initialize" : "ek 7/14/2023 14:07", + "initialize" : "joabe 8/9/2023 17:00", "isCollapsed" : "pre 1/12/2021 10:20", "isExample" : "pre 9/30/2020 10:34", "isExampleActive" : "pre 9/30/2020 10:34", @@ -40,7 +40,7 @@ "openExampleInProbeLog" : "joabe 5/9/2023 17:37", "openInProbeLogClicked" : "joabe 5/9/2023 17:34", "removeButtonClicked" : "jb 1/10/2022 19:46", - "step" : "ek 7/14/2023 13:48", + "step" : "joabe 8/9/2023 13:56", "textEmphasis" : "pre 9/30/2020 10:35", "timeoutButtonClicked" : "joabe 9/27/2022 22:35", "updateAssertResultIcon" : "jb 12/30/2021 22:33", diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st new file mode 100644 index 00000000..7f3a8e67 --- /dev/null +++ b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultCellInset.st @@ -0,0 +1,4 @@ +private - ui +defaultCellInset + + ^ 3@0 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st new file mode 100644 index 00000000..410f9eb9 --- /dev/null +++ b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/defaultLayoutInset.st @@ -0,0 +1,4 @@ +private - ui +defaultLayoutInset + + ^ 20@0 \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json index 005915a3..d8787587 100644 --- a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json @@ -5,5 +5,7 @@ "addArgumentScriptMorphs" : "joabe 7/4/2023 11:23", "addExampleSpecificMorphs" : "pre 1/8/2021 13:48", "addReceiverConstructorMorph" : "joabe 7/4/2023 11:24", + "defaultCellInset" : "joabe 8/9/2023 16:46", + "defaultLayoutInset" : "joabe 8/9/2023 16:46", "newSpecimenSelectionButtonOnClick:" : "jb 12/5/2021 01:50", "selectLiveSpecimen:then:" : "pre 1/10/2023 16:19" } } diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st index 7b723c20..5b2d8b00 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st @@ -3,7 +3,7 @@ step | newTraces tracesChanged | self methodReference ifNil: [^ false]. - super step. + self resetHeight. newTraces := self getTraces asIdentitySet. diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json index d686f0e4..0507835c 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json @@ -12,7 +12,7 @@ "removeLinesWithoutCurrentTrace:" : "jb 12/7/2020 19:00", "resetHeight" : "pre 1/11/2021 13:59", "rightSideOffset" : "ek 7/14/2023 11:49", - "step" : "ek 7/14/2023 11:37", + "step" : "joabe 8/9/2023 13:55", "stepTime" : "pre 8/20/2020 17:35", "update:" : "jb 12/7/2020 19:00", "updateFrom:" : "jb 12/7/2020 19:00" } }