Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.111.mcz
==================== Summary ====================
Name: 60Deprecated-mt.111 Author: mt Time: 20 April 2022, 9:59:23.142938 am UUID: 9cbedf34-d3bc-7847-89e2-dff15bf5a934 Ancestors: 60Deprecated-mt.110
Clean up MC code-update issues. Step 2 of 2.
=============== Diff against 60Deprecated-mt.110 ===============
Item was removed: - ----- Method: TTFileDescription class>>offerNonPortableFonts (in category 'user interaction') ----- - offerNonPortableFonts - "Should native fonts be offered when displaying font menus?" - <preference: 'Offer Native Fonts' - category: 'Morphic' - description: 'When true, an additional menu is offered for choosing non-portable fonts' - type: #Boolean> - ^OfferNonPortableFonts ifNil:[true]!
Item was removed: - ----- Method: TTFileDescription class>>offerNonPortableFonts: (in category 'user interaction') ----- - offerNonPortableFonts: aBool - "Should native fonts be offered when displaying font menus?" - OfferNonPortableFonts := aBool.!
Item was removed: - ----- Method: TTFileDescription>>extraGap (in category 'accessing') ----- - extraGap - "See commenetary in TTFontDescription" - - ^ extraGap ifNil: [extraGap := TTFontDescription extraGapFor: self]!
Item was removed: - ----- Method: TTFileDescription>>extraGap: (in category 'accessing') ----- - extraGap: anIntegerOrNil - "Increase or decrease the receivers line gap" - - extraGap = anIntegerOrNil ifTrue: [^ self]. - extraGap := anIntegerOrNil. - TTCFont allSubInstancesDo: [:font | - font ttcDescription == self ifTrue: [font reset "keep glyph cache"]]. - TextStyle allInstancesDo: [:style | style reset].!
Item was removed: - ----- Method: TTFileDescription>>extraScale (in category 'accessing') ----- - extraScale - - ^ extraScale ifNil: [extraScale := TTFontDescription extraScaleFor: self]!
Item was removed: - ----- Method: TTFileDescription>>extraScale: (in category 'accessing') ----- - extraScale: aFloatOrNil - "EXPERIMENTAL. See commentary in TTFontDescription" - - self extraScale = aFloatOrNil ifTrue: [^ self]. - extraScale := aFloatOrNil. - TTCFont allSubInstancesDo: [:font | - font ttcDescription == self ifTrue: [font flushCache]].!
packages@lists.squeakfoundation.org