Add DoIt in background and a toolbar button to cancel the current exe…

src/NewTools-Playground-Tests/StPlaygroundPageTestMockedWaitable.class.st

@@ -28,7 +28,7 @@ StPlaygroundPageTestMockedWaitable >> initialize [
 StPlaygroundPageTestMockedWaitable >> resume [
 
 	sem signal.
-	^ sem2 wait: (Duration milliSeconds: timeout)
+	^ sem2 waitTimeoutMilliseconds: timeout
 ]
 
 { #category : 'accessing' }
@@ -41,7 +41,7 @@ StPlaygroundPageTestMockedWaitable >> timeout: aNumberMiliseconds [
 StPlaygroundPageTestMockedWaitable >> wait [
 
 	| semRes |
-	semRes := sem wait: (Duration milliSeconds: timeout).
+	semRes := sem waitTimeoutMilliseconds: timeout.
 	sem2 signal.
 	^ semRes
 ]

src/NewTools-Playground/StPlaygroundCancelItCommand.class.st

@@ -0,0 +1,49 @@
+"
+I'm a """"cancel of do it and inspect"""" command.
+I will cancel current playground execution when possible...
+"
+Class {
+	#name : 'StPlaygroundCancelItCommand',
+	#superclass : 'StPlaygroundCommand',
+	#category : 'NewTools-Playground-Command',
+	#package : 'NewTools-Playground',
+	#tag : 'Command'
+}
+
+{ #category : 'default' }
+StPlaygroundCancelItCommand class >> defaultDescription [
+
+	^ 'Cancel current do it'
+]
+
+{ #category : 'accessing' }
+StPlaygroundCancelItCommand class >> defaultIconName [
+
+	^ #glamorousCancel
+]
+
+{ #category : 'default' }
+StPlaygroundCancelItCommand class >> defaultName [
+
+	^ 'Cancel it'
+]
+
+{ #category : 'accessing' }
+StPlaygroundCancelItCommand class >> order [
+
+	^ 1
+]
+
+{ #category : 'executing' }
+StPlaygroundCancelItCommand >> execute [ 
+
+	| tmp |
+	(context application propertyAt: #executionThread ifAbsent:[ nil ])
+		ifNil: [ self inform: 'No pending "Do it" !' ] 
+		ifNotNil: [ :e |
+			e terminate.
+			self inform: 'Previous Do-It Cancelled !'.
+			context application propertyAt: #executionThread put: nil ].
+
+	self context withWindowDo: [ :w | tmp := w title: 'Playground - stopped' ].
+]

src/NewTools-Playground/StPlaygroundDoItCommand.class.st

@@ -34,8 +34,23 @@ StPlaygroundDoItCommand class >> order [
 	^ 0
 ]
 
-{ #category : 'execution' }
+{ #category : 'executing' }
 StPlaygroundDoItCommand >> execute [ 
 
-	context doEvaluateAllAndGo
+	| thrd |
+	thrd := context application
+		        propertyAt: #executionThread
+		        ifAbsent: [ nil ].
+	thrd ifNotNil: [ :e |
+		self inform: 'Terminating previous Do-It !'.
+		e terminate ].
+	thrd := [
+	        self context withWindowDo: [ :w |
+		        w title: 'Playground - running' ].
+	        context doEvaluateAllAndGo.
+	        context application propertyAt: #executionThread put: nil.
+	        self context withWindowDo: [ :w |
+		        w title: 'Playground - finished' ] ] forkAt:
+		        Processor userBackgroundPriority.
+	context application propertyAt: #executionThread put: thrd
 ]

src/NewTools-Playground/StPlaygroundPagePresenter.class.st

@@ -28,6 +28,7 @@ StPlaygroundPagePresenter class >> baseToolbarCommands [
 
 	^ { 
 		StPlaygroundDoItCommand.
+		StPlaygroundCancelItCommand .
 		StPlaygroundPublishCommand.
 		StPlaygroundBindingsCommand.				
 		StPlaygroundVersionsCommand.