Merge pull request #117 from hpi-swa-teaching/feature/strikeout

Enable strikeout of text
hpi-swa-teaching · May 12, 2021 · 3a0b404 · 3a0b404
2 parents a3bab9e + d65b4ce
commit 3a0b404
Show file tree

Hide file tree

Showing 97 changed files with 438 additions and 131 deletions.
diff --git a/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/class/mayBeginWith..st b/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/class/mayBeginWith..st
@@ -1,4 +1,4 @@
 testing
 mayBeginWith: aCharacter
 
-	^ aCharacter = $*
+	self subclassResponsibility
diff --git a/...-Core.package/MarkdownEmphasisDelimiter.class/instance/delimiterLengthForEmphasisWith..st b/...-Core.package/MarkdownEmphasisDelimiter.class/instance/delimiterLengthForEmphasisWith..st
@@ -1,4 +1,4 @@
 attribute
 delimiterLengthForEmphasisWith: aMarkdownEmphasisDelimiter
 
-	^ {self length. aMarkdownEmphasisDelimiter length. self boldLength} min
+	self subclassResponsibility
diff --git a/...Core.package/MarkdownEmphasisDelimiter.class/instance/emphasisFrom.to.delimiterLength..st b/...Core.package/MarkdownEmphasisDelimiter.class/instance/emphasisFrom.to.delimiterLength..st
@@ -1,6 +1,4 @@
 attribute
 emphasisFrom: start to: end delimiterLength: aLength
 
-	aLength = 1
-		ifTrue: [^ MarkdownItalic from: start to: end]
-		ifFalse: [^ MarkdownBold from: start to: end]
+	self subclassResponsibility
diff --git a/...MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/isExtendableWith..st b/...MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/isExtendableWith..st
@@ -1,4 +1,4 @@
 testing
 isExtendableWith: aCharacter
 
-	 ^ aCharacter = $*
+	self subclassResponsibility
diff --git a/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/matches..st b/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/matches..st
@@ -1,7 +1,7 @@
 testing
 matches: aMarkdownEmphasisDelimiter
 
-	 ^ aMarkdownEmphasisDelimiter type = 'EmphasisDelimiter' 
+	 ^ aMarkdownEmphasisDelimiter type = self type
 		and: [((self isOpener and: [aMarkdownEmphasisDelimiter isCloser])
 		or: [self isCloser and: [aMarkdownEmphasisDelimiter isOpener]])
 		and: [(self isOpenerAndCloser or: [aMarkdownEmphasisDelimiter isOpenerAndCloser])

diff --git a/...downEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/punctuationCharacters.st b/...downEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/punctuationCharacters.st
@@ -1,4 +1,4 @@
 constants
 punctuationCharacters
 
-	^ #($! $" $# $$ $% $& $' $( $) $* $+ $, $- $. $/ $: $; $< $= $> $? $@ $[ $] $\ $^ $_ $` ${ $} $| $~)
+	self subclassResponsibility
diff --git a/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/type.st b/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/instance/type.st
diff --git a/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownEmphasisDelimiter.class/methodProperties.json
@@ -1,24 +1,22 @@
 {
 	"class" : {
-		"mayBeginWith:" : "jst 6/26/2019 14:35" },
+		"mayBeginWith:" : "F.S 5/6/2021 15:15" },
 	"instance" : {
-		"boldLength" : "fgo 5/10/2019 15:54",
 		"decideLeftFlankingForPreceding:following:" : "azi 8/6/2020 08:06",
 		"decideRightFlankingForPreceding:following:" : "azi 8/6/2020 08:06",
-		"delimiterLengthForEmphasisWith:" : "jst 7/25/2019 14:28",
-		"emphasisFrom:to:delimiterLength:" : "cg 6/29/2020 21:52",
-		"emphasisStartingAt:" : "jst 7/25/2019 14:28",
+		"delimiterLengthForEmphasisWith:" : "jh 5/7/2021 11:01",
+		"emphasisFrom:to:delimiterLength:" : "jh 5/7/2021 11:02",
+		"emphasisStartingAt:" : "F.S 5/6/2021 15:02",
 		"isCloser" : "jko 5/6/2019 16:20",
 		"isDelimiter" : "fgo 5/4/2019 21:08",
-		"isExtendableWith:" : "jst 6/28/2019 15:15",
+		"isExtendableWith:" : "jh 5/7/2021 11:09",
 		"isLeftFlanking" : "jko 5/23/2019 12:06",
 		"isLeftFlanking:" : "jko 5/23/2019 12:42",
 		"isOpener" : "jko 5/6/2019 16:20",
 		"isOpenerAndCloser" : "jko 5/6/2019 16:20",
 		"isRightFlanking" : "jko 5/23/2019 12:06",
 		"isRightFlanking:" : "jko 5/23/2019 12:43",
-		"matches:" : "azi 8/6/2020 08:07",
-		"punctuationCharacters" : "MK 7/3/2020 21:06",
+		"matches:" : "F.S 5/6/2021 15:17",
+		"punctuationCharacters" : "jh 5/7/2021 11:02",
 		"setPreceding:following:" : "jst 6/29/2019 16:11",
-		"type" : "MK 7/5/2020 20:50",
 		"whitespaceCharacters" : "MK 7/3/2020 21:07" } }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownHtmlConverter.class/instance/convertStrike..st b/packages/MarkdownEditor-Core.package/MarkdownHtmlConverter.class/instance/convertStrike..st
@@ -0,0 +1,4 @@
+converting
+convertStrike: aMarkdownStrike
+
+	^ '<del>', aMarkdownStrike content, '</del>'
diff --git a/packages/MarkdownEditor-Core.package/MarkdownHtmlConverter.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownHtmlConverter.class/methodProperties.json
@@ -13,13 +13,14 @@
 		"convertHeading:" : "MK 7/5/2020 20:10",
 		"convertHeadingStyleSettings:" : "MK 7/9/2020 14:43",
 		"convertInlines:" : "azi 8/6/2020 08:08",
-		"convertItalic:" : "cg 6/29/2020 22:01",
+		"convertItalic:" : "F.S 5/6/2021 15:01",
 		"convertLink:" : "cg 6/29/2020 21:42",
 		"convertList:withTag:" : "cg 6/29/2020 22:20",
 		"convertOrderedList:" : "cg 6/29/2020 17:58",
 		"convertOrderedListStyleSettings:" : "MK 7/9/2020 15:43",
 		"convertParagraph:" : "mas 8/6/2020 09:59",
 		"convertParagraphStyleSettings:" : "MK 7/9/2020 14:43",
+		"convertStrike:" : "F.S 5/6/2021 13:12",
 		"convertStyleSettings:" : "mas 8/6/2020 09:57",
 		"convertUnorderedList:" : "cg 6/29/2020 17:57",
 		"convertUnorderedListStyleSettings:" : "MK 7/9/2020 15:42",

diff --git a/...ownEditor-Core.package/MarkdownInlineTextStyler.class/instance/createEmphasisFrom.and..st b/...ownEditor-Core.package/MarkdownInlineTextStyler.class/instance/createEmphasisFrom.and..st
@@ -3,6 +3,7 @@ createEmphasisFrom: opener and: closer
 
 	| emphasis |
 	emphasis := closer emphasisStartingAt: opener.
+	emphasis ifNil: [^ nil].
 	emphasis content: (self content copyFrom: opener endPosition + 1 
 									 to: closer startPosition - 1).
 	^ emphasis
diff --git a/...es/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/interpretTokens.st b/...es/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/interpretTokens.st
@@ -7,7 +7,9 @@ interpretTokens
 	[(currentToken isDelimiter and: [currentToken isCloser]) 
 		ifTrue: [self 
 			findOpenerFor: currentToken 
-			ifFound: [:opener | currentToken := self process: opener and: currentToken]].
+			ifFound: [:opener| | token |
+				token := self process: opener and: currentToken.
+				token ifNotNil: [currentToken := token]]].
 	currentToken = self tokens last
 		ifFalse: [currentToken := self tokens after: currentToken]
 		ifTrue: [^ self]] repeat
diff --git a/packages/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/process.and..st b/packages/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/process.and..st
@@ -3,7 +3,8 @@ process: opener and: closer
 
 	(opener type = 'LinkDelimiter' and: [closer type = 'LinkDelimiter']) 
 		ifTrue: [	^ self processLink: opener and: closer].
-	(opener type = 'EmphasisDelimiter' and: [closer type = 'EmphasisDelimiter'])
+	(opener type = 'ItalicBoldDelimiter' and: [closer type = 'ItalicBoldDelimiter'])
+		ifTrue: [^ self processEmphasis: opener and: closer].
+	(opener type = 'StrikeDelimiter' and: [closer type = 'StrikeDelimiter'])
 		ifTrue: [^ self processEmphasis: opener and: closer].
