Add progress bars for change set creation, materialization and serial…

…ization

src/Squot.package/SqueakWorkingCopy.class/instance/materializeChangeSets..st

@@ -1,3 +1,3 @@
 changes-operations
 materializeChangeSets: aCollection
-	aCollection do: [:each | each materializeIn: self].
+	aCollection do: [:each | each materializeIn: self] displayingProgress: 'Loading changes'.

src/Squot.package/SqueakWorkingCopy.class/instance/serializeChangeSets.onCommit..st

@@ -2,5 +2,5 @@ changes-operations
 serializeChangeSets: aCollection onCommit: aCommitOrNil
 	| filesystem |
 	filesystem := self filesystemOn: aCommitOrNil.
-	aCollection do: [:each | each serializeInto: filesystem].
+	aCollection do: [:each | each serializeInto: filesystem] displayingProgress: 'Saving changes'.
 	^ filesystem

src/Squot.package/SqueakWorkingCopy.class/methodProperties.json

@@ -113,7 +113,7 @@
 		"mappers:" : "mad 3/19/2024 21:25",
 		"mappersMapper" : "mad 9/20/2023 12:47",
 		"mappersOfKind:" : "mad 9/20/2023 17:29",
-		"materializeChangeSets:" : "mad 9/6/2023 19:27",
+		"materializeChangeSets:" : "mad 4/29/2024 23:00",
 		"materializeCommit:" : "mad 9/6/2023 19:27",
 		"materializeHead" : "mad 8/24/2023 23:49",
 		"materialized" : "mad 4/28/2023 21:20",
@@ -152,7 +152,7 @@
 		"requestRemoteNameAndRefFor:" : "mad 12/13/2023 18:59",
 		"requestSarFileName" : "mad 1/9/2024 20:24",
 		"requestUnmappedPathWithTitle:initialAnswer:" : "mad 11/21/2023 14:31",
-		"serializeChangeSets:onCommit:" : "mad 9/20/2023 12:45",
+		"serializeChangeSets:onCommit:" : "mad 4/29/2024 23:00",
 		"serializerFromSquotContents:in:fallback:" : "mad 4/29/2024 21:34",
 		"serializerNameFromSquotContents:in:" : "mad 4/29/2024 21:35",
 		"setUpstreamRemoteName:andRef:for:" : "mad 12/13/2023 18:28",

src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromMappers.toMappers.old.common.new.in..st

@@ -9,12 +9,18 @@ in: aWorkingCopy
 	emptyCommit := aWorkingCopy emptyCommit.
 	mapperChangeSets := Dictionary new.
 	potentiallyRemovedMappers := fromMappersCollection difference: toMappersCollection.
-	potentiallyRemovedMappers do: [:old |
-		mapperChangeSets at: old put: (oldBlock value: old value: emptyCommit)].
-	(toMappersCollection intersection: fromMappersCollection) do: [:common |
-		mapperChangeSets at: common put: (commonBlock value: common)].
-	(toMappersCollection difference: fromMappersCollection) do: [:new |
-		mapperChangeSets at: new put: (newBlock value: new value: emptyCommit)].
+	'Gathering changes'
+		displayProgressFrom: 1
+		to: potentiallyRemovedMappers size + toMappersCollection size
+		during: [:bar | | index next |
+			index := 1.
+			next := [bar value: index. index := index + 1].
+			potentiallyRemovedMappers do: [:old |
+				mapperChangeSets at: old put: (oldBlock value: old value: emptyCommit). next value].
+			(toMappersCollection intersection: fromMappersCollection) do: [:common |
+				mapperChangeSets at: common put: (commonBlock value: common). next value].
+			(toMappersCollection difference: fromMappersCollection) do: [:new |
+				mapperChangeSets at: new put: (newBlock value: new value: emptyCommit). next value]].
 	mappersChangeSet := self
 								changeSetFromMappers: fromMappersCollection
 								removing: potentiallyRemovedMappers

src/Squot.package/SquotMappersMapper.class/methodProperties.json

@@ -13,7 +13,7 @@
 		"changeSetsFromFSCommit:toFSCommit:in:" : "mad 9/20/2023 12:50",
 		"changeSetsFromFSCommit:toImage:" : "mad 9/20/2023 12:51",
 		"changeSetsFromImage:toFSCommit:" : "mad 9/20/2023 12:51",
-		"changeSetsFromMappers:toMappers:old:common:new:in:" : "mad 2/20/2024 15:19",
+		"changeSetsFromMappers:toMappers:old:common:new:in:" : "mad 4/29/2024 23:15",
 		"hasMappersFile:" : "mad 4/18/2024 18:33",
 		"loadMappersFromFSCommit:" : "mad 9/20/2023 12:05",
 		"loadMappersFromFileSystem:" : "mad 9/20/2023 12:05",