Squeak-dev February 2022

squeak-dev@lists.squeakfoundation.org

30 participants
331 discussions

The Trunk: SystemReporter-mt.56.mcz
by commits＠source.squeak.org 05 Feb '22

05 Feb '22

Marcel Taeumel uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-mt.56.mcz ==================== Summary ==================== Name: SystemReporter-mt.56 Author: mt Time: 5 February 2022, 3:55:30.219491 pm UUID: 3b88c321-5ac5-6d42-97b1-f0992d8a8f85 Ancestors: SystemReporter-mt.55 Put information about the system's fonts into the system reporter. =============== Diff against SystemReporter-mt.55 =============== Item was changed: ----- Method: SystemReporter>>initialize (in category 'initialize-release') ----- initialize self add: #'Contributors' method: #reportContributors; add: #Image method: #reportImage; add: #'Image Parameters' method: #reportImageParameters; add: #'Image Sources' method: #reportSources; + add: #'Image Fonts' method: #reportImageFonts; add: #'Image Preferences' method: #reportPreferences; add: #'Image Packages' method: #reportImagePackages; add: #'MC Repositories' method: #reportRepositories; add: #'MC Working Copies' method: #reportWorkingCopies; add: #'VM General' method: #reportVM; add: #'VM Options' method: #reportVMOptions; add: #'VM Modules' method: #reportModules; add: #'VM Parameters' method: #reportVMParameters; add: #'VM Stats' method: #reportVMStats. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'VM Configuration' method: #reportWin32VMConfig. ]. self add: #'OS General' method: #reportOS. Smalltalk os platformName = 'Win32' ifTrue: [ self add: #'OS Details' method: #reportWin32OSDetails; add: #'Hardware Details' method: #reportWin32HardwareDetails; add: #'GFX Hardware Details' method: #reportWin32GFXDetails. ]. Smalltalk os osVersion = 'linux' ifTrue: [ self add: #'OS Details' method: #reportLinuxOSDetails ]. self add: #'Tiny Benchmarks' method: #reportTinyBenchmarks; add: #'Space Analysis' method: #reportSpaceAnalysis; add: #'SUnit' method: #reportTestRunner; add: #'Debug Log' method: #reportDebugLog. categoriesSelected := Set with: #Image with: #'VM General'. self updateReport ! Item was added: + ----- Method: SystemReporter>>reportImageFonts: (in category 'reporting') ----- + reportImageFonts: aStream + + self header: 'Font Size Summary' on: aStream. + aStream nextPutAll: TextStyle fontSizeSummaryContents.!

1 0

The Trunk: System-mt.1301.mcz
by commits＠source.squeak.org 05 Feb '22

