hpi-swa · fniephaus · Nov 26, 2020 · Sep 3, 2020 · Sep 3, 2020 · Sep 3, 2020
diff --git a/pharo/run.sh b/pharo/run.sh
@@ -308,7 +308,8 @@ pharo::load_project() {
         load ] on: Warning do: [:w | w resume ].
     smalltalkCI := (Smalltalk at: #SmalltalkCI).
     smalltalkCI load: '$(resolve_path "${config_ston}")'.
-    smalltalkCI isHeadless ifTrue: [ smalltalkCI saveAndQuitImage ]
+    (smalltalkCI isHeadless or: [smalltalkCI promptToProceed])
+      ifTrue: [ smalltalkCI saveAndQuitImage ]
   "
 }
 

diff --git a/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/promptToProceed.st b/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/promptToProceed.st
@@ -0,0 +1,5 @@
+helpers
+promptToProceed
+
+	"Delegate to method of different name to avoid infinite recursion if promptToProceed isn't implemented for this platform"
+	^ self platformClass promptToProceedImpl
diff --git a/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/promptToProceedImpl.st b/repository/SmalltalkCI-Core.package/SmalltalkCI.class/class/promptToProceedImpl.st
@@ -0,0 +1,4 @@
+helpers
+promptToProceedImpl
+	"Proceed by default"
+	^ true
diff --git a/repository/SmalltalkCI-Core.package/SmalltalkCI.class/methodProperties.json b/repository/SmalltalkCI-Core.package/SmalltalkCI.class/methodProperties.json
@@ -73,6 +73,8 @@
 		"printToStdout:" : "fn 9/27/2016 20:37",
 		"printToStdout:ansiColor:" : "fn 7/9/2017 00:47",
 		"printWarningToStdout:" : "fn 7/9/2017 00:47",
+		"promptToProceed" : "LM 9/4/2020 14:47",
+		"promptToProceedImpl" : "LM 9/4/2020 14:48",
 		"quitImage" : "fn 10/11/2016 18:42",
 		"readOnlyFileNamed:do:" : "fn 11/20/2017 13:34",
 		"reportBuildError:" : "fn 11/20/2017 12:54",

