Squeak-dev March 2022

squeak-dev@lists.squeakfoundation.org

33 participants
303 discussions

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

03 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1920.mcz ==================== Summary ==================== Name: Morphic-mt.1920 Author: mt Time: 3 March 2022, 8:44:36.942874 am UUID: 9f726572-570d-2849-a91c-1bae818fb7af Ancestors: Morphic-mt.1919 In the font-importer tool, ensure readable error messages for the preview text. =============== Diff against Morphic-mt.1919 =============== Item was removed: - ----- Method: FontImporterTool>>emphasis (in category 'accessing') ----- - emphasis - - ^ emphasis! Item was removed: - ----- Method: FontImporterTool>>emphasis: (in category 'accessing') ----- - emphasis: anObject - - emphasis := anObject! Item was added: + ----- Method: FontImporterTool>>errorText: (in category 'preview text') ----- + errorText: aString + "Style the error text in a font that can display the characters." + + ^ Text + string: aString + attribute: (TextFontReference toFont: TextStyle defaultFont)! Item was changed: ----- Method: FontImporterTool>>previewText (in category 'preview text') ----- previewText "Answer the current preview text. Avoid using a text with font-reference attributes so that any not-yet-installed font does not get spreaded across the system. See #selectedFontTextStyle to learn how the preview is rendered using the selected font." self selectedFont ifNil: [^ '']. self customPreviewText ifNotEmpty: [:text | ^ text withCRs]. previewTextSelector = #fontSample ifTrue: [ ^ self selectedFont ttcDescription sampleText + ifEmpty: [self errorText: 'This font does not provide a sample text.' translated]]. - ifEmpty: ['This font does not provide a sample text.' translated]]. (previewTextSelector ~= #textSample and: [self selectedFont isSymbolFont]) + ifTrue: [^ self errorText: 'This symbol font does not support the preview text.\Please use ''Text/Symbol'' or type a custom text.' translated withCRs]. - ifTrue: [^ 'This symbol font does not support the preview text.\Please use ''Text/Symbol'' or type a custom text.' translated withCRs asText addAttribute: (TextFontReference toFont: TextStyle defaultFont); yourself]. self selectedFont isSymbolFont ifTrue: [^ self selectedFont symbolSample asString]. (Text respondsTo: previewTextSelector) ifTrue: [^ (Text perform: previewTextSelector) asString]. previewTextSelector = #widgetSample ifTrue: [^ self widgetSample]. ^ ''!

1 0

The Inbox: MorphicExtras-lrnp.308.mcz
by commits＠source.squeak.org 03 Mar '22

