<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
<meta name="Generator" content="Microsoft Exchange Server">
<!-- converted from text --><style><!-- .EmailQuote { margin-left: 1pt; padding-left: 4pt; border-left: #800000 2px solid; } --></style>
</head>
<body>
<meta content="text/html; charset=UTF-8">
<style type="text/css" style="">
<!--
p
        {margin-top:0;
        margin-bottom:0}
-->
</style>
<div dir="ltr">
<div id="x_divtagdefaultwrapper" dir="ltr" style="font-size:12pt; color:#000000; font-family:Calibri,Helvetica,sans-serif">
<p><img size="50305" id="x_img987065" tabindex="0" style="max-width:99.9%" src="cid:c3f07aa2-b475-4b82-8ab5-c0b3653ca83a"><br>
</p>
<p><img size="10887" id="x_img851467" tabindex="0" style="max-width:99.9%" src="cid:8bcdba94-8785-4282-917f-fd58559cf91a"><br>
</p>
<p><br>
</p>
<p>Best,</p>
<p>Christoph</p>
</div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Freitag, 10. Juni 2022 19:52:36<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Inbox: Morphic-ct.2009.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">A new version of Morphic was added to project The Inbox:<br>
<a href="http://source.squeak.org/inbox/Morphic-ct.2009.mcz">http://source.squeak.org/inbox/Morphic-ct.2009.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: Morphic-ct.2009<br>
Author: ct<br>
Time: 10 June 2022, 7:52:30.248586 pm<br>
UUID: 00155f55-d7b7-1d4c-9965-d1a8ff872513<br>
Ancestors: Morphic-ct.2006<br>
<br>
Proposal: When closing all windows (unsafely), only ask the user about unsaved changes if there are actually any. Also provide an option from that dialog to only close windows without changes.<br>
<br>
Improves multilingual support as well.<br>
<br>
Revision: Improve user strings. Sorry for the noise.<br>
<br>
=============== Diff against Morphic-ct.2006 ===============<br>
<br>
Item was changed:<br>
  ----- Method: TheWorldMainDockingBar>>closeAllWindowsButWorkspaces (in category 'submenu - windows') -----<br>
  closeAllWindowsButWorkspaces<br>
  <br>
         (UserDialogBoxMorph<br>
+                confirm: 'There might be unsaved changes.\Do you really want to close all windows\that are no workspaces?' withCRs translated<br>
+                title: 'Only keep workspaces' translated) ifTrue: [<br>
-                confirm: 'There might be unsaved changes.\Do you really want to close all windows\that are no workspaces?' withCRs<br>
-                title: 'Only keep workspaces') ifTrue: [<br>
                         self allVisibleWindows<br>
                                 reject: [:each | each model isKindOf: Workspace]<br>
                                 thenDo: [:each | [each delete] valueSupplyingAnswer: true]].!<br>
<br>
Item was changed:<br>
  ----- Method: TheWorldMainDockingBar>>closeAllWindowsUnsafe (in category 'submenu - windows') -----<br>
  closeAllWindowsUnsafe<br>
  <br>
+        (self allVisibleWindows allSatisfy: [:each |<br>
+                each model canDiscardEdits])<br>
+                        ifFalse:<br>
+                                [(Project uiManager<br>
+                                        chooseOptionFromLabeledValues:<br>
+                                                (OrderedDictionary new<br>
+                                                        at: 'Yes, close all windows' translated put: [#proceed];<br>
+                                                        at: 'Close only windows without changes' translated put: [^ self closeAllWindows];<br>
+                                                        at: 'Cancel' put: [^ self];<br>
+                                                        yourself)<br>
+                                        title: 'There are unsaved changes.\Do you really want to close all windows?' withCRs translated)<br>
+                                                value<br>
+                                                        ifNil: [^ self]].<br>
+        <br>
+        self allVisibleWindows do: [:each | [each delete] valueSupplyingAnswer: true].!<br>
-        (UserDialogBoxMorph<br>
-                confirm: 'There might be unsaved changes.\Do you really want to close all windows?' withCRs<br>
-                title: 'Close All Windows') ifTrue: [<br>
-                        self allVisibleWindows do: [:each | [each delete] valueSupplyingAnswer: true]].!<br>
<br>
<br>
</div>
</span></font>
</body>
</html>