Loads text anchor patch and cleans up image after build

Author: codeZeilen

scripts/prepare_image.st

@@ -12,15 +12,22 @@ Installer installGitInfrastructure.
 author initials which might fail these tests. So we set some dummy initials here to avoid this."
 (Smalltalk at: #MetacelloPlatform) current authorName: 'BabylonianInstallation'.
 
+"Load patches for text anchor placement"
+FileStream fileIn: 'TextAnchorPlacement.cs'.
+
 "Load Babylonian into image"
 (Smalltalk at: #Metacello) new
   baseline: 'BabylonianProgramming';
   repository: 'filetree:///home/runner/work/babylonian-programming-smalltalk/babylonian-programming-smalltalk/packages';
   load: 'tests'.
 
 "Prepare Image a little bit"
+PluggableSystemWindow allInstances do: #abandon.
+PreferenceWizardMorph allInstances do: #abandon.
 SystemBrowser default: BPBrowser.
 
+((Smalltalk at: #BPFancyStar)>>#initialize) browse.
+
 TranscriptStream redirectToStdOut: false.
 Deprecation suppressed: false.