<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
<div>Hi Christoph.</div><div><br></div>Neither #<span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">veryShortPrintOn: nor #</span><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">shortPrintString are implemented in ParseNode. Does this contribution depend on something else?</span><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px"><br></span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Best,</span></div><div><span style="font-family: Arial, Helvetica, sans-serif;font-size: 13px">Marcel</span></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 26.10.2019 22:23:05 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of System was added to project The Inbox:<br>http://source.squeak.org/inbox/System-ct.1120.mcz<br><br>==================== Summary ====================<br><br>Name: System-ct.1120<br>Author: ct<br>Time: 26 October 2019, 10:22:46.213469 pm<br>UUID: 7ed0a01b-5518-e24f-9ead-65e1789c94d4<br>Ancestors: System-ct.1117<br><br>Revise System-ct.1117 (concerning CommonRequestStrings): Fix wrong dependency and improve code formatting<br><br>=============== Diff against System-ct.1117 ===============<br><br>Item was changed:<br> ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') -----<br> initializeCommonRequestStrings<br> "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu."<br> <br> CommonRequestStrings := StringHolder new contents: (<br>+ String streamContents: [:stream | self commonRequestBlocks<br>+ do: [:block | block decompile statements<br>+ do: [:statement | stream<br>+ nextPutAll: (statement shortPrintString<br>+ copyWithRegex: '\s+'<br>+ matchesReplacedWith: String space);<br>+ nextPut: $.]<br>+ separatedBy: [stream cr]]<br>+ separatedBy: [stream cr; nextPut: $-; cr]])<br>- String streamContents: [:stream |<br>- self commonRequestBlocks<br>- do: [:block |<br>- block decompile statements<br>- do: [:statement |<br>- statement veryShortPrintOn: stream.<br>- stream nextPut: $.]<br>- separatedBy: [stream cr]]<br>- separatedBy: [stream cr; nextPut: $-; cr]])<br> <br> "Utilities initializeCommonRequestStrings"!<br><br><br></div></blockquote>
</div></body>