05 Feb '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1301.mcz ==================== Summary ==================== Name: System-mt.1301 Author: mt Time: 5 February 2022, 3:54:29.258491 pm UUID: c97689f7-27f8-614d-92c0-4eea9a79b97a Ancestors: System-mt.1300 Various fixes around UI-theme switching. Especially when switching to 75% scale factor, ask the user to install pre-rendered (and sharper) fonts again if necessary. Also inform the user when UI themes get converted to TrueType fonts automatically when that user changes the system's default font to a TrueType font. And there was a bug when the user tried to scale to 75/100/125/150 again while using TrueType fonts all over the place already. =============== Diff against System-mt.1300 =============== 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 resetAfter: [ - aFont isTTCFont ifTrue: [ - self flag: #discuss. "mt: Should we issue a warning here?" - (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. + 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 makeTTCBased]] ]]. self allThemes do: [:uit | + uit setFont: symbolicName to: fontToUse].! - uit setFont: symbolicName to: aFont].! 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']. - ifFalse: [^ self error: 'Can only set 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.! Item was changed: ----- Method: UserInterfaceTheme>>canFakeScaleFactor: (in category 'private - display scale') ----- canFakeScaleFactor: aFloat "Answer whether we can fake the given scale factor with pre-rendered fonts." self isTTCBased ifFalse: [^ true "Need to #makeTTCBased anyway."]. + self isFullyTTCBased ifTrue: [^ false "Without a fake 100%, we go all-in with TrueType fonts."]. - (self lookupScaleFactor: 1.0) ifNil: [^ false "Without a fake 100%, we go all-in with TrueType fonts."]. aFloat = 0.75 ifTrue: [^ true]. aFloat = 1.0 ifTrue: [^ true]. aFloat = 1.25 ifTrue: [^ true]. aFloat = 1.5 ifTrue: [^ true]. ^ false! Item was changed: ----- Method: UserInterfaceTheme>>doScale075 (in category 'private - display scale') ----- doScale075 "Private. Use #applyScaled:. This is actually about 71% because of which font sizes we have available." self flag: #hack. "mt: A different scale factor should not result in different point sizes being selected BUT the same point size resulting in a different pixel height." self setFonts: #( standardSystemFont 7.5 + standardFixedFont (Accumon 8.5) - standardFixedFont 7.5 standardCodeFont 7.5 standardListFont 7.5 standardButtonFont 7.5 standardMenuFont 7.5 standardFlapFont 7.5 windowTitleFont 7.5 balloonHelpFont 7.5 haloLabelFont 7.5 wizardStandardFont 10.5 wizardButtonFont 10.5 wizardHelpFont 7.5 wizardTitleFont 16.5) forceTTC: false. self apply. TextStyle pixelsPerInch: 96.0. "Restore Squeak's default PPI for 100%."! Item was added: + ----- Method: UserInterfaceTheme>>isFullyTTCBased (in category 'private - display scale') ----- + isFullyTTCBased + "Answer whether all themes have been converted to TrueType." + + ^ (self lookupScaleFactor: 1.0) isNil! Item was changed: ----- Method: UserInterfaceTheme>>setFonts:forceTTC: (in category 'private - display scale') ----- setFonts: specs forceTTC: forceTTC "Change fonts. Do not apply the receiver. Replace StrikeFont with TTCFont if forceTTC or target pointSize not available." | theme100 | theme100 := self checkTheme100. + specs groupsDo: [:symbolicFontName :newPointSize | | pointSizeToUse familyNameToUse font100 fontScaled | - specs groupsDo: [:symbolicFontName :newPointSize | | font100 fontScaled | font100 := theme100 get: symbolicFontName. + newPointSize isArray + ifFalse: [ + familyNameToUse := font100 familyName. + pointSizeToUse := newPointSize] + ifTrue: [ "Switch font family" + familyNameToUse := newPointSize first. + pointSizeToUse := newPointSize second]. + fontScaled := (font100 isTTCFont and: [familyNameToUse = font100 familyName "Hacky..."]) + ifTrue: [TTCFont familyName: familyNameToUse pointSize: pointSizeToUse emphasis: font100 emphasis] + ifFalse: [StrikeFont familyName: familyNameToUse pointSize: pointSizeToUse emphasized: font100 emphasis]. + (fontScaled pointSize ~= pointSizeToUse or: [forceTTC and: [fontScaled isTTCFont not]]) + ifTrue: [fontScaled := TTCFont familyName: self ttcFallbackName pointSize: pointSizeToUse emphasis: font100 emphasis]. + self assert: [fontScaled pointSize = pointSizeToUse]. - fontScaled := font100 isTTCFont - ifTrue: [TTCFont familyName: font100 familyName pointSize: newPointSize emphasis: font100 emphasis] - ifFalse: [StrikeFont familyName: font100 familyName pointSize: newPointSize emphasized: font100 emphasis]. - (fontScaled pointSize ~= newPointSize or: [forceTTC and: [fontScaled isTTCFont not]]) - ifTrue: [fontScaled := TTCFont familyName: self ttcFallbackName pointSize: newPointSize emphasis: font100 emphasis]. - self assert: [fontScaled pointSize = newPointSize]. self set: symbolicFontName to: fontScaled].! Item was changed: ----- Method: UserInterfaceTheme>>setScaleFactor: (in category 'private - display scale') ----- setScaleFactor: aFloat "Private. Use #applyScaled:. In the receiver, change the fonts to have a scale of aFloat. Change all fonts to be TrueType fonts if no pre-rendered fonts exist. Never change the 100% reference theme but make a copy. Apply the receiver to the system." (self isTTCBased not and: [aFloat = self localScaleFactor]) ifTrue: [self apply. ^ self]. (self isTTCBased not and: [self localScaleFactor = 1.0]) "!!!! Never change the reference theme !!!!" ifTrue: [^ self lookupSimilar ifNil: [self copyWithScaleFactor: aFloat] ifNotNil: [:other | other setScaleFactorPreApply: aFloat]]. + self isFullyTTCBased ifFalse: [ + aFloat = 0.75 ifTrue: [^ self doScale075]. + aFloat = 1.0 ifTrue: [^ self doScale100]. + aFloat = 1.25 ifTrue: [^ self doScale125]. + aFloat = 1.5 ifTrue: [^ self doScale150]]. - aFloat = 0.75 ifTrue: [^ self doScale075]. - aFloat = 1.0 ifTrue: [^ self doScale100]. - aFloat = 1.25 ifTrue: [^ self doScale125]. - aFloat = 1.5 ifTrue: [^ self doScale150]. "And now transition from the pre-rendered world into the TrueType world. Or re-use an existing TrueType-based theme with new values. See #lookupSimilar above." TextStyle pixelsPerInch: 96.0 * RealEstateAgent scaleFactor "current, based on pixels". self makeTTCBased. self applyAfter: [TextStyle pixelsPerInch: 96.0 * aFloat "new, not rounded"].!

1 0

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

05 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1868.mcz ==================== Summary ==================== Name: Morphic-mt.1868 Author: mt Time: 5 February 2022, 3:50:39.049491 pm UUID: 91d21511-de0f-5648-bb2a-1232adb314cb Ancestors: Morphic-mt.1867 - Fixes "Delete" in FontImporterTool to unregister TTFontDescription as well and free memory - Fixes blank icons in menus, which must have a sensible height to not mess up layout - Fixes height of window labels, which included #layoutInset again although the surrounding ProportionalLayout does already account for that =============== Diff against Morphic-mt.1867 =============== Item was changed: ----- Method: FontImporterTool>>delete (in category 'actions') ----- delete | font | (font := self selectedFont) textStyleOrNil ifNotNil: [:style | TextConstants removeKey: font familyName]. + TTCFont registerAll. + TTFontDescription removeDescriptionNamed: font familyName. + self allFonts: nil. "force redraw"! - self allFonts: nil. "force redraw" - TTCFont registerAll.! Item was changed: ----- Method: MenuIcons class>>blankIconOfWidth: (in category 'accessing - icons') ----- blankIconOfWidth: aNumber ^ Icons at: ('blankIcon-' , aNumber asString) asSymbol + ifAbsentPut: [Form extent: aNumber @ aNumber depth:8]! - ifAbsentPut: [Form extent: aNumber @ 1 depth:8]! Item was changed: ----- Method: SystemWindow>>labelHeight (in category 'label') ----- labelHeight "Answer the height for the window label. The standard behavior is at bottom; a hook is provided so that models can stipulate other heights, in support of various less-window-looking demos." | aHeight | (model notNil and: [model respondsTo: #desiredWindowLabelHeightIn:]) ifTrue: [(aHeight := model desiredWindowLabelHeightIn: self) ifNotNil: [^ aHeight]]. ^ label ifNil: [0] ifNotNil: + [(label height + self cellInset + self cellGap) max: - [(label height + self cellInset + self cellGap + self layoutInset) max: (collapseBox ifNotNil: [collapseBox height] ifNil: [10])]! Item was changed: + (PackageInfo named: 'Morphic') postscript: '"Clear cache of blank icons" + MenuIcons cleanUp: true. + "Fixes height of all window titles." + SystemWindow allSubInstancesDo: [:wnd | wnd replaceBoxes]. + "Rebuild docking bar menus." + TheWorldMainDockingBar updateInstances.'! - (PackageInfo named: 'Morphic') postscript: 'TheWorldMainDockingBar updateInstances.'!

1 0

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

05 Feb '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1867.mcz ==================== Summary ==================== Name: Morphic-mt.1867 Author: mt Time: 5 February 2022, 8:38:14.914233 am UUID: 65f30102-4d0b-5b41-b10d-66aa2dc38960 Ancestors: Morphic-mt.1866 Fixes that annoying issue in multi-window windows where that (invisible) button for choosing your model was made inaccessible when, for example, switching UI themes. Thanks to Eliot (eem) for reporting this! =============== Diff against Morphic-mt.1866 =============== Item was added: + ----- Method: PluggableSystemWindowWithLabelButton>>replaceBoxes (in category 'initialization') ----- + replaceBoxes + + super replaceBoxes. + labelButton comeToFront.!

1 0

Re: [squeak-dev] [Newbies] Help with FFI
by Tobias Pape 04 Feb '22

04 Feb '22

Dear any-time ckeen > On 4. Feb 2022, at 10:10, Christian Kellermann <ckeen(a)pestilenz.org> wrote: > > * Christian Kellermann <ckeen(a)pestilenz.org> [210210 17:09]: >> I want to find my way around the FFI module and how to use it in squeak. >> No let's step back. I want to use a a binding to libsodium form Tony >> (https://www.eighty-twenty.org/2013/06/11/nacl-for-squeak-and-pharo) >> and ended up using the Crypto-Nacl-HernanMoralesDurand.13.mcz package >> as the most recent one from Tony seemed to be Pharo's FFI syntax, as Tobias suggested to me. >> >> However each of the supplied tests return a 'module not found error' on my >> 64 bit Linux Squeak 5.3+updates with the bundled VM. >> >> So I tried the Unix examples there and none of those work either, so >> before I dig deeper into this I'd like to get some kind of re-assurance >> of what I should expect to work on this particular setup. >> >> The FFI Tests from the bundled package all pass though. >> >> So my questions are: >> >> 1. Are the Unix FFI examples supposed to work? >> 2. Is the Crypto-Nacl package I want to use recent enough for the FFI? >> 3. Is the documentation in swiki still up to date for squeak 5.3? >> 4. What's the logic for searching and loading the shared object to bind to >> and where do I have to look in the opensmalltalk-vm code? > > Dear future C-Keen and archive googlers, > > To answer my own question here using my own build opensmalltalk-vm solved the issue, since > the FFI plugin that came with the release bundle did not seem to work. Thanks for the info! and Thanks for sharing, even after this time :D. Could you share which vm bundled the non-working FFI plugin? Best regards -Tobias [cc squeak-dev/vm-dev]

1 0

How to do Cmd-( or Ctrl-( in trunk
by Tim Johnson 04 Feb '22

04 Feb '22

Hi, A shortcut I commonly use is Cmd-( or Ctrl-( (a.k.a. Cmd-Shift-9 or Ctrl-Shift-9) to enclose the selection in parentheses. I cannot get this to work on trunk, on Windows or macOS. On macOS, I tried toggling the 'legacy keyboard shortcuts' (any documentation on specifics of that one?) but it did not change this. On Windows, Ctrl-Shift-9 brings up the menu for 'HomeProject' whether Shift is held or not. On macOS, it does not come up while holding shift. Any suggestions for how to bring back this muscle-memory keyboard shortcut, which is listed under Help -> Keyboard Shortcuts? Thanks, Tim

2 2

The Inbox: DTL-internal-sources-dtl.11.mcz
by commits＠source.squeak.org 04 Feb '22

04 Feb '22

A new version of DTL-internal-sources was added to project The Inbox: http://source.squeak.org/inbox/DTL-internal-sources-dtl.11.mcz ==================== Summary ==================== Name: DTL-internal-sources-dtl.11 Author: dtl Time: 26 January 2022, 6:32:07.76362 pm UUID: 15a50e9e-e698-4734-85dc-3def11e5679f Ancestors: DTL-internal-sources-dtl.10 Scenario: User selects 'Cache sources file' preference. Later the image is copied to another location possibly with no sources or stc file accessible. User de-selects 'Cache sources file' preference. System does this: - check if a .sources or .stc file can be found in the usual directories - if no, ask user if they want to save a sources file in the local image directory - if uses says yes, extract cached compressed sources and write a new .sources file - if any of the above fails, notify and do not change the preference =============== Diff against DTL-internal-sources-dtl.10 =============== Item was added: + ----- Method: CompressedSourceStream>>asCompressedSources (in category '*DTL-internal-sources') ----- + asCompressedSources + + ^CompressedSources on: (ReadWriteStream with: segmentFile contentsOfEntireFile) + ! Item was changed: ----- Method: CompressedSources class>>internalizeSources: (in category 'accessing') ----- internalizeSources: internalize - internalize + ifNotNil: [| msg | + msg := 'No external ' translated , Smalltalk sourceFileVersionString , ' sources file found' translated. + internalize - ifNotNil: [internalize ifTrue: [CachedSources := self fromSourceFileArray position: 0] + ifFalse: [Smalltalk locateSourcesEntry + ifNil: [((self confirm: msg , ', save a local copy?' translated) + and: [self saveSourcesToLocalFile]) + ifFalse: [^ msg , ' (preference not changed)' translated]]. + CachedSources := nil]. - ifFalse: [CachedSources := nil]. Smalltalk closeSourceFiles; openSourceFiles]! Item was added: + ----- Method: CompressedSources class>>saveSourcesToLocalFile (in category 'accessing') ----- + saveSourcesToLocalFile + "Save the compressed sources to a .sources file in the default directory. Answer true for success" + + | sourcesName fs | + sourcesName := Smalltalk sourceFileVersionString , '.sources'. + (FileDirectory default fileExists: sourcesName) + ifTrue: [self error: sourcesName , ' already exists in the default directory'. + ^ false]. + [[| sourceData | + fs := FileStream newFileNamed: sourcesName. + fs binary. + sourceData := ProgressInitiationException + display: 'converting compressed sources' + during: [:bar | CachedSources uncompressedBytes: bar]. + fs nextPutAll: sourceData] + ensure: [fs close]] + on: Error + do: [:e | + self notify: 'failed writing ' , sourcesName. + ^ false]. + ^ true!

3 3

MIDI keyboard input in Trunk
by David O'Toole 04 Feb '22

04 Feb '22

For [SimpleMIDIPort midiIsSupported] i get 'true', but [SimpleMIDIPort inputPortNumFromUser] answers nil and [MIDISynth example] etc don't work. I get PrimitiveFailed on #primMIDIReadPort. MIDI output port appears to show up in AconnectGUI, but no input port. I checked the "Plugins" section of the "About Squeak" dialog, and the MIDI plugin is loaded. What am I missing? I would greatly appreciate any help you can offer in getting things working.

1 1

The Trunk: Collections-cmm.984.mcz
by commits＠source.squeak.org 03 Feb '22

03 Feb '22

Chris Muller uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-cmm.984.mcz ==================== Summary ==================== Name: Collections-cmm.984 Author: cmm Time: 2 February 2022, 3:54:20.944662 pm UUID: 88a7a4ca-9648-4dce-bb89-f9c857baec29 Ancestors: Collections-mt.983 - Avoid unnecessary garbage in #= for OrderedDictionary comparisons. - Delegate #species comparison via #=. - #hasEqualElements: API compatibility with SequenceableCollection. =============== Diff against Collections-mt.983 =============== Item was added: + ----- Method: OrderedDictionary>>hasEqualElements: (in category 'comparing') ----- + hasEqualElements: anOrderedDictionary + "Answer whether my elements are the same as anOrderedDictionary, and in the same order." + | index | + self size = anOrderedDictionary size ifFalse: [ ^ false ]. + index := 0. + self associationsDo: + [ : eachMyAssociation | + (anOrderedDictionary + atIndex: (index:=index+1) + ifAbsent: [ ^ false ]) = eachMyAssociation ifFalse: [ ^ false ] ]. + ^ true! Item was changed: ----- Method: PluggableDictionary>>= (in category 'comparing') ----- = anObject "Two dictionaries are equal if (a) they are the same 'kind' of thing. (b) they have the same set of keys. (c) for each (common) key, they have the same value" self == anObject ifTrue: [ ^true ]. + self species = anObject species ifFalse: [ ^false ]. - self species == anObject species ifFalse: [ ^false ]. hashBlock = anObject hashBlock ifFalse: [ ^false ]. equalBlock = anObject equalBlock ifFalse: [ ^false ]. + ^ self hasEqualElements: anObject! - self size = anObject size ifFalse: [ ^false ]. - self associationsDo: [ :association | - (anObject at: association key ifAbsent: [ ^false ]) = association value - ifFalse: [ ^false ] ]. - ^true! Item was added: + ----- Method: PluggableDictionary>>hasEqualElements: (in category 'comparing') ----- + hasEqualElements: aDictionary + "Answer whether my elements are the same as those of aDictionary." + self size = aDictionary size ifFalse: [ ^ false ]. + self associationsDo: + [ : association | + (aDictionary + at: association key + ifAbsent: [ ^ false ]) = association value ifFalse: [ ^ false ] ]. + ^ true!

3 2

Error with "Open" button in Morphic Designer in Trunk
by David O'Toole 03 Feb '22

03 Feb '22

I'm trying to open an existing design in Morphic Designer (development version), in Trunk but it gives an error (see attached.)

2 2

Jump to page: