
<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=us-ascii">

</head>

<body>

<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>

<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Helvetica,sans-serif;" dir="ltr">

<p>Beautiful! Nearly "too" modern to fit into the entire Squeak appearance - but a very nice step into the right direction ... :-)</p>

<p><br>

</p>

<p>Best,</p>

<p>Christoph</p>

<div id="Signature">

<div id="divtagdefaultwrapper" dir="ltr" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;">

<div name="divtagdefaultwrapper" style="font-family:Calibri,Arial,Helvetica,sans-serif; font-size:; margin:0">

<div>

<div class="_rp_T4" id="Item.MessagePartBody">

<div class="_rp_U4 ms-font-weight-regular ms-font-color-neutralDark rpHighlightAllClass rpHighlightBodyClass" id="Item.MessageUniqueBody" style="font-family:wf_segoe-ui_normal,"Segoe UI","Segoe WP",Tahoma,Arial,sans-serif,serif,EmojiFont">

<div dir="ltr">

<div id="divtagdefaultwrapper"><font face="Calibri,Helvetica,sans-serif,EmojiFont,Apple Color Emoji,Segoe UI Emoji,NotoColorEmoji,Segoe UI Symbol,Android Emoji,EmojiSymbols">

<div id="Signature">

<div style="margin:0px"><font style="font-family:Calibri,Arial,Helvetica,sans-serif,serif,EmojiFont">

<div><font size="3" color="black"><span style="font-size:12pt"><a href="http://www.hpi.de/" target="_blank" rel="noopener noreferrer" id="LPNoLP"><font size="2"><span id="LPlnk909538"><font color="#757B80"></font></span></font></a></span></font></div>

</font></div>

</div>

</font></div>

</div>

</div>

</div>

</div>

<div><font size="2" color="#808080"></font></div>

</div>

</div>

</div>

</div>

<hr style="display:inline-block;width:98%" tabindex="-1">

<div id="divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" style="font-size:11pt" color="#000000"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von Taeumel, Marcel<br>

<b>Gesendet:</b> Donnerstag, 14. Januar 2021 13:24:13<br>

<b>An:</b> squeak-dev<br>

<b>Betreff:</b> Re: [squeak-dev] The Trunk: Tools-mt.1024.mcz</font>

<div> </div>

</div>

<div>

<div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">

<br>

<div class="mb_sig"></div>

<div><img id="264aaf74-e894-4c1c-9058-99fc47420e9b" width="228" height="165" src="cid:bd0db97b-c71b-4b55-8971-cac77123c8a3"><!-- </img> --><br>

</div>

<div><img id="f4750a78-4632-4358-97e3-5cfc9b3ee041" width="262" height="198" src="cid:c6093f57-b2bc-4492-8da6-e84c83a209cd"><!-- </img> --><br>

</div>

<div><img id="2063f98f-2208-4136-9470-d925c004d2ea" width="211" height="160" src="cid:e75d4543-f749-4fbe-af37-1dc8f5b33e01"><!-- </img> --><br>

</div>

<div>Best,</div>

<div>Marcel</div>

<blockquote class="history_container" type="cite" style="border-left-style: solid;border-width: 1px;margin-top: 20px;margin-left: 0px;padding-left: 10px;min-width: 500px">

<p style="color: #AAAAAA; margin-top: 10px;">Am 14.01.2021 13:21:28 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 Tools to project The Trunk:<br>

http://source.squeak.org/trunk/Tools-mt.1024.mcz<br>

<br>

==================== Summary ====================<br>

<br>

Name: Tools-mt.1024<br>

Author: mt<br>

Time: 14 January 2021, 1:21:15.354081 pm<br>

UUID: 0ef67378-0ca6-4743-be9c-5a60621c07cd<br>

Ancestors: Tools-mt.1023<br>

<br>

Improves the description of several confirmation dialogs for removing batches of source code.<br>

<br>

=============== Diff against Tools-mt.1023 ===============<br>

<br>

Item was changed:<br>

----- Method: Browser>>removeMessageCategory (in category 'message category functions') -----<br>

removeMessageCategory<br>

"If a message category is selected, create a Confirmer so the user can <br>

verify that the currently selected message category should be removed<br>

from the system. If so, remove it."<br>

<br>

| messageCategoryName |<br>

self hasMessageCategorySelected ifFalse: [^ self].<br>

self okToChange ifFalse: [^ self].<br>

messageCategoryName := self selectedMessageCategoryName.<br>

(self messageList size = 0<br>

+ or: [Project uiManager confirm: ('Are you sure you want to remove\the message category\\ {1}\ in {2}\\and all its {3} methods? Maybe save\your image before doing this.' translated withCRs asText format: {<br>

+ messageCategoryName asText allBold.<br>

+ self selectedClassOrMetaClass name.<br>

+ (self selectedClassOrMetaClass organization listAtCategoryNamed: messageCategoryName) size asString asText allBold<br>

+ <br>

+ }) title: 'Remove Message Category' translated])<br>

- or: [self confirm: 'Are you sure you want to<br>

- remove this method category <br>

- and all its methods?'])<br>

ifTrue: <br>

[self selectedClassOrMetaClass removeCategory: messageCategoryName.<br>

self selectMessageCategoryNamed: nil.<br>

self changed: #classSelectionChanged].<br>

self changed: #messageCategoryList.<br>

!<br>

<br>

Item was changed:<br>

----- Method: Browser>>removeSystemCategory (in category 'system category functions') -----<br>

removeSystemCategory<br>

"If a class category is selected, create a Confirmer so the user can <br>

verify that the currently selected class category and all of its classes<br>

should be removed from the system. If so, remove it."<br>

<br>

self hasSystemCategorySelected ifFalse: [^ self].<br>

self okToChange ifFalse: [^ self].<br>

(self classList size = 0<br>

+ or: [Project uiManager<br>

+ confirm: ('Are you sure you want to remove\the system category\\ {1}\\and all its {2} classes? Maybe save\your image before doing this.' translated withCRs asText<br>

+ format: {<br>

+ self selectedSystemCategory asText allBold.<br>

+ (systemOrganizer listAtCategoryNamed: self selectedSystemCategory) size asString asText allBold})<br>

+ title: 'Remove System Category' translated])<br>

- or: [self confirm: 'Are you sure you want to<br>

- remove this system category <br>

- and all its classes?'])<br>

ifTrue: <br>

[| nextSelectedCat |<br>

nextSelectedCat := self systemCategoryList before: self selectedSystemCategory ifAbsent: [nil].<br>

systemOrganizer removeSystemCategory: self selectedSystemCategory.<br>

self selectSystemCategory: nextSelectedCat.<br>

self changed: #systemCategoryList]!<br>

<br>

Item was changed:<br>

----- Method: CodeHolder>>removeClass (in category 'commands') -----<br>

removeClass<br>

"Remove the selected class from the system, at interactive user request. Make certain the user really wants to do this, since it is not reversible. Answer true if removal actually happened."<br>

<br>

| message className classToRemove result |<br>

self okToChange ifFalse: [^ false].<br>

classToRemove := self selectedClassOrMetaClass ifNil: [Beeper beep. ^ false].<br>

classToRemove := classToRemove theNonMetaClass.<br>

className := classToRemove name.<br>

+ message := 'Are you sure that you want to remove\the class\\ {1}\\and all its {2} methods? Maybe save\your image before doing this.{3}' translated withCRs asText format: {<br>

+ className asText allBold.<br>

+ (classToRemove methodDict size + classToRemove class methodDict size) asString asText allBold.<br>

+ classToRemove subclasses size > 0 ifFalse: [''] ifTrue: [<br>

+ '\\(There are {1} subclasses, whose superclass\must be updated manually after this.)' translated withCRs asText format: { classToRemove subclasses size asString asText allBold }]}.<br>

+ (result := Project uiManager confirm: message title: 'Remove Class' translated)<br>

- message := 'Are you certain that you<br>

- want to REMOVE the class ', className, '<br>

- from the system?'.<br>

- (result := self confirm: message)<br>

ifTrue: <br>

[classToRemove subclasses size > 0<br>

ifTrue: [(self confirm: 'class has subclasses: ' , message)<br>

ifFalse: [^ false]].<br>

classToRemove removeFromSystem.<br>

self changed: #classList.<br>

true].<br>

^ result!<br>

<br>

<br>

</div>

</blockquote>

</div>

</div>

</body>

</html>