Squeak-dev February 2021

squeak-dev@lists.squeakfoundation.org

33 participants
196 discussions

The Trunk: Kernel-eem.1367.mcz
by commits＠source.squeak.org 22 Mar '21

22 Mar '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1367.mcz ==================== Summary ==================== Name: Kernel-eem.1367 Author: eem Time: 1 February 2021, 6:57:09.713484 pm UUID: def9aaa1-eb71-4da5-8f86-85856d9b88ad Ancestors: Kernel-eem.1366 Fix mistake in the previous commit. Thanks Levente! =============== Diff against Kernel-eem.1366 =============== Item was changed: ----- Method: Context>>isPrimFailToken: (in category 'private') ----- + isPrimFailToken: contextOrPrimFailToken + "Answer if contextOrPrimFailToken, which will either be a Context object or + a primitive fail token (a tuple of the PrimitiveFailToken unique object and + a primitive failure code), is the latter. This should only be used with the + (possibly indirect) results of Context>>doPrimitive:method:receiver:args:" + ^contextOrPrimFailToken isArray + and: [contextOrPrimFailToken size = 2 + and: [(contextOrPrimFailToken at: 1) == PrimitiveFailToken]]! - isPrimFailToken: anObject - ^(self objectClass: anObject) isArray - and: [anObject size = 2 - and: [(anObject at: 1) == PrimitiveFailToken]]!

3 5

Squeak-related Talks this Friday
by Tom Beckmann 19 Mar '21

19 Mar '21

Hey all, there will be two Squeak-related talks this Friday in a symposium between the HPI Research School and SAP. Fabio Niephaus will talk about Polyglot Live Programming with TruffleSqueak and I will talk about a Squeak-hosted block-based programming environment. Further, Jens Mönig will talk about recent developments in the Snap! programming environment. If you're interested, you can sign up to receive a join link for Zoom here: TruffleSqueak (11am CET): https://webinars.sap.com/ves-id-17800-52961/en/registration.aspx Snap! (11.30am CET): https://webinars.sap.com/ves-id-17800-52962/en/registration.aspx Block-based Programming (noon CET): https://webinars.sap.com/ves-id-17800-52963/en/registration.aspx Best, Tom

4 4

The Inbox: Tools-ct.1015.mcz
by commits＠source.squeak.org 11 Mar '21

11 Mar '21

Christoph Thiede uploaded a new version of Tools to project The Inbox: http://source.squeak.org/inbox/Tools-ct.1015.mcz ==================== Summary ==================== Name: Tools-ct.1015 Author: ct Time: 1 November 2020, 3:58:41.62325 pm UUID: 0f1723d1-90c5-ca4e-88ad-56f6800b2b17 Ancestors: Tools-tpr.1014 Beautify CodeHolder >> #annotationForSelector:ofClass: implementation and output. Remove dangling separator character and add multilingual support. Example - before: mt 2/13/2020 13:49 · running · 2 implementors · in change sets: Morphic-pre.1466 Morphic-mt.1507 Morphic-mt.1607 Morphic-cmm.1617 Morphic-mt.1622 · Example - after: mt 2/13/2020 13:49 · running · 2 implementors · in change sets: Morphic-pre.1466, Morphic-mt.1507, Morphic-mt.1607, Morphic-cmm.1617 and Morphic-mt.1622 =============== Diff against Tools-tpr.1014 =============== Item was changed: ----- Method: CodeHolder>>annotationForSelector:ofClass: (in category 'annotation') ----- annotationForSelector: aSelector ofClass: aClass "Provide a line of content for an annotation pane, representing information about the given selector and class" | separator aStream requestList | aSelector == #Comment ifTrue: [^ self annotationForClassCommentFor: aClass]. aSelector == #Definition ifTrue: [^ self annotationForClassDefinitionFor: aClass]. aSelector == #Hierarchy ifTrue: [^ self annotationForHierarchyFor: aClass]. aStream := (String new: 512) writeStream. requestList := self annotationRequests. + separator := self annotationSeparator. - separator := requestList size > 1 - ifTrue: [self annotationSeparator] - ifFalse: ['']. requestList do: [:aRequest | | aString sendersCount aComment aCategory implementorsCount aList stamp authorInitials | aRequest == #firstComment ifTrue: [aComment := aClass firstCommentAt: aSelector. aComment isEmptyOrNil + ifFalse: [aStream nextPutAll: aComment]]. - ifFalse: [aStream nextPutAll: aComment , separator]]. aRequest == #masterComment ifTrue: [aComment := aClass supermostPrecodeCommentFor: aSelector. aComment isEmptyOrNil + ifFalse: [aStream nextPutAll: aComment]]. - ifFalse: [aStream nextPutAll: aComment , separator]]. aRequest == #documentation ifTrue: [aComment := aClass precodeCommentOrInheritedCommentFor: aSelector. aComment isEmptyOrNil + ifFalse: [aStream nextPutAll: aComment]]. - ifFalse: [aStream nextPutAll: aComment , separator]]. aRequest == #timeStamp ifTrue: [stamp := self timeStamp. aStream + nextPutAll: (stamp ifEmpty: ['no timeStamp' translated])]. - nextPutAll: (stamp size > 0 - ifTrue: [stamp , separator] - ifFalse: ['no timeStamp' , separator])]. aRequest == #author ifTrue: [authorInitials := self timeStamp findTokens ifEmpty: [''] ifNotEmpty: [:tokens | tokens first]. aStream nextPutAll: (SystemNavigation authorsInverted at: authorInitials ifPresent: [:fullNames | fullNames anyOne] ifAbsent: ['unknown author']), separator]. aRequest == #messageCategory ifTrue: [aCategory := aClass organization categoryOfElement: aSelector. aCategory ifNotNil: ["woud be nil for a method no longer present, e.g. in a recent-submissions browser" + aStream nextPutAll: aCategory]]. - aStream nextPutAll: aCategory , separator]]. aRequest == #sendersCount ifTrue: [sendersCount := (self systemNavigation allCallsOn: aSelector) size. sendersCount := sendersCount = 1 + ifTrue: ['1 sender' translated] + ifFalse: ['{1} senders' translated format: {sendersCount}]. + aStream nextPutAll: sendersCount]. - ifTrue: ['1 sender'] - ifFalse: [sendersCount printString , ' senders']. - aStream nextPutAll: sendersCount , separator]. aRequest == #implementorsCount ifTrue: [implementorsCount := self systemNavigation numberOfImplementorsOf: aSelector. implementorsCount := implementorsCount = 1 + ifTrue: ['1 implementor' translated] + ifFalse: ['{1} implementors' translated format: {implementorsCount}]. + aStream nextPutAll: implementorsCount]. - ifTrue: ['1 implementor'] - ifFalse: [implementorsCount printString , ' implementors']. - aStream nextPutAll: implementorsCount , separator]. aRequest == #priorVersionsCount ifTrue: [self addPriorVersionsCountForSelector: aSelector ofClass: aClass to: aStream]. aRequest == #priorTimeStamp ifTrue: [stamp := VersionsBrowser timeStampFor: aSelector class: aClass reverseOrdinal: 2. stamp + ifNotNil: [aStream nextPutAll: 'prior time stamp: ' translated , stamp]]. - ifNotNil: [aStream nextPutAll: 'prior time stamp: ' , stamp , separator]]. aRequest == #recentChangeSet ifTrue: [aString := ChangesOrganizer mostRecentChangeSetWithChangeForClass: aClass selector: aSelector. + aStream nextPutAll: aString]. - aString size > 0 - ifTrue: [aStream nextPutAll: aString , separator]]. aRequest == #allChangeSets ifTrue: [aList := ChangesOrganizer allChangeSetsWithClass: aClass selector: aSelector. + aList + ifNotEmpty: [aList size = 1 + ifTrue: [aStream nextPutAll: 'only in change set ' translated] + ifFalse: [aStream nextPutAll: 'in change sets: ' translated]. + aStream nextPutAll: (aList collect: + [:changeSet | changeSet name]) asCommaStringAnd] + ifEmpty: [aStream nextPutAll: 'in no change set' translated]]] + separatedBy: [ + aStream nextPutAll: separator]. - aList size > 0 - ifTrue: [aList size = 1 - ifTrue: [aStream nextPutAll: 'only in change set '] - ifFalse: [aStream nextPutAll: 'in change sets: ']. - aList - do: [:aChangeSet | aStream nextPutAll: aChangeSet name , ' ']] - ifFalse: [aStream nextPutAll: 'in no change set']. - aStream nextPutAll: separator]]. ^ aStream contents!

