Squeak-dev March 2022

squeak-dev@lists.squeakfoundation.org

33 participants
303 discussions

The Trunk: Morphic-mt.1916.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1916.mcz ==================== Summary ==================== Name: Morphic-mt.1916 Author: mt Time: 1 March 2022, 3:35:17.58735 pm UUID: ee7c8513-0a23-47c9-887e-dfd05fa2215a Ancestors: Morphic-mt.1915 Fix another init but in StringMorph where the extent was not computed correctly for pure string contents. =============== Diff against Morphic-mt.1915 =============== Item was changed: ----- Method: StringMorph>>initializeFromString: (in category 'initialization') ----- initializeFromString: aString + contents := aString. + self fitContents.! - contents := aString.! Item was changed: ----- Method: StringMorph>>initializeFromText: (in category 'initialization') ----- initializeFromText: aText | scanner | scanner := StringMorphAttributeScanner new initializeFromStringMorph: self. (aText attributesAt: 1 forStyle: self font textStyle) do: [:attr | attr emphasizeScanner: scanner]. font := scanner font emphasized: scanner emphasis. emphasis := scanner emphasis. - color := scanner textColor. + + contents := aText string. + self fitContents.! - - self contents: aText string.!

1 0

The Trunk: System-mt.1314.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1314.mcz ==================== Summary ==================== Name: System-mt.1314 Author: mt Time: 1 March 2022, 3:16:48.93235 pm UUID: 2d44416b-ecc6-4615-aa00-f7f663e15d7a Ancestors: System-mt.1313 TrueType fonts: When the user tries to change the system's default point size from 10.5pt to something else, change the #uiScaleFactor instead and inform the user. This way, we ensure that tools' pixel-based components (e.g., grip size or border width) don't have a strange scale relative to what #uiScaleFactor reports. See commentary in #referencePointSize and #referenceHeight. Note that we currently have pixel-based scaling for small units (i.e., < 4 "px") and point-based scaling for many other things but not all (i.e., myFont widthOf: $m). For example, #initialExtent is also scaled based on pixels because tools are typically a compound mixed of pixel stuff and text/font stuff. =============== Diff against System-mt.1313 =============== Item was added: + ----- Method: UserInterfaceTheme class>>makeAllTTCBased (in category 'tools') ----- + makeAllTTCBased + "Converts all known themes to only use TrueType fonts. Use #cleanUpAndReset if you want to undo this later." + + self resetAfter: [ + self allThemes copy do: [:uit | uit isGenuine ifFalse: [uit unregister]]. + self allThemes do: [:uit | uit makeTTCBased]].! Item was changed: ----- Method: UserInterfaceTheme class>>setFont:to: (in category 'tools - fonts') ----- setFont: symbolicName to: aFont "Set symbolicName to aFont in all known UI themes. If aFont is a TrueType font, transform all themes into TTC-based ones and re-apply the current theme by name." | fontToUse | fontToUse := aFont. + (symbolicName = #standardSystemFont and: [aFont isTTCFont]) ifTrue: [ + (self allThemes anySatisfy: [:uit | uit isTTCBased not]) + ifTrue: [ + self makeAllTTCBased. + aFont pointSize ~= TTCFont referencePointSize ifTrue: [ + "Do not change current #scaleFactor by accident. Use standard point size." + fontToUse := aFont asPointSize: TTCFont referencePointSize. + self inform: ((('Your system is now using TrueType fonts. The point size you specified was reset to {1}pt to retain the system''s current scale factor of {2}%.\\You can repeat this if you really want to use {3}pt. However, it is advised to change the system''s scale factor if you want to make all fonts look smaller or larger on your current display.\See the menu Extras > Scale Factor.' translated withCRs format: {fontToUse pointSize. (Display relativeUiScaleFactor * 100) rounded. aFont pointSize}) withNoLineLongerThan: 70) copyReplaceAll: String cr with: ' ') asTextFromHtml]] + ifFalse: [ "The user tried to increase the system's overall font size. Increase the scale factor instead. See RealEstateAgent class >> #scaleFactor, which is what all client code uses if it does not scale through font metrics." + | scaleFactorDelta | + scaleFactorDelta := ((aFont pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0. - (symbolicName = #standardSystemFont and: [aFont isTTCFont]) - ifTrue: [(self allThemes anySatisfy: [:uit | uit isTTCBased not]) ifTrue: [ - self resetAfter: [ - self allThemes copy do: [:uit | uit isGenuine ifFalse: [uit unregister]]. - self allThemes do: [:uit | uit makeTTCBased]]. - aFont pointSize ~= TTCFont referencePointSize ifTrue: [ - "Do not change current #scaleFactor by accident. Use standard point size." fontToUse := aFont asPointSize: TTCFont referencePointSize. + scaleFactorDelta = 0 ifFalse: [ + Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta. + self inform: ((('You tried to change the system''s standard font size from {1}pt to {2}pt, which is an increase of about {3}%. As a result, the system''s scale factor was changed to {4}%.\\Other fonts will now appear smaller or larger as well. The system''s standard font size remains at {1}pt. Note that you may also edit the font''s extra glyph scale to make it look smaller or larger at the same point size.'translated withCRs format: {TTCFont referencePointSize. aFont pointSize. (scaleFactorDelta * 100) rounded. (Display relativeUiScaleFactor * 100) rounded.}) withNoLineLongerThan: 70) copyReplaceAll: String cr with: ' ') asTextFromHtml]] ]. - self inform: ((('Your system is now using TrueType fonts. The point size you specified was reset to {1}pt to retain the system''s current scale factor of {2}%.\\You can repeat this if you really want to use {3}pt. However, it is advised to change the system''s scale factor if you want to make all fonts look smaller or larger on your current display.\See the menu Extras > Scale Factor.' translated withCRs format: {fontToUse pointSize. (Display relativeUiScaleFactor * 100) rounded. aFont pointSize}) withNoLineLongerThan: 70) copyReplaceAll: String cr with: ' ') asTextFromHtml]]]. self allThemes do: [:uit | uit setFont: symbolicName to: fontToUse].! Item was changed: ----- Method: UserInterfaceTheme>>installFixedFont: (in category 'private - fonts') ----- installFixedFont: aFont "Establish the default fixed text font and style" | aStyle | self flag: #todo. "mt: Support derivatives such as bold and italic." + aStyle := aFont textStyleOrNil. "mt: Must be installed and thus never be nil!!" - aStyle := aFont textStyle. aStyle defaultFontIndex: (aStyle fontIndexOfPointSize: aFont pointSize "drop emphasis"). TextStyle setDefaultFixed: aStyle.! Item was changed: ----- Method: UserInterfaceTheme>>installSystemFont: (in category 'private - fonts') ----- installSystemFont: aFont "Establish the default text font and style. Update the #defaultFontIndex in all known text styles to reflect the system's new default point size." | aStyle | self flag: #todo. "mt: Support derivatives such as bold and italic." + aStyle := aFont textStyleOrNil. "mt: Must be installed and thus never be nil!!" - aStyle := aFont textStyle. aStyle defaultFontIndex: (aStyle fontIndexOfPointSize: aFont pointSize "drop emphasis"). TextStyle setDefault: aStyle. TextStyle actualTextStyles "no defaults" do: [:ea | ea isTTCStyle ifTrue: [ea defaultFont asPointSize: aFont pointSize "May generate new pointSize"]. ea defaultFontIndex: (ea fontIndexOfPointSize: aFont pointSize)]. RealEstateAgent resetScaleFactor. Flaps replaceToolsFlap. ScriptingSystem resetStandardPartsBin.!

1 0

The Trunk: Morphic-mt.1915.mcz
by commits＠source.squeak.org 01 Mar '22

01 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1915.mcz ==================== Summary ==================== Name: Morphic-mt.1915 Author: mt Time: 1 March 2022, 1:46:07.327867 pm UUID: 224f3d6f-8716-4761-8abb-b5ed25ca2c61 Ancestors: Morphic-mt.1914 Fix init bug in StringMorph where font/emphasis initialization from text attributes forgot to init default fonts so that StringMorphAttributeScanner can do its magic with proper defaults, that is, not every text as a TextFontChange attribute. So that default must come from the StringMorph. =============== Diff against Morphic-mt.1914 =============== Item was changed: ----- Method: StringMorph>>initWithContents:font:emphasis: (in category 'initialization') ----- initWithContents: aStringOrText font: aFont emphasis: emphasisCode self initialize. + self font: aFont emphasis: emphasisCode. aStringOrText isText ifTrue: [self initializeFromText: aStringOrText] + ifFalse: [self initializeFromString: aStringOrText].! - ifFalse: [ - self initializeFromString: aStringOrText. - self font: aFont emphasis: emphasisCode].!

1 0

Jump to page: