[feenkcom/gtoolkit#2852] in the workers view show if worker is waitin…

…g on a semaphore
feenkcom · Mar 27, 2024 · a7f43c2 · a7f43c2
1 parent d6f73cf
commit a7f43c2
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/GToolkit-Extensions/AsyncFutureThreadPool.extension.st b/src/GToolkit-Extensions/AsyncFutureThreadPool.extension.st
@@ -59,7 +59,13 @@ AsyncFutureThreadPool >> gtWorkersFor: aView [
 				size := each key pendingQueueSize.
 				size isZero ifTrue: [ '' ] ifFalse: [ size ] ];
 		column: 'Busy'
-			text: [ :each | each key isBusy ifFalse: [ '' ] ifTrue: [ 'true' ] ];
+			text: [ :each |
+				each key isBusy
+					ifFalse: [ '' ]
+					ifTrue: [
+						each key isWaitingOnSemaphore
+							ifTrue: [ 'true (waiting)' ]
+							ifFalse: [ 'true' ] ] ];
 		column: 'Running'
 			text: [ :each | each key isRunning ifFalse: [ '' ] ifTrue: [ 'true' ] ];
 		send: [ :each | each key ];