Adds balloon texts for several example / annotation morphs

codeZeilen · codeZeilen · commit 4e9abcd983b5 · 2021-02-22T12:26:00.000+01:00
diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/createErrorIndicatorFor..st b/packages/Babylonian-UI.package/BPAnnotationMorph.class/instance/createErrorIndicatorFor..st
@@ -1,10 +1,11 @@
 private - ui
 createErrorIndicatorFor: aTrace
-
+	
 	| errorIndicator |
 	errorIndicator := IconicButton new.
 	errorIndicator 
 		labelGraphic: (ToolIcons exception scaledToSize: self iconSize);
+		balloonText: 'click to open a debugger for the exception';
 		color: Color transparent;
 		borderWidth: 0;
 		extent: errorIndicator extent * 0.9;
diff --git a/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAnnotationMorph.class/methodProperties.json
@@ -10,7 +10,7 @@
 		"annotation:" : "jb 12/7/2020 18:56",
 		"codeContentChanged" : "pre 1/21/2021 16:45",
 		"containingBrowser" : "pre 1/6/2021 19:45",
-		"createErrorIndicatorFor:" : "pre 8/17/2020 09:17",
+		"createErrorIndicatorFor:" : "pre 2/22/2021 12:15",
 		"editFieldFor:text:onChange:onAccept:" : "pre 1/7/2021 12:18",
 		"editFieldInitialContent:onChange:onAccept:" : "pre 11/11/2019 10:41",
 		"emptyTraces" : "jb 12/3/2020 23:22",
diff --git a/packages/Babylonian-UI.package/BPAssertionMorph.class/instance/annotationLabel.st b/packages/Babylonian-UI.package/BPAssertionMorph.class/instance/annotationLabel.st
@@ -0,0 +1,4 @@
+private - ui
+annotationLabel
+	
+	^ 'assertion'
diff --git a/packages/Babylonian-UI.package/BPAssertionMorph.class/instance/updateAssertionFieldsMorph.st b/packages/Babylonian-UI.package/BPAssertionMorph.class/instance/updateAssertionFieldsMorph.st
@@ -21,8 +21,11 @@ updateAssertionFieldsMorph
 			self codeContentChanged]
 		onAccept: [:str | 
 			self containingBrowser codeTextMorph accept].
+	assertionScriptMorph balloonText: 'Write code to check the probed value. The value is available through the `result` variable. The code should return a Boolean value.'.
 		
-	exampleSelectionMorph := self newExampleSelectionFieldMorph.
+	exampleSelectionMorph := self newExampleSelectionFieldMorph
+		balloonText: 'Click to select an example the assertion should be scoped to. The assertion will only be checked for the selected example.';
+		yourself.
 		
 	assertionFieldsMorph 
 		addMorphBack: assertionScriptMorph;
diff --git a/packages/Babylonian-UI.package/BPAssertionMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAssertionMorph.class/methodProperties.json
@@ -3,10 +3,11 @@
 		 },
 	"instance" : {
 		"annotation:" : "pre 11/23/2020 12:51",
+		"annotationLabel" : "pre 2/22/2021 12:19",
 		"checkAndConvertValuesMorphIfNecessary:" : "pre 12/16/2020 18:54",
 		"initialize" : "jb 12/7/2020 19:01",
 		"isAssertion" : "pre 11/18/2019 11:50",
 		"isProbe" : "pre 11/18/2019 12:31",
 		"relevantTracesOf:do:" : "pre 11/18/2019 12:54",
-		"updateAssertionFieldsMorph" : "pre 1/8/2021 17:18",
+		"updateAssertionFieldsMorph" : "pre 2/22/2021 12:24",
 		"updateFrom:" : "jb 12/7/2020 19:01" } }
diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addCollapseButtonMorph.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addCollapseButtonMorph.st
@@ -8,6 +8,7 @@ addCollapseButtonMorph
 		labelGraphic: (BPIcons moreHorizontalIcon scaledToSize: self iconSize * 0.7);
 		color: Color transparent;
 		borderWidth: 0;
+		balloonText: 'hide details of the example';
 		extent: collapseButton extent * 0.7.
 	collapseButton 
 		actionSelector: #collapseButtonClicked;
diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addDeleteButtonMorph.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addDeleteButtonMorph.st
@@ -5,5 +5,6 @@ addDeleteButtonMorph
 	removeButton := self newRemoveButton.
 	removeButton 
 		actionSelector: #removeButtonClicked;
-		target: self.
+		target: self;
+		balloonText: 'delete the example'.
 	self addMorphBack: removeButton.
diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleConfigurationButtonMorph.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleConfigurationButtonMorph.st
@@ -4,6 +4,7 @@ addExampleConfigurationButtonMorph
 	configurationButton := IconicButton new.
 	configurationButton 
 		labelGraphic: (BPIcons wrenchIcon scaledToSize: self iconSize * 0.7) asGrayScale;
+		balloonText: 'configure the examples pre- and postscript';
 		color: Color transparent;
 		borderWidth: 0;
 		extent: configurationButton extent * 0.7.
diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleNameMorph.st b/packages/Babylonian-UI.package/BPExampleMorph.class/instance/addExampleNameMorph.st
@@ -9,6 +9,7 @@ addExampleNameMorph
 			self codeContentChanged]
 		onAccept: [:str | "nop"].
 	nameTextMorph 
+		balloonText: 'enter a name for the example';
 		setTextColor: example color;
 		width: 15 * self fontWidth;
 		hideScrollBarsIndefinitely.
diff --git a/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPExampleMorph.class/methodProperties.json
@@ -4,10 +4,10 @@
 	"instance" : {
 		"activateExampleButtonClicked" : "pre 1/6/2021 19:23",
 		"addActivationButtonMorph" : "pre 9/30/2020 10:35",
-		"addCollapseButtonMorph" : "pre 1/21/2021 16:25",
-		"addDeleteButtonMorph" : "pre 1/6/2021 19:14",
-		"addExampleConfigurationButtonMorph" : "pre 1/21/2021 18:33",
-		"addExampleNameMorph" : "pre 1/21/2021 18:21",
+		"addCollapseButtonMorph" : "pre 2/22/2021 12:05",
+		"addDeleteButtonMorph" : "pre 2/22/2021 12:06",
+		"addExampleConfigurationButtonMorph" : "pre 2/22/2021 12:06",
+		"addExampleNameMorph" : "pre 2/22/2021 12:06",
 		"addExampleSpecificMorphs" : "pre 1/21/2021 18:05",
 		"addLoaderIconHolder" : "jb 12/7/2020 18:58",
 		"collapse" : "pre 1/21/2021 18:16",
diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/addArgumentScriptMorphs.st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/addArgumentScriptMorphs.st
@@ -19,7 +19,9 @@ addArgumentScriptMorphs
 			onAccept: [:str |
 				self containingBrowser saveMethodWithExamples.
 				false "Do not continue handling this morphs edit"].
-		editField width: 240.
+		editField 
+			balloonText: 'write code that instantiates the argument';
+			width: 240.
 		container addMorphBack: editField.
 		
 		"Live specimen selection"
diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/addReceiverConstructorMorph.st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/addReceiverConstructorMorph.st
@@ -16,7 +16,11 @@ addReceiverConstructorMorph
 				self codeContentChanged]
 			onAccept: [:str |
 				self containingBrowser codeTextMorph accept]).
-	editField width: 240.
+	editField 
+		balloonText: 'Write code that instantiates the receiver. 
+You can also provide a selector that will be called on the
+class-side of this class to create a receiver object.';
+		width: 240.
 	container addMorphBack: editField.
 			
 	"Live specimen selection"
diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/newSpecimenSelectionButtonOnClick..st b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/instance/newSpecimenSelectionButtonOnClick..st
@@ -8,4 +8,6 @@ newSpecimenSelectionButtonOnClick: aBlock
 		borderWidth: 0;
 		target: aBlock;
 		actionSelector: #value;
+		balloonText: 'Click to open the live specimen tool.
+It allows you to select a live object as an argument.';
 		yourself
diff --git a/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPMethodExampleMorph.class/methodProperties.json
@@ -2,8 +2,8 @@
 	"class" : {
 		 },
 	"instance" : {
-		"addArgumentScriptMorphs" : "pre 1/21/2021 18:29",
+		"addArgumentScriptMorphs" : "pre 2/22/2021 12:08",
 		"addExampleSpecificMorphs" : "pre 1/8/2021 13:48",
-		"addReceiverConstructorMorph" : "pre 1/21/2021 18:29",
-		"newSpecimenSelectionButtonOnClick:" : "pre 1/7/2021 13:27",
+		"addReceiverConstructorMorph" : "pre 2/22/2021 12:10",
+		"newSpecimenSelectionButtonOnClick:" : "pre 2/22/2021 12:09",
 		"selectLiveSpecimenThen:" : "jb 12/7/2020 18:58" } }
diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/annotationLabel.st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/annotationLabel.st
@@ -0,0 +1,4 @@
+private - ui
+annotationLabel
+	
+	^ 'probe'
diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/haltButtonClickedFor.and..st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/haltButtonClickedFor.and..st
@@ -1,4 +1,4 @@
 actions
-haltButtonClickedFor: aProbeId and: aBPExample 
+haltButtonClickedFor: aProbeId and: aBPExample
 	
 	aBPExample traceToHaltAt: aProbeId.
diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExploreButtonFor..st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExploreButtonFor..st
@@ -11,5 +11,6 @@ newExploreButtonFor: aTrace
 	exploreButton 
 		actionSelector: #exploreButtonClickedFor:;
 		arguments: {aTrace valuesForProbeId: self id};
-		target: self.	
+		target: self;
+		balloonText: 'click to see the traced values of this probe'.
 	^ exploreButton
diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExpressionMorph.st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newExpressionMorph.st
@@ -1,7 +1,7 @@
 private - ui
 newExpressionMorph
 	
-	| container expressionSource |
+	| container expressionSource expressionFieldMorph |
 	container := Morph new
 		color: Color transparent;
 		changeTableLayout;
@@ -15,12 +15,16 @@ newExpressionMorph
 		
 	expressionSource := self annotation hasExpression ifTrue: [self annotation expression asString] ifFalse: [''].
 	expressionSource := expressionSource copyFrom: 2 to: (expressionSource size - 1 max: 1). "Removes the square brackets"
-	container addMorph: (self 
+	expressionFieldMorph := (self 
 		editFieldInitialContent: expressionSource
 		onChange: [:str | 
 			self annotation expression: ('[{1}]' format: {str}).
 			self codeContentChanged]
 		onAccept: [:str | 
 			self containingBrowser codeTextMorph accept]).
+	expressionFieldMorph balloonText: 'Write code that transforms the value before recording.
+The probed value is available via the variable `result`.'.	
+		
+	container addMorph: expressionFieldMorph.
 	
 	^ container
diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newHaltButtonFor..st b/packages/Babylonian-UI.package/BPProbeMorph.class/instance/newHaltButtonFor..st
@@ -11,5 +11,6 @@ newHaltButtonFor: aTrace
 	exploreButton 
 		actionSelector: #haltButtonClickedFor:and:;
 		arguments: {self id . aTrace example};
-		target: self.	
+		target: self;
+		balloonText: 'click to open a debugger at the first invocation of this expression'.
 	^ exploreButton
diff --git a/packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPProbeMorph.class/methodProperties.json
@@ -2,15 +2,16 @@
 	"class" : {
 		 },
 	"instance" : {
+		"annotationLabel" : "pre 2/22/2021 12:19",
 		"ensureLineMorphFor:" : "jb 12/3/2020 23:29",
 		"exploreButtonClickedFor:" : "jb 12/7/2020 19:00",
-		"haltButtonClickedFor:and:" : "jb 12/7/2020 19:00",
+		"haltButtonClickedFor:and:" : "pre 2/22/2021 12:17",
 		"iconForValue:" : "pre 10/6/2020 09:21",
 		"isProbe" : "pre 7/3/2019 11:11",
 		"newAddExpressionMorph" : "jb 12/3/2020 22:49",
-		"newExploreButtonFor:" : "pre 8/21/2020 11:15",
-		"newExpressionMorph" : "pre 10/8/2020 10:46",
-		"newHaltButtonFor:" : "pre 9/29/2020 15:55",
+		"newExploreButtonFor:" : "pre 2/22/2021 12:12",
+		"newExpressionMorph" : "pre 2/22/2021 12:13",
+		"newHaltButtonFor:" : "pre 2/22/2021 12:14",
 		"newLineMorphFor:" : "pre 1/8/2021 16:50",
 		"newScrollPane" : "pre 1/6/2021 10:50",
 		"noValuesText" : "pre 7/7/2020 16:38",
diff --git a/packages/Babylonian-UI.package/BPReplacementMorph.class/instance/createMorphs.st b/packages/Babylonian-UI.package/BPReplacementMorph.class/instance/createMorphs.st
@@ -13,9 +13,14 @@ createMorphs
 			self codeContentChanged]
 		onAccept: [:str | 
 			self containingBrowser codeTextMorph accept].
+	replacementScriptMorph balloonText: 'write code that will be executed instead of the selected code'.
 		
-	exampleSelectionMorph := self newExampleSelectionFieldMorph.
-	removeButton := self newRemoveButton.
+	exampleSelectionMorph := self newExampleSelectionFieldMorph
+		balloonText: 'Click to select an example the replacement should be scoped to. The replacement expression will only be executed for the selected example.';
+		yourself.
+	removeButton := self newRemoveButton
+		balloonText: 'click to remove the replacement';
+		yourself.
 		
 	self 
 		addMorphBack: replacementScriptMorph;
diff --git a/packages/Babylonian-UI.package/BPReplacementMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPReplacementMorph.class/methodProperties.json
@@ -2,7 +2,7 @@
 	"class" : {
 		 },
 	"instance" : {
-		"createMorphs" : "pre 1/8/2021 17:17",
+		"createMorphs" : "pre 2/22/2021 12:24",
 		"initialize" : "jb 12/7/2020 18:59",
 		"isReplacement" : "pre 7/3/2019 11:11",
 		"textEmphasis" : "pre 11/14/2019 14:29" } }
diff --git a/packages/Babylonian-UI.package/BPScriptExampleMorph.class/instance/addScriptMorph.st b/packages/Babylonian-UI.package/BPScriptExampleMorph.class/instance/addScriptMorph.st
@@ -11,4 +11,5 @@ addScriptMorph
 				self codeContentChanged]
 			onAccept: [:str |
 				self containingBrowser codeTextMorph accept]).
+	editField balloonText: 'write a script that will be executed to trigger this method'.
 	exampleSpecificMorphs addMorphBack: editField.
diff --git a/packages/Babylonian-UI.package/BPScriptExampleMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPScriptExampleMorph.class/methodProperties.json
@@ -3,4 +3,4 @@
 		 },
 	"instance" : {
 		"addExampleSpecificMorphs" : "pre 1/8/2021 13:48",
-		"addScriptMorph" : "pre 1/8/2021 13:49" } }
+		"addScriptMorph" : "pre 2/22/2021 12:10" } }
diff --git a/packages/Babylonian-UI.package/BPSliderMorph.class/instance/annotationLabel.st b/packages/Babylonian-UI.package/BPSliderMorph.class/instance/annotationLabel.st
@@ -0,0 +1,4 @@
+private - ui
+annotationLabel
+	
+	^ 'slider'
diff --git a/packages/Babylonian-UI.package/BPSliderMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPSliderMorph.class/methodProperties.json
@@ -2,6 +2,7 @@
 	"class" : {
 		 },
 	"instance" : {
+		"annotationLabel" : "pre 2/22/2021 12:19",
 		"for:selectContextAt:" : "jb 12/7/2020 19:01",
 		"initialize" : "jb 12/7/2020 19:01",
 		"isSlider" : "pre 1/24/2020 16:14",
diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/annotationLabel.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/annotationLabel.st
@@ -0,0 +1,4 @@
+private - ui
+annotationLabel
+
+	^ 'annotation'
diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/initialize.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/initialize.st
@@ -11,7 +11,9 @@ initialize
 	
 	tracesMorph := self newTracesMorph.
 	tracesMorph height: self height.
-	removeButton := self newRemoveButton.
+	removeButton := self newRemoveButton
+		balloonText: 'click to remove the ' , self annotationLabel;
+		yourself.
 	"This morph holds the traces and the expression morph"
 	widgetsMorph := self newWidgetsMorph.
 	
diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/newExampleLineMorph.st b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/instance/newExampleLineMorph.st
@@ -1,7 +1,7 @@
 private - ui
 newExampleLineMorph
 	
-	^  Morph new 
+	^ Morph new 
 		color: Color transparent; 
 		changeTableLayout; 
 		layoutInset: 0;
diff --git a/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPTraceBasedMorph.class/methodProperties.json
@@ -2,10 +2,11 @@
 	"class" : {
 		"isAbstract" : "pre 9/25/2020 10:15" },
 	"instance" : {
+		"annotationLabel" : "pre 2/22/2021 12:19",
 		"filterValues:throughSliderForTrace:" : "pre 9/28/2020 11:21",
-		"initialize" : "jb 12/7/2020 18:59",
+		"initialize" : "pre 2/22/2021 12:19",
 		"listenToSlider:" : "jb 12/7/2020 18:59",
-		"newExampleLineMorph" : "pre 1/6/2021 10:37",
+		"newExampleLineMorph" : "pre 2/22/2021 12:17",
 		"newTracesMorph" : "pre 12/16/2020 18:52",
 		"newWidgetsMorph" : "pre 11/23/2020 13:43",
 		"removeLinesWithoutCurrentTrace:" : "jb 12/7/2020 19:00",
