Aligns the baseline of the values morph in the probe morph scroll pane with the rest of the probe morph labels, increases the layout inset of the edit fields

Author: codeZeilen

packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/editFieldFor.text.onChange.onAccept..st

@@ -13,8 +13,9 @@ editFieldFor: model text: getTextSelector onChange: setTextSelector onAccept: ac
 		vResizing: #shrinkWrap;
 		hResizing: #rigid;
 		wrapFlag: true;
-		wantsFrameAdornments: false;
+		wantsFrameAdornments: false; 
 		height: self fontHeight;
+		layoutInset: 2;
 		width: ((TextStyle defaultFont widthOfString: (model perform: getTextSelector)) + (self fontWidth) 
 			max: (20 * self fontWidth)).
 	^ pluggableTextMorph

packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json

@@ -9,7 +9,7 @@
 		"codeContentChanged" : "pre 11/11/2019 10:25",
 		"containingBrowser" : "pre 10/6/2020 11:02",
 		"createErrorIndicatorFor:" : "pre 8/17/2020 09:17",
-		"editFieldFor:text:onChange:onAccept:" : "pre 10/8/2020 10:49",
+		"editFieldFor:text:onChange:onAccept:" : "pre 10/8/2020 11:29",
 		"editFieldInitialContent:onChange:onAccept:" : "pre 11/11/2019 10:41",
 		"emptyTraces" : "pre 8/20/2020 11:42",
 		"ensureErrorIndicatorFor:" : "pre 8/17/2020 09:17",

packages/Babylonian-UI.package/BPProbeMorph.class/instance/newScrollPane.st

@@ -1,13 +1,39 @@
 private - ui
 newScrollPane
 
-	^ ScrollPane new
+	"This weird morph hierarchy pushes the scrollpane down far enough 
+	to balance out the height added by the scroll bar thereby putting the 
+	text in the scroll pan on the same baseline as the label text in the rest 
+	of the annotation morph"
+	| blocker scrollPane wrapper |
+	wrapper := Morph new
+		name: #scrollWrapper;
+		color: Color transparent;
+		borderWidth: 0;
+		changeTableLayout;
+		listDirection: #topToBottom;
+		hResizing: #shrinkWrap;
+		vResizing: #shrinkWrap;
+		yourself.
+	
+	blocker := Morph new
+		color: Color transparent;
+		borderWidth: 0;
+		height: self scrollBarSize;
+		yourself.
+		
+	scrollPane := ScrollPane new
+		name: #scrollPane;
 		width: 300;
 		color: Color transparent;
 		borderWidth: 0;
 		vScrollBarPolicy: #never;
 		showHScrollBarOnlyWhenNeeded;
 		scrollBarThickness: self scrollBarSize;
-		height: 20;
-		name: #scrollPane;
-		yourself.
+		height: 20;	
+		yourself.
+		
+	^ wrapper 
+		addMorphBack: blocker;
+		addMorphBack: scrollPane;
+		yourself

packages/Babylonian-UI.package/BPProbeMorph.class/instance/updateFrom..st

@@ -8,7 +8,7 @@ updateFrom: traces
 
 	self relevantTracesOf: traces do: [:t | | valuesMorph scrollPane |
 			lineMorph := self ensureLineMorphFor: t.
-			scrollPane := lineMorph submorphNamed: #scrollPane.
+			scrollPane := (lineMorph submorphNamed: #scrollWrapper) submorphNamed: #scrollPane.
 			errorIndicatorMorph := lineMorph submorphNamed: #errorIndicatorHolder.
 
 			t exampleErrored 
@@ -20,10 +20,11 @@ updateFrom: traces
 
 			scrollPane scroller removeAllMorphs.				
 
-			valuesMorph := (self valuesTextFor: t) asMorph.
-			valuesMorph lock.
-			valuesMorph hResizing: #shrinkWrap.
-			valuesMorph color: PluggableTextMorph basicNew userInterfaceTheme textColor.
+			valuesMorph := (self valuesTextFor: t) asMorph
+				lock;
+				hResizing: #shrinkWrap;
+				color: PluggableTextMorph basicNew userInterfaceTheme textColor;
+				yourself.
 
 			scrollPane scroller addMorph: valuesMorph.
 			scrollPane height: valuesMorph height + self scrollBarSize].

packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json

@@ -13,11 +13,11 @@
 		"newExpressionMorph" : "pre 10/8/2020 10:46",
 		"newHaltButtonFor:" : "pre 9/29/2020 15:55",
 		"newLineMorphFor:" : "pre 10/8/2020 10:46",
-		"newScrollPane" : "pre 10/8/2020 10:47",
+		"newScrollPane" : "pre 10/8/2020 11:21",
 		"noValuesText" : "pre 7/7/2020 16:38",
 		"relevantTracesOf:do:" : "pre 11/18/2019 12:47",
 		"setExpressionButtonClicked" : "pre 9/22/2020 10:05",
 		"updateExpressionMorphIfNecessary" : "pre 9/22/2020 10:04",
-		"updateFrom:" : "pre 10/6/2020 17:16",
+		"updateFrom:" : "pre 10/8/2020 11:20",
 		"valueTextFor:" : "pre 7/7/2020 16:43",
 		"valuesTextFor:" : "pre 9/28/2020 10:26" } }