3 2

Proposal: Geometry Classes
by patrick.rein＠hpi.uni-potsdam.de 11 Mar '21

11 Mar '21

Hi everyone, during some recent clean-up an issue with geometry objects came up. As a result the following idea came up which I thereby would like to put out for an initial discussion. In case we find that this might be useful, I would continue by implementing a first prototype of the package as a foundation of a more in-depth discussion later on. Bests Patrick # Squeak Change Proposal - Geometry Package ## Why? Squeak implements basic geometry logic in too many different places. For example intersection of different kinds of geometric objects is implemented all over Morphic, ST80, Balloon, Graphics, and Etoys. Such extensive scattering across packages and classes impedes modularity, that is, readability and extensibility. An example for this recently came up when we discovered an issue with testing for graphical intersections between PolygonMorph and RectangleMorph. It was not possible to compute that overlapping area because the class Rectangle omits to provide an important method. A quick fix would entail unnecessary dependencies (here: Morphic -> Balloon) or duplicated code (see also http://bugs.squeak.org/view.php?id=7872). Consequently, we might want to modularize the geometry objects and operations. As a side effect, dependent packages such as Morphic can be simplified a little bit (more). ## Scope The proposed package should cover basic 2D geometric objects and their operations represented by the following classes: - Point - Line - LineSegment - Polygon - Rectangle (as an optimization as it could be represented as a special Polygon already) Most classes could simply be moved from their previous packages. Afterwards the interfaces would need to be made consistent with each other to allow interoperability of all geometry classes within the new package. ### Affected classes: - All classes in ST80-Paths - LineSegement, Bezier2Segment, Bezier3Segment (Balloon-Geometry) - Rectangle, Quadrangle, Point (Graphics-Primitives) - LineIntersections, LineIntersectionSegment, LineIntersectionEvent (Etoys-Squeakland-Graphics-Tools-Intersection) ## Open questions - Should this become a single new package or a subcategory in the Graphics package? - Should the package contain an Ellipses class? - Should we model curved line segments as BezierLineSegments, CurvedLineSegment, or Arc? ## Risks - This would potentially deprecate the existing ST80 geometry classes (ST80-Paths) - Some of the new classes will cause name clashes with existing classes. For example Line is currently in ST-80 and represents a line segment, and the class LineSegment is a line segment but not in the geometric sense as it also incorporates arcs. Both names might then be used by new classes with different meanings. This might be mitigated by introducing a pre-/postfix for the names of the new classes.

6 16

find original change set
by Javier Orsaria 09 Mar '21

09 Mar '21

Hi, I was trying to use, in VersionsBrowser, the feature "find original change set" for a method. In old versions (3.8 and earlier) this work fine. But in 3.10 and 3.9 don´t. I followed the sequence and detect the problem at MethodChangeRecord-noteNewMethod: noteNewMethod: newMethod "NEVER do this. It is evil." currentMethod _ nil. should be: noteNewMethod: newMethod "NEVER do this. It is evil." currentMethod _ newMethod. This way work as I expect. But with that comment I understand was intentioned. What is the problem with this? I can´t see it... I'm the devil? Thanks, Javier

3 2

Squeak Winter Demos, 2021/03/06, 3 p.m. - 6 p.m. CET, virtual
by Marcel Taeumel 08 Mar '21

08 Mar '21

