Squeak-dev July 2020

squeak-dev@lists.squeakfoundation.org

47 participants
165 discussions

UK Smalltalk User Group Meeting - Wednesday, July 29th
by Giovanni Corriga 19 Jul '20

19 Jul '20

The next meeting of the UK Smalltalk User Group will be on Wednesday, July 29th. Peter Svensson will present his work on Cloudsdk-st. Cloudsdk-st (https://github.com/psvensson/cloudsdk-st) is an experiment in ways to work with cloud deployment from a Smalltalk image. Traditionally cloud deployments run 'out of band' in separate build scripts or build/CI/CD systems. This project lets you define Docker images (using Dockerfiles) for Smalltalk, send them to the build system of a cloud provider directly and then choose what kind of service you want your image to be (cloud function or long-running VM). Currently it only supports Google Cloud and has a very rough UI. Future plans include support for AWS and Azure as well as better feedback and a Spec2 UI. Given the current COVID-19 restrictions, this will be an online meeting from home. If you'd like to join us, please sign up in advance on the meeting's Meetup page https://www.meetup.com/UKSTUG/events/cbklbrybckbdc/ to receive the meeting details. See you there!

1 0

Issue with classType on CompiledCode
by Ron Teitelbaum 19 Jul '20

19 Jul '20

Hi All, Ran into a problem trying to load the subclass of ByteArray CompiledCode from Monticello Configuration. It was stored with a typeOfClass of #data but CompiledCode returns typeOfClass #compiledMethod. I'm getting the error: CompiledCode cannot be recompiled from Classbuilder >> validateSubclassFormat: newType from: oldClass forSuper: newSuper extra: newInstSize. Suggestions on how to fix this or should we 1) allow #data to #compiledMethod to succeed the validation? 2) Manually fix it and commit a new configuration. Also I see that there are two updates on trunk. update and update.spur Which configuration are we using? Why are there two? Thanks for your help!! Ron Teitelbaum

2 1

The Inbox: MonticelloConfigurations-RJT.163.mcz
by commits＠source.squeak.org 18 Jul '20

18 Jul '20

A new version of MonticelloConfigurations was added to project The Inbox: http://source.squeak.org/inbox/MonticelloConfigurations-RJT.163.mcz ==================== Summary ==================== Name: MonticelloConfigurations-RJT.163 Author: RJT Time: 18 July 2020, 1:47:16.459316 pm UUID: 87d7467d-cc80-7c4a-95a8-2a02c20366e1 Ancestors: MonticelloConfigurations-mt.162 Fix the up and down button (to change the load order) of Monticell Configurations so that it automatically selects the package that is moved. This allows you to push the button more than once without having to select the package again. =============== Diff against MonticelloConfigurations-mt.162 =============== Item was changed: ----- Method: MCConfigurationBrowser>>down (in category 'actions') ----- down self canMoveDown ifTrue: [ self list swap: self index with: self index + 1. - self index: self index + 1. self changedList. + self index: self index + 1. + ]. ! Item was changed: ----- Method: MCConfigurationBrowser>>up (in category 'actions') ----- up self canMoveUp ifTrue: [ self list swap: self index with: self index - 1. - self index: self index - 1. self changedList. + self index: self index -1. ].!

1 0

Dual screen?
by Robert Withers 18 Jul '20

18 Jul '20

Is there a way to set Squeak to be dual screen? Kindly, Rabbit

5 12

The Trunk: EToys-eem.399.mcz
by commits＠source.squeak.org 18 Jul '20

18 Jul '20

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.399.mcz ==================== Summary ==================== Name: EToys-eem.399 Author: eem Time: 17 July 2020, 4:51:05.430052 pm UUID: dfb4916e-d9f3-40e7-8da2-2badb5372778 Ancestors: EToys-mt.398 Fix the WebCamMorph so that more than one camera can be used at the same time. e,g, if you have a laptop with a secondary display attached with a camera (such as the Apple Cinema Display) you can do this: WebCamMorph new cameraNumber: 2; openInWorld. WebCamMorph new cameraNumber: 1; openInWorld. WebCamMorph new cameraNumber: 2; openInWorld. WebCamMorph new cameraNumber: 1; openInWorld. position them around the display, change their size, and even give them rotation. But interestingly adding rotation invokes the garbage collector since the warp form is not cached. e.g. GCs 5,066 (582.7 ms between GCs 314.9 ms runtime between GCs) full 245 totalling 221,724 ms (13.9% runtime), avg 905 ms marking 128,554 ms (58%) avg 524.7 ms, compacting 93,170 ms (42%) avg 380.3 ms scavenges 4,821 totalling 24,912 ms (1.56% runtime), avg 5.2 ms tenures 232,261 (avg 48 tenures per scavenge) =============== Diff against EToys-mt.398 =============== Item was added: + ----- Method: WebCamMorph>>cameraIsOn (in category 'accessing') ----- + cameraIsOn + ^camIsOn! Item was added: + ----- Method: WebCamMorph>>cameraNumber (in category 'accessing') ----- + cameraNumber + ^camNum! Item was added: + ----- Method: WebCamMorph>>cameraNumber: (in category 'accessing') ----- + cameraNumber: anInteger + camNum ~= anInteger ifTrue: + [camNum := anInteger. + self initializeDisplayForm]! Item was changed: ----- Method: WebCamMorph>>delete (in category 'submorphs-add/remove') ----- delete + self off. + super delete! - self class instanceCount > 1 - ifFalse: [self off] - ifTrue: [ - self stopStepping. - camIsOn := false]. - super delete.! Item was changed: ----- Method: WebCamMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas + camIsOn ifFalse: + [self initializeDisplayForm. + self on]. + camIsOn ifTrue: + [(CameraInterface frameExtent: camNum) ~= displayForm extent ifTrue: + [self initializeDisplayForm]]. + displayForm ifNil: + [self initializeDisplayForm]. - useFrameSize ifTrue: [self extent: frameExtent]. self drawCameraImageOn: aCanvas. self drawFPSOn: aCanvas. + self drawOverlayTextOn: aCanvas! - self drawOverlayTextOn: aCanvas. - ! Item was changed: ----- Method: WebCamMorph>>initialize (in category 'initialization') ----- initialize super initialize. camNum := 1. camIsOn := false. showFPS := false. captureDelayMs := 16. "stepTime" fps := 60. "guess." lastDisplayTime := 0. framesSinceLastDisplay := 0. useFrameSize := false. resolution := #medium. orientation := #natural. + frameExtent := self class resolutionFor: resolution! - frameExtent := self class resolutionFor: resolution. - self initializeDisplayForm. - self extent: frameExtent. - self on. - - ! Item was changed: ----- Method: WebCamMorph>>off (in category 'accessing') ----- off self stopStepping. camIsOn := false. + "Be careful not to close the camera if any other morphs are using the same camera." + (self class allInstances anySatisfy: [:wcm| wcm cameraNumber = camNum and: [wcm cameraIsOn]]) ifFalse: + [CameraInterface closeCamera: camNum]. + self changed - self updateDisplay. - CameraInterface closeCamera: camNum. + "self allInstances select: [:wcm| wcm cameraNumber = 1 and: [wcm cameraIsOn]]"! - - - ! Item was changed: ----- Method: WebCamMorph>>on (in category 'accessing') ----- on + camIsOn ifTrue: [^true]. + (CameraInterface cameraIsOpen: camNum) ifFalse: + [(CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) ifNil: + [^false]]. + "The plugin/camera subsystem may end up choosing a different width and height. + So use the width and height it has selected; it may not be what was asked for." - - (CameraInterface cameraIsOpen: camNum) - ifTrue: [ ^camIsOn := true.]. - (CameraInterface openCamera: camNum width: frameExtent x height: frameExtent y) - ifNil: [^false]. - CameraInterface waitForCameraStart: camNum. self initializeDisplayForm. + CameraInterface waitForCameraStart: camNum. - self extent: frameExtent. camIsOn := true. + self startStepping! - self startStepping. - !

1 0

The Trunk: KernelTests-eem.384.mcz
by commits＠source.squeak.org 17 Jul '20

17 Jul '20

Eliot Miranda uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-eem.384.mcz ==================== Summary ==================== Name: KernelTests-eem.384 Author: eem Time: 16 July 2020, 3:13:09.314392 pm UUID: da087b71-cc6c-42d5-b8e7-fe03fca763c2 Ancestors: KernelTests-tpr.383 Revert KernelTests-tpr.383's setFreeSpaceLimitOf:around: now that the VM correctly accepts large integers for vm parameter #57. =============== Diff against KernelTests-tpr.383 =============== Item was changed: ----- Method: AllocationTest>>setFreeSpaceLimitOf:around: (in category 'support') ----- setFreeSpaceLimitOf: bytes around: aBlock "Attempt to evaluate aBlock with a limit of the requested ammount of free old space, restoring the extant limit after the evaluation." | extantLimit | extantLimit := Smalltalk vmParameterAt: 67. + Smalltalk vmParameterAt: 67 put: (Smalltalk vmParameterAt: 1) + bytes asInteger. - Smalltalk vmParameterAt: 67 put: ((Smalltalk vmParameterAt: 1) + bytes asInteger min: SmallInteger maxVal). ^aBlock ensure: [Smalltalk vmParameterAt: 67 put: extantLimit]!

1 0

The Trunk: Tools-eem.984.mcz
by commits＠source.squeak.org 17 Jul '20

17 Jul '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.984.mcz ==================== Summary ==================== Name: Tools-eem.984 Author: eem Time: 16 July 2020, 3:10:24.240422 pm UUID: c9cea967-9685-4ce3-8eea-72da87f12be6 Ancestors: Tools-mt.983 Fix a regression in Tools-ct.952. This fix constitutes a review of http://forum.world.st/BUG-in-Debugger-gt-gt-newStack-optimization-td5112726… =============== Diff against Tools-mt.983 =============== Item was changed: ----- Method: Debugger>>newStack: (in category 'private') ----- newStack: stack + | oldStack diff matchIndex | - | oldStack diff | oldStack := contextStack. contextStack := stack. + (oldStack isNil or: [oldStack last ~~ stack last]) ifTrue: + [contextStackList := stack collect: [:ctx | ctx printString]. + ^self]. - (oldStack == nil or: [oldStack last ~~ stack last]) - ifTrue: [contextStackList := contextStack collect: [:ctx | ctx printString]. - ^ self]. "May be able to re-use some of previous list" diff := stack size - oldStack size. contextStackList := diff <= 0 + ifTrue: [contextStackList copyFrom: 1 - diff to: oldStack size] + ifFalse: + [matchIndex := stack lastIndexOf: oldStack first startingAt: diff + 1. + matchIndex = 0 + ifTrue: [contextStack collect: [:ctx | ctx printString]] + ifFalse: [((contextStack first: matchIndex - 1) collect: [:ctx| ctx printString]), contextStackList]] + "#(d e f h i) => #(a b c d e f g h i) + diff := 3. + matchIndex := 4. + #(a b c d e f g h i) := #(a b c), #(d e f h i)"! - ifTrue: [contextStackList copyFrom: 1-diff to: oldStack size] - ifFalse: [(diff = 1 and: [stack second == oldStack first]) - ifTrue: [contextStackList copyWithFirst: stack first printString] - ifFalse: [contextStack collect: [:ctx | ctx printString]]]!

1 0

The Inbox: Collections-ul.903.mcz
by commits＠source.squeak.org 16 Jul '20

16 Jul '20

Levente Uzonyi uploaded a new version of Collections to project The Inbox: http://source.squeak.org/inbox/Collections-ul.903.mcz ==================== Summary ==================== Name: Collections-ul.903 Author: ul Time: 16 July 2020, 2:43:29.805477 pm UUID: 8864e74e-e7c5-4419-b789-cb6b0889df42 Ancestors: Collections-ul.902 - let String >> #compareWith: use primitive 158 even if indirectly =============== Diff against Collections-ul.902 =============== Item was changed: ----- Method: String>>compareWith: (in category 'comparing') ----- compareWith: aString "<primitive: 158>" + ^self compareWith: aString collated: AsciiOrder! - ^(self compare: self with: aString collated: AsciiOrder) - 2!

1 0

Metacello bootstrap fails due to download timeouts
by Jakob Reschke 16 Jul '20

16 Jul '20

Hi all, My Travis CI builds for Squeak-Trunk 32 bits (and only these) started to fail due to timeouts. When I looked at it in a Linux VM and it fails to download Metacello-Base-dkh.109.mcz from SmalltalkHub. When I try to access this version with a web browser, I get an error HTTP 500 VoMongoConnectionError http://smalltalkhub.com/mc/dkh/metacello/main/Metacello-Base-dkh.109.mcz A fresh 64 bit Trunk image from squeak.org when run on Windows instead hangs when downloading Metacello-Core-dkh.494.mcz when I do `Metacello new`. Eventually it erred with "Error: retry with alternate repository failed: 'ConnectionTimedOut: Data receive timed out.'" ...after about half an hour or so. The error comes from ConfigurationOfMetacello>>ensureMetacello:. Though it does look as if it first tried with a repository at http://seaside.gemtalksystems.com/ss/metacello and not SmalltalkHub. I can download the version in a web browser without a problem: http://seaside.gemtalksystems.com/ss/metacello/Metacello-Core-dkh.494.mcz Yet a local 64 bit trunk smalltalkCI build succeeded and I don't know why yet. It also needs to go through the MetacelloStub, doesn't it? For a start, does anyone experience the same problem or is it my bad luck with the connections? To test, print `Metacello new` in a fresh image which does not have the Metacello class yet. Now SmalltalkHub is deprecated as you can read on its front page. http://smalltalkhub.com/ Tom, Tobias, Dale, you already started to discuss changing the bootstrap of current Metacello in Squeak when the Tonel changes were integrated, didn't you? Is there a path where we can live without any unmaintained repositories like the ones on SmalltalkHub? On a different level: shouldn't the bootstrapping of the MetacelloStub, or rather the downloading of version signal an error with a timeout sooner when it cannot retrieve a version, instead of waiting or retrying for a long time? Kind regards, Jakob

3 6

The Trunk: Morphic-mt.1673.mcz
by commits＠source.squeak.org 16 Jul '20

16 Jul '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1673.mcz ==================== Summary ==================== Name: Morphic-mt.1673 Author: mt Time: 16 July 2020, 12:32:25.66555 pm UUID: 4cdee1e0-9104-4e4f-a08f-12a77681f58e Ancestors: Morphic-mt.1672 Fixes toggle icons in tree widgets for demo/hi-dpi mode. =============== Diff against Morphic-mt.1672 =============== Item was changed: ----- Method: IndentingListItemMorph>>toggleRectangle (in category 'private') ----- toggleRectangle + | h indent | - | h | h := bounds height. + indent := (12 * RealEstateAgent scaleFactor) rounded. + ^(bounds left + self hMargin + (indent * indentLevel)) @ bounds top extent: indent@h! - ^(bounds left + self hMargin + (12 * indentLevel)) @ bounds top extent: 12@h! Item was added: + ----- Method: SimpleHierarchicalListMorph class>>applyUserInterfaceTheme (in category 'preferences') ----- + applyUserInterfaceTheme + + expandedForm := nil. + notExpandedForm := nil.! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>expandedForm (in category 'instance creation') ----- expandedForm expandedForm ifNotNil: [expandedForm depth ~= Display depth ifTrue: [expandedForm := nil]]. ^ expandedForm ifNil: [expandedForm := ((Form extent: 10 @ 9 depth: 8 fromArray: #(4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 4278255873 16843009 16842752 4294902089 1229539657 33488896 4294967041 1229539585 4294901760 4294967295 21561855 4294901760 4294967295 4278321151 4294901760 4294967295 4294967295 4294901760 4294967295 4294967295 4294901760 ) offset: 0 @ 0) + asFormOfDepth: Display depth) + replaceColor: Color white withColor: Color transparent; + scaleIconToDisplay]! - asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; - yourself]! Item was changed: ----- Method: SimpleHierarchicalListMorph class>>notExpandedForm (in category 'instance creation') ----- notExpandedForm notExpandedForm ifNotNil: [notExpandedForm depth ~= Display depth ifTrue: [notExpandedForm := nil]]. ^ notExpandedForm ifNil: [notExpandedForm := ((Form extent: 10 @ 9 depth: 8 fromArray: #(4294967041 4294967295 4294901760 4294967041 33554431 4294901760 4294967041 1224867839 4294901760 4294967041 1229521407 4294901760 4294967041 1229539585 4294901760 4294967041 1229521407 4294901760 4294967041 1224867839 4294901760 4294967041 33554431 4294901760 4294967041 4294967295 4294901760 ) offset: 0 @ 0) asFormOfDepth: Display depth) replaceColor: Color white withColor: Color transparent; + scaleIconToDisplay]! - yourself]!

1 0

← Newer
1
...
9
10
11
12
13
14
15
16
17
Older →

Jump to page: