<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
                                        Sorry. Back to the inbox with this. I meant Tools-kfr.1161.<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 22.06.2022 15:14:53 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>Marcel Taeumel uploaded a new version of System to project The Trunk:<br>http://source.squeak.org/trunk/System-kfr.1161.mcz<br><br>==================== Summary ====================<br><br>Name: System-kfr.1161<br>Author: kfr<br>Time: 4 June 2020, 11:05:51.49313 pm<br>UUID: 38776d4a-508a-7044-ab72-4cb34ceaceea<br>Ancestors: System-mt.1160<br><br>Return nil instead of opening pre debugger<br><br>=============== Diff against System-mt.1160 ===============<br><br>Item was changed:<br>  ----- Method: StandardFileStream class>>fileExistsUserHandling:ifDebug: (in category '*System-Files-error handling') -----<br>  fileExistsUserHandling: fullFileName ifDebug: debugBlock<br>         | dir localName choice newName newFullFileName |<br>      dir := FileDirectory forFileName: fullFileName.<br>       localName := FileDirectory localNameFor: fullFileName.<br>        choice := (UIManager default <br>                 chooseFrom: #('overwrite that file' 'append (risky!!!!)' 'choose another name' 'debug' 'cancel')<br>              title: localName, ' already exists.').<br>  <br>    choice = 1 ifTrue: [<br>                  dir deleteFileNamed: localName<br>                        ifAbsent: [self error: 'Could not delete the old version of that file'].<br>              ^ self new open: fullFileName forWrite: true].<br>  <br>    choice = 2 ifTrue: [<br>                  ^ (self new open: fullFileName forWrite: true) setToEnd].<br>  <br>         choice = 3 ifTrue: [<br>                  newName := UIManager default request: 'Enter a new file name' initialAnswer: fullFileName.<br>            newFullFileName := self fullName: newName.<br>            ^ self newFileNamed: newFullFileName].<br>  <br>    choice = 4 ifTrue: [^ debugBlock value].<br>  <br>+         choice = 5 ifTrue: [^ nil].!<br>-         self error: 'Please close this to abort file opening'!<br><br><br></div></blockquote>
                                        </div></body>