
<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>I think this is quite minor, but I'd agree with any "&", too. Just wanted to move similar things into one protocol :)</p>

<div id="Signature">

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

<div><font size="2" color="#808080"></font></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> Mittwoch, 16. Oktober 2019 11:19:23<br>

<b>An:</b> gettimothy via Squeak-dev<br>

<b>Betreff:</b> Re: [squeak-dev] The Inbox: System-ct.1112.mcz</font>

<div> </div>

</div>

<div>

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

Hmm... there aren't many "+" in message categories. What about "&" or "and"?

<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 03.10.2019 01:01:16 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p>

<div style="font-family:Arial,Helvetica,sans-serif">A new version of System was added to project The Inbox:<br>

http://source.squeak.org/inbox/System-ct.1112.mcz<br>

<br>

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

<br>

Name: System-ct.1112<br>

Author: ct<br>

Time: 3 October 2019, 1:00:59.749083 am<br>

UUID: 46296c5c-1bbf-8849-96ad-70af15677f55<br>

Ancestors: System-pre.1111<br>

<br>

Recategorizes Smalltalk startup + shutdown list methods<br>

<br>

=============== Diff against System-pre.1111 ===============<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>add:toList:after: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>add:toList:after: (in category 'startup list') -----<br>

add: aClass toList: startUpOrShutDownList after: predecessor<br>

"Add the name of aClass to the startUp or shutDown list.<br>

Add it after the name of predecessor"<br>

<br>

(Smalltalk globals includes: aClass) <br>

ifFalse: [self error: aClass name , ' cannot be found in Smalltalk dictionary.'].<br>

<br>

"Add after predecessor, moving it if already there."<br>

(Smalltalk globals includes: predecessor) <br>

ifFalse: [self error: predecessor name , ' cannot be found in Smalltalk dictionary.'].<br>

(startUpOrShutDownList includes: predecessor name) <br>

ifFalse: [self error: predecessor name , ' cannot be found in the list.'].<br>

startUpOrShutDownList remove: aClass name ifAbsent:[].<br>

startUpOrShutDownList add: aClass name after: predecessor name!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>add:toList:before: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>add:toList:before: (in category 'startup list') -----<br>

add: aClass toList: startUpOrShutDownList before: successor<br>

"Add the name of aClass to the startUp or shutDown list.<br>

Add it before the name of successor"<br>

<br>

(Smalltalk globals includes: aClass) <br>

ifFalse: [self error: aClass name , ' cannot be found in Smalltalk dictionary.'].<br>

<br>

"Add before successor, moving it if already there."<br>

(Smalltalk globals includes: successor) <br>

ifFalse: [self error: successor name , ' cannot be found in Smalltalk dictionary.'].<br>

(startUpOrShutDownList includes: successor name) <br>

ifFalse: [self error: successor name , ' cannot be found in the list.'].<br>

startUpOrShutDownList remove: aClass name ifAbsent: [].<br>

startUpOrShutDownList add: aClass name before: successor name.!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>addToShutDownList: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>addToShutDownList: (in category 'startup list') -----<br>

addToShutDownList: aClass<br>

"This will add a ref to this class at the BEGINNING of the shutDown list."<br>

"No-op if already in the list."<br>

<br>

(ShutDownList includes: aClass name) ifFalse: [ShutDownList addFirst: aClass name]!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>addToShutDownList:before: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>addToShutDownList:before: (in category 'startup list') -----<br>

addToShutDownList: aClass before: predecessor<br>

<br>

self add: aClass toList: ShutDownList before: predecessor!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>addToStartUpList: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>addToStartUpList: (in category 'startup list') -----<br>

addToStartUpList: aClass<br>

"This will add a ref to this class at the END of the startUp list."<br>

"No-op if already in the list."<br>

<br>

(StartUpList includes: aClass name) ifFalse: [StartUpList addLast: aClass name]!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>addToStartUpList:before: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>addToStartUpList:before: (in category 'startup list') -----<br>

addToStartUpList: aClass before: predecessor<br>

<br>

self add: aClass toList: StartUpList before: predecessor!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>removeFromShutDownList: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>removeFromShutDownList: (in category 'snapshot and quit') -----<br>

removeFromShutDownList: aClass<br>

<br>

ShutDownList remove: aClass name ifAbsent: []!<br>

<br>

Item was changed:<br>

+ ----- Method: SmalltalkImage>>removeFromStartUpList: (in category 'startup + shutdown list') -----<br>

- ----- Method: SmalltalkImage>>removeFromStartUpList: (in category 'snapshot and quit') -----<br>

removeFromStartUpList: aClass<br>

<br>

StartUpList remove: aClass name ifAbsent: []!<br>

<br>

<br>

</div>

</blockquote>

</div>

</div>

</body>

</html>