Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-mt.98.mcz

==================== Summary ====================

Name: 60Deprecated-mt.98
Author: mt
Time: 1 December 2021, 3:02:00.010361 pm
UUID: 1bb3677a-7e50-3043-971c-ce643a23de98
Ancestors: 60Deprecated-mt.97

Clean up unused exceptions.

Deprecations:
- FontSubstitutionDuringLoading
- NaNError
- UndeclaredVariableReference

Removals:
- Abort
- ExceptionAboutToReturn

See:
- http://lists.squeakfoundation.org/pipermail/squeak-dev/2020-September/211477.html
- http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/216929.html

=============== Diff against 60Deprecated-mt.97 ===============

Item was changed:
  SystemOrganization addCategory: #'60Deprecated-Collections-Streams'!
  SystemOrganization addCategory: #'60Deprecated-HelpSystem-Core-Model'!
  SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'!
  SystemOrganization addCategory: #'60Deprecated-Morphic-Events'!
  SystemOrganization addCategory: #'60Deprecated-Morphic-Widgets'!
  SystemOrganization addCategory: #'60Deprecated-NSPlugin-System-Support'!
  SystemOrganization addCategory: #'60Deprecated-System-Support'!
  SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'!
  SystemOrganization addCategory: #'60Deprecated-Tools-Menus'!
+ SystemOrganization addCategory: #'60Deprecated-Etoys-Squeakland-System-Support'!
+ SystemOrganization addCategory: #'60Deprecated-Kernel-Numbers-Exceptions'!
+ SystemOrganization addCategory: #'60Deprecated-Compiler-Support'!

Item was added:
+ Notification subclass: #FontSubstitutionDuringLoading
+ 	instanceVariableNames: 'familyName pixelSize'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '60Deprecated-Etoys-Squeakland-System-Support'!
+ 
+ !FontSubstitutionDuringLoading commentStamp: '<historical>' prior: 0!
+ signaled by font loading code when reading a DiskProxy that calls for a missing font.!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading class>>forFamilyName:pixelSize: (in category 'instance creation') -----
+ forFamilyName: aName pixelSize: aSize
+ 	^(self new)
+ 		familyName: aName;
+ 		pixelSize: aSize;
+ 		yourself.!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading>>defaultAction (in category 'accessing') -----
+ defaultAction
+ 	familyName ifNil: [ familyName := 'NoName' ].
+ 	pixelSize ifNil: [ pixelSize := 12 ].
+ 
+ 	^((familyName beginsWith: 'Comic')
+ 		ifTrue: [ TextStyle named: (Preferences standardEToysFont familyName) ]
+ 		ifFalse: [ TextStyle default ]) fontOfSize: pixelSize.!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading>>familyName (in category 'accessing') -----
+ familyName
+ 	"Answer the value of familyName"
+ 
+ 	^ familyName!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading>>familyName: (in category 'accessing') -----
+ familyName: anObject
+ 	"Set the value of familyName"
+ 
+ 	familyName := anObject!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading>>pixelSize (in category 'accessing') -----
+ pixelSize
+ 	"Answer the value of pixelSize"
+ 
+ 	^ pixelSize!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading>>pixelSize: (in category 'accessing') -----
+ pixelSize: anObject
+ 	"Set the value of pixelSize"
+ 
+ 	pixelSize := anObject!

Item was added:
+ ----- Method: FontSubstitutionDuringLoading>>printOn: (in category 'accessing') -----
+ printOn: aStream
+ 	super printOn: aStream.
+ 	aStream nextPut: $(;
+ 		nextPutAll: familyName;
+ 		nextPut: $-;
+ 		print: pixelSize;
+ 		nextPut: $).!

Item was added:
+ ArithmeticError subclass: #NaNError
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '60Deprecated-Kernel-Numbers-Exceptions'!
+ 
+ !NaNError commentStamp: 'ar 12/14/2010 00:03' prior: 0!
+ NaNError is signaled by various operations that would either result in or operate on an NaN input.!

Item was added:
+ ----- Method: NaNError>>isResumable (in category 'testing') -----
+ isResumable
+ 	"NaNError is always resumable"
+ 	^true!

Item was added:
+ ----- Method: NaNError>>messageText (in category 'accessing') -----
+ messageText
+ 	"Return an exception's message text."
+ 
+ 	^messageText ifNil:['This operation would result in NaN ']!

Item was added:
+ Notification subclass: #UndeclaredVariableReference
+ 	instanceVariableNames: 'parser varName varStart varEnd'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '60Deprecated-Compiler-Support'!

Item was added:
+ ----- Method: UndeclaredVariableReference>>defaultAction (in category 'exceptionDescription') -----
+ defaultAction
+ 	^parser correctVariable: varName interval: (varStart to: varEnd)!

Item was added:
+ ----- Method: UndeclaredVariableReference>>parser (in category 'accessing') -----
+ parser
+ 	^parser!

Item was added:
+ ----- Method: UndeclaredVariableReference>>parser: (in category 'accessing') -----
+ parser: aParser
+ 	parser := aParser!

Item was added:
+ ----- Method: UndeclaredVariableReference>>varEnd (in category 'accessing') -----
+ varEnd
+ 	^varEnd!

Item was added:
+ ----- Method: UndeclaredVariableReference>>varEnd: (in category 'accessing') -----
+ varEnd: aNumber
+ 	varEnd := aNumber!

Item was added:
+ ----- Method: UndeclaredVariableReference>>varName (in category 'accessing') -----
+ varName
+ 	^varName!

Item was added:
+ ----- Method: UndeclaredVariableReference>>varName: (in category 'accessing') -----
+ varName: aString
+ 	varName := aString!

Item was added:
+ ----- Method: UndeclaredVariableReference>>varStart (in category 'accessing') -----
+ varStart
+ 	^varStart!

Item was added:
+ ----- Method: UndeclaredVariableReference>>varStart: (in category 'accessing') -----
+ varStart: aNumber
+ 	varStart := aNumber!