diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st new file mode 100644 index 00000000..9fe649fe --- /dev/null +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st @@ -0,0 +1,4 @@ +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 new file mode 100644 index 00000000..23069ed9 --- /dev/null +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/step.st @@ -0,0 +1,5 @@ +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 ea0bf0b6..2e250890 100644 --- a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json @@ -51,9 +51,11 @@ "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/addExampleSpecificMorphs.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st index 2995c216..2d531d69 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleSpecificMorphs.st @@ -3,7 +3,7 @@ addExampleSpecificMorphs exampleSpecificMorphs := self newContainerMorph. exampleSpecificMorphs - hResizing: #shrinkWrap; + hResizing: #spaceFill; listDirection: #topToBottom; cellPositioning: #topLeft; cellGap: ((self fontHeight * 0.2) rounded max: 2). diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st index e47bd114..9eb5c619 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/initialize.st @@ -8,7 +8,7 @@ initialize BPStyler withSidebarAnnotations: [ self wrapDirection: #leftToRight; - hResizing: #shrinkWrap; + hResizing: #spaceFill; vResizing: #shrinkWrap]. self diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st index a7852263..dc4ec5a6 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/step.st @@ -2,6 +2,7 @@ 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 80c3155e..d2c57e74 100644 --- a/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json @@ -8,7 +8,7 @@ "addCollapseButtonMorph" : "pre 7/19/2022 15:28", "addDeleteButtonMorph" : "pre 2/22/2021 12:06", "addExampleNameMorph" : "pre 2/22/2021 12:06", - "addExampleSpecificMorphs" : "jb 12/5/2021 02:01", + "addExampleSpecificMorphs" : "ek 7/14/2023 14:21", "addLoaderIconHolder" : "jb 12/7/2020 18:58", "addMenuButtonMorph" : "lu 1/25/2022 00:15", "applyUserInterfaceTheme" : "joabe 7/4/2023 11:57", @@ -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" : "pre 5/3/2021 12:00", + "initialize" : "ek 7/14/2023 14:07", "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" : "joabe 9/28/2022 22:58", + "step" : "ek 7/14/2023 13:48", "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/BPTraceBasedMorph.class/instance/rightSideOffset.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/rightSideOffset.st new file mode 100644 index 00000000..8c4be727 --- /dev/null +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/rightSideOffset.st @@ -0,0 +1,4 @@ +as yet unclassified +rightSideOffset + + ^ super rightSideOffset + (self left - self owner left) \ No newline at end of file diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st index 5c2d58ab..7b723c20 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/step.st @@ -3,6 +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 eec4bbe2..d686f0e4 100644 --- a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json +++ b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json @@ -11,7 +11,8 @@ "newWidgetsMorph" : "pre 11/23/2020 13:43", "removeLinesWithoutCurrentTrace:" : "jb 12/7/2020 19:00", "resetHeight" : "pre 1/11/2021 13:59", - "step" : "pre 1/11/2021 13:59", + "rightSideOffset" : "ek 7/14/2023 11:49", + "step" : "ek 7/14/2023 11:37", "stepTime" : "pre 8/20/2020 17:35", "update:" : "jb 12/7/2020 19:00", "updateFrom:" : "jb 12/7/2020 19:00" } }