<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Hi Christoph,<div><br></div><div>thanks. Next time, you could try to not change the formatting too much when making two litttle changes to the code so that others can easily read the diff. In this case, the change of indentation affected all lines but was not necessary.</div><div><br></div><div>Best,</div><div>Marcel</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 16.02.2020 16:26:54 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of Kernel was added to project The Inbox:<br>http://source.squeak.org/inbox/Kernel-ct.1299.mcz<br><br>==================== Summary ====================<br><br>Name: Kernel-ct.1299<br>Author: ct<br>Time: 16 February 2020, 4:26:42.224 pm<br>UUID: b1c9f40a-a7ea-9a4e-a502-268cb22592e7<br>Ancestors: Kernel-tonyg.1293<br><br>Refactor #valueSupplyingAnswers::<br><br>- Don't reinvent the wheel of Exception >> #pass<br>- Use #ifError:<br><br>See also http://forum.world.st/The-Trunk-Kernel-mt-1283-mcz-td5107403.html.<br><br>=============== Diff against Kernel-tonyg.1293 ===============<br><br>Item was changed:<br> ----- Method: BlockClosure>>valueSupplyingAnswers: (in category 'evaluating') -----<br> valueSupplyingAnswers: aListOfPairs<br>+ "Evaluate the receiver using a list of questions / answers that might be called upon to automatically respond to Object>>confirm: or FillInTheBlank requests"<br>- "evaluate the block using a list of questions / answers that might be called upon to<br>- automatically respond to Object>>confirm: or FillInTheBlank requests"<br> <br>+ ^ self on: ProvideAnswerNotification do: [ :notification |<br>+ | caption |<br>+ caption := notification messageText withSeparatorsCompacted. "to remove new lines"<br>+ aListOfPairs<br>+ detect: [ :each |<br>+ caption = each first<br>+ or: [ (caption includesSubstring: each first caseSensitive: false)<br>+ or: [ (each first match: caption)<br>+ or: [ (caption respondsTo: #matchesRegex:) <br>+ and: [ [caption matchesRegex: each first] ifError: [false] ] ] ] ] ]<br>+ ifFound: [ :answer | notification resume: answer second ]<br>+ ifNone: [ notification pass ] ]!<br>- ^self<br>- on: ProvideAnswerNotification<br>- do: [ :notification |<br>- | caption |<br>- caption := notification messageText withSeparatorsCompacted. "to remove new lines"<br>- aListOfPairs<br>- detect: [ :each |<br>- caption = each first<br>- or: [ (caption includesSubstring: each first caseSensitive: false)<br>- or: [ (each first match: caption)<br>- or: [ (caption respondsTo: #matchesRegex:) <br>- and: [ [caption matchesRegex: each first] on: Error do: [false] ] ] ] ] ]<br>- ifFound: [ :answer | notification resume: answer second ]<br>- ifNone: [<br>- (ProvideAnswerNotification signal: notification messageText)<br>- ifNil: [ notification resume ]<br>- ifNotNil: [ :outerAnswer | notification resume: outerAnswer ] ] ]!<br><br><br></div></blockquote>
</div></body>