From 91be51047037301d46806ef4858988f4f90c7569 Mon Sep 17 00:00:00 2001
From: Torsten Bergmann <astares@gmx.de>
Date: Fri, 30 Apr 2021 01:01:50 +0200
Subject: [PATCH] Mark abstract classes in Microdown package - Second attempt

Fix #9211
---
 src/Microdown/MicAbstractAnnotatedBlock.class.st          | 6 ++++++
 src/Microdown/MicAbstractBlock.class.st                   | 6 ++++++
 src/Microdown/MicAbstractDelimiter.class.st               | 6 ++++++
 src/Microdown/MicAbstractMicrodownTextualBuilder.class.st | 6 ++++++
 src/Microdown/MicContinuousMarkedBlock.class.st           | 6 ++++++
 src/Microdown/MicListBlock.class.st                       | 6 ++++++
 6 files changed, 36 insertions(+)

diff --git a/src/Microdown/MicAbstractAnnotatedBlock.class.st b/src/Microdown/MicAbstractAnnotatedBlock.class.st
index 1562e99b823..3582e84bea9 100644
--- a/src/Microdown/MicAbstractAnnotatedBlock.class.st
+++ b/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
diff --git a/src/Microdown/MicAbstractBlock.class.st b/src/Microdown/MicAbstractBlock.class.st
index e27adbe7ed6..68d1d1d3f49 100644
--- a/src/Microdown/MicAbstractBlock.class.st
+++ b/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
diff --git a/src/Microdown/MicAbstractDelimiter.class.st b/src/Microdown/MicAbstractDelimiter.class.st
index f543aa59e93..6c3fc39fccf 100644
--- a/src/Microdown/MicAbstractDelimiter.class.st
+++ b/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
diff --git a/src/Microdown/MicAbstractMicrodownTextualBuilder.class.st b/src/Microdown/MicAbstractMicrodownTextualBuilder.class.st
index d0dc352d527..348654e3f4f 100644
--- a/src/Microdown/MicAbstractMicrodownTextualBuilder.class.st
+++ b/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
diff --git a/src/Microdown/MicContinuousMarkedBlock.class.st b/src/Microdown/MicContinuousMarkedBlock.class.st
index 656f7cfd405..2349b8bc824 100644
--- a/src/Microdown/MicContinuousMarkedBlock.class.st
+++ b/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'
diff --git a/src/Microdown/MicListBlock.class.st b/src/Microdown/MicListBlock.class.st
index 70e60e58b30..e223508fff9 100644
--- a/src/Microdown/MicListBlock.class.st
+++ b/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.