Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1170.mcz
==================== Summary ====================
Name: System-mt.1170 Author: mt Time: 15 September 2020, 4:13:03.457876 pm UUID: 387b054e-21c0-45f7-8270-25bc7bc82049 Ancestors: System-mt.1169
Remove obsolete entries for Startup- and Shutdown-List from the global initialization code.
I think this is dead code. However, this here gave me a pointer: http://forum.world.st/SmalltalkImage-ShutdownList-oddity-td5121890.html
=============== Diff against System-mt.1169 ===============
Item was changed: ----- Method: SmalltalkImage class>>initializeShutDownList (in category 'class initialization') ----- initializeShutDownList "SmalltalkImage initialize"
| oldList | oldList := ShutDownList. ShutDownList := OrderedCollection new. "These get processed from the bottom up..." #( Delay - DisplayScreen EventSensor Form - ControlManager - PasteUpMorph StrikeFont Color FileDirectory SoundPlayer HttpUrl Password PWS MailDB ImageSegment ) do:[:clsName| Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToShutDownList: cls]. ].
oldList ifNotNil: [oldList reverseDo: [:className | Smalltalk at: className ifPresent: [:theClass | Smalltalk addToShutDownList: theClass]]]. !
Item was changed: ----- Method: SmalltalkImage class>>initializeStartUpList (in category 'class initialization') ----- initializeStartUpList "SmalltalkImage initialize" | oldList | oldList := StartUpList. StartUpList := OrderedCollection new. "These get processed from the top down..." - self flag: #'revisit in Squeak 5.3'. #( SmallInteger Delay + Time + DateAndTime - DisplayScreen Cursor EventSensor + ProcessorScheduler "Starts low space watcher and background." - ProcessorScheduler "Starts low space watcher and bkground." FileDirectory "Enables file stack dump and opens sources." ShortIntegerArray ShortRunArray - CrLfFileStream "Remove this in Squeak 5.3" ) do:[:clsName| Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls]. ]. oldList ifNotNil: [oldList do: [:className | Smalltalk at: className ifPresent: [:theClass | Smalltalk addToStartUpList: theClass]]]. #( ImageSegment + Project + AutoStart + ReleaseBuilder - PasteUpMorph - ControlManager ) do:[:clsName| Smalltalk at: clsName ifPresent:[:cls| Smalltalk addToStartUpList: cls]. ]. !
packages@lists.squeakfoundation.org