<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>