Merge pull request #9212 from astares/9211-Mark-abstract-classes-in-M…

…icrodown-package---Second-attempt

Mark abstract classes in Microdown package - Second attempt

src/Microdown/MicAbstractAnnotatedBlock.class.st

@@ -9,6 +9,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicAbstractAnnotatedBlock class >> isAbstract [
+
+	^ self == MicAbstractAnnotatedBlock
+]
+
 { #category : #testing }
 MicAbstractAnnotatedBlock >> addLineAndReturnNextNode: line [
 	"line is assumed to be of the form '@@label some text

src/Microdown/MicAbstractBlock.class.st

@@ -17,6 +17,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicAbstractBlock class >> isAbstract [
+
+	^ self == MicAbstractBlock
+]
+
 { #category : #adding }
 MicAbstractBlock >> addChild: childBlock [
 	children add: childBlock

src/Microdown/MicAbstractDelimiter.class.st

@@ -33,6 +33,12 @@ MicAbstractDelimiter class >> index: anIndex [
 	^ self new index: anIndex; yourself
 ]
 
+{ #category : #testing }
+MicAbstractDelimiter class >> isAbstract [
+
+	^ self == MicAbstractDelimiter
+]
+
 { #category : #testing }
 MicAbstractDelimiter class >> isActive [
 	^ true

src/Microdown/MicAbstractMicrodownTextualBuilder.class.st

@@ -13,6 +13,12 @@ Class {
 	#category : #'Microdown-Parser'
 }
 
+{ #category : #testing }
+MicAbstractMicrodownTextualBuilder class >> isAbstract [
+
+	^ self == MicAbstractMicrodownTextualBuilder
+]
+
 { #category : #'instance creation' }
 MicAbstractMicrodownTextualBuilder class >> on: aStream [ 
 	^ self new

src/Microdown/MicContinuousMarkedBlock.class.st

@@ -25,6 +25,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicContinuousMarkedBlock class >> isAbstract [
+
+	^ self == MicContinuousMarkedBlock
+]
+
 { #category : #actions }
 MicContinuousMarkedBlock >> addLineAndReturnNextNode: line [
 	"line is assumed to be of the form 'chararacters some text' e.g., '> some text'

src/Microdown/MicListBlock.class.st

@@ -50,6 +50,12 @@ Class {
 	#category : #'Microdown-Model'
 }
 
+{ #category : #testing }
+MicListBlock class >> isAbstract [
+
+	^ self == MicListBlock
+]
+
 { #category : #testing }
 MicListBlock >> addLineAndReturnNextNode: inLine [
 	"Create a new item, and insert it into me.