<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Merged.<div><br></div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 06.11.2021 21:47:13 schrieb christoph.thiede@student.hpi.uni-potsdam.de <christoph.thiede@student.hpi.uni-potsdam.de>:</p><div style='font-family:Arial,Helvetica,sans-serif'>
<b>==================== Summary ====================</b><br>
<br>
Change Set: decoupleShout<br>
Date: 2 November 2021<br>
Author: Christoph Thiede<br>
<br>
This changeset complements the refactoring from System-mt.1240 intended to decouple the base system from Shout. In various places, there were still hard-coded references to SHTextStylerST80 that did not use the new TextStyler abstraction. These accesses are redirected correctly with this changeset. Furthermore, the TextStyler interface is updated to not automatically set a styler if it has been set to nil manually. This makes it possible to opt-out to styling via ShoutCore-ct.88.<br>
<br>
<b>=============== Diff ===============</b><br>
<br>
<b>PBClassPreferenceView>>initialize {initialize-release} · ct 11/1/2021 23:25 (changed)</b><br>
initialize<br>
super initialize.<br>
<span style="color: #0000FF">- styler := (Smalltalk classNamed: 'SHTextStylerST80') ifNotNil: [:s | s new].<br>
- completionController := (Smalltalk classNamed: 'OController') ifNotNil: [:oc | oc model: self].<br>
</span><span style="color: #FF0000">+ styler := (TextStyler for: #Smalltalk) ifNotNil: [:s | s new].<br>
+ completionController := (Smalltalk classNamed: #OController) ifNotNil: [:oc | oc model: self].</span><br>
<br>
<b>PluggableCodePaneSpec>>stylerClass {accessing} · ct 11/1/2021 23:21 (changed)</b><br>
stylerClass<br>
<br>
<span style="color: #0000FF">- ^ super stylerClass ifNil: [Smalltalk classNamed: 'SHTextStylerST80']<br>
</span><span style="color: #FF0000">+ ^ super stylerClass ifNil: [TextStyler for: #Smalltalk]</span><br>
<br>
<b>SmalltalkEditor>>styleSelection {do-its} · ct 11/1/2021 23:30 (changed)</b><br>
styleSelection<br>
<br>
| styler |<br>
self lineSelectAndEmptyCheck: [^ ''].<br>
<span style="color: #0000FF">- styler := self styler ifNil: [(TextStyler for: #Smalltalk) new].<br>
</span><span style="color: #FF0000">+ styler := self styler ifNil: [(TextStyler for: #Smalltalk) ifNotNil: [:c | c new]].<br>
</span> ^ styler styledTextFor: self selection<br>
<br>
<b>TextStyler class>>defaultFor: {accessing} · ct 11/1/2021 23:30 (changed)</b><br>
defaultFor: syntax<br>
<br>
<span style="color: #0000FF">- ^ default<br>
- at: syntax<br>
- ifAbsent: [self askForDefaultFor: syntax]<br>
</span><span style="color: #FF0000">+ ^ self defaultOrNilFor: syntax</span><br>
<br>
<br>
<span style="color: #808080">---<br>
</span><i><span style="color: #808080">Sent from </span></i><i><u><a href="https://github.com/hpi-swa-lab/squeak-inbox-talk"><span style="color: #808080">Squeak Inbox Talk</span></a></u></i>
</div></blockquote>
</div></body>