Squeak-dev February 2021

squeak-dev@lists.squeakfoundation.org

33 participants
196 discussions

The Trunk: System-mt.1215.mcz
by commits＠source.squeak.org 17 Feb '21

17 Feb '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1215.mcz ==================== Summary ==================== Name: System-mt.1215 Author: mt Time: 17 February 2021, 3:42:18.125168 pm UUID: 5c7faa4b-79dd-c14c-a76e-2d1f9baec59d Ancestors: System-cmm.1214 Fixes a regression caused by not-too-distant change in ReleaseBuilder to reset all pragma preferences in CI. Thanks to Jaromir for pointing this out! =============== Diff against System-cmm.1214 =============== Item was changed: ----- Method: MessageTally class>>showProcesses (in category 'defaults') ----- showProcesses "Indicates whether to show each process separately or cumulatively. For example, compare the spy results of the following with both values: [1000 timesRepeat: [3.14159 printString. Processor yield]] fork. [1000 timesRepeat: [30 factorial. Processor yield]] fork. [1000 timesRepeat: [30 factorial. Processor yield]] fork. MessageTally spyAllOn: [ (Delay forMilliseconds: 100) wait] " <preference: 'Show Tally Processes' category: 'debug' description: 'When true, show individual processes in MessageTally' type: #Boolean> + ^ShowProcesses ifNil: [true]! - ^ShowProcesses!

1 0

Rectangle>>merging: does not accepts Sets anymore
by Stéphane Rollandin 17 Feb '21

17 Feb '21

Hello all, I just noticed that Rectangle class>>#merging: now (well, since summer 2020) uses #first and so does not allow its argument to be a Set anymore. Is that the intended behavior? Stef

6 7

The Trunk: Kernel-ct.1368.mcz
by commits＠source.squeak.org 16 Feb '21

16 Feb '21

David T. Lewis uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ct.1368.mcz ==================== Summary ==================== Name: Kernel-ct.1368 Author: ct Time: 24 January 2021, 3:19:48.003384 pm UUID: c62a6062-b240-9149-a2ed-78fdc1079dfd Ancestors: Kernel-mt.1364 Proposal: Always include process name into its print string. This facilitates debugging/inspecting of multiprocess scenarios. =============== Diff against Kernel-mt.1364 =============== Item was changed: ----- Method: Process>>longPrintOn: (in category 'printing') ----- longPrintOn: stream | ctxt | super printOn: stream. + stream + nextPut: $(; + nextPutAll: self name; + nextPut: $). stream cr. ctxt := self suspendedContext. [ctxt == nil] whileFalse: [ stream space. ctxt printOn: stream. stream cr. ctxt := ctxt sender. ]. ! Item was changed: ----- Method: Process>>printOn: (in category 'printing') ----- printOn: aStream super printOn: aStream. + aStream + nextPut: $(; + nextPutAll: self name; + nextPut: $). aStream nextPutAll: ' in '. suspendedContext printOn: aStream!

8 10

WarpBlt geometry puzzle
by Stéphane Rollandin 16 Feb '21

16 Feb '21

Hello all, I can't figure this out: Given an instance of WarpBlt, what is the formula giving the destination of a specific original point? I only need one point (for the record, the offset of a Form to be rotated and magnified). The code in WarpBlt works incrementaly by running over all original points. At the moment I can get the result by hacking into that loop, but it is slow and ugly. There has to be a direct formula, but I can't find it. Any idea? Stef

1 1

The Trunk: Morphic-mt.1722.mcz
by commits＠source.squeak.org 16 Feb '21

