[feenkcom/gtoolkit#3703] add AsyncForkPollFuture

feenkcom · Mar 27, 2024 · 25c81f6 · 25c81f6
1 parent bdc070e
commit 25c81f6
Showing 1 changed file with 32 additions and 0 deletions.
diff --git a/src/GToolkit-Extensions/AsyncForkPollFuture.extension.st b/src/GToolkit-Extensions/AsyncForkPollFuture.extension.st
@@ -0,0 +1,32 @@
+Extension { #name : #AsyncForkPollFuture }
+
+{ #category : #'*GToolkit-Extensions' }
+AsyncForkPollFuture >> gtCompositionDescription [
+
+	^ self printString asRopedText
+		  append: ': ' asRopedText;
+		  append: ((pollBlock ifNil: [ executedBlock ]) printString asRopedText foreground:
+					   BrGlamorousColors disabledButtonTextColor)
+]
+
+{ #category : #'*GToolkit-Extensions' }
+AsyncForkPollFuture >> gtSourceCodeFor: aView [
+	<gtView>
+	pollBlock ifNil: [ ^ aView empty ].
+
+	^ aView forward
+		title: 'Source code';
+		object: [ pollBlock ];
+		view: #gtSourceCodeFor:
+]
+
+{ #category : #'*GToolkit-Extensions' }
+AsyncForkPollFuture >> gtViewExecutedBlockFor: aView [
+	<gtView>
+	executedBlock ifNil: [ ^ aView empty ].
+
+	^ aView forward 
+		title: 'Executed block';
+		object: [ executedBlock ];
+		view: #gtSourceCodeFor:
+]