-
 	^ closer
diff --git a/...rkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/processEmphasis.and..st b/...rkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/processEmphasis.and..st
@@ -1,9 +1,10 @@
 parsing
 processEmphasis: opener and: closer
 
-	| length |
-
-	self inlineElements add: (self createEmphasisFrom: opener and: closer).
+	| length token|
+	token := (self createEmphasisFrom: opener and: closer).
+	token ifNotNil: 
+		[self inlineElements add: (self createEmphasisFrom: opener and: closer)] ifNil: [^nil].
 	self removeDelimitersBetween: opener and: closer.
 	length := closer delimiterLengthForEmphasisWith: opener.
 	self cutOpener: opener to: length.

diff --git a/packages/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/tokenFor.at..st b/packages/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/instance/tokenFor.at..st
@@ -2,7 +2,7 @@ parsing - tokenization
 tokenFor: aCharacter at: position
 
 	| matchingTokenClass |
-	matchingTokenClass := {MarkdownEmphasisDelimiter. MarkdownOpeningLinkDelimiter. 
+	matchingTokenClass := {MarkdownStrikeDelimiter. MarkdownItalicBoldDelimiter. MarkdownOpeningLinkDelimiter. 
 			MarkdownClosingLinkDelimiter. MarkdownOpeningURLDelimiter. 
 			MarkdownClosingURLDelimiter}
 		detect: [:tokenClass | tokenClass mayBeginWith: aCharacter]

diff --git a/packages/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownInlineTextStyler.class/methodProperties.json
@@ -6,7 +6,7 @@
 		"clean" : "hsl 5/19/2020 22:42",
 		"content" : "hsl 5/19/2020 15:11",
 		"content:" : "hsl 5/19/2020 15:11",
-		"createEmphasisFrom:and:" : "azi 8/6/2020 07:46",
+		"createEmphasisFrom:and:" : "F.S 5/6/2021 14:46",
 		"createLinkFrom:and:" : "cg 6/29/2020 22:52",
 		"createTokensFrom:" : "MK 7/5/2020 20:41",
 		"cutCloser:to:" : "hsl 5/17/2020 18:18",
@@ -19,20 +19,20 @@
 		"initialize" : "jst 6/29/2019 16:09",
 		"inlineElements" : "hsl 5/19/2020 22:41",
 		"inlineElements:" : "hsl 5/19/2020 22:41",
-		"interpretTokens" : "hsl 5/17/2020 15:54",
-		"parse:" : "hsl 8/5/2020 21:26",
+		"interpretTokens" : "F.S 5/6/2021 16:44",
+		"parse:" : "F.S 5/6/2021 14:38",
 		"precedingCharacterOf:" : "jst 6/26/2019 23:26",
 		"precedingTokenOf:" : "hsl 5/19/2020 13:26",
 		"privateFormat:" : "jst 6/28/2019 14:02",
 		"privateStyle:" : "jko 6/25/2019 22:04",
-		"process:and:" : "hsl 7/28/2020 13:38",
+		"process:and:" : "F.S 5/6/2021 15:38",
 		"processAdjacentTokens" : "jst 6/29/2019 16:11",
-		"processEmphasis:and:" : "mas 8/6/2020 10:37",
+		"processEmphasis:and:" : "F.S 5/6/2021 16:44",
 		"processLink:and:" : "mas 8/6/2020 10:37",
 		"processOpeningURLDelimiter:" : "azi 8/6/2020 08:04",
 		"removeDelimitersBetween:and:" : "MK 7/27/2020 11:10",
 		"reset" : "jst 6/28/2019 14:03",
-		"tokenFor:at:" : "azi 8/6/2020 08:03",
+		"tokenFor:at:" : "F.S 5/6/2021 15:28",
 		"tokenize:" : "hsl 8/5/2020 22:53",
 		"tokens" : "jko 5/6/2019 15:10",
 		"tokens:" : "jko 5/6/2019 15:11" } }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownItalic.class/class/from.to..st b/packages/MarkdownEditor-Core.package/MarkdownItalic.class/class/from.to..st
@@ -1,4 +1,4 @@
-instance creation
+as yet unclassified
 from: startPosition to: endPosition
 
 	^ self new