16 Feb '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1722.mcz ==================== Summary ==================== Name: Morphic-mt.1722 Author: mt Time: 16 February 2021, 10:10:46.500005 am UUID: 5d63cf8f-7e43-4f77-8ab3-fb3239223af2 Ancestors: Morphic-eem.1721 Minor tweaks to icon cache in LazyList: - Flag missing icons with #none to avoid repeated model access - Support no-icon separator items, thus avoiding minor visual glitch (e.g., in Git Browser's list of branches) Note that it felt right to format #iconExtent this way to emphasize the ordered variations of lazy init. =) =============== Diff against Morphic-eem.1721 =============== Item was changed: ----- Method: LazyListMorph>>icon: (in category 'list access - cached') ----- icon: row + "Answer a cached form from the model at a specific row. By flagging nil-icons with #none, only try to fetch an icon once from the model until next #listChanged. Also do inst-var access on listIcons here to initialize it as late as possible." - "Do inst-var access on listIcons here to initialize it as late as possible." self listSource canHaveIcons ifFalse: [^ nil]. listIcons ifNil: [listIcons := Array new: self getListSize]. + + ^ (listIcons at: row) + ifNotNil: [:iconOrNone | iconOrNone == #none ifFalse: [iconOrNone]] + ifNil: [ + | icon | + icon := (self getListIcon: row) ifNotNil: [:form | form scaleIconToDisplay]. + "Update cache for uniform icon extent." + iconExtent ifNil: [iconExtent := icon ifNotNil: [icon extent]]. + listIcons at: row put: (icon ifNil: [#none]). + icon]! - - ^ (listIcons at: row) ifNil: [ - | icon | - icon := (self getListIcon: row) ifNotNil: [:form | form scaleIconToDisplay]. - "Update cache for uniform icon extent." - iconExtent ifNil: [iconExtent := icon ifNotNil: [icon extent]]. - listIcons at: row put: icon. - icon]! Item was changed: ----- Method: LazyListMorph>>iconExtent (in category 'layout') ----- iconExtent + "Answers the uniform icon extent for this lazy list based on sample icons from the list source." + | listSize | + iconExtent ifNil: [ + + self listSource canHaveIcons + ifFalse: [^ iconExtent := 0@0]. + + (listSize := self getListSize) = 0 + ifTrue: [^ iconExtent := ((14@14) * RealEstateAgent scaleFactor) truncated]. + + (self icon: (2 min: listSize)) "mt: Use second item bc. first one might be visual separator w/o icon." + ifNil: [^ iconExtent := 0@0] + ifNotNil: [:form | ^ iconExtent := form extent]]. + + ^ iconExtent! - ^ iconExtent ifNil: [ - self getListSize = 0 - ifTrue: [((14@14) * RealEstateAgent scaleFactor) truncated] - ifFalse: [(self icon: 1) ifNil: [0@0] ifNotNil: [:form | form extent]]]!

1 0

The Inbox: Kernel-cmm.1371.mcz
by commits＠source.squeak.org 16 Feb '21

16 Feb '21

Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1371.mcz ==================== Summary ==================== Name: Kernel-cmm.1371 Author: cmm Time: 15 February 2021, 11:51:24.851653 pm UUID: 4a74e7a0-6654-491e-8a64-685c44d6fb63 Ancestors: Kernel-dtl.1369 Let Processes identify themselves by a dynamic #name in their #printString IF they were so intentionally named, otherwise, the classic generic printString indicating its current Context. =============== Diff against Kernel-dtl.1369 =============== Item was changed: ----- Method: Process>>longPrintOn: (in category 'printing') ----- + longPrintOn: stream - longPrintOn: stream - | ctxt | + self printOn: stream. - super printOn: stream. - stream - nextPut: $(; - nextPutAll: self name; - nextPut: $). stream cr. ctxt := self suspendedContext. + [ ctxt == nil ] whileFalse: + [ stream space. - [ctxt == nil] whileFalse: [ - stream space. ctxt printOn: stream. stream cr. + ctxt := ctxt sender ]! - ctxt := ctxt sender. - ]. - ! Item was changed: ----- Method: Process>>name (in category 'accessing') ----- name + ^ name value + ifNil: [ self hash asString forceTo: 5 paddingStartWith: $ ]! - - ^name ifNil: [ self hash asString forceTo: 5 paddingStartWith: $ ]! Item was changed: ----- Method: Process>>printOn: (in category 'printing') ----- + printOn: aStream + self name + ifNil: + [ super printOn: aStream. + aStream nextPutAll: ' in '. + self suspendedContext printOn: aStream ] + ifNotNil: + [ : nm | aStream nextPutAll: nm ]! - printOn: aStream - - super printOn: aStream. - aStream - nextPut: $(; - nextPutAll: self name; - nextPut: $). - aStream nextPutAll: ' in '. - suspendedContext printOn: aStream!

1 0

slow uploads
by Chris Muller 16 Feb '21

16 Feb '21

Is anyone else experiencing slow upload speed saving to the inbox?

1 0

The Inbox: Kernel-cmm.1370.mcz
by commits＠source.squeak.org 16 Feb '21

16 Feb '21

Chris Muller uploaded a new version of Kernel to project The Inbox: http://source.squeak.org/inbox/Kernel-cmm.1370.mcz ==================== Summary ==================== Name: Kernel-cmm.1370 Author: cmm Time: 15 February 2021, 10:43:35.519565 pm UUID: d974937b-c8d9-44a1-bbb0-9c233146b528 Ancestors: Kernel-dtl.1369 Let Processes identify themselves by a dynamic #name in their #printString IF they were so intentionally named, otherwise, the classic generic printString (which indicates its current Context). =============== Diff against Kernel-dtl.1369 =============== Item was changed: ----- Method: Process>>longPrintOn: (in category 'printing') ----- + longPrintOn: stream - longPrintOn: stream - | ctxt | + self printOn: stream. - super printOn: stream. - stream - nextPut: $(; - nextPutAll: self name; - nextPut: $). stream cr. ctxt := self suspendedContext. + [ ctxt == nil ] whileFalse: + [ stream space. - [ctxt == nil] whileFalse: [ - stream space. ctxt printOn: stream. stream cr. + ctxt := ctxt sender ]! - ctxt := ctxt sender. - ]. - ! Item was changed: ----- Method: Process>>printOn: (in category 'printing') ----- + printOn: aStream + self name value + ifNil: + [ super printOn: aStream. + aStream nextPutAll: ' in '. + self suspendedContext printOn: aStream ] + ifNotNil: + [ : nm | aStream nextPutAll: nm ]! - printOn: aStream - - super printOn: aStream. - aStream - nextPut: $(; - nextPutAll: self name; - nextPut: $). - aStream nextPutAll: ' in '. - suspendedContext printOn: aStream!

2 1

Re: [squeak-dev] Building UnicodePlugin on ARM64
by stes＠PANDORA.BE 15 Feb '21

15 Feb '21

