[squeak-dev] The Trunk: 60Deprecated-mt.98.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Dec 1 14:02:00 UTC 2021
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!
More information about the Squeak-dev
mailing list
|