diff --git a/repository/SmalltalkCI-Core.package/monticello.meta/version b/repository/SmalltalkCI-Core.package/monticello.meta/version
@@ -1 +1 @@
-(name 'SmalltalkCI-Core-smalltalkCI.253' message 'Add comment to assureDirectoryExistence explaining supported platforms' id '98f393cf-b2de-47ba-aa40-542c7f036a5b' date '2 September 2020' time '5:49:06.87628 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.252' message 'Add method to ensure directory existence' id 'bdd32158-c0e4-4842-bab5-afbb24b28879' date '2 September 2020' time '3:55:56.901019 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.251' message 'Add missing period in failAndQuit:' id 'ddfd0c64-51d6-48cb-a977-776e3b081e93' date '27 August 2020' time '3:26:18.498778 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.250' message 'Use correct platformClass for self calls in failAndQuit:' id 'b316831d-b0cb-4690-a465-2ae18d4747e0' date '26 August 2020' time '2:35:45.846989 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.249' message 'Add reference to image folder in saveAndQuit:' id '7d3e7080-d695-4a63-932d-38cf21e4a9ec' date '26 August 2020' time '2:32:45.92929 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.248' message 'Add failAndQuit: helper' id '922f314e-28b7-4738-90a4-e6844dc35ea0' date '26 August 2020' time '2:16:40.79477 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.247' message 'Fix unit in fold:on:block:' id '2d7dd736-99ac-4f39-936f-20828deba5c6' date '25 August 2020' time '1:06:34.562412 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-fn.246' message 'Do nothing by default in SCITestRunner>>serializeError:of: (#440).' id '5d923b61-521c-4d39-aab6-65bd3631e33f' date '26 September 2019' time '3:27:58.152573 pm' author 'fn' ancestors ((name 'SmalltalkCI-Core-EstebanLorenzano.245' message 'extend ignoreImage api to react to MetacelloIgnorePackageLoaded.This will force the load of a package already in image even if is in the ancestor list.' id 'a71d4650-a333-0d00-9a56-d9c206468e0a' date '2 October 2018' time '6:40:16.696915 pm' author 'EstebanLorenzano' ancestors ((name 'SmalltalkCI-Core-EstebanLorenzano.244' message 'expose #ignoreImage metacello api' id 'aa61a3ae-a133-0d00-be56-b23706db7c03' date '2 October 2018' time '4:43:29.93288 pm' author 'EstebanLorenzano' ancestors ((name 'SmalltalkCI-Core-fn.243' message 'Use classVariableNames instead of instanceVariableNames on class side (fixes #395).' id '60d9f141-3bd4-4585-b65e-14af44c01c81' date '2 October 2018' time '9:18:40.024 am' author 'fn' ancestors ((name 'SmalltalkCI-Core-fn.242' message 'Merge commit (240+241); apply #onConflict/#onUpgrade only when values are not nil.' id 'f287589a-5208-4534-b637-9cca010ca578' date '2 October 2018' time '8:51:04.357 am' author 'fn' ancestors ((name 'SmalltalkCI-Core-JohanBrichau.241' message 'Change option disableSerializeError to serializeError' id '7256b7b0-0a32-0d00-8794-11e9012935e3' date '12 September 2018' time '11:09:53.105902 am' author 'JohanBrichau' ancestors ((name 'SmalltalkCI-Core-JohanBrichau.240' message 'Change option disableSerializeError to serializeError' id 'd39938a7-0a32-0d00-8792-5dcd012935e3' date '12 September 2018' time '11:07:13.80521 am' author 'JohanBrichau' ancestors ((name 'SmalltalkCI-Core-fn.239' message 'Update Metacello repository URL.' id '10ec3dcf-d1fe-4fc3-9193-8affb4be053b' date '7 December 2017' time '11:34:47.321 am' author 'fn' ancestors () stepChildren ())) stepChildren ())) stepChildren ())(name 'SmalltalkCI-Core-EstebanLorenzano.240' message 'add #onConflict:/#onUpgrade: metacello logic' id 'be7e2fe1-4f33-0d00-9fd9-e2a50f2ac847' date '28 September 2018' time '3:07:50.658062 pm' author 'EstebanLorenzano' ancestors ((id '10ec3dcf-d1fe-4fc3-9193-8affb4be053b')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
+(name 'SmalltalkCI-Core-smalltalkCI.257' message 'Change default of promptToProceed to keep image open' id '35024ec0-98d8-4551-b86e-bd59db86e080' date '4 September 2020' time '2:48:56.328475 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.256' message 'Delegate promptToProceed to promptToProceedImpl to avoid infinite recursion' id '1a4ba816-d3fb-4b4f-8654-af752fcf17e9' date '4 September 2020' time '2:48:10.934365 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.255' message 'Delegate promptToProceed to platformclass' id '9bb2347e-0b0b-4d62-93e1-16f79625f6f7' date '4 September 2020' time '2:43:45.730905 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.254' message 'Add promptToProceed to SmalltalkCI' id 'c9c0b396-e8c2-4d04-a320-8377e0c16bec' date '3 September 2020' time '12:07:21.192529 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.253' message 'Close Progressbars before prompting to proceed' id '4ceddd02-20fb-4888-bb8b-fd9e5bff8671' date '3 September 2020' time '11:34:57.661483 am' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.252' message 'Add promptToProceed helper function' id 'dc0d9a8e-b8d4-4ccc-bd41-7519db135042' date '3 September 2020' time '11:17:47.176847 am' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.251' message 'Add missing period in failAndQuit:' id 'ddfd0c64-51d6-48cb-a977-776e3b081e93' date '27 August 2020' time '3:26:18.498778 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.250' message 'Use correct platformClass for self calls in failAndQuit:' id 'b316831d-b0cb-4690-a465-2ae18d4747e0' date '26 August 2020' time '2:35:45.846989 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.249' message 'Add reference to image folder in saveAndQuit:' id '7d3e7080-d695-4a63-932d-38cf21e4a9ec' date '26 August 2020' time '2:32:45.92929 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.248' message 'Add failAndQuit: helper' id '922f314e-28b7-4738-90a4-e6844dc35ea0' date '26 August 2020' time '2:16:40.79477 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-smalltalkCI.247' message 'Fix unit in fold:on:block:' id '2d7dd736-99ac-4f39-936f-20828deba5c6' date '25 August 2020' time '1:06:34.562412 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Core-fn.246' message 'Do nothing by default in SCITestRunner>>serializeError:of: (#440).' id '5d923b61-521c-4d39-aab6-65bd3631e33f' date '26 September 2019' time '3:27:58.152573 pm' author 'fn' ancestors ((name 'SmalltalkCI-Core-EstebanLorenzano.245' message 'extend ignoreImage api to react to MetacelloIgnorePackageLoaded.This will force the load of a package already in image even if is in the ancestor list.' id 'a71d4650-a333-0d00-9a56-d9c206468e0a' date '2 October 2018' time '6:40:16.696915 pm' author 'EstebanLorenzano' ancestors ((name 'SmalltalkCI-Core-EstebanLorenzano.244' message 'expose #ignoreImage metacello api' id 'aa61a3ae-a133-0d00-be56-b23706db7c03' date '2 October 2018' time '4:43:29.93288 pm' author 'EstebanLorenzano' ancestors ((name 'SmalltalkCI-Core-fn.243' message 'Use classVariableNames instead of instanceVariableNames on class side (fixes #395).' id '60d9f141-3bd4-4585-b65e-14af44c01c81' date '2 October 2018' time '9:18:40.024 am' author 'fn' ancestors ((name 'SmalltalkCI-Core-fn.242' message 'Merge commit (240+241); apply #onConflict/#onUpgrade only when values are not nil.' id 'f287589a-5208-4534-b637-9cca010ca578' date '2 October 2018' time '8:51:04.357 am' author 'fn' ancestors ((name 'SmalltalkCI-Core-JohanBrichau.241' message 'Change option disableSerializeError to serializeError' id '7256b7b0-0a32-0d00-8794-11e9012935e3' date '12 September 2018' time '11:09:53.105902 am' author 'JohanBrichau' ancestors ((name 'SmalltalkCI-Core-JohanBrichau.240' message 'Change option disableSerializeError to serializeError' id 'd39938a7-0a32-0d00-8792-5dcd012935e3' date '12 September 2018' time '11:07:13.80521 am' author 'JohanBrichau' ancestors ((name 'SmalltalkCI-Core-fn.239' message 'Update Metacello repository URL.' id '10ec3dcf-d1fe-4fc3-9193-8affb4be053b' date '7 December 2017' time '11:34:47.321 am' author 'fn' ancestors () stepChildren ())) stepChildren ())) stepChildren ())(name 'SmalltalkCI-Core-EstebanLorenzano.240' message 'add #onConflict:/#onUpgrade: metacello logic' id 'be7e2fe1-4f33-0d00-9fd9-e2a50f2ac847' date '28 September 2018' time '3:07:50.658062 pm' author 'EstebanLorenzano' ancestors ((id '10ec3dcf-d1fe-4fc3-9193-8affb4be053b')) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

diff --git a/...sitory/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo.class/class/promptToProceedImpl.st b/...sitory/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo.class/class/promptToProceedImpl.st
@@ -0,0 +1,8 @@
+helpers
+promptToProceedImpl
+
+	^ UIManager default
+	      confirm:  'smalltalkCI has finished loading the project. The image is now ready for testing.
+If you choose to inspect the image, you must save and quit the image to proceed.'
+			trueChoice: 'Proceed'
+			falseChoice: 'Inspect image'
diff --git a/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo.class/methodProperties.json b/repository/SmalltalkCI-Pharo-Core.package/SmalltalkCIPharo.class/methodProperties.json
@@ -19,6 +19,7 @@
 		"pathNameDelimiter" : "fn 6/25/2016 00:21",
 		"platformNameBeginsWith:" : "fn 12/5/2018 20:26",
 		"platformSymbol" : "EstebanLorenzano 1/26/2016 17:36",
+		"promptToProceedImpl" : "LM 9/4/2020 14:56",
 		"quitImage" : "fn 10/11/2016 18:43",
 		"readOnlyFileNamed:do:" : "fn 11/20/2017 13:31",
 		"saveImage" : "fn 10/4/2016 16:34",

diff --git a/repository/SmalltalkCI-Pharo-Core.package/monticello.meta/version b/repository/SmalltalkCI-Pharo-Core.package/monticello.meta/version
@@ -1,2 +1,2 @@
-(name 'SmalltalkCI-Pharo-Core-smalltalkCI.1570035220' message 'Reintroduce SCIPharo34CodeCoverage' id '1d64de9d-2109-4331-8e47-1be2ae2f197d' date '2 September 2020' time '6:47:52.58853 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Core-smalltalkCI.1570035219' message 'Implment assureDirectoryExistence: for Pharo' id '10e0e617-b86a-0d00-bc09-3d630999773c' date '2 September 2020' time '5:33:24.772014 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Core-smalltalkCI.1570035218' message 'Remove unused methods from SCIPharo34CodeCoverage' id 'a77ed7b4-5a8e-461a-b080-1dfc49d7bf4d' date '27 August 2020' time '3:05:26.011508 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035217' message 'Fix Pharo 3 & 4 coverage support' id '0ef3370f-6550-0d00-8dc4-c12104c51116' date '3 October 2019' time '12:34:34.482612 pm' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035216' message 'Fix Pharo 3 & 4 stack overflow' id 'e8c457cb-6450-0d00-8dc3-ccd904c51116' date '3 October 2019' time '12:15:35.717259 pm' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035215' message 'Fix spacing issues' id '33971147-6350-0d00-8dc1-e5fb04c51116' date '3 October 2019' time '10:27:01.558237 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035214' message 'Fix deprecationWarning' id 'c05d3f44-6350-0d00-8dc0-e23c04c51116' date '3 October 2019' time '10:26:14.226517 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035213' message 'Fix deprecationWarning' id 'd4177e41-6350-0d00-8dbf-ca0004c51116' date '3 October 2019' time '10:25:28.005797 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035212' message 'Adapt the baseline to exclude coverage support in Pharo 3/4' id '54b5d8a0-6250-0d00-8dbb-c90204c51116' date '3 October 2019' time '9:40:32.812561 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-CompatibleUserName.1570035211' message 'Fix #441 Use #refersToLiteral: method in Pharo to discover methods including the <ignoreForCoverage> pragma
-' id '74a0b815-11e3-5b3e-820b-e3c9c7a91788' date '2 October 2019' time '1:53:31 pm' author 'CompatibleUserName' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
+(name 'SmalltalkCI-Pharo-Core-smalltalkCI.1570035220' message 'Remove closing of ProgressMorph from promptToProceedImpl.It doesn''t seem necessary for Pharo' id '155e6329-de6a-0d00-bc06-763609421138' date '4 September 2020' time '2:58:26.900653 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Core-smalltalkCI.1570035219' message 'Add promptToProceedImpl' id '123e441b-de6a-0d00-96ae-dd35017a29f1' date '4 September 2020' time '2:54:29.97977 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Core-smalltalkCI.1570035218' message 'Remove unused methods from SCIPharo34CodeCoverage' id 'a77ed7b4-5a8e-461a-b080-1dfc49d7bf4d' date '27 August 2020' time '3:05:26.011508 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035217' message 'Fix Pharo 3 & 4 coverage support' id '0ef3370f-6550-0d00-8dc4-c12104c51116' date '3 October 2019' time '12:34:34.482612 pm' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035216' message 'Fix Pharo 3 & 4 stack overflow' id 'e8c457cb-6450-0d00-8dc3-ccd904c51116' date '3 October 2019' time '12:15:35.717259 pm' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035215' message 'Fix spacing issues' id '33971147-6350-0d00-8dc1-e5fb04c51116' date '3 October 2019' time '10:27:01.558237 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035214' message 'Fix deprecationWarning' id 'c05d3f44-6350-0d00-8dc0-e23c04c51116' date '3 October 2019' time '10:26:14.226517 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035213' message 'Fix deprecationWarning' id 'd4177e41-6350-0d00-8dbf-ca0004c51116' date '3 October 2019' time '10:25:28.005797 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-GOC.1570035212' message 'Adapt the baseline to exclude coverage support in Pharo 3/4' id '54b5d8a0-6250-0d00-8dbb-c90204c51116' date '3 October 2019' time '9:40:32.812561 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Core-CompatibleUserName.1570035211' message 'Fix #441 Use #refersToLiteral: method in Pharo to discover methods including the <ignoreForCoverage> pragma
+' id '74a0b815-11e3-5b3e-820b-e3c9c7a91788' date '2 October 2019' time '1:53:31 pm' author 'CompatibleUserName' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

diff --git a/repository/SmalltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/README.md b/repository/SmalltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/README.md
diff --git a/...malltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/instance/testPromptToProceed.st b/...malltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/instance/testPromptToProceed.st
@@ -0,0 +1,14 @@
+testing
+testPromptToProceed
+	"When testing on old versions of Pharo, a Non-interactive UIManager might be installed in headless mode,
+	which will behave differently from the MorphicUIManager i.e. it doesn't allow interactive 
+	requests like confirm: . As promptToProceed only really makes sense in an interactive context,
+	always test with the MorphicUIManager"
+	|oldUIManager|
+	oldUIManager := UIManager default.
+	UIManager default: MorphicUIManager new.
+
+	[self should: [SmalltalkCI promptToProceed] raise: ProvideAnswerNotification.
+	self assert: ([SmalltalkCI promptToProceed] valueSupplyingAnswer: true).
+	self deny: ([SmalltalkCI promptToProceed] valueSupplyingAnswer: false)]
+		ensure: [UIManager default: oldUIManager]
diff --git a/repository/SmalltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/methodProperties.json b/repository/SmalltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/methodProperties.json
@@ -0,0 +1,5 @@
+{
+	"class" : {
+		 },
+	"instance" : {
+		"testPromptToProceed" : "LM 9/4/2020 15:26" } }
diff --git a/repository/SmalltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/properties.json b/repository/SmalltalkCI-Pharo-Tests.package/SmalltalkCIPharoTest.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "SmalltalkCI-Pharo-Tests",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "SmalltalkCIPharoTest",
+	"pools" : [
+		 ],
+	"super" : "TestCase",
+	"type" : "normal" }
diff --git a/repository/SmalltalkCI-Pharo-Tests.package/monticello.meta/version b/repository/SmalltalkCI-Pharo-Tests.package/monticello.meta/version
@@ -1,2 +1,2 @@
-(name 'SmalltalkCI-Pharo-Tests-GOC.1570035212' message 'Adapt the baseline to exclude coverage support in Pharo 3/4' id '44a327a2-6250-0d00-8dbe-a53704c51116' date '3 October 2019' time '9:40:54.762476 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Tests-CompatibleUserName.1570035211' message 'Fix #441 Use #refersToLiteral: method in Pharo to discover methods including the <ignoreForCoverage> pragma
-' id '6a74c47f-9a7c-5c1a-81bf-cb905dbb4a6e' date '2 October 2019' time '1:53:31 pm' author 'CompatibleUserName' ancestors () stepChildren ())) stepChildren ())
+(name 'SmalltalkCI-Pharo-Tests-smalltalkCI.1570035215' message 'Fix testPromptToProceed for non-interactive modes.' id 'eef46095-980e-47b5-bb71-80cd191e2ac5' date '4 September 2020' time '3:26:46.138711 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Tests-smalltalkCI.1570035214' message 'Remove testPromptToProceedClosesProgress.It doesn''t seem necessary in Pharo.' id 'a494f12e-de6a-0d00-bc37-8a3809421138' date '4 September 2020' time '3:00:00.106794 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Tests-smalltalkCI.1570035213' message 'Test promptToProceedImpl' id '37f28c1c-de6a-0d00-96df-61a7017a29f1' date '4 September 2020' time '2:54:51.52168 pm' author 'smalltalkCI' ancestors ((name 'SmalltalkCI-Pharo-Tests-GOC.1570035212' message 'Adapt the baseline to exclude coverage support in Pharo 3/4' id '44a327a2-6250-0d00-8dbe-a53704c51116' date '3 October 2019' time '9:40:54.762476 am' author 'GOC' ancestors ((name 'SmalltalkCI-Pharo-Tests-CompatibleUserName.1570035211' message 'Fix #441 Use #refersToLiteral: method in Pharo to discover methods including the <ignoreForCoverage> pragma
+' id '6a74c47f-9a7c-5c1a-81bf-cb905dbb4a6e' date '2 October 2019' time '1:53:31 pm' author 'CompatibleUserName' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())

diff --git a/...tory/SmalltalkCI-Squeak-Core.package/SmalltalkCISqueak.class/class/promptToProceedImpl.st b/...tory/SmalltalkCI-Squeak-Core.package/SmalltalkCISqueak.class/class/promptToProceedImpl.st
@@ -0,0 +1,14 @@
+helpers
+promptToProceedImpl
+
+	| result |
+	"First, close any remaining progress bars, that are caused by reading the setup script"
+	SystemProgressMorph reset.	
+
+	result := (UIManager default
+		chooseFrom: #('Proceed' 'Inspect image')
+		title: 'smalltalkCI has finished loading the project. The image is now ready for testing.
+If you choose to inspect the image, you must save and quit the image to proceed.').
+	"Depending on the version of Squeak, valueSupplyingAnswer might return either the
+	value or the label, and in all versions, nil might be returned if the user cancels the operation."
+	^ result = 1 or: [result = 'Proceed']
diff --git a/repository/SmalltalkCI-Squeak-Core.package/SmalltalkCISqueak.class/methodProperties.json b/repository/SmalltalkCI-Squeak-Core.package/SmalltalkCISqueak.class/methodProperties.json
@@ -25,6 +25,7 @@
 		"platformSymbol" : "EstebanLorenzano 1/26/2016 17:37",
 		"primEnvironmentAt:" : "fn 10/9/2016 21:02",
 		"primGetEnvironmentStrings" : "fn 10/9/2016 21:01",
+		"promptToProceedImpl" : "LM 9/4/2020 16:23",
 		"quitImage" : "fn 10/11/2016 18:42",
 		"readOnlyFileNamed:do:" : "fn 11/20/2017 13:34",
 		"saveImage" : "fn 10/4/2016 16:34",