[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:
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].
- '!
More information about the Squeak-dev
mailing list
|