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... - http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-November/216929....
=============== 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!