Add change log

Also include changes for the last few commits that have not been
released at this point.

Closes #62.

src/GitS-Core.package/GSSelfUpdater.class/class/changeLog.st

@@ -0,0 +1,7 @@
+change-log
+changeLog
+	^ {
+		'Warnings about uncommitted changes before merging only occur when not up-to-date.'.
+		'The list of branches, remote branches, etc. is now a tree. Hover over the root nodes to get an explanation.'.
+		'A change log is shown after a self-update (the one you are currently seeing :)).'.
+	}

src/GitS-Core.package/GSSelfUpdater.class/class/postInstallVersion..st

@@ -1,3 +1,5 @@
 self-updating
 postInstallVersion: aString
-	self installedVersion: (self getShaOfVersion: aString).
+	self
+		installedVersion: (self getShaOfVersion: aString);
+		showChangeLog.

src/GitS-Core.package/GSSelfUpdater.class/class/showChangeLog.st

@@ -0,0 +1,17 @@
+change-log
+showChangeLog
+	| log notShown |
+	log := self changeLog.
+	notShown := log copyWithFirst: self shownChangeLogLength.
+	notShown ifEmpty: [^ self].
+	self inform: (String streamContents: [:stream |
+		stream
+			nextPutAll: 'Change log since your last update of git-s:';
+			cr.
+		notShown do: [:each |
+			stream
+				nextPutAll: '* ';
+				nextPutAll: each key;
+				nextPut: Character tab;
+				nextPutAll: each value;
+				cr]]).

src/GitS-Core.package/GSSelfUpdater.class/class/shownChangeLogLength.st

@@ -0,0 +1,3 @@
+change-log
+shownChangeLogLength
+	^ ShownChangeLogLength ifNil: [0]

src/GitS-Core.package/GSSelfUpdater.class/methodProperties.json

@@ -3,6 +3,7 @@
 		"basicCheckForNewVersion" : "mad 10/25/2024 11:34",
 		"branchName" : "mad 11/4/2024 13:01",
 		"branchName:" : "mad 11/4/2024 13:02",
+		"changeLog" : "mad 12/23/2024 21:12",
 		"checkForNewVersion" : "mad 10/25/2024 11:32",
 		"fullRepositoryName" : "mad 10/9/2024 16:33",
 		"getShaOfVersion:" : "mad 10/24/2024 15:07",
@@ -17,13 +18,15 @@
 		"lastVersionCheckWasRecent" : "mad 10/25/2024 11:35",
 		"metacelloRepositorySpecForVersion:" : "mad 11/4/2024 13:02",
 		"organizationName" : "mad 10/9/2024 16:34",
-		"postInstallVersion:" : "mad 10/9/2024 18:40",
+		"postInstallVersion:" : "mad 12/23/2024 21:04",
 		"projectName" : "mad 10/9/2024 16:33",
 		"promptForNewVersion" : "mad 10/25/2024 11:49",
 		"repositoryName" : "mad 10/9/2024 16:34",
 		"requestAndSetBranchName" : "mad 11/4/2024 13:12",
 		"requestBranchName" : "mad 11/4/2024 13:05",
 		"selfUpdate" : "mad 10/9/2024 19:28",
+		"showChangeLog" : "mad 12/23/2024 20:59",
+		"shownChangeLogLength" : "mad 12/23/2024 20:59",
 		"versionCheckInterval" : "mad 10/25/2024 11:34" },
 	"instance" : {
 		 } }

src/GitS-Core.package/GSSelfUpdater.class/properties.json

@@ -5,7 +5,8 @@
 	"classvars" : [
 		"BranchName",
 		"InstalledVersion",
-		"LastVersionCheck" ],
+		"LastVersionCheck",
+		"ShownChangeLogLength" ],
 	"commentStamp" : "",
 	"instvars" : [
 		 ],