[squeak-dev] The Trunk: System-mt.1260.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Dec 1 14:04:08 UTC 2021

Marcel Taeumel uploaded a new version of System to project The Trunk:

==================== 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;
  	"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].
- '!

More information about the Squeak-dev mailing list