Dear Squeakers, Smalltalkers, and friends of object-oriented, interactive programming environments! We hope that you are doing well in these difficult times. Please take care of yourself and your peers. We cordially invite you to the “Squeak Winter Demos”, which are organized by the club of German-speaking Squeakers (“Squeak Deutschland e.V.”). We are going to fill that meeting with exciting talks, demos, and discussions. You want to attend or have more questions? Maybe even a proposal for a demo/talk/discussion? Feel free to talk to us so that we can better include your idea in the schedule. Since we want to keep the meeting as flexible as possible, every speaker should plan for about 20 minutes. When? Saturday, March 6, 2021, 3 p.m. to 6 p.m. CET (6 a.m. to 9 a.m. PST) Where? The event will take place as a Zoom call. You need a webcam (maybe with a microphone) and a recent Web browser such as Firefox, Chrome, Edge, or Safari. Alternatively, you can download an app for your operating system via https://zoom.us/download [https://zoom.us/download]. We will share the login data for the virtual meeting here on the day of the event. What will happen? We are currently in the process of planning talks and demos. Feel free to contribute with a short demo or experience report yourself – even on the fly if you want to! We welcome non-members to the meeting. :) Here is a preliminary agenda: * Like the Babylonias: Programming with Examples * Fast and colorful: OpenGL in Squeak * Use the Entire Canvas: Block-based Programming * Spot off, Morph on: Squeak Game Showcase 2020 * It’s Broken! How to debug the debugger =) * Social Media? A Telegram Bot for Squeak … and those who find the time but are not so fluent in German: We always welcome non-German-speaking Squeakers, too! We suppose that you will understand the live demonstrations anyway. :) We will be able to translate technical details or questions into English as well. Stay healthy. Best, Marcel Taeumel --- Squeak Deutschland e.V. c/o Freudenberg, Potsdamer Str. 3a 39114 Magdeburg (GERMANY) E-Mail: info(a)squeak-ev.de [mailto:info@squeak-ev.de] Internet: http://www.squeak.de/squeakev [http://www.squeak.de/squeakev]

3 5

The Inbox: Kernel-jar.1368.mcz
by commits＠source.squeak.org 05 Mar '21

05 Mar '21

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-jar.1368.mcz ==================== Summary ==================== Name: Kernel-jar.1368 Author: jar Time: 8 February 2021, 10:03:00.688403 pm UUID: 095338a7-d694-3e4c-97dd-1f33e4d08156 Ancestors: Kernel-eem.1367 Fix incorrect #priority: behavior blocking higher priority processes =============== Diff against Kernel-eem.1367 =============== Item was changed: ----- Method: Process>>priority: (in category 'accessing') ----- priority: anInteger "Set the receiver's priority to anInteger." (anInteger >= Processor lowestPriority and:[anInteger <= Processor highestPriority]) + ifTrue: [ + priority := anInteger. + self isActiveProcess ifTrue: [ [ ] forkAt: Processor highestPriority] ] - ifTrue: [priority := anInteger] ifFalse: [self error: 'Invalid priority: ', anInteger printString]!

7 18

Morphic team, nice improvement during installer runs. The progress bar stays in top right...
by gettimothy 04 Mar '21

04 Mar '21

Thanks all.

2 2

The Trunk: CollectionsTests-dtl.350.mcz
by commits＠source.squeak.org 04 Mar '21

04 Mar '21

David T. Lewis uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-dtl.350.mcz ==================== Summary ==================== Name: CollectionsTests-dtl.350 Author: dtl Time: 13 February 2021, 4:37:17.676276 pm UUID: c4060470-23b9-4b11-a961-41baeb166af8 Ancestors: CollectionsTests-ul.348 Do not include new test from CollectionsTests-jar.349 because it documents existing behavior that may not necessarily be the expected behavior. Discussion at http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-February/213918… =============== Diff against CollectionsTests-ul.348 ===============

5 4

The Trunk: Kernel-mt.1371.mcz
by commits＠source.squeak.org 02 Mar '21

02 Mar '21

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-mt.1371.mcz ==================== Summary ==================== Name: Kernel-mt.1371 Author: mt Time: 17 February 2021, 5:56:29.152426 pm UUID: 1e5b05c3-feb7-e945-a253-3218ee358e74 Ancestors: Kernel-mt.1370 Extracts better examples for #valueWithExit from squeak-dev mailing list. =============== Diff against Kernel-mt.1370 =============== Item was changed: ----- Method: BlockClosure>>valueWithExit (in category 'evaluating') ----- valueWithExit + "Provides an exit block to the receiver. Use it to break out of the control flow with an early return. Examples below. + [:break | 1 to: 10 do: [:each | each > 5 ifTrue: [break value]]] valueWithExit. + 1 to: 10 do: [:each | [:continue | each > 5 ifTrue: [continue value]] valueWithExit]." - "Provides an exit block to the receiver. Use it to break out of the control flow with an early return. For example: - [:exit | 1 to: 10 do: [:each | each > 5 ifTrue: [exit value]]] valueWithExit" self value: [ ^nil ]!

3 2

← Newer
1
...
5
6
7
8
9
10
11
...
20
Older →

Jump to page: