Merge pull request #142 from hpi-swa-teaching/105b-more-doits

105b more doits
hpi-swa-teaching · Jun 11, 2021 · 1fa1b4b · 1fa1b4b
2 parents 58ad7aa + b937503
commit 1fa1b4b
Show file tree

Hide file tree

Showing 59 changed files with 373 additions and 51 deletions.
diff --git a/packages/ChangesReloaded-Core.package/CRBrowser.class/class/getChangeListItemsFrom..st b/packages/ChangesReloaded-Core.package/CRBrowser.class/class/getChangeListItemsFrom..st
@@ -2,5 +2,5 @@ utils
 getChangeListItemsFrom: anOrderedCollectionOfChangeRecords
 
 	^ (anOrderedCollectionOfChangeRecords 
-		select: [:each | each isMethod or: each isClassComment])
+		reject: [:each | each isMisc])
 		collect: [:each | CRChangeListItem new changeRecord: each]
diff --git a/...ChangesReloaded-Core.package/CRBrowser.class/class/getChangeRecordsMissingInImageFrom..st b/...ChangesReloaded-Core.package/CRBrowser.class/class/getChangeRecordsMissingInImageFrom..st
@@ -12,4 +12,4 @@ getChangeRecordsMissingInImageFrom: aMultiByteFileStream
 	saveOrQuitIndex := (startupIndex to: changeRecords size) detect: [:i | (changeRecords at: i) isSaveOrQuit] 
 		ifNone: [^ OrderedCollection new].
 
-	^ changeRecords copyFrom: startupIndex to: saveOrQuitIndex
+	^ changeRecords copyFrom: startupIndex to: saveOrQuitIndex
diff --git a/packages/ChangesReloaded-Core.package/CRBrowser.class/class/retrieveChangeRecordsFrom..st b/packages/ChangesReloaded-Core.package/CRBrowser.class/class/retrieveChangeRecordsFrom..st
@@ -2,6 +2,7 @@ utils
 retrieveChangeRecordsFrom: aMultiByteFileStream
 
 	| changesFileCopy start end |
+
 	changesFileCopy := aMultiByteFileStream readOnlyCopy.
 	changesFileCopy setConverterForCode.
 	end := changesFileCopy size.

diff --git a/packages/ChangesReloaded-Core.package/CRBrowser.class/methodProperties.json b/packages/ChangesReloaded-Core.package/CRBrowser.class/methodProperties.json
@@ -4,13 +4,13 @@
 		"defaultBrowserHeight" : "SV 8/7/2020 12:58",
 		"defaultBrowserWidth" : "SV 8/7/2020 12:58",
 		"extent" : "SV 8/7/2020 15:37",
-		"getChangeListItemsFrom:" : "SV 8/1/2020 15:40",
-		"getChangeRecordsMissingInImageFrom:" : "TS 6/9/2021 16:11",
+		"getChangeListItemsFrom:" : "abd 6/11/2021 14:36",
+		"getChangeRecordsMissingInImageFrom:" : "abd 6/1/2021 17:26",
 		"newWith:" : "uh 6/21/2020 21:32",
 		"numberOfBytesToLoadChangesFrom" : "gf 5/20/2020 10:43",
-		"open" : "gf 7/25/2020 20:59",
+		"open" : "abd 5/31/2021 16:53",
 		"openWith:" : "gf 7/5/2020 13:58",