diff --git a/packages/MarkdownEditor-Core.package/MarkdownItalic.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownItalic.class/methodProperties.json
@@ -1,6 +1,6 @@
 {
 	"class" : {
-		"from:to:" : "cg 6/29/2020 21:50" },
+		"from:to:" : "F.S 5/6/2021 13:47" },
 	"instance" : {
-		"convertWith:" : "cg 6/29/2020 22:35",
-		"indicator" : "hsl 6/30/2020 16:58" } }
+		"convertWith:" : "F.S 5/6/2021 13:47",
+		"indicator" : "F.S 5/6/2021 13:47" } }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/README.md b/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/README.md
diff --git a/...ages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/class/mayBeginWith..st b/...ages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/class/mayBeginWith..st
@@ -0,0 +1,4 @@
+testing
+mayBeginWith: aCharacter
+
+	^ aCharacter = $*
diff --git a/...sisDelimiter.class/instance/boldLength.st → ...oldDelimiter.class/instance/boldLength.st b/...sisDelimiter.class/instance/boldLength.st → ...oldDelimiter.class/instance/boldLength.st
diff --git a/...ore.package/MarkdownItalicBoldDelimiter.class/instance/delimiterLengthForEmphasisWith..st b/...ore.package/MarkdownItalicBoldDelimiter.class/instance/delimiterLengthForEmphasisWith..st
@@ -0,0 +1,4 @@
+attribute
+delimiterLengthForEmphasisWith: aMarkdownEmphasisDelimiter
+
+	^ {self length. aMarkdownEmphasisDelimiter length. self boldLength} min
diff --git a/...re.package/MarkdownItalicBoldDelimiter.class/instance/emphasisFrom.to.delimiterLength..st b/...re.package/MarkdownItalicBoldDelimiter.class/instance/emphasisFrom.to.delimiterLength..st
@@ -0,0 +1,6 @@
+attribute
+emphasisFrom: start to: end delimiterLength: aLength
+
+	aLength = 1
+		ifTrue: [^ MarkdownItalic from: start to: end]
+		ifFalse: [^ MarkdownBold from: start to: end]
diff --git a/...rkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/instance/isExtendableWith..st b/...rkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/instance/isExtendableWith..st
@@ -0,0 +1,4 @@
+testing
+isExtendableWith: aCharacter
+
+	^ aCharacter = $*
diff --git a/...wnEditor-Core.package/MarkdownItalicBoldDelimiter.class/instance/punctuationCharacters.st b/...wnEditor-Core.package/MarkdownItalicBoldDelimiter.class/instance/punctuationCharacters.st
@@ -0,0 +1,4 @@
+constants
+punctuationCharacters
+
+	^ #($! $" $# $$ $% $& $' $( $) $* $+ $, $- $. $/ $: $; $< $= $> $? $@ $[ $] $\ $^ $_ $` ${ $} $| $~)
diff --git a/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/instance/type.st b/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/instance/type.st
@@ -0,0 +1,4 @@
+constants
+type
+
+	^ 'ItalicBoldDelimiter'
diff --git a/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/methodProperties.json
@@ -0,0 +1,10 @@
+{
+	"class" : {
+		"mayBeginWith:" : "F.S 5/6/2021 15:19" },
+	"instance" : {
+		"boldLength" : "jh 5/7/2021 10:46",
+		"delimiterLengthForEmphasisWith:" : "jh 5/7/2021 10:46",
+		"emphasisFrom:to:delimiterLength:" : "F.S 5/6/2021 15:20",
+		"isExtendableWith:" : "F.S 5/6/2021 15:21",
+		"punctuationCharacters" : "F.S 5/6/2021 15:22",
+		"type" : "F.S 5/6/2021 15:36" } }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/properties.json b/packages/MarkdownEditor-Core.package/MarkdownItalicBoldDelimiter.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "MarkdownEditor-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "MarkdownItalicBoldDelimiter",
+	"pools" : [
+		 ],
+	"super" : "MarkdownEmphasisDelimiter",
+	"type" : "normal" }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrike.class/README.md b/packages/MarkdownEditor-Core.package/MarkdownStrike.class/README.md
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrike.class/class/from.to..st b/packages/MarkdownEditor-Core.package/MarkdownStrike.class/class/from.to..st
@@ -0,0 +1,7 @@
+instance creation
+from: startPosition to: endPosition
+
+	^ self new
+		textAttribute: TextEmphasis struckOut;
+		setFrom: startPosition to: endPosition;
+		yourself
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrike.class/instance/convertWith..st b/packages/MarkdownEditor-Core.package/MarkdownStrike.class/instance/convertWith..st
@@ -0,0 +1,4 @@
+export
+convertWith: aConverter
+
+	^ aConverter convertStrike: self
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrike.class/instance/indicator.st b/packages/MarkdownEditor-Core.package/MarkdownStrike.class/instance/indicator.st
@@ -0,0 +1,4 @@
+accessing
+indicator
+
+	^ '~~'
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrike.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownStrike.class/methodProperties.json
@@ -0,0 +1,6 @@
+{
+	"class" : {
+		"from:to:" : "F.S 5/6/2021 13:15" },
+	"instance" : {
+		"convertWith:" : "F.S 5/6/2021 13:14",
+		"indicator" : "F.S 5/6/2021 13:14" } }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrike.class/properties.json b/packages/MarkdownEditor-Core.package/MarkdownStrike.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "MarkdownEditor-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "MarkdownStrike",
+	"pools" : [
+		 ],
+	"super" : "MarkdownEmphasis",
+	"type" : "normal" }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/README.md b/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/README.md
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/class/mayBeginWith..st b/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/class/mayBeginWith..st
@@ -0,0 +1,4 @@
+testing
+mayBeginWith: aCharacter
+
+	^ aCharacter = $~
diff --git a/...or-Core.package/MarkdownStrikeDelimiter.class/instance/delimiterLengthForEmphasisWith..st b/...or-Core.package/MarkdownStrikeDelimiter.class/instance/delimiterLengthForEmphasisWith..st
@@ -0,0 +1,4 @@
+attribute
+delimiterLengthForEmphasisWith: aMarkdownEmphasisDelimiter
+
+	^ {self length. aMarkdownEmphasisDelimiter length. self neededLength} min
diff --git a/...r-Core.package/MarkdownStrikeDelimiter.class/instance/emphasisFrom.to.delimiterLength..st b/...r-Core.package/MarkdownStrikeDelimiter.class/instance/emphasisFrom.to.delimiterLength..st
@@ -0,0 +1,6 @@
+attribute
+emphasisFrom: start to: end delimiterLength: aLength
+
+	aLength = 2
+		ifTrue: [^ MarkdownStrike from: start to: end]
+		ifFalse: [^ nil]
diff --git a/...s/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/isExtendableWith..st b/...s/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/isExtendableWith..st
@@ -0,0 +1,4 @@
+testing
+isExtendableWith: aCharacter
+
+	^ aCharacter = $~
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/neededLength.st b/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/neededLength.st
@@ -0,0 +1,4 @@
+constants
+neededLength
+
+	^ 2
diff --git a/...rkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/punctuationCharacters.st b/...rkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/punctuationCharacters.st
@@ -0,0 +1,4 @@
+constants
+punctuationCharacters
+
+	^ #($! $" $# $$ $% $& $' $( $) $* $+ $, $- $. $/ $: $; $< $= $> $? $@ $[ $] $\ $^ $_ $` ${ $} $|)
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/type.st b/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/instance/type.st
@@ -0,0 +1,4 @@
+constants
+type
+
+	^ 'StrikeDelimiter'
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/methodProperties.json b/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/methodProperties.json
@@ -0,0 +1,10 @@
+{
+	"class" : {
+		"mayBeginWith:" : "F.S 5/6/2021 15:25" },
+	"instance" : {
+		"delimiterLengthForEmphasisWith:" : "jh 5/7/2021 10:46",
+		"emphasisFrom:to:delimiterLength:" : "F.S 5/6/2021 15:27",
+		"isExtendableWith:" : "F.S 5/6/2021 15:30",
+		"neededLength" : "jh 5/7/2021 10:47",
+		"punctuationCharacters" : "F.S 5/6/2021 15:24",
+		"type" : "F.S 5/6/2021 15:36" } }
diff --git a/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/properties.json b/packages/MarkdownEditor-Core.package/MarkdownStrikeDelimiter.class/properties.json
@@ -0,0 +1,14 @@
+{
+	"category" : "MarkdownEditor-Core",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		 ],
+	"name" : "MarkdownStrikeDelimiter",
+	"pools" : [
+		 ],
+	"super" : "MarkdownEmphasisDelimiter",
+	"type" : "normal" }