First experimental resizing

hpi-swa-lab · Jul 24, 2023 · fbc6f67 · fbc6f67
1 parent 3c3678a
commit fbc6f67
Show file tree

Hide file tree

Showing 10 changed files with 24 additions and 6 deletions.
diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/rightSideOffset.st
@@ -0,0 +1,4 @@
+as yet unclassified
+rightSideOffset
+
+	^ 40
diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/step.st 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]
diff --git 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
@@ -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
@@ -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
@@ -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
@@ -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
@@ -0,0 +1,4 @@
+as yet unclassified
+rightSideOffset
+
+	^ super rightSideOffset + (self left - self owner left)
diff --git 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
@@ -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" } }