-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA256 > Notice how it does not have the -I/usr/lib/aarch64-linux-gnu/glib-2.0/include path I've now added to > acinclude.m4 Makefile.inc I think this is because the configure script needs to be rebuilt. > The obvious question is what the 'proper' way to solve this is. > I had the vague idea floating around the back of my skull that the > 'configure' script stuff built itself from things like the acinclude.m4 fragments - > and it certainly seems to include exactly the text from the original acinclude file. Yes this is true. Something like 'autoconf' or perhaps 'autoreconf' to generate the configure script. As the README in the plugin directory for UnicodePlugin indicates, an approach may be (it is a possibility) to use "pkg-config" Assuming that pkgconfig on your system gives some results such as: # pkg-config --cflags glib-2.0 # PKG_CONFIG_PATH=/usr/lib/64/pkgconfig pkg-config --cflags glib-2.0 it may be able to find the required --cflags using pkg-config However I can imagine that approach has its own disadvantages. My understanding is that historically pkg-config was used, and that the opensmalltalk-vm team wants to migrate/move away from pkg-config. If I'm not mistaken the Squeak VM "Classic" (squeak-4) uses the approach, with cmake/pkg-config. Squeak VM classic (in subversion) uses pkg-config. The GNU configure script could use also the same approach using: PKG_CHECK_MODULES(UNICODE_PLUGIN,[glib-2.0 pangocairo],,AC_PLUGIN_DISABLE) AC_SUBST(UNICODE_PLUGIN_CFLAGS) AC_SUBST(UNICODE_PLUGIN_LIBS) However I agree that no approach is without faults, they all have their own advantages and disadvantages, I suppose. Currently on Solaris 11.4 I just disable the UnicodePlugin, as it used to build fine for GNOME 2 (on OpenIndiana with MATE or Solaris 11.3), but not on GNOME 3 with 64bit (Solaris 11.4) for me. Provided I reconfigure with the right path to #include, UnicodePlugin builds, on Solaris 11.4 as well. This is basically unrelated to Solaris 11.3 or Solaris 11.4 etc. It is just where Linux/Unix distributions (or operating systems in general), put their #include files and the configuration tools to figure out the settings. Regards, David Stes -----BEGIN PGP SIGNATURE----- Version: GnuPG v2 iQEcBAEBCAAGBQJgKiHRAAoJEAwpOKXMq1Maxw4H/29SCg+YABqmJhd3s4LhCmnt 9fp2ogOTGFWdj4OXeBTDG0QnqTwEuJWLAruispEMiwtCoFWFoJKzpHt0yW78VjEu vhivE/TmOVPYPAzzU1DwSjttGP5XOpul3Pl9kAZvXXR2bNece93FqKBb+6Kjb47Z aRch60dw+XXc+ZoaxnUl4DOw5qKQQJLNq/tFIfKcYN3ZHuwUi2NGxPXtoxy9fsDY z5hBVE3aj58X1kKyFJs9wvT2uJG8VdQReAjSHYxOxRXJaQCPhzaSMnN14KKmvGyr GnakeHLgrUKyldvvv0FFj4u9kioYJKknRndS1tSkxbrVF1KUbrpHKrv4teDliYA= =+siH -----END PGP SIGNATURE-----

1 0

Re: [squeak-dev] correct form for Problem With Blocks
by gettimothy 14 Feb '21

14 Feb '21

Hi Levente, Thank you for your reply. That makes no sense. I can't even fathom how it works. #inject:into:'s second argument, the block, must return the computed value. Currently that block returns the value assigned to base when pair first = 'e' and nil otherwise. So, if it works correctly now, which is doubtful, then just remove the assignments to base from the block and it should just work. I did, it does. thx. Fwiw, here are the tests I have for this rule ...It might make things clearer on what it is meant to accomplish. The pattern is borrowed from some Algebraic PEG grammar I found on the net. The purpose is to support some PHP-isms in the wikitext grammar...basically PHP version of callbacks given a pattern. testFloat <timeout: 5 "seconds"> "Float <- Multiplicand (''e'' Multiplicand)+" | n output actor | actor := PEGWikiMediaGeneratorTables new. actor transcripton: false. "disable tracing to Transcript" n := '-2.3e-4'. output := parser parse: 'Negation' stream: n reading actor: actor. self assert: (output = -0.00023 ). n := '6e2e3'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 600000.0) . n := '2e3'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 2000) . n := '-2.3e-4'. output := parser parse: 'Negation' stream: n reading actor: actor. self assert: (output = -0.00023 ). n := '(trunc2)e(trunc-3)'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 0.002) . n := '(trunc2)e(trunc0)'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 2) . n := '(trunc2)e(trunc18)'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 2.0e18) . n := '(trunc2)e(trunc19)'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 2.0e19) . n := '6e(5-2)'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 6000.0) . n := '(5-2)e-2'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 0.03) . n := '6e(5-2)e-2'. output := parser parse: 'Float' stream: n reading actor: actor. self assert: (output = 60) . n := '5.0e-324'. "(Float fmin) * (Float fmax)" output := parser parse: 'Operation' stream: n reading actor: actor. self assert: (output = (Float fmin) ) .

1 0

Jump to page: