Add Beacon signal views and print methods [feenkcom/gtoolkit#3908]

feenkcom · Jul 26, 2024 · c7768d8 · c7768d8
1 parent a76fbfb
commit c7768d8
Show file tree

Hide file tree

Showing 12 changed files with 167 additions and 0 deletions.
diff --git a/src/GToolkit-Extensions/AsyncMapFuture.extension.st b/src/GToolkit-Extensions/AsyncMapFuture.extension.st
@@ -14,3 +14,24 @@ AsyncMapFuture >> gtCompositionDescription [
 		  append: (mapBlock printString asRopedText foreground:
 					   BrGlamorousColors disabledButtonTextColor)
 ]
+
+{ #category : #'*GToolkit-Extensions' }
+AsyncMapFuture >> gtMapBlockFor: aView [
+	<gtView>
+	mapBlock ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Map block';
+		object: [ mapBlock ];
+		view: #gtSourceCodeFor:
+]
+
+{ #category : #'*GToolkit-Extensions' }
+AsyncMapFuture >> gtVariablesFor: aView [
+	<gtView>
+	mapBlock ifNil: [ ^ aView empty ].
+	^ aView forward
+		title: 'Variables';
+		object: [ mapBlock ];
+		view: #gtVariablesFor:
+]
diff --git a/src/GToolkit-Extensions/BlElementBoundsUpdaterChange.extension.st b/src/GToolkit-Extensions/BlElementBoundsUpdaterChange.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #BlElementBoundsUpdaterChange }
+
+{ #category : #'*GToolkit-Extensions' }
+BlElementBoundsUpdaterChange >> gtElementFor: aView [
+	<gtView>
+	self element ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Element';
+		priority: 20;
+		object: [ self element ];
+		view: #gtLiveFor:
+]
diff --git a/src/GToolkit-Extensions/BlInfiniteElementSignal.extension.st b/src/GToolkit-Extensions/BlInfiniteElementSignal.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #BlInfiniteElementSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+BlInfiniteElementSignal >> gtElementFor: aView [
+	<gtView>
+	self element ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Element';
+		priority: 20;
+		object: [ self element ];
+		view: #gtLiveFor:
+]
diff --git a/src/GToolkit-Extensions/BlInfiniteHolder.extension.st b/src/GToolkit-Extensions/BlInfiniteHolder.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : #BlInfiniteHolder }
+
+{ #category : #'*GToolkit-Extensions' }
+BlInfiniteHolder >> gtItemElementFor: aView [
+	<gtView>
+	self itemElement ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Item element';
+		object: [ self itemElement ];
+		view: #gtLiveFor:
+]
diff --git a/src/GToolkit-Extensions/BlInfiniteRecyclerAboutToRecycleInPoolSignal.extension.st b/src/GToolkit-Extensions/BlInfiniteRecyclerAboutToRecycleInPoolSignal.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : #BlInfiniteRecyclerAboutToRecycleInPoolSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+BlInfiniteRecyclerAboutToRecycleInPoolSignal >> gtItemElementFor: aView [
+	<gtView>
+	self holder ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Item element';
+		object: [ self holder ];
+		view: #gtItemElementFor:
+]
diff --git a/src/GToolkit-Extensions/BlInfiniteRecyclerAddedToAttachedScrapSignal.extension.st b/src/GToolkit-Extensions/BlInfiniteRecyclerAddedToAttachedScrapSignal.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : #BlInfiniteRecyclerAddedToAttachedScrapSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+BlInfiniteRecyclerAddedToAttachedScrapSignal >> gtFlagsFor: aView [
+	<gtView>
+	flags ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Flags';
+		object: [ flags ];
+		view: #gtItemsFor:
+]
diff --git a/src/GToolkit-Extensions/BlInfiniteRecyclerFetchHolderSignal.extension.st b/src/GToolkit-Extensions/BlInfiniteRecyclerFetchHolderSignal.extension.st
@@ -10,3 +10,14 @@ BlInfiniteRecyclerFetchHolderSignal >> gtFetcherStepsFor: aView [
 		object: [ fetcherResult ];
 		view: #gtFetcherStepsFor:
 ]
+
+{ #category : #'*GToolkit-Extensions' }
+BlInfiniteRecyclerFetchHolderSignal >> gtItemElementFor: aView [
+	<gtView>
+	self fetcherResult ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Item element';
+		object: [ self fetcherResult ];
+		view: #gtItemElementFor:
+]
diff --git a/src/GToolkit-Extensions/BlInfiniteRecyclerFetcherResult.extension.st b/src/GToolkit-Extensions/BlInfiniteRecyclerFetcherResult.extension.st
@@ -17,3 +17,14 @@ BlInfiniteRecyclerFetcherResult >> gtFetcherStepsFor: aView [
 		expandAll;
 		column: 'Fetcher' text: #gtDescription
 ]
+
+{ #category : #'*GToolkit-Extensions' }
+BlInfiniteRecyclerFetcherResult >> gtItemElementFor: aView [
+	<gtView>
+	self holder ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Item element';
+		object: [ self holder ];
+		view: #gtItemElementFor:
+]
diff --git a/src/GToolkit-Extensions/BrAsyncElementPromiseSignal.extension.st b/src/GToolkit-Extensions/BrAsyncElementPromiseSignal.extension.st
@@ -0,0 +1,25 @@
+Extension { #name : #BrAsyncElementPromiseSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+BrAsyncElementPromiseSignal >> gtElementFor: aView [
+	<gtView>
+	self element ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Element';
+		priority: 1;
+		object: [ self element ];
+		view: #gtLiveFor:
+]
+
+{ #category : #'*GToolkit-Extensions' }
+BrAsyncElementPromiseSignal >> gtPromiseFor: aView [
+	<gtView>
+	self promise ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Promise';
+		priority: 1;
+		object: [ self promise ];
+		view: #gtPromiseFor:
+]
diff --git a/src/GToolkit-Extensions/BrTextEditorSignal.extension.st b/src/GToolkit-Extensions/BrTextEditorSignal.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #BrTextEditorSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+BrTextEditorSignal >> gtTestEditorFor: aView [
+	<gtView>
+	self textEditor ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Editor';
+		priority: 0;
+		object: [ self textEditor ];
+		view: #gtLiveFor:
+]
diff --git a/src/GToolkit-Extensions/GtPharoSubscribedToMethodCoderSignal.extension.st b/src/GToolkit-Extensions/GtPharoSubscribedToMethodCoderSignal.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : #GtPharoSubscribedToMethodCoderSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+GtPharoSubscribedToMethodCoderSignal >> gtMethodCoderFor: aView [
+	<gtView>
+	self methodCoder ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Coder';
+		object: [ self methodCoder ];
+		view: #gtLiveFor:
+]
diff --git a/src/GToolkit-Extensions/GtTextualCoderEditorElementSignal.extension.st b/src/GToolkit-Extensions/GtTextualCoderEditorElementSignal.extension.st
@@ -0,0 +1,12 @@
+Extension { #name : #GtTextualCoderEditorElementSignal }
+
+{ #category : #'*GToolkit-Extensions' }
+GtTextualCoderEditorElementSignal >> gtElementFor: aView [
+	<gtView>
+	self element ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Element';
+		object: [ self element ];
+		view: #gtLiveFor:
+]