Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1260.mcz
==================== Summary ====================
Name: System-mt.1260 Author: mt Time: 1 December 2021, 3:04:04.496361 pm UUID: e07c1e08-e164-5547-8acd-4f02569df6b3 Ancestors: System-mt.1259
Complements 60Deprecated-mt.98
=============== Diff against System-mt.1259 ===============
Item was removed: - Exception subclass: #Abort - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'System-Exceptions'!
Item was removed: - ----- Method: Abort>>defaultAction (in category 'handling') ----- - defaultAction - "No one has handled this error, but now give them a chance to decide how to debug it. If none handle this either then open debugger (see UnhandedError-defaultAction)" - - UnhandledError signalForException: self!
Item was changed: ----- Method: ChangeSet>>fileOutOn: (in category 'fileIn/Out') ----- fileOutOn: stream "Write out all the changes the receiver knows about"
| classList traits classes traitList list | (self isEmpty and: [stream isKindOf: FileStream]) ifTrue: [self inform: 'Warning: no changes to file out']. + traits := self changedClasses select: [:each | each isTrait]. - traits := self changedClasses reject: [:each | each isBehavior]. classes := self changedClasses select: [:each | each isBehavior]. traitList := self class traitsOrder: traits asOrderedCollection. classList := self class superclassOrder: classes asOrderedCollection. list := OrderedCollection new addAll: traitList; addAll: classList; yourself. "First put out rename, max classDef and comment changes." list do: [:aClass | self fileOutClassDefinition: aClass on: stream].
"Then put out all the method changes" list do: [:aClass | self fileOutChangesFor: aClass on: stream].
"Finally put out removals, final class defs and reorganization if any" list reverseDo: [:aClass | self fileOutPSFor: aClass on: stream].
self classRemoves sort do: [:aClassName | stream nextChunkPut: 'Smalltalk removeClassNamed: #', aClassName; cr].!
Item was changed: + (PackageInfo named: 'System') postscript: 'Smalltalk removeClassNamed: #Abort.'! - (PackageInfo named: 'System') postscript: ' - (Preferences preferenceAt: #debugLogTimestamp) categoryList: #(''debug''). - - #(abbreviatedBrowserButtons allowEtoyUserCustomEvents alternativeButtonsInScrollBars automaticPlatformSettings compressFlashImages defaultFileOutFormatMacRoman dragNDropWithAnimation extractFlashInHighestQuality extractFlashInHighQuality menuButtonInToolPane translationWithBabel) - do: [:sel | Preferences removePreference: sel]. - '!
squeak-dev@lists.squeakfoundation.org