-		"retrieveChangeRecordsFrom:" : "mg 7/4/2020 21:02" },
+		"retrieveChangeRecordsFrom:" : "abd 5/31/2021 16:58" },
 	"instance" : {
 		"askToSave" : "anonym-HPI 5/24/2021 13:13",
 		"buildButtonSpecWith:label:action:help:enabled:" : "mg 8/7/2020 14:19",
@@ -36,7 +36,7 @@
 		"hasSelectedChangeListItem" : "SV 7/13/2020 16:15",
 		"hasSelectedMethodChangeListItem" : "JA 5/20/2021 17:16",
 		"hasValidChangeListSelectionIndex" : "gf 7/10/2020 12:33",
-		"initializeChangeListItemsWith:" : "SV 8/7/2020 15:17",
+		"initializeChangeListItemsWith:" : "abd 5/31/2021 16:34",
 		"initializeWith:" : "gf 7/25/2020 21:01",
 		"isLoadButtonEnabled" : "mg 8/6/2020 11:27",
 		"isPickButtonEnabled" : "gf 7/25/2020 20:09",

diff --git a/packages/ChangesReloaded-Core.package/CRChangeListItem.class/instance/description.st b/packages/ChangesReloaded-Core.package/CRChangeListItem.class/instance/description.st
@@ -1,7 +1,7 @@
 accessing
 description
 
-	| plainDescription |
-	plainDescription := (self type , ': ' , self nameOfAffectedClass , ' ' , self methodSelector , ' ' , self stamp) asText.
+	| plainDescription |	
+	plainDescription := (CRChangeRecordDescriber descriptionFor: self) asText.
 	self isPicked ifFalse: [self addUnpickedAttributes: plainDescription].
 	^ plainDescription
diff --git a/packages/ChangesReloaded-Core.package/CRChangeListItem.class/instance/nameOfAffectedClass.st b/packages/ChangesReloaded-Core.package/CRChangeListItem.class/instance/nameOfAffectedClass.st
diff --git a/packages/ChangesReloaded-Core.package/CRChangeListItem.class/methodProperties.json b/packages/ChangesReloaded-Core.package/CRChangeListItem.class/methodProperties.json
@@ -6,13 +6,12 @@
 		"addUnpickedAttributes:" : "TS 5/20/2021 11:12",
 		"changeRecord" : "SV 5/29/2020 22:13",
 		"changeRecord:" : "SV 5/29/2020 22:14",
-		"description" : "TS 5/26/2021 15:56",
+		"description" : "abd 6/2/2021 08:09",
 		"doesNotUnderstand:" : "gf 6/15/2020 23:22",
 		"hash" : "SV 8/7/2020 22:07",
 		"initialize" : "gf 7/15/2020 10:48",
 		"isPicked" : "SV 7/13/2020 16:05",
 		"isPicked:" : "SV 7/13/2020 16:05",
-		"nameOfAffectedClass" : "SV 7/13/2020 15:52",
 		"pick" : "gf 7/15/2020 10:45",
 		"togglePickStatus" : "mg 8/7/2020 22:33",
 		"unpick" : "gf 7/15/2020 10:45" } }
diff --git a/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/README.md b/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/README.md
@@ -0,0 +1 @@
+A CRChangeRecordDescriber is the class that returns a description for a ChangeListItem.
diff --git a/...eloaded-Core.package/CRChangeRecordDescriber.class/class/categoryCreatedDescriptionOf..st b/...eloaded-Core.package/CRChangeRecordDescriber.class/class/categoryCreatedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+categoryCreatedDescriptionOf: anRxMatcher
+
+	^ 'categoryCreated: #', (anRxMatcher subexpression: 4), ' in #', (anRxMatcher subexpression: 2)
diff --git a/.../ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/categoryCreatedRegex.st b/.../ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/categoryCreatedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+categoryCreatedRegex
+
+	^ '^([^ ]+) (class )?organization addCategory\: #(.+)$' asRegex
diff --git a/...eloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRemovedDescriptionOf..st b/...eloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRemovedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+categoryRemovedDescriptionOf: anRxMatcher
+
+	^ 'categoryRemoved: #', (anRxMatcher subexpression: 4), ' from #', (anRxMatcher subexpression: 2)
diff --git a/.../ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRemovedRegex.st b/.../ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRemovedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+categoryRemovedRegex
+
+	^ '^([^ ]+) (class )?organization removeCategory\: #(.+)$' asRegex
diff --git a/...eloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRenamedDescriptionOf..st b/...eloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRenamedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+categoryRenamedDescriptionOf: anRxMatcher
+
+	^ 'categoryRenamed: #', (anRxMatcher subexpression: 4), ' -> #', (anRxMatcher subexpression: 5), ' in #', (anRxMatcher subexpression: 2)
diff --git a/.../ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRenamedRegex.st b/.../ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/categoryRenamedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+categoryRenamedRegex
+
+	^ '^([^ ]+) (class )?organization renameCategory\: #(.+) toBe\: #(.+)$' asRegex
diff --git a/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/changeString..st b/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/changeString..st
@@ -0,0 +1,4 @@
+accessing
+changeString: anObject
+
+	changeString := anObject.
diff --git a/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/changeString.st b/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/changeString.st
@@ -0,0 +1,4 @@
+accessing
+changeString
+
+	^ changeString ifNil: ''
diff --git a/...sReloaded-Core.package/CRChangeRecordDescriber.class/class/classCommentDescriptionFor..st b/...sReloaded-Core.package/CRChangeRecordDescriber.class/class/classCommentDescriptionFor..st
@@ -0,0 +1,4 @@
+main
+classCommentDescriptionFor: aChangeListItem
+
+	^ 'classComment: ',  aChangeListItem commentClass name , ' ',  aChangeListItem stamp
diff --git a/...esReloaded-Core.package/CRChangeRecordDescriber.class/class/classCreatedDescriptionOf..st b/...esReloaded-Core.package/CRChangeRecordDescriber.class/class/classCreatedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+classCreatedDescriptionOf: anRxMatcher
+
+	^ 'classCreated: #', (anRxMatcher subexpression: 2), ' in #', (anRxMatcher subexpression: 3)
diff --git a/...ges/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/classCreatedRegex.st b/...ges/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/classCreatedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+classCreatedRegex      
+
+	^ '^[^ ]+ subclass\: #([\S]+).*category\: ''([^'']+)''$' asRegex
diff --git a/...esReloaded-Core.package/CRChangeRecordDescriber.class/class/classRemovedDescriptionOf..st b/...esReloaded-Core.package/CRChangeRecordDescriber.class/class/classRemovedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+classRemovedDescriptionOf: anRxMatcher
+
+	^ 'classRemoved: #', (anRxMatcher subexpression: 2)
diff --git a/...ges/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/classRemovedRegex.st b/...ges/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/classRemovedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+classRemovedRegex
+
+    ^ '^Smalltalk removeClassNamed\: #([^ ]+)$' asRegex
diff --git a/...esReloaded-Core.package/CRChangeRecordDescriber.class/class/classRenamedDescriptionOf..st b/...esReloaded-Core.package/CRChangeRecordDescriber.class/class/classRenamedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+classRenamedDescriptionOf: anRxMatcher
+
+	^ 'classRenamed: #', (anRxMatcher subexpression: 2), ' -> #', (anRxMatcher subexpression: 3)
diff --git a/...ges/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/classRenamedRegex.st b/...ges/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/classRenamedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+classRenamedRegex      
+
+	^ '^Smalltalk renameClassNamed\: #([^ ]+) as\: #([^ ]+)$' asRegex
diff --git a/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/descriptionFor..st b/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/descriptionFor..st
@@ -0,0 +1,8 @@
+main
+descriptionFor: aChangeListItem
+	aChangeListItem type caseOf: {
+		[#method] -> [^ self methodDescriptionFor: aChangeListItem].
+		[#classComment] -> [^ self classCommentDescriptionFor: aChangeListItem].
+		[#doIt] -> [^ self doItDescriptionFor: aChangeListItem].
+	}
+	"otherwise: [^ 'MISC should be removed ']"
diff --git a/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/doItDescriptionFor..st b/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/doItDescriptionFor..st
@@ -0,0 +1,26 @@
+main
+doItDescriptionFor: aChangeListItem
+
+	self changeString: aChangeListItem string.
+
+	"packages"
+	self if: self packageCreatedRegex matchesChangeString: [:matcher | ^ self packageCreatedDescriptionOf: matcher].
+	self if: self packageRemovedRegex matchesChangeString: [:matcher | ^ self packageRemovedDescriptionOf: matcher].
+	self if: self packageRenamedRegex matchesChangeString: [:matcher | ^ self packageRenamedDescriptionOf: matcher].
+
+	"classes"
+	self if: self classCreatedRegex matchesChangeString: [:matcher | ^ self classCreatedDescriptionOf: matcher].
+	self if: self classRemovedRegex matchesChangeString: [:matcher | ^ self classRemovedDescriptionOf: matcher].
+	self if: self classRenamedRegex matchesChangeString: [:matcher | ^ self classRenamedDescriptionOf: matcher].
+
+	"categories"
+	self if: self categoryCreatedRegex matchesChangeString: [:matcher | ^ self categoryCreatedDescriptionOf: matcher].
+	self if: self categoryRemovedRegex matchesChangeString: [:matcher | ^ self categoryRemovedDescriptionOf: matcher].
+	self if: self categoryRenamedRegex matchesChangeString: [:matcher | ^ self categoryRenamedDescriptionOf: matcher].
+
+	"methods"
+	self if: self methodRemovedRegex matchesChangeString: [:matcher | ^ self methodRemovedDescriptionOf: matcher].
+	self if: self methodRecategorizedRegex matchesChangeString: [:matcher | ^ self methodRecategorizedDescriptionOf: matcher].
+
+	"otherwise"
+	^ 'doIt: ', changeString
diff --git a/...angesReloaded-Core.package/CRChangeRecordDescriber.class/class/if.matchesChangeString..st b/...angesReloaded-Core.package/CRChangeRecordDescriber.class/class/if.matchesChangeString..st
@@ -0,0 +1,4 @@
+main
+if: anMatcher matchesChangeString: aBlock
+
+	^ (anMatcher matches: self changeString) ifTrue: [^ aBlock value: anMatcher]
diff --git a/...ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/methodDescriptionFor..st b/...ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/methodDescriptionFor..st
@@ -0,0 +1,4 @@
+main
+methodDescriptionFor: aChangeListItem
+
+	^ 'method: ',  aChangeListItem methodClassName , ' ' , aChangeListItem methodSelector, ' ', aChangeListItem stamp
diff --git a/...ded-Core.package/CRChangeRecordDescriber.class/class/methodRecategorizedDescriptionOf..st b/...ded-Core.package/CRChangeRecordDescriber.class/class/methodRecategorizedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+methodRecategorizedDescriptionOf: anRxMatcher
+
+	^ 'methodRecategorize: #', (anRxMatcher subexpression: 4), ' to #', (anRxMatcher subexpression: 5)
diff --git a/...ngesReloaded-Core.package/CRChangeRecordDescriber.class/class/methodRecategorizedRegex.st b/...ngesReloaded-Core.package/CRChangeRecordDescriber.class/class/methodRecategorizedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+methodRecategorizedRegex
+
+	^ '^([^ ]+) (class )?organization classify\: #(.+) under\: #(.+)$' asRegex
diff --git a/...sReloaded-Core.package/CRChangeRecordDescriber.class/class/methodRemovedDescriptionOf..st b/...sReloaded-Core.package/CRChangeRecordDescriber.class/class/methodRemovedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+methodRemovedDescriptionOf: anRxMatcher
+
+	^ 'methodRemoved: #', (anRxMatcher subexpression: 4), ' from #', (anRxMatcher subexpression: 2)
diff --git a/...es/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/methodRemovedRegex.st b/...es/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/methodRemovedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+methodRemovedRegex
+
+	^ '^([^ ]+) (class )?removeSelector\: #([^ ]+)$' asRegex
diff --git a/...Reloaded-Core.package/CRChangeRecordDescriber.class/class/packageCreatedDescriptionOf..st b/...Reloaded-Core.package/CRChangeRecordDescriber.class/class/packageCreatedDescriptionOf..st
@@ -0,0 +1,5 @@
+do it descriptions
+packageCreatedDescriptionOf: anRxMatcher
+
+	^ 'packageCreated: #', (anRxMatcher subexpression: 2)
+
diff --git a/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/packageCreatedRegex.st b/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/packageCreatedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+packageCreatedRegex
+
+	^ '^SystemOrganization addCategory\: #(.+)$' asRegex
diff --git a/...Reloaded-Core.package/CRChangeRecordDescriber.class/class/packageRemovedDescriptionOf..st b/...Reloaded-Core.package/CRChangeRecordDescriber.class/class/packageRemovedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+packageRemovedDescriptionOf: anRxMachter
+
+	^ 'packageRemoved: #', (anRxMachter subexpression: 2)
diff --git a/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/packageRemovedRegex.st b/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/packageRemovedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+packageRemovedRegex
+
+	^ '^SystemOrganization removeSystemCategory\: #(.+)$' asRegex
diff --git a/...Reloaded-Core.package/CRChangeRecordDescriber.class/class/packageRenamedDescriptionOf..st b/...Reloaded-Core.package/CRChangeRecordDescriber.class/class/packageRenamedDescriptionOf..st
@@ -0,0 +1,4 @@
+do it descriptions
+packageRenamedDescriptionOf: anRxMatcher
+
+	^ 'packageRenamed: #', (anRxMatcher subexpression: 2), ' -> #', (anRxMatcher subexpression: 3)
diff --git a/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/packageRenamedRegex.st b/...s/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/class/packageRenamedRegex.st
@@ -0,0 +1,4 @@
+do it regex
+packageRenamedRegex
+
+	^ '^SystemOrganization renameCategory\: #(.+) toBe\: #(.+)$' asRegex
diff --git a/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/methodProperties.json b/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/methodProperties.json
@@ -0,0 +1,33 @@
+{
+	"class" : {
+		"categoryCreatedDescriptionOf:" : "abd 6/7/2021 17:39",
+		"categoryCreatedRegex" : "abd 6/8/2021 19:51",
+		"categoryRemovedDescriptionOf:" : "FK 6/10/2021 20:42",
+		"categoryRemovedRegex" : "abd 6/8/2021 19:50",
+		"categoryRenamedDescriptionOf:" : "abd 6/7/2021 17:39",
+		"categoryRenamedRegex" : "abd 6/8/2021 19:51",
+		"changeString" : "abd 6/8/2021 20:02",
+		"changeString:" : "abd 6/8/2021 19:58",
+		"classCommentDescriptionFor:" : "abd 6/2/2021 08:23",
+		"classCreatedDescriptionOf:" : "abd 6/7/2021 17:39",
+		"classCreatedRegex" : "FK 6/10/2021 20:41",
+		"classRemovedDescriptionOf:" : "abd 6/7/2021 17:38",
+		"classRemovedRegex" : "anonym-HPI 6/5/2021 15:29",
+		"classRenamedDescriptionOf:" : "abd 6/7/2021 17:38",
+		"classRenamedRegex" : "anonym-HPI 6/5/2021 15:29",
+		"descriptionFor:" : "abd 6/7/2021 17:18",
+		"doItDescriptionFor:" : "abd 6/8/2021 20:07",
+		"if:matchesChangeString:" : "abd 6/8/2021 20:08",
+		"methodDescriptionFor:" : "abd 6/2/2021 08:23",
+		"methodRecategorizedDescriptionOf:" : "abd 6/7/2021 17:40",
+		"methodRecategorizedRegex" : "abd 6/8/2021 19:51",
+		"methodRemovedDescriptionOf:" : "abd 6/7/2021 17:40",
+		"methodRemovedRegex" : "anonym-HPI 6/5/2021 16:13",
+		"packageCreatedDescriptionOf:" : "abd 6/7/2021 17:37",
+		"packageCreatedRegex" : "abd 6/8/2021 19:51",
+		"packageRemovedDescriptionOf:" : "abd 6/7/2021 17:37",
+		"packageRemovedRegex" : "abd 6/8/2021 19:54",
+		"packageRenamedDescriptionOf:" : "abd 6/7/2021 17:37",
+		"packageRenamedRegex" : "abd 6/8/2021 19:52" },
+	"instance" : {
+		 } }
diff --git a/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/properties.json b/packages/ChangesReloaded-Core.package/CRChangeRecordDescriber.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "ChangesReloaded-Core",
+	"classinstvars" : [
+		"changeString" ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "abd 6/2/2021 08:52",
+	"instvars" : [
+		 ],
+	"name" : "CRChangeRecordDescriber",
+	"pools" : [
+		 ],
+	"super" : "Object",
+	"type" : "normal" }
diff --git a/packages/ChangesReloaded-Core.package/ChangeRecord.extension/instance/isInImage.st b/packages/ChangesReloaded-Core.package/ChangeRecord.extension/instance/isInImage.st
@@ -17,5 +17,6 @@ isInImage
 			class ifNil: [^ false].
 			class organization commentStamp ifNil: [^ false].
 			^ (TimeStamp fromAuthorStamp: class organization commentStamp) >= self timeStamp].
-
-	"TODO: doIt"
+
+	"FIXME"
+	^ (self type = #doIt) not
diff --git a/packages/ChangesReloaded-Core.package/ChangeRecord.extension/instance/isMisc.st b/packages/ChangesReloaded-Core.package/ChangeRecord.extension/instance/isMisc.st
@@ -0,0 +1,4 @@
+*ChangesReloaded-Core
+isMisc
+
+	^ self string beginsWith: '----'
diff --git a/packages/ChangesReloaded-Core.package/ChangeRecord.extension/methodProperties.json b/packages/ChangesReloaded-Core.package/ChangeRecord.extension/methodProperties.json
@@ -3,8 +3,9 @@
 		 },
 	"instance" : {
 		"isClassComment" : "gf 7/10/2020 13:03",
-		"isInImage" : "JA 6/4/2021 18:36",
+		"isInImage" : "abd 6/1/2021 17:27",
 		"isMethod" : "gf 6/5/2020 10:29",
+		"isMisc" : "abd 6/11/2021 20:58",
 		"isSaveOrQuit" : "TS 6/9/2021 16:25",
 		"isStartup" : "TS 6/9/2021 16:26",
 		"modifiesClass" : "SV 6/22/2020 21:45" } }