Add Beacon signal views [feenkcom/gtoolkit#3908]

feenkcom · Jul 26, 2024 · 2640928 · 2640928
1 parent 6808138
commit 2640928
Show file tree

Hide file tree

Showing 5 changed files with 49 additions and 1 deletion.
diff --git a/src/Bloc-Extensions/BlElementBoundsUpdater.extension.st b/src/Bloc-Extensions/BlElementBoundsUpdater.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : #BlElementBoundsUpdater }
+
+{ #category : #'*Bloc-Extensions' }
+BlElementBoundsUpdater >> gtChangesFor: aView [
+	<gtView>
+	changes ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Changes';
+		object: [ changes ];
+		view: #gtItemsFor:
+]
diff --git a/src/Bloc-Extensions/BlGotFocusSignal.extension.st b/src/Bloc-Extensions/BlGotFocusSignal.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #BlGotFocusSignal }
+
+{ #category : #'*Bloc-Extensions' }
+BlGotFocusSignal >> gtElementFor: aView [
+	<gtView>
+	element ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Element';
+		priority: 20;
+		object: [ element ];
+		view: #gtLiveFor:
+]
diff --git a/src/Bloc-Extensions/BlLostFocusSignal.extension.st b/src/Bloc-Extensions/BlLostFocusSignal.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #BlLostFocusSignal }
+
+{ #category : #'*Bloc-Extensions' }
+BlLostFocusSignal >> gtElementFor: aView [
+	<gtView>
+	element ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Element';
+		priority: 20;
+		object: [ element ];
+		view: #gtLiveFor:
+]
diff --git a/src/Bloc-Scripter/BlDevScripterBetweenStepsSignals.class.st b/src/Bloc-Scripter/BlDevScripterBetweenStepsSignals.class.st
@@ -4,7 +4,7 @@ Class {
 	#instVars : [
 		'previousStep'
 	],
-	#category : #'Bloc-Scripter-Scripter-Utilities'
+	#category : #'Bloc-Scripter-Signals'
 }
 
 { #category : #printing }
@@ -16,6 +16,11 @@ BlDevScripterBetweenStepsSignals >> gtDisplayOn: aStream [
 			aStep gtDisplayOn: aStream ]
 ]
 
+{ #category : #accessing }
+BlDevScripterBetweenStepsSignals >> label [
+	^ 'Between steps'
+]
+
 { #category : #accessing }
 BlDevScripterBetweenStepsSignals >> previousStep [
 	^ previousStep

diff --git a/src/Bloc/BlRequestLayoutSignal.class.st b/src/Bloc/BlRequestLayoutSignal.class.st
@@ -37,6 +37,11 @@ BlRequestLayoutSignal >> element: anObject [
 	element := anObject
 ]
 
+{ #category : #accessing }
+BlRequestLayoutSignal >> initialBoundsInSpace [
+	^ initialBoundsInSpace
+]
+
 { #category : #accessing }
 BlRequestLayoutSignal >> prepareForDelivery [
 	super prepareForDelivery.