Uses a smaller patch to enable text anchor placement

codeZeilen · codeZeilen · commit e3d036755a35 · 2020-10-16T13:05:01.000+02:00
diff --git a/scripts/SOHCharacter.cs b/scripts/SOHCharacter.cs
@@ -0,0 +1 @@
+'From Squeak6.0alpha of 15 October 2020 [latest update: #19999] on 16 October 2020 at 12:58:31 pm'!!BPFancyStar methodsFor: 'initialization' stamp: 'pre 10/16/2020 12:58'!foobar10	<exampleNamed: 'some example 86' active: true self: ''>	(2 to: 5) do: [:outerNumber |		(outerNumber to: 9) do: "<bpSlider id: 6021471>"[:innerNumber | 						Transcript showln: "<bpProbe id: 1570630>"innerNumber"</bpProbe>" ]"</bpSlider>"]! !!Character class methodsFor: 'accessing untypeable characters' stamp: 'pre 5/28/2019 18:16'!startOfHeader	^ self value: 1 ! !!Character class methodsFor: 'instance creation' stamp: 'pre 6/28/2019 10:37'!separators	"Answer a collection of space-like separator characters.	Note that we do not consider spaces in >8bit code points yet.	"	^ #(1 "start of header"		9 "tab"		10 "line feed"		12 "form feed"		13 "cr"		32 "space"		160 "non-breaking space, see Unicode Z general category")		collect: [:v | Character value: v] as: String" To be considered:16r1680 OGHAM SPACE MARK16r2000 EN QUAD16r2001 EM QUAD16r2002 EN SPACE16r2003 EM SPACE16r2004 THREE-PER-EM SPACE16r2005 FOUR-PER-EM SPACE16r2006 SIX-PER-EM SPACE16r2007 FIGURE SPACE16r2008 PUNCTUATION SPACE16r2009 THIN SPACE16r200A HAIR SPACE16r2028 LINE SEPARATOR16r2029 PARAGRAPH SEPARATOR16r202F NARROW NO-BREAK SPACE16r205F MEDIUM MATHEMATICAL SPACE16r3000 IDEOGRAPHIC SPACE"! !!TextMorphForEditView class methodsFor: 'constants' stamp: 'pre 6/24/2019 13:03'!defaultTextModificationCharacterSet	"This character set includes all characters that, when entered, modify a text.	The others are control or navigation characters."		^ (ByteCharacterSet newFrom: (((0 to: 30) collect: [:code | Character value: code]) 		difference: Character separators asArray , {Character backspace})) complement! !
diff --git a/scripts/prepare_image.st b/scripts/prepare_image.st
@@ -13,7 +13,7 @@ author initials which might fail these tests. So we set some dummy initials here
 (Smalltalk at: #MetacelloPlatform) current authorName: 'BabylonianInstallation'.
 
 "Load patches for text anchor placement"
-"FileStream fileIn: 'TextAnchorPlacement.cs'. Only needed for 5.3"
+FileStream fileIn: 'SOHCharacter.cs'.
 
 "Load Babylonian into image"
 (Smalltalk at: #Metacello) new
@@ -26,7 +26,7 @@ PluggableSystemWindow allInstances do: #abandon.
 PreferenceWizardMorph allInstances do: #abandon.
 SystemBrowser default: BPBrowser.
 
-((Smalltalk at: #BPFancyStar)>>#initialize) browse.
+((Smalltalk at: #BPFancyMorph)>>#initialize) browse.
 
 TranscriptStream redirectToStdOut: false.
 Deprecation suppressed: false.

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1 @@`
	`1`	+'From Squeak6.0alpha of 15 October 2020 [latest update: #19999] on 16 October 2020 at 12:58:31 pm'!!BPFancyStar methodsFor: 'initialization' stamp: 'pre 10/16/2020 12:58'!foobar10 <exampleNamed: 'some example 86' active: true self: ''> (2 to: 5) do: [:outerNumber \| (outerNumber to: 9) do: "<bpSlider id: 6021471>"[:innerNumber \| Transcript showln: "<bpProbe id: 1570630>"innerNumber"</bpProbe>" ]"</bpSlider>"]! !!Character class methodsFor: 'accessing untypeable characters' stamp: 'pre 5/28/2019 18:16'!startOfHeader ^ self value: 1 ! !!Character class methodsFor: 'instance creation' stamp: 'pre 6/28/2019 10:37'!separators "Answer a collection of space-like separator characters. Note that we do not consider spaces in >8bit code points yet. " ^ #(1 "start of header" 9 "tab" 10 "line feed" 12 "form feed" 13 "cr" 32 "space" 160 "non-breaking space, see Unicode Z general category") collect: [:v \| Character value: v] as: String" To be considered:16r1680 OGHAM SPACE MARK16r2000 EN QUAD16r2001 EM QUAD16r2002 EN SPACE16r2003 EM SPACE16r2004 THREE-PER-EM SPACE16r2005 FOUR-PER-EM SPACE16r2006 SIX-PER-EM SPACE16r2007 FIGURE SPACE16r2008 PUNCTUATION SPACE16r2009 THIN SPACE16r200A HAIR SPACE16r2028 LINE SEPARATOR16r2029 PARAGRAPH SEPARATOR16r202F NARROW NO-BREAK SPACE16r205F MEDIUM MATHEMATICAL SPACE16r3000 IDEOGRAPHIC SPACE"! !!TextMorphForEditView class methodsFor: 'constants' stamp: 'pre 6/24/2019 13:03'!defaultTextModificationCharacterSet "This character set includes all characters that, when entered, modify a text. The others are control or navigation characters." ^ (ByteCharacterSet newFrom: (((0 to: 30) collect: [:code \| Character value: code]) difference: Character separators asArray , {Character backspace})) complement! !