03 Mar '22

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-lrnp.308.mcz ==================== Summary ==================== Name: MorphicExtras-lrnp.308 Author: lrnp Time: 2 March 2022, 9:53:05.152048 pm UUID: aaa42c8a-2ead-42a8-ae9f-e7802c4b176f Ancestors: MorphicExtras-mt.307 Put the book, not true, in the return position. Must Do-It: ScrapBook cleanUp: true. when updating in-place. =============== Diff against MorphicExtras-mt.307 =============== Item was changed: ----- Method: ScrapBook>>scrapBook (in category 'scraps') ----- scrapBook | header aButton label | ^ book ifNil: [ book := BookMorph new pageSize: 300@300; setNameTo: 'scraps' translated. book addCornerGrips. book color: Color yellow muchLighter. book borderColor: Color darkGray; borderWidth: 2. book removeEverything; showPageControls; insertPage. header := AlignmentMorph newRow wrapCentering: #center; cellPositioning: #leftCenter. header setProperty: #header toValue: true. header addMorph: (aButton := ThreePhaseButtonMorph labelSymbol: #'Halo-Collapse'). aButton target: book; actionSelector: #delete; setBalloonText: 'Close the trashcan.\(to view again later, click on any trashcan).' translated withCRs. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (label := UpdatingStringMorph new target: self) beSticky. label getSelector: #trashTitle; useStringFormat; step. header addMorphBack: AlignmentMorph newVariableTransparentSpacer beSticky. header addMorphBack: (aButton := ThreePhaseButtonMorph labelSymbol: #'Halo-Dismiss'). aButton target: self; actionSelector: #maybeEmptyTrash; setBalloonText: 'Click here to empty the trash.' translated. book currentPage layoutPolicy: TableLayout new; addMorph: (TextMorph new contents: 'Objects you drag into the trash will automatically be saved here, one object per page, in case you need them later. To disable this feature set the "preserveTrash" Preference to false.\\You can individually expunge objects by hitting the "-" control (behind "..."). You can empty out all the objects in the trash can by hitting the "X" button at top right.' translated withCRs; hResizing: #spaceFill). book addMorphFront: header. + book setProperty: #scraps toValue: true. + book].! - book setProperty: #scraps toValue: true].!

1 0

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

02 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1919.mcz ==================== Summary ==================== Name: Morphic-mt.1919 Author: mt Time: 2 March 2022, 11:56:06.384065 am UUID: 63b6162c-ca23-ff42-b69b-a005bc2e386c Ancestors: Morphic-mt.1918 Complements System-mt.1317 =============== Diff against Morphic-mt.1918 =============== Item was changed: ----- Method: FontImporterTool>>applyFontToAll (in category 'actions') ----- applyFontToAll + | fontSymbolsToApply | - | fontSymbolsToApply fontToUse scaleFactorDelta | (Project uiManager confirm: 'Do you really want to overwrite individual\point sizes and emphases such as in\buttons and window titles?' translated withCRs title: 'Apply Font to Everything' translated) ifFalse: [^ self]. self currentSelection isInstalled ifFalse: [self installFont]. fontSymbolsToApply := self selectedFont hasFixedWidth ifTrue: [self fontSymbolsToUse] ifFalse: [ self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs. self fontSymbolsToUse copyWithout: #standardFixedFont]. - - fontToUse := self selectedFont. - scaleFactorDelta := 0. - self selectedFont pointSize ~= TTCFont referencePointSize ifTrue: [ - scaleFactorDelta := ((fontToUse pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0. - fontToUse := fontToUse asPointSize: TTCFont referencePointSize]. Cursor wait showWhile: [ UserInterfaceTheme makeAllTTCBased. UserInterfaceTheme current applyAfter: [ fontSymbolsToApply do: [:fontSymbol | + UserInterfaceTheme setFont: fontSymbol to: self selectedFont] ]].! - UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]]. - - scaleFactorDelta ~= 0 ifTrue: [ - Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta. - self flag: #todo. "mt: Inform the user? See UserInterfaceTheme class >> #setFont:to:"].!

1 0

The Trunk: Graphics-mt.491.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.491.mcz ==================== Summary ==================== Name: Graphics-mt.491 Author: mt Time: 2 March 2022, 11:55:29.321065 am UUID: 70c5f982-c217-bf42-bdea-4a5d2e8c7018 Ancestors: Graphics-mt.490 Complements System-mt.1317 =============== Diff against Graphics-mt.490 =============== Item was added: + ----- Method: TextStyle class>>referenceHeight (in category 'utilities') ----- + referenceHeight + "See commentary in RealEstateAgent class >> #scaleFactor." + + ^ self default isTTCStyle + ifTrue: [self pointsToPixels: TTCFont referencePointSize] + ifFalse: [self defaultFont height]!

1 0

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

02 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1317.mcz ==================== Summary ==================== Name: System-mt.1317 Author: mt Time: 2 March 2022, 11:55:00.421065 am UUID: f005548a-6d1b-f244-b033-8bc84eba7121 Ancestors: System-mt.1316 Finally decouple #standardDefaultTextFont from how #scaleFactor is computed in RealEstateAgent. =============== Diff against System-mt.1316 =============== Item was changed: ----- Method: RealEstateAgent class>>scaleFactor (in category 'display scale') ----- scaleFactor "Use the default font height to calculate some factor. Note that, in a distant future, we will be able to use a method that is not based on pixels once we only use TrueType fonts all over the image and have a rendering system other than BitBlt. Then, TextStyle class >> #pixelsPerInch will suffice, considering that 96 PPI represents a scale factor of 1.0. Until then, rendering is based on pixel geometry." + ^ ScaleFactor ifNil: [ScaleFactor := (TextStyle referenceHeight / StrikeFont referenceHeight)]! - ^ ScaleFactor ifNil: [ScaleFactor := (TextStyle defaultFont height / StrikeFont referenceHeight)]! 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." - "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." + (symbolicName = #standardSystemFont and: [aFont isTTCFont]) + ifTrue: [self makeAllTTCBased]. - | 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. - 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 allThemes do: [:uit | + uit setFont: symbolicName to: aFont].! - uit setFont: symbolicName to: fontToUse].! Item was changed: ----- Method: UserInterfaceTheme class>>setSystemFontTo: (in category 'tools - fonts') ----- setSystemFontTo: aFont "Establish the default text font and style" aFont isTTCFont not ifTrue: [ Display uiScaleFactor = 1.0 ifFalse: [^ self error: 'You may only set a pre-rendered font for 100% scale factor']. aFont height = StrikeFont referenceHeight ifFalse: [^ self error: ('Incompatible pre-rendered font for 100% scale factor. Height must be {1} px' format: {StrikeFont referenceHeight})]]. - "Documentation only. Users can increase the default font size to any value. Yet, RealEstateAgent class >> #scaleFactor will change and the system effectively render stuff larger. So, it would be a good idea to keep #pixelSize/#height of system font, list font, and menu font similar. - - (aFont isTTCFont and: [aFont pointSize ~= TTCFont referencePointSize]) - ifTrue: [self notify: ('The standard system/text font should be {1} pt. If you want to increase the overall font size, please change the screen scale factor instead. You may proceed without harm.' format: {TTCFont referencePointSize})]. - " self setFont: #standardSystemFont to: aFont.!

1 0

The Trunk: TrueType-mt.79.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of TrueType to project The Trunk: http://source.squeak.org/trunk/TrueType-mt.79.mcz ==================== Summary ==================== Name: TrueType-mt.79 Author: mt Time: 2 March 2022, 10:52:13.629269 am UUID: 1de8388f-08db-7248-9cd3-136cf1308e9d Ancestors: TrueType-mt.78 In TextConstants, organize known style names as symbol, not string. =============== Diff against TrueType-mt.78 =============== Item was changed: ----- Method: TTCFont class>>reorganizeForNewFontArray:name: (in category 'other') ----- reorganizeForNewFontArray: array name: styleName | style existings regular altName | (TextConstants includesKey: styleName) ifFalse: [ + style := TextConstants at: styleName asSymbol put: (TextStyle fontArray: array). - style := TextConstants at: styleName put: (TextStyle fontArray: array). self register: array at: styleName. "Do this first to make #asPointSize: work" style defaultFont asPointSize: TextStyle defaultFont pointSize. "May create new point size" style defaultFontIndex: (style fontIndexOfPointSize: TextStyle defaultFont pointSize). ^ style ]. "There is a text style with the name I want to use. See if it is a TTC font..." style := TextConstants at: styleName. style isTTCStyle ifFalse: [ altName := ((array at: 1) name, 'TT') asSymbol. ^ self reorganizeForNewFontArray: array name: altName. ]. existings := (self getExistings: style fontArray), (Array with: array). regular := existings detect: [:e | (e at: 1) isRegular] ifNone: [existings at: 1]. regular do: [:r | r addLined: r. ]. "The existing array may be different in size than the new one." existings do: [:e | (e at: 1) isRegular ifFalse: [ regular do: [ :r | | f | f := e detect: [ :ea | ea pointSize = r pointSize ] ifNone: [ ]. f ifNotNil: [ r derivativeFont: f ]. ]. ]. ]. self register: regular at: styleName. style newFontArray: regular. style defaultFont asPointSize: TextStyle defaultFont pointSize. "May create new point size" style defaultFontIndex: (style fontIndexOfPointSize: TextStyle defaultFont pointSize). ^ style. !

1 0

The Trunk: Graphics-mt.490.mcz
by commits＠source.squeak.org 02 Mar '22

02 Mar '22

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.490.mcz ==================== Summary ==================== Name: Graphics-mt.490 Author: mt Time: 2 March 2022, 10:18:11.47176 am UUID: ca84f705-7a8b-224e-bbd3-5af55bf955be Ancestors: Graphics-mt.489 Fix typo. =============== Diff against Graphics-mt.489 =============== Item was changed: ----- Method: DisplayScreen>>uiScaleFactor: (in category 'scale factor') ----- uiScaleFactor: aFloat "Sets the effective scale factor for the user interface, i.e., all widgets, tools, and windows. The user can override the CurrentScaleFactor recommended by the platform." | oldFactor newFactor | + (UserInterfaceTheme current canFakeScaleFactor: aFloat) ifTrue: [ - (UserInterfaceTheme current canFakeScaleFactor: 0.75) ifTrue: [ self flag: #isTTCBased. ^ UserInterfaceTheme current applyScaled: aFloat]. aFloat = 0.75 ifTrue: [(Project uiManager confirm: ((('You are currently using TrueType fonts. Your requested scale factor of {1}% looks better using pre-rendered pixel fonts.\\Do you want to switch to pixel fonts now?' translated withCRs format: {(aFloat * 100) rounded}) withNoLineLongerThan: 60) copyReplaceAll: String cr with: ' ') asTextFromHtml title: 'Blurry Fonts Detected' translated) == true ifTrue: [UserInterfaceTheme cleanUpAndReset. ^ self uiScaleFactor: aFloat]]. oldFactor := RealEstateAgent scaleFactor. "Use effective, pixel-based factor to account for rounding errors. See #isTTCBased and #uiScaleFactor." newFactor := aFloat max: 0.75. newFactor = oldFactor ifTrue: [^ self]. TextStyle pixelsPerInch: 96.0 * aFloat. newFactor := RealEstateAgent resetScaleFactor; scaleFactor. "Again, account for rounding errors." Project current ifNotNil: [:p | p displayScaleChangedFrom: oldFactor to: newFactor].!

1 0

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

02 Mar '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1316.mcz ==================== Summary ==================== Name: System-mt.1316 Author: mt Time: 2 March 2022, 9:44:47.386783 am UUID: c1dc4939-f264-4c42-9022-1efe9da28147 Ancestors: System-mt.1315 Complements Morphic-mt.1918. =============== Diff against System-mt.1315 =============== Item was changed: ----- 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 allThemes allSatisfy: [:uit | uit isTTCBased]) + ifTrue: [^ self]. + self resetAfter: [ self allThemes copy do: [:uit | uit isGenuine ifFalse: [uit unregister]]. self allThemes do: [:uit | uit makeTTCBased]].!

1 0

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

02 Mar '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1918.mcz ==================== Summary ==================== Name: Morphic-mt.1918 Author: mt Time: 2 March 2022, 9:43:47.009783 am UUID: 37cc13dd-cc57-4847-a3de-a133a6094c95 Ancestors: Morphic-mt.1917 FontImporterTool: Adds a simple way to apply the selected font (family) to all places in the system. =============== Diff against Morphic-mt.1917 =============== Item was changed: ----- Method: FontImporterTool>>applyFont (in category 'actions') ----- applyFont | fontSymbols fontLabels choice | fontSymbols := self fontSymbolsToUse. fontLabels := fontSymbols collect: [:ea | (ea findFeatures joinSeparatedBy: ' ') capitalized]. + + fontSymbols := #(all allScaled), fontSymbols. + fontLabels := #('All fonts' 'All fonts (only font family)'), fontLabels. + choice := Project uiManager chooseFrom: fontLabels values: fontSymbols title: 'Apply font as...' translated. choice ifNil: [^ self]. + + choice caseOf: { + [#all] -> [self applyFontToAll]. + [#allScaled] -> [self applyFontToAllScaled] + } otherwise: [self applyFontTo: choice].! - self applyFontTo: choice.! Item was added: + ----- Method: FontImporterTool>>applyFontToAll (in category 'actions') ----- + applyFontToAll + + | fontSymbolsToApply fontToUse scaleFactorDelta | + (Project uiManager + confirm: 'Do you really want to overwrite individual\point sizes and emphases such as in\buttons and window titles?' translated withCRs + title: 'Apply Font to Everything' translated) + ifFalse: [^ self]. + + self currentSelection isInstalled ifFalse: [self installFont]. + + fontSymbolsToApply := self selectedFont hasFixedWidth + ifTrue: [self fontSymbolsToUse] + ifFalse: [ + self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs. + self fontSymbolsToUse copyWithout: #standardFixedFont]. + + fontToUse := self selectedFont. + scaleFactorDelta := 0. + self selectedFont pointSize ~= TTCFont referencePointSize ifTrue: [ + scaleFactorDelta := ((fontToUse pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0. + fontToUse := fontToUse asPointSize: TTCFont referencePointSize]. + + Cursor wait showWhile: [ + UserInterfaceTheme makeAllTTCBased. + UserInterfaceTheme current applyAfter: [ + fontSymbolsToApply do: [:fontSymbol | + UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]]. + + scaleFactorDelta ~= 0 ifTrue: [ + Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta. + self flag: #todo. "mt: Inform the user? See UserInterfaceTheme class >> #setFont:to:"].! Item was added: + ----- Method: FontImporterTool>>applyFontToAllScaled (in category 'actions') ----- + applyFontToAllScaled + "Like #applyFontToAll but keep the respective point sizes and emphases." + + | fontSymbolsToApply | + self currentSelection isInstalled ifFalse: [self installFont]. + + fontSymbolsToApply := self selectedFont hasFixedWidth + ifTrue: [self fontSymbolsToUse] + ifFalse: [ + self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs. + self fontSymbolsToUse copyWithout: #standardFixedFont]. + + Cursor wait showWhile: [ + UserInterfaceTheme makeAllTTCBased. + UserInterfaceTheme current applyAfter: [ + fontSymbolsToApply do: [:fontSymbol | | fontToUse | + + (UserInterfaceTheme current get: fontSymbol) + ifNil: [fontToUse := self selectedFont] + ifNotNil: [:usedFont | + fontToUse := (self selectedFont + asPointSize: usedFont pointSize) + emphasized: usedFont emphasis]. + + UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]].!

1 0

[PDFtalk] Porting to non-namespace Smalltalks
by Christian Haider 01 Mar '22

01 Mar '22

Hi all, PDFtalk is a PDF library for VisualWorks[1]. The library has been ported successfully to Gemstone[2]. Now, there is interest from companies in a port to Squeak and VA Smalltalk. The project[3] has started and we are making good progress. The first step: porting the Values package. This is easy, because there are no namespace issues. The next step is to implement class renamings so that namespaced classes can be renamed to global prefixed names. Then PDFtalk with all its components, except for the UI, can be ported. The porting approach is different to the traditional way of loading and fixing. The import files for other Smalltalks are generated from VisualWorks where the code is transformed by declarative rules. The approach is documented in [4]. I set up a GitHub organization for this project[5]. There, the fileouts for each dialect are published (Gemstone, Squeak and VA Smalltalk so far), so that people without VisualWorks can work with the code in their Smalltalk. Also, I record and explain all steps of the porting process for Squeak in great detail[6], so that people can follow it. I would like to invite Smalltalkers from all dialects to take part in this project. The code transformations for Squeak will be quite similar to the ones needed for Pharo and Cuis. Therefore, each port to one Smalltalk will help the port to other Smalltalks. Any takers? Happy hacking, Christian [1] https://wiki.pdftalk.de/doku.php?id=start [2] https://wiki.pdftalk.de/doku.php?id=pdftalk4gemstone [3] https://wiki.pdftalk.de/doku.php?id=pdftalknonnamespacefileout [4] https://wiki.pdftalk.de/doku.php?id=smalltalktransform [5] https://github.com/PortingPDFtalk [6] https://wiki.pdftalk.de/doku.php?id=valuesportinglog

1 0

Jump to page: