Packages February 2022

packages@lists.squeakfoundation.org

1 participants
200 discussions

The Trunk: Morphic-tonyg.1899.mcz
by commits＠source.squeak.org 16 Feb '22

16 Feb '22

Tony Garnock-Jones uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-tonyg.1899.mcz ==================== Summary ==================== Name: Morphic-tonyg.1899 Author: tonyg Time: 16 February 2022, 3:33:03.719368 pm UUID: 0c424705-35f2-4062-a306-8bab3d613ee9 Ancestors: Morphic-mt.1898 Remove unwanted reimplementations of `handleMouseMove:` in PluggableListMorph and SimpleHierarchicalListMorph. Looking at the available history, it seems that `handleMouseMove:` was copied-and-modified in these two classes from the main Morph implementation sometime before `handlesMouseMove:` was introduced to the image. Compared to Morph's implementation, the list morphs both update some notion of a hover row, and then decide whether or not to proceed in a way that can be captured by a `handlesMouseMove:` implementation. This change therefore changes the two classes' `handleMouseMove:` implementations to delegate back to Morph's implementation, after managing their hover row logic. It also moves the custom "should we proceed?" logic into `handlesMouseMove:` implementations. =============== Diff against Morphic-mt.1898 =============== Item was changed: - SystemOrganization addCategory: #'Morphic-Balloon'! - SystemOrganization addCategory: #'Morphic-Basic'! SystemOrganization addCategory: #'Morphic-Basic-NewCurve'! + SystemOrganization addCategory: #'Morphic-Pluggable Widgets'! - SystemOrganization addCategory: #'Morphic-Borders'! SystemOrganization addCategory: #'Morphic-Collections-Arrayed'! + SystemOrganization addCategory: #'Morphic-Widgets'! - SystemOrganization addCategory: #'Morphic-Demo'! - SystemOrganization addCategory: #'Morphic-Events'! SystemOrganization addCategory: #'Morphic-Explorer'! + SystemOrganization addCategory: #'Morphic-Borders'! - SystemOrganization addCategory: #'Morphic-Kernel'! - SystemOrganization addCategory: #'Morphic-Layouts'! - SystemOrganization addCategory: #'Morphic-Menus'! SystemOrganization addCategory: #'Morphic-Menus-DockingBar'! + SystemOrganization addCategory: #'Morphic-Menus'! - SystemOrganization addCategory: #'Morphic-Pluggable Widgets'! - SystemOrganization addCategory: #'Morphic-Sound-Synthesis'! SystemOrganization addCategory: #'Morphic-Support'! - SystemOrganization addCategory: #'Morphic-Text Support'! SystemOrganization addCategory: #'Morphic-TrueType'! + SystemOrganization addCategory: #'Morphic-Basic'! + SystemOrganization addCategory: #'Morphic-Demo'! - SystemOrganization addCategory: #'Morphic-Widgets'! SystemOrganization addCategory: #'Morphic-Windows'! + SystemOrganization addCategory: #'Morphic-Balloon'! + SystemOrganization addCategory: #'Morphic-Kernel'! + SystemOrganization addCategory: #'Morphic-Sound-Synthesis'! SystemOrganization addCategory: #'Morphic-Worlds'! + SystemOrganization addCategory: #'Morphic-Layouts'! + SystemOrganization addCategory: #'Morphic-Text Support'! + SystemOrganization addCategory: #'Morphic-Events'! Item was changed: ----- Method: PluggableListMorph>>handleMouseMove: (in category 'events-processing') ----- handleMouseMove: anEvent + anEvent wasHandled ifFalse: [self hoverRow: (self rowAtLocation: anEvent position)]. + super handleMouseMove: anEvent.! - "Reimplemented because we really want #mouseMove when a morph is dragged around" - anEvent wasHandled ifTrue:[^self]. "not interested" - self hoverRow: (self rowAtLocation: anEvent position). - (anEvent anyButtonPressed and:[anEvent hand mouseFocus == self]) ifFalse:[^self]. - anEvent wasHandled: true. - self mouseMove: anEvent. - (self handlesMouseStillDown: anEvent) ifTrue:[ - "Step at the new location" - self startStepping: #handleMouseStillDown: - at: Time millisecondClockValue - arguments: {anEvent copy resetHandlerFields} - stepTime: 1]. - ! Item was added: + ----- Method: PluggableListMorph>>handlesMouseMove: (in category 'event handling') ----- + handlesMouseMove: anEvent + ^ anEvent anyButtonPressed and: [anEvent hand mouseFocus == self]! Item was changed: ----- Method: SimpleHierarchicalListMorph>>handleMouseMove: (in category 'events-processing') ----- handleMouseMove: anEvent + anEvent wasHandled ifFalse: [self hoveredMorph: (self itemFromPoint: anEvent position)]. + super handleMouseMove: anEvent.! - "Reimplemented because we really want #mouseMove when a morph is dragged around" - anEvent wasHandled ifTrue:[^self]. "not interested" - self hoveredMorph: (self itemFromPoint: anEvent position). - (anEvent anyButtonPressed and:[anEvent hand mouseFocus == self]) ifFalse:[^self]. - anEvent wasHandled: true. - self mouseMove: anEvent. - (self handlesMouseStillDown: anEvent) ifTrue:[ - "Step at the new location" - self startStepping: #handleMouseStillDown: - at: Time millisecondClockValue - arguments: {anEvent copy resetHandlerFields} - stepTime: 1]. - ! Item was added: + ----- Method: SimpleHierarchicalListMorph>>handlesMouseMove: (in category 'event handling') ----- + handlesMouseMove: anEvent + ^ anEvent anyButtonPressed and: [anEvent hand mouseFocus == self]!

1 0

The Trunk: TrueType-mt.71.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.71.mcz ==================== Summary ==================== Name: TrueType-mt.71 Author: mt Time: 14 February 2022, 5:40:38.981304 pm UUID: 64ff8441-cbe9-3844-8887-02b08d2e05c8 Ancestors: TrueType-mt.70 Complements Graphics-mt.482. Only flush the TrueType cache on snapshot-and-quit. Do not flush on snapshot-no-quit. =============== Diff against TrueType-mt.70 =============== Item was added: + ----- Method: TTCFont class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + aggressive ifTrue: [self shutDown: true].! Item was removed: - ----- Method: TTCFont class>>shutDown (in category 'class initialization') ----- - shutDown - "Flush the glyph cache" - GlyphCacheData atAllPut: nil. - GlyphCacheIndex := 0. - ShutdownList ifNotNil:[ShutdownList do:[:fnt| fnt flushCache]]. - ShutdownList := WeakSet new. - ! Item was added: + ----- Method: TTCFont class>>shutDown: (in category 'class initialization') ----- + shutDown: quitting + "Only flush the cache on save-and-quit. This means that the image will be slightly larger when save-no-quit. Yet, it makes sense to keep up the font rendering performance when the user keeps on working. Or does it?" + + "Flush the glyph cache" + quitting ifFalse: [^ self]. + + GlyphCacheData atAllPut: nil. + GlyphCacheIndex := 0. + ShutdownList ifNotNil:[ShutdownList do:[:fnt| fnt flushCache]]. + ShutdownList := WeakSet new. + !

1 0

The Trunk: Graphics-mt.482.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.482.mcz ==================== Summary ==================== Name: Graphics-mt.482 Author: mt Time: 14 February 2022, 5:39:41.237304 pm UUID: 4613fffa-7d65-d143-a077-7315d58e8d50 Ancestors: Graphics-mt.481 Changes hibernation behavior of forms to only #hibernate on snapshot-and-quit. Do not #hibernate on snapshop-no-quit. Why? Makes snapshotting and working with TrueType fonts more smooth/responsive. =============== Diff against Graphics-mt.481 =============== Item was removed: - ----- Method: Form class>>shutDown (in category 'shut down') ----- - shutDown "Form shutDown" - "Compress all instances in the system. Will decompress on demand..." - Form allInstancesDo: [:f | f hibernate]. - ColorForm allInstancesDo: [:f | f hibernate].! Item was added: + ----- Method: Form class>>shutDown: (in category 'shut down') ----- + shutDown: quitting + "When quitting, compress all instances in the system. Will decompress on demand after start-up. Note that we avoid hibernating forms during no-quit snapshotting to keep the system as responsive as possible directly after." + + "Form shutDown: true" + quitting ifTrue: [ + Form allInstancesDo: [:f | f hibernate]. + ColorForm allInstancesDo: [:f | f hibernate]].! Item was removed: - ----- Method: StrikeFont class>>cleanUp (in category 'class initialization') ----- - cleanUp - "Flush synthesized strike fonts" - - self allInstancesDo:[:sf| sf reset].! Item was added: + ----- Method: StrikeFont class>>cleanUp: (in category 'class initialization') ----- + cleanUp: aggressive + + aggressive ifTrue: [self allInstancesDo: [:sf | sf reset]].!

1 0

The Trunk: Graphics-mt.481.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.481.mcz ==================== Summary ==================== Name: Graphics-mt.481 Author: mt Time: 14 February 2022, 5:37:01.583304 pm UUID: 4ac783b7-38f7-4444-93c4-c37f188236cf Ancestors: Graphics-mt.480 Complements Tools-mt.1134. =============== Diff against Graphics-mt.480 =============== Item was changed: ----- Method: TextStyle class>>fontSizeSummaryContents (in category 'utilities') ----- fontSizeSummaryContents ^ Text streamContents: [:aStream | | knownStyles knownTTCStyles knownLegacyStyles defaultStyles printBlock | knownStyles := self knownTextStylesWithoutDefault sorted. defaultStyles := self defaultFamilyNames sorted. aStream nextPutAll: ('This page lists all known text styles and for each style''s font the available point sizes. Most text fields offer the {1} where you can choose a different font or point size. Note that you can use any new point size for TrueType fonts. This is, however, not possible for our pre-rendred legacy fonts. If you need more fonts, use the {2} to import TrueType fonts from your current platform. Click {3} to browse all styles by example.\\' translated withCRs asText format: { 'FontChooserTool' asText addAttribute: (PluggableTextAttribute evalBlock: [FontChooserTool open]); yourself. 'FontImporterTool' asText addAttribute: (PluggableTextAttribute evalBlock: [FontImporterTool open]); yourself. 'here' asText addAttribute: (PluggableTextAttribute evalBlock: [TextStyle browseAllStyles])}). defaultStyles do: [:styleName | | style prefix | style := self named: styleName. prefix := (style isNil or: [(self named: style defaultFamilyName) == style]) ifTrue: [''] ifFalse: [' !! ']. aStream nextPutAll: (((styleName padded: #left to: 24 with: Character space), ': ', prefix) asText addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself); nextPutAll: (style ifNil: ['-'] ifNotNil: [(style defaultFamilyName asText addAttribute: (TextFontReference toFont: style defaultFont); addAttribute: (PluggableTextAttribute evalBlock: [style explore]); yourself)]); cr]. printBlock := [:styleName | | style tt defaultFont preferredPointSize exampleFont | style := self named: styleName. preferredPointSize := TextStyle defaultFont pointSize. "system's current default" defaultFont := style defaultFont. "style's current default" + exampleFont := defaultFont isSymbolFont + ifTrue: [TextStyle defaultFont] + ifFalse: [defaultFont asPointSize: preferredPointSize]. - exampleFont := defaultFont asPointSize: preferredPointSize. aStream nextPutAll: (styleName asText addAttribute: (TextFontReference toFont: exampleFont)). styleName ~= style defaultFamilyName ifTrue: ["style alias" aStream nextPutAll: ' (', style defaultFamilyName, ')']. tt := style isTTCStyle ifTrue: [style defaultFont ttcDescription]. aStream nextPutAll: ((Text new, + ((style isTTCStyle ifFalse: [''] ifTrue: [' TrueType', (tt isExternal ifFalse: [''] ifTrue: [' (extern)']), (defaultFont isSymbolFont ifFalse: [''] ifTrue: [' (symbols)'])]) - ((style isTTCStyle ifFalse: [''] ifTrue: [' TrueType', (tt isExternal ifFalse: [''] ifTrue: [' (extern)'])]) asText addAttribute: (TextColor color: ((self userInterfaceTheme get: #balloonTextColor for: #PluggableTextMorphPlus) ifNil: [Color gray])); yourself), (style isTTCStyle ifFalse: [''] ifTrue: [ | eg | ' ... ' asText, ((' ', (tt extraScale * 100) rounded asString, '%') asText addAttribute: (PluggableTextAttribute evalBlock: [style chooseExtraScale]); yourself), ((' ', ((eg := tt extraGap) >= 0 ifTrue: ['+', eg asString] ifFalse: [eg asString])) asText addAttribute: (PluggableTextAttribute evalBlock: [style chooseExtraGap]); yourself) ]), ' ... ', ('explore' translated asText addAttribute: (PluggableTextAttribute evalBlock: [style explore]); yourself), ' ', + ('browse' translated asText addAttribute: (PluggableTextAttribute evalBlock: [defaultFont browseAllGlyphs; browseAllGlyphsByCategory]); yourself), - ('browse' translated asText addAttribute: (PluggableTextAttribute evalBlock: [defaultFont browseAllGlyphs]); yourself), ' ') addAttribute: (TextFontReference toFont: Preferences standardButtonFont); yourself); cr. aStream nextPutAll: (((self fontPointSizesFor: styleName) inject: ' ' asText into: [:text :pointSize | pointSize = defaultFont pointSize ifFalse: [text, ((pointSize asFloat printShowingDecimalPlaces: 1) padded: #left to: 5 with: Character space)] ifTrue: [text, (((pointSize asFloat printShowingDecimalPlaces: 1) padded: #left to: 5 with: Character space) asText addAttribute: TextEmphasis bold; yourself)]]) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself). aStream cr; cr]. knownTTCStyles := knownStyles select: [:ea | (self named: ea) isTTCStyle]. knownLegacyStyles := knownStyles reject: [:ea | (self named: ea) isTTCStyle]. aStream cr. knownTTCStyles do: printBlock. aStream nextPutAll: ('The following pre-rendered legacy fonts are still available. Note that you can only choose from the point sizes that are listed here. Each point size has a pixel size for 96 PPI. The system scales currently for {1} PPI.' translated format: {TextStyle pixelsPerInch}) ; cr; cr. knownLegacyStyles do: printBlock. ].!

1 0

The Trunk: Morphic-mt.1898.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1898.mcz ==================== Summary ==================== Name: Morphic-mt.1898 Author: mt Time: 14 February 2022, 5:35:56.734304 pm UUID: cd4ab310-428e-474c-ada8-642fcd8234a3 Ancestors: Morphic-mt.1897 Complements Tools-mt.1134 =============== Diff against Morphic-mt.1897 =============== Item was changed: ----- Method: FontImporterTool>>browseImported (in category 'actions') ----- browseImported | filenames fonts ttcFonts | fonts := self currentSelection. filenames := fonts allFilenames. ttcFonts := (filenames gather: [:ea | TTFontReader parseFileNamed: ea]) collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself]. + ttcFonts do: [:ea | ea browseAllGlyphs; browseAllGlyphsByCategory].! - ttcFonts do: [:ea | ea browseAllGlyphs].! Item was changed: ----- Method: FontImporterTool>>browseLinked (in category 'actions') ----- browseLinked | filenames fonts ttcFonts | fonts := self currentSelection. filenames := fonts allFilenames. ttcFonts := filenames gather: [:ea | (TTFileDescription readFontsFrom: ea) collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself]]. + ttcFonts do: [:ea | ea browseAllGlyphs; browseAllGlyphsByCategory].! - ttcFonts do: [:ea | ea browseAllGlyphs].! Item was changed: ----- Method: FontImporterTool>>currentSelection: (in category 'accessing') ----- currentSelection: anObject anObject = currentSelection ifTrue: [^ self]. currentSelection := anObject. self changed: #currentSelection. + " self changed: #previewText. + self changed: #selectedFontTextStyle." - self changed: #previewText. - self changed: #selectedFontTextStyle. self changed: #filename. self changed: #copyright.! Item was added: + ----- Method: FontImporterTool>>exploreImported (in category 'actions') ----- + exploreImported + + | filenames fonts ttcFonts | + fonts := self currentSelection. + filenames := fonts allFilenames. + + ttcFonts := (filenames gather: [:ea | TTFontReader parseFileNamed: ea]) + collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself]. + + ttcFonts do: [:ea | ea explore].! Item was added: + ----- Method: FontImporterTool>>exploreLinked (in category 'actions') ----- + exploreLinked + + | filenames fonts ttcFonts | + fonts := self currentSelection. + filenames := fonts allFilenames. + + ttcFonts := filenames gather: [:ea | + (TTFileDescription readFontsFrom: ea) + collect: [:descr | TTCFont new ttcDescription: descr; pointSize: TextStyle defaultFont pointSize; yourself]]. + + ttcFonts do: [:ea | ea explore].! Item was changed: ----- Method: FontImporterTool>>fontListMenu: (in category 'font list') ----- fontListMenu: aMenu ^ aMenu addTranslatedList: #( ('Browse Font (imported)' browseImported 'Import and browse all available glyphs') ('Browse Font (linked)' browseLinked 'Browse all available glyphs') - + ('Explore Font (imported)' exploreImported 'Import and explore the font object') + ('Explore Font (linked)' exploreLinked 'Explore the font object') + - ('Install Font (imported)' import 'Include the font data in the image and provide a TextStyle for the font') ('Install Font (linked)' link 'Install the font as a link to its file and provide a TextStyle for the referenced font') ), (self selectedFont textStyleOrNil ifNil: [#()] ifNotNil: [#( - ('Delete Font' delete 'Remove imported font data or link to font from the system') )]) yourself!

1 0

The Trunk: Multilingual-mt.263.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.263.mcz ==================== Summary ==================== Name: Multilingual-mt.263 Author: mt Time: 14 February 2022, 5:34:52.780304 pm UUID: 6363712d-9809-dd4d-acee-d173e16dfe4e Ancestors: Multilingual-dtl.262 Complements Tools-mt.1134 =============== Diff against Multilingual-dtl.262 =============== Item was changed: EncodedCharSet subclass: #Unicode instanceVariableNames: '' + classVariableNames: 'Cc Cf Cn Co Compositions Cs DecimalProperty Decompositions GeneralCategory GeneralCategoryLabels Ll Lm Lo Lt Lu Mc Me Mn Nd Nl No Pc Pd Pe Pf Pi Po Ps Sc Sk Sm So ToCasefold ToLower ToUpper Zl Zp Zs' - classVariableNames: 'Cc Cf Cn Co Compositions Cs DecimalProperty Decompositions GeneralCategory Ll Lm Lo Lt Lu Mc Me Mn Nd Nl No Pc Pd Pe Pf Pi Po Ps Sc Sk Sm So ToCasefold ToLower ToUpper Zl Zp Zs' poolDictionaries: '' category: 'Multilingual-Encodings'! !Unicode commentStamp: 'yo 10/19/2004 20:44' prior: 0! This class holds the entry points for the utility functions around characters. ! Item was added: + ----- Method: Unicode class>>generalCategoryLabelOf: (in category 'character classification') ----- + generalCategoryLabelOf: aCharacterCode + + ^ (self generalCategoryOf: aCharacterCode) + ifNotNil: [:code | self generalCategoryLabels at: code+1 ifAbsent: ['n/a']] + ifNil: ['n/a']! Item was added: + ----- Method: Unicode class>>generalCategoryLabels (in category 'unicode data') ----- + generalCategoryLabels + " + Unicode generalCategoryLabels + " + ^ GeneralCategoryLabels ifNil: [GeneralCategoryLabels := (Array new: Zs+1) + at: Lu +1 put: 'Letter, Uppercase'; + at: Ll +1 put: 'Letter, Lowercase'; + at: Lt +1 put: 'Letter, Titlecase'; + at: Lm +1 put: 'Letter, Modifier'; + at: Lo +1 put: 'Letter, Other'; + at: Mn +1 put: 'Mark, Non-Spacing'; + at: Mc +1 put: 'Mark, Spacing Combining'; + at: Me +1 put: 'Mark, Enclosing'; + at: Nd +1 put: 'Number, Decimal'; + at: Nl +1 put: 'Number, Letter'; + at: No +1 put: 'Number, Other'; + at: Pc +1 put: 'Punctuation, Connector'; + at: Pd +1 put: 'Punctuation, Dash'; + at: Ps +1 put: 'Punctuation, Open'; + at: Pe +1 put: 'Punctuation, Close'; + at: Pi +1 put: 'Punctuation, Initial quote'; "(may behave like ''Open'' or ''Close'' depending on usage)';" + at: Pf +1 put: 'Punctuation, Final quote'; "(may behave like ''Open'' or ''Close'' depending on usage)';" + at: Po +1 put: 'Punctuation, Other'; + at: Sm +1 put: 'Symbol, Math'; + at: Sc +1 put: 'Symbol, Currency'; + at: Sk +1 put: 'Symbol, Modifier'; + at: So +1 put: 'Symbol, Other'; + at: Zs +1 put: 'Separator, Space'; + at: Zl +1 put: 'Separator, Line'; + at: Zp +1 put: 'Separator, Paragraph'; + at: Cc +1 put: 'Other, Control'; + at: Cf +1 put: 'Other, Format'; + at: Cs +1 put: 'Other, Surrogate'; + at: Co +1 put: 'Other, Private Use'; + at: Cn +1 put: 'Other, Not Assigned'; " (no characters in the file have this property)';" + yourself] + !

1 0

The Trunk: Tools-mt.1134.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1134.mcz ==================== Summary ==================== Name: Tools-mt.1134 Author: mt Time: 14 February 2022, 5:34:16.071304 pm UUID: de92e53a-c700-7549-990e-ee5cb3f9600b Ancestors: Tools-mt.1133 Extends glyph browsing with a mode for browse-by-(Unicode)-category. =============== Diff against Tools-mt.1133 =============== Item was added: + ----- Method: AbstractFont>>browseAllGlyphsByCategory (in category '*Tools-Browsing') ----- + browseAllGlyphsByCategory + "Browse glyphs for all printable characters/code-points in the receiver." + + ^ self + browseGlyphsByCategoryOf: ((self minCodePoint max: 32 "space"+1) to: self maxCodePoint) + select: [:char | (self hasGlyphOf: char) and: [(self widthOf: char) > 0]]! Item was added: + ----- Method: AbstractFont>>browseAllGlyphsScaledToDisplay (in category '*Tools-Browsing') ----- + browseAllGlyphsScaledToDisplay + "Browse all glyphs from the receiver's fontFamily in the system's default #pointSize." + + (self asPointSize: TextStyle defaultFont pointSize) browseAllGlyphs. + + "(self textStyle fontOfPointSize: TextStyle defaultFont pointSize) browseAllGlyphs."! Item was added: + ----- Method: AbstractFont>>browseAllSymbols (in category '*Tools-Browsing') ----- + browseAllSymbols + "This is a variation of #browseAllGlyphs that is optimized to show all available glyphs in a single run, even though their code points may be scattered all over the Unicode range. See #browseAllSymbolsByCategory." + + self isSymbolFont ifFalse: [self notify: 'This is not a symbol font: ', self familyName]. + + ^ self + browseGlyphsOf: ((self minCodePoint to: self maxCodePoint) select: [:ea | self hasGlyphForCode: ea]) + label: 'All symbols in ', self familyName! Item was added: + ----- Method: AbstractFont>>browseAllSymbolsByCategory (in category '*Tools-Browsing') ----- + browseAllSymbolsByCategory + + self isSymbolFont ifFalse: [self notify: 'This is not a symbol font: ', self familyName]. + ^ self browseAllGlyphsByCategory! Item was added: + ----- Method: AbstractFont>>browseGlyphsByCategoryOf: (in category '*Tools-Browsing') ----- + browseGlyphsByCategoryOf: someCodePointsOrCharacters + + self browseGlyphsByCategoryOf: someCodePointsOrCharacters label: nil.! Item was added: + ----- Method: AbstractFont>>browseGlyphsByCategoryOf:label: (in category '*Tools-Browsing') ----- + browseGlyphsByCategoryOf: someCodePointsOrCharacters label: label + + self + browseGlyphsByCategoryOf: someCodePointsOrCharacters + select: [:char | true] + label: label! Item was added: + ----- Method: AbstractFont>>browseGlyphsByCategoryOf:select: (in category '*Tools-Browsing') ----- + browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock + + self browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock label: nil.! Item was added: + ----- Method: AbstractFont>>browseGlyphsByCategoryOf:select:label: (in category '*Tools-Browsing') ----- + browseGlyphsByCategoryOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil + "Like #browseGlyphsOf:... but group the code points by Unicode category." + + | sortedCodePoints contents isRange tmp separatorBlock | + isRange := isRange := someCodePointsOrCharacters isInterval and: [someCodePointsOrCharacters increment = 1]. + + separatorBlock := [:codePoints :category | + (('\{1}\\' withCRs asText + format: { Unicode generalCategoryLabels at: category+1 ifAbsent: ['n/a'] }) + addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); + addAttribute: (PluggableTextAttribute evalBlock: [self browseGlyphsByCategoryOf: codePoints select: aBlock label: aLabelOrNil]); + yourself) ]. + + sortedCodePoints := (someCodePointsOrCharacters + collect: [:ea | ea isCharacter ifTrue: [ea asUnicode] ifFalse: [ea] ] + thenSelect: [:ea | aBlock value: (Character value: ea)]) + sorted: [:a :b | | ca cb | (ca := (Unicode generalCategoryOf: a) ifNil: [0]) < (cb := (Unicode generalCategoryOf: b) ifNil: [0]) + or: [ca = cb and: [a < b]]]. + + "Header" + contents := (('Family name: {1}{6}\ Emphasis: {2}\ Point size: {3} ({4}ppi {5}px{7})\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. [self emphasisString] on: Error do: [self subfamilyName]. self pointSize. self pixelsPerInch. self height. isRange ifTrue: [''] ifFalse: [' (selected code points)']. (self isTTCFont and: [(tmp := self ttcDescription extraScale) ~= 1]) ifFalse: [''] ifTrue: [' ', (tmp * 100) rounded asString, '%'] }) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself). + + String streamContents: [:s | | priorCategory currentCodePoints | + currentCodePoints := OrderedCollection new. + sortedCodePoints withIndexDo: [:codePoint :index | + | char category | + char := Character value: codePoint. + category := Unicode generalCategoryOf: codePoint. + priorCategory ifNil: [priorCategory := category]. + category = priorCategory ifTrue: [ + currentCodePoints add: codePoint. + s nextPut: char]. + (category ~= priorCategory or: [index = sortedCodePoints size]) + ifTrue: [ + contents := contents, (separatorBlock value: currentCodePoints value: priorCategory). + contents := contents, ((s cr; contents) asText addAttribute: (TextFontReference toFont: self); yourself). + currentCodePoints := OrderedCollection new. + s reset. + currentCodePoints add: codePoint. + s nextPut: char]. + priorCategory := category]]. + + contents editWithLabel: (aLabelOrNil ifNil: [self printString]).! Item was changed: ----- Method: AbstractFont>>browseGlyphsOf:select:label: (in category '*Tools-Browsing') ----- browseGlyphsOf: someCodePointsOrCharacters select: aBlock label: aLabelOrNil "Browse all glyphs in the given collection of code points or characters. Split range in sub-ranges whenever the receiver has no glyph for a certain code point. DO NOT translate user-facing text because this is a debugging tool so that text should only use ASCII." + | contents isRange tmp separatorBlock | - | contents isRange tmp | isRange := someCodePointsOrCharacters isInterval and: [someCodePointsOrCharacters increment = 1]. + separatorBlock := [:currentRange | + (('\16r{1} to: 16r{2}\\' withCRs asText + format: { currentRange first printStringBase: 16 length: 6 padded: true. currentRange last printStringBase: 16 length: 6 padded: true }) + addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); + addAttribute: (PluggableTextAttribute evalBlock: [self browseGlyphsFrom: currentRange first to: currentRange last select: aBlock]); + yourself)]. + "Header" + contents := (('Family name: {1}{6}\ Emphasis: {2}\ Point size: {3} ({4}ppi {5}px{7})\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. [self emphasisString] on: Error do: [self subfamilyName]. self pointSize. self pixelsPerInch. self height. isRange ifTrue: [''] ifFalse: [' (selected code points)']. (self isTTCFont and: [(tmp := self ttcDescription extraScale) ~= 1]) ifFalse: [''] ifTrue: [' ', (tmp * 100) rounded asString, '%'] }) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself). - contents := (('Family name: {1}{6}\ Emphasis: {2}\ Point size: {3} ({4}ppi {5}px{7})\' withCRs asText format: { self familyName asText addAttribute: (PluggableTextAttribute evalBlock: [self explore]); yourself. self emphasisString. self pointSize. self pixelsPerInch. self height. isRange ifTrue: [''] ifFalse: [' (selected code points)']. (self isTTCFont and: [(tmp := self ttcDescription extraScale) > 1]) ifFalse: [''] ifTrue: [' ', (tmp * 100) rounded asString, '%'] }) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); yourself). String streamContents: [:s | | first last | last := someCodePointsOrCharacters last. someCodePointsOrCharacters withIndexDo: [:codePointOrChar :index | | current char valid | current := codePointOrChar isCharacter ifTrue: [codePointOrChar asUnicode] ifFalse: [codePointOrChar]. char := Character value: current. (valid := (aBlock value: char)) ifTrue: [s position = 0 ifTrue: [first := current]. s nextPut: char]. (valid not or: [index = someCodePointsOrCharacters size]) ifTrue: [s position = 0 ifFalse: [ isRange ifFalse: [contents := contents, String cr] ifTrue: [ | currentRange | currentRange := first to: (index = someCodePointsOrCharacters size ifTrue: [last] ifFalse: [current-1]). + contents := contents, (separatorBlock value: currentRange)]. - contents := contents, (('\16r{1} to: 16r{2}\\' withCRs asText format: { currentRange first printStringBase: 16 length: 6 padded: true. currentRange last printStringBase: 16 length: 6 padded: true }) addAttribute: (TextFontReference toFont: TextStyle defaultFixedFont); addAttribute: (PluggableTextAttribute evalBlock: [self browseGlyphsFrom: currentRange first to: currentRange last select: aBlock]); yourself)]. contents := contents, ((s cr; contents) asText addAttribute: (TextFontReference toFont: self); yourself). s reset]] ]]. contents editWithLabel: (aLabelOrNil ifNil: [self printString]).!

1 0

The Trunk: TrueType-mt.70.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.70.mcz ==================== Summary ==================== Name: TrueType-mt.70 Author: mt Time: 14 February 2022, 5:31:58.130304 pm UUID: c281811e-ddb6-a940-9dd4-d8450bd6dc31 Ancestors: TrueType-mt.69 Make the cache size for TrueType glyphs a preference. Note that the original 512 is way too small. See the preference description for an explanation of reasonable cache sizes. Minor protocol clean-up in TTCFont. =============== Diff against TrueType-mt.69 =============== Item was added: + ----- Method: TTCFont class>>glyphCacheSize (in category 'preferences') ----- + glyphCacheSize + <preference: 'Glyph cache size (for TrueType fonts)' + categoryList: #(performance) + description: 'The number of glyphs for TrueType fonts that should be kept in memory, which is a trade-off between memory load and drawing speed. Adjust the number to the variation of fonts/sizes/colors you are using at the same time. For example, 1 font with 2 styles (regular+bold) at 2 different point sizes in 3 different colors would result in a preferred cache size of 2268, provided that you only use the typical 189 latin-1 code points (16r0021 to: 16r007E) and (16r00A1 to 16r00FF).' + type: #Number> + + ^ GlyphCacheSize ifNil: [self glyphCacheSize: 2048. GlyphCacheSize]! Item was added: + ----- Method: TTCFont class>>glyphCacheSize: (in category 'preferences') ----- + glyphCacheSize: anInteger + + | newSize newCacheData oldCacheData | + newSize := anInteger ifNil: [2048]. + GlyphCacheSize = newSize ifTrue: [^ self]. + + oldCacheData := GlyphCacheData. + newCacheData := Array new: newSize. + + 1 to: (oldCacheData size min: newCacheData size) do: [:index | + newCacheData at: index put: (oldCacheData at: index)]. + + GlyphCacheSize := newSize. + GlyphCacheData := newCacheData. + GlyphCacheIndex := GlyphCacheIndex min: GlyphCacheSize. + + GlyphCacheReady := true. "Do we need this?"! Item was changed: + ----- Method: TTCFont>>addLined (in category 'initialize') ----- - ----- Method: TTCFont>>addLined (in category 'private') ----- addLined self addLined: self. self derivativeFonts do: [:e | e ifNotNil: [self addLined: e]. ]. ! Item was changed: + ----- Method: TTCFont>>addLined: (in category 'initialize') ----- - ----- Method: TTCFont>>addLined: (in category 'private') ----- addLined: aTTCFont | l | l := LinedTTCFont fromTTCFont: aTTCFont emphasis: 4. self derivativeFont: l at: l emphasis. l := LinedTTCFont fromTTCFont: aTTCFont emphasis: 16. self derivativeFont: l at: l emphasis. l := LinedTTCFont fromTTCFont: aTTCFont emphasis: 20. self derivativeFont: l at: l emphasis. ! Item was changed: + ----- Method: TTCFont>>ascentOf: (in category 'accessing - queries') ----- - ----- Method: TTCFont>>ascentOf: (in category 'accessing') ----- ascentOf: aCharacter " (self hasGlyphFor: aCharacter) ifFalse: [ fallbackFont ifNotNil: [ ^ fallbackFont ascentOf: aCharacter. ]. ]. " ^ self ascent. ! Item was changed: + ----- Method: TTCFont>>at:put: (in category 'caching') ----- - ----- Method: TTCFont>>at:put: (in category 'private') ----- at: char put: form | assoc | assoc := foregroundColor -> form. GlyphCacheData at: (GlyphCacheIndex := GlyphCacheIndex \\ GlyphCacheSize + 1) put: assoc. cache at: (char asInteger + 1) put: assoc. ^form! Item was changed: + ----- Method: TTCFont>>cache (in category 'caching') ----- - ----- Method: TTCFont>>cache (in category 'friend') ----- cache ^cache! Item was changed: + ----- Method: TTCFont>>computeForm: (in category 'character shapes') ----- - ----- Method: TTCFont>>computeForm: (in category 'private') ----- computeForm: char "Compute the glyph form for the given character" ^ttcDescription renderGlyph: char height: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth! Item was changed: + ----- Method: TTCFont>>depth (in category 'accessing') ----- - ----- Method: TTCFont>>depth (in category 'public') ----- depth ^ 32. ! Item was changed: + ----- Method: TTCFont>>derivativeFont: (in category 'initialize') ----- - ----- Method: TTCFont>>derivativeFont: (in category 'friend') ----- derivativeFont: aTTCFont | index | index := self indexOfSubfamilyName: (aTTCFont subfamilyName). index < 1 ifTrue: [ ^ self "inform: 'unknown sub family name. This font will be skipped'". ]. self derivativeFont: aTTCFont at: index. self addLined: aTTCFont. ! Item was changed: + ----- Method: TTCFont>>derivativeFont:at: (in category 'initialize') ----- - ----- Method: TTCFont>>derivativeFont:at: (in category 'friend') ----- derivativeFont: aTTCFont at: index | newDeriv | aTTCFont ifNil: [derivatives := nil. ^ self]. derivatives ifNil: [derivatives := Array new: 32]. derivatives size < 32 ifTrue: [ newDeriv := Array new: 32. newDeriv replaceFrom: 1 to: derivatives size with: derivatives. derivatives := newDeriv. ]. derivatives at: index put: aTTCFont. ! Item was removed: - ----- Method: TTCFont>>derivativeFontArray (in category 'friend') ----- - derivativeFontArray - - ^ derivatives. - ! Item was changed: + ----- Method: TTCFont>>derivativeFonts (in category 'accessing') ----- - ----- Method: TTCFont>>derivativeFonts (in category 'friend') ----- derivativeFonts derivatives ifNil: [^ #()]. ^derivatives copyWithout: nil! Item was changed: + ----- Method: TTCFont>>descentOf: (in category 'accessing - queries') ----- - ----- Method: TTCFont>>descentOf: (in category 'accessing') ----- descentOf: aCharacter " (self hasGlyphFor: aCharacter) ifFalse: [ fallbackFont ifNotNil: [ ^ fallbackFont descentOf: aCharacter. ]. ]." ^ self descent. ! Item was changed: + ----- Method: TTCFont>>displayString:on:from:to:at:kern: (in category 'displaying') ----- - ----- Method: TTCFont>>displayString:on:from:to:at:kern: (in category 'friend') ----- displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta ^ self displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: aPoint y + self ascent. ! Item was changed: + ----- Method: TTCFont>>displayString:on:from:to:at:kern:baselineY: (in category 'displaying') ----- - ----- Method: TTCFont>>displayString:on:from:to:at:kern:baselineY: (in category 'friend') ----- displayString: aString on: aBitBlt from: startIndex to: stopIndex at: aPoint kern: kernDelta baselineY: baselineY | form glyphInfo destX destY hereX nextX actualFont | destX := aPoint x. glyphInfo := Array new: 5. startIndex to: stopIndex do: [:charIndex | self glyphInfoOf: (aString at: charIndex) into: glyphInfo. form := glyphInfo at: 1. hereX := glyphInfo at: 2. nextX := glyphInfo at: 3. (actualFont := glyphInfo at: 5) == aBitBlt lastFont ifFalse: [actualFont installOn: aBitBlt]. destY := baselineY - (glyphInfo at: 4). aBitBlt sourceForm: form. aBitBlt destX: destX. aBitBlt destY: destY + form offset y. "Compensate overdraw. See #extraScale:." aBitBlt sourceX: hereX; sourceY: 0. aBitBlt width: nextX - hereX. aBitBlt height: form height. aBitBlt copyBits. destX := destX + (nextX - hereX) + kernDelta. ]. ^ destX @ destY ! Item was changed: + ----- Method: TTCFont>>emphasis: (in category 'converting') ----- - ----- Method: TTCFont>>emphasis: (in category 'accessing') ----- emphasis: code code > 3 ifTrue: [^ self]. code = 0 ifTrue: [^ self]. derivatives ifNil: [^ self]. ^ (derivatives at: code) ifNil: [self]. ! Item was changed: + ----- Method: TTCFont>>emphasized: (in category 'converting') ----- - ----- Method: TTCFont>>emphasized: (in category 'accessing') ----- emphasized: code code = 0 ifTrue: [^ self]. derivatives ifNil: [^ self]. (((code bitAnd: 20) ~= 0) and: [ derivatives size < code or: [(derivatives at: code) isNil]]) ifTrue: [ self addLined. ]. ^ (derivatives at: code) ifNil: [self]. ! Item was changed: + ----- Method: TTCFont>>fallbackFont: (in category 'initialize') ----- - ----- Method: TTCFont>>fallbackFont: (in category 'accessing') ----- fallbackFont: aFontSetOrNil aFontSetOrNil == self ifTrue:[^ self error: 'Invalid fallback font']. fallbackFont := aFontSetOrNil. ! Item was changed: + ----- Method: TTCFont>>foregroundColor (in category 'accessing') ----- - ----- Method: TTCFont>>foregroundColor (in category 'public') ----- foregroundColor ^ foregroundColor. ! Item was changed: ----- Method: TTCFont>>foregroundColor: (in category 'initialize') ----- foregroundColor: fgColor "Install the given foreground color" foregroundColor = fgColor ifFalse:[ foregroundColor := fgColor. colorToCacheMap ifNil:[colorToCacheMap := Dictionary new]. + cache := colorToCacheMap at: fgColor ifAbsentPut:[WeakArray new: self maxCodePoint+1]. - cache := colorToCacheMap at: fgColor ifAbsentPut:[WeakArray new: self maxAscii+1]. ShutdownList ifNotNil:[ShutdownList add: self]. ]. ! Item was changed: + ----- Method: TTCFont>>formOf: (in category 'character shapes') ----- - ----- Method: TTCFont>>formOf: (in category 'private') ----- formOf: char | code form | char charCode > self maxAscii ifTrue: [^ self fallbackFont formOf: char]. cache ifNil:[self foregroundColor: Color black]. "make sure we have a cache" code := char charCode. form := cache at: (code + 1). + "form class == Association ifTrue:[^self computeForm: code]. ""in midst of loading" - form class == Association ifTrue:[^self computeForm: code]. "in midst of loading" form ifNil:[ form := self computeForm: code. form ifNil:[^nil]. cache at: code+1 put: form. GlyphCacheData at: (GlyphCacheIndex := GlyphCacheIndex \\ GlyphCacheSize + 1) put: form. ]. ^form ! Item was changed: + ----- Method: TTCFont>>glyphInfoOf:into: (in category 'displaying') ----- - ----- Method: TTCFont>>glyphInfoOf:into: (in category 'private') ----- glyphInfoOf: aCharacter into: glyphInfoArray "return the glyph info for aCharacter; if I don't have such a character, try my fallback font" | form | (self hasGlyphOf: aCharacter) ifFalse: [ ^ self fallbackFont glyphInfoOf: aCharacter into: glyphInfoArray. ]. form := self formOf: aCharacter. glyphInfoArray at: 1 put: form; at: 2 put: 0; at: 3 put: form width; at: 4 put: self ascent "(self ascentOf: aCharacter)"; at: 5 put: self. ^ glyphInfoArray. ! Item was changed: + ----- Method: TTCFont>>hasGlyphForCode: (in category 'testing') ----- - ----- Method: TTCFont>>hasGlyphForCode: (in category 'private') ----- hasGlyphForCode: aCharacterCode "Answer whether this font includes a glyph for the given character" (aCharacterCode between: self minCodePoint and: self maxCodePoint) ifFalse: [^ false]. (cache notNil and: [(cache at: aCharacterCode + 1 ifAbsent: [nil]) notNil]) ifTrue: [^ true "fallback glyphs via #fallbackFont"]. (ttcDescription at: "expensive for TTFileDescription" aCharacterCode) isFallback ifTrue: [^ false]. ^ true! Item was changed: + ----- Method: TTCFont>>initialize (in category 'initialize') ----- - ----- Method: TTCFont>>initialize (in category 'friend') ----- initialize foregroundColor := Color black. ! Item was changed: + ----- Method: TTCFont>>installOn: (in category 'displaying') ----- - ----- Method: TTCFont>>installOn: (in category 'friend') ----- installOn: aDisplayContext ^aDisplayContext installTTCFont: self. ! Item was changed: + ----- Method: TTCFont>>installOn:foregroundColor:backgroundColor: (in category 'displaying') ----- - ----- Method: TTCFont>>installOn:foregroundColor:backgroundColor: (in category 'friend') ----- installOn: aDisplayContext foregroundColor: fgColor backgroundColor: bgColor self foregroundColor: fgColor. "install color" (self fallbackFont notNil and: [ self fallbackFont class = TTCFontSet ]) ifTrue: [ self fallbackFont fontArray do: [:font | font ifNotNil: [ font foregroundColor: fgColor ] ] ]. "install color for fallbackFont" aDisplayContext installTTCFont: self foregroundColor: foregroundColor backgroundColor: bgColor ! Item was changed: + ----- Method: TTCFont>>pixelSize: (in category 'initialize') ----- - ----- Method: TTCFont>>pixelSize: (in category 'accessing') ----- pixelSize: aNumber "Make sure that we don't return a Fraction" self pointSize: (TextStyle pixelsToPoints: aNumber) rounded. ! Item was changed: + ----- Method: TTCFont>>pointSize: (in category 'initialize') ----- - ----- Method: TTCFont>>pointSize: (in category 'accessing') ----- pointSize: aNumber self privatePointSize: aNumber. derivatives ifNotNil: [ derivatives do: [ :f | f ifNotNil: [ f privatePointSize: aNumber ]]]. ! Item was changed: + ----- Method: TTCFont>>privatePointSize: (in category 'initialize') ----- - ----- Method: TTCFont>>privatePointSize: (in category 'accessing') ----- privatePointSize: aNumber pointSize = aNumber ifFalse: [pointSize := aNumber. self flushCache]! Item was changed: + ----- Method: TTCFont>>recreateCache (in category 'initialize') ----- - ----- Method: TTCFont>>recreateCache (in category 'friend') ----- recreateCache cache := WeakArray new: 256.! Item was changed: ----- Method: TTCFont>>scale (in category 'private') ----- scale + self flag: #deprecated. ^ self pixelSize / ttcDescription unitsPerEm ! Item was changed: + ----- Method: TTCFont>>size (in category 'accessing') ----- - ----- Method: TTCFont>>size (in category 'public') ----- size ^ ttcDescription size. ! Item was changed: + ----- Method: TTCFont>>subfamilyName (in category 'accessing') ----- - ----- Method: TTCFont>>subfamilyName (in category 'private') ----- subfamilyName ^ ttcDescription subfamilyName. ! Item was changed: + ----- Method: TTCFont>>textStyle (in category 'accessing - queries') ----- - ----- Method: TTCFont>>textStyle (in category 'accessing') ----- textStyle "Overwritten to consider the case where a font is primarily registered under a different name... also do not create a new style for orphaned fonts." self flag: #discuss. "mt: Do we really need this?" ^ self textStyleOrNil ifNil: [ "Fallback: Maybe this font is in a text style with another name?" TextStyle actualTextStyles detect: [:aStyle | aStyle fontArray anySatisfy: [:font | font familyName = self familyName]] ifNone: [nil]]! Item was changed: + ----- Method: TTCFont>>ttcDescription (in category 'initialize') ----- - ----- Method: TTCFont>>ttcDescription (in category 'friend') ----- ttcDescription ^ ttcDescription. ! Item was changed: + ----- Method: TTCFont>>ttcDescription: (in category 'initialize') ----- - ----- Method: TTCFont>>ttcDescription: (in category 'friend') ----- ttcDescription: aTTCDescription ttcDescription := aTTCDescription. self flushCache. !

1 0

The Trunk: Tools-mt.1133.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1133.mcz ==================== Summary ==================== Name: Tools-mt.1133 Author: mt Time: 14 February 2022, 4:38:35.919941 pm UUID: b3bc6ac4-00a9-f74a-8efc-6a1e80bf9ec5 Ancestors: Tools-mt.1132 Browser button label: "vars" -> "variables" =============== Diff against Tools-mt.1132 =============== Item was changed: ----- Method: CodeHolder>>optionalButtonPairs (in category 'controls') ----- optionalButtonPairs "Answer a tuple (formerly pairs) defining buttons, in the format: button label selector to send help message" | aList | aList := #( ('browse' browseMethodFull 'view this method in a browser') ('senders' browseSendersOfMessages 'browse senders of...') ('implementors' browseMessages 'browse implementors of...') ('versions' browseVersions 'browse versions')), (Preferences decorateBrowserButtons ifTrue: [{#('inheritance' methodHierarchy 'browse method inheritance green: sends to super tan: has override(s) mauve: both of the above pink: is an override but doesn''t call super pinkish tan: has override(s), also is an override but doesn''t call super' )}] ifFalse: [{#('inheritance' methodHierarchy 'browse method inheritance')}]), #( ('hierarchy' browseClassHierarchy 'browse class hierarchy') + ('variables' browseVariableReferences 'browse references to variables...')). - ('vars' browseVariableReferences 'references...')). ^ aList!

1 0

The Trunk: Morphic-mt.1897.mcz
by commits＠source.squeak.org 14 Feb '22

14 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1897.mcz ==================== Summary ==================== Name: Morphic-mt.1897 Author: mt Time: 14 February 2022, 11:46:04.197768 am UUID: ebf6f066-d0d2-5944-9eae-b6ffbc0ac042 Ancestors: Morphic-mt.1896 Fixes right margins in text fields. Especially noticable in multi-line text fields that make heavy use of wrapping (and thus the vertical scroll bar). =============== Diff against Morphic-mt.1896 =============== Item was changed: ----- Method: PluggableTextMorph class>>textMargins (in category 'defaults') ----- textMargins + | horizontal vertical | - | left other | MorphicProject useCompactTextFields ifTrue: [ + horizontal := (3 * RealEstateAgent scaleFactor) truncated. + vertical := 0] - left := (3 * RealEstateAgent scaleFactor) truncated. - other := 0] ifFalse: [ + horizontal := vertical := (UserInterfaceTheme current get: #keyboardFocusWidth for: Morph) ifNil: [2]. + vertical := (vertical * RealEstateAgent scaleFactor) truncated. + horizontal >= 3 + ifTrue: [horizontal := vertical * 2] + ifFalse: [horizontal := (3 * RealEstateAgent scaleFactor) truncated] ]. + ^ horizontal @ vertical corner: horizontal@ vertical! - left := other := (UserInterfaceTheme current get: #keyboardFocusWidth for: Morph) ifNil: [2]. - other := (other * RealEstateAgent scaleFactor) truncated. - left >= 3 - ifTrue: [left := other * 2] - ifFalse: [left := (3 * RealEstateAgent scaleFactor) truncated] ]. - ^ left @ other corner: other@ other!

1 0

← Newer
1
2
3
4
5
6
7
8
...
20
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2022