Squeak-dev December 2019

squeak-dev@lists.squeakfoundation.org

32 participants
256 discussions

The Inbox: Monticello-ct.707.mcz
by commits＠source.squeak.org 08 Dec '19

08 Dec '19

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-ct.707.mcz ==================== Summary ==================== Name: Monticello-ct.707 Author: ct Time: 7 December 2019, 3:58:13.941146 pm UUID: c5c14d57-ee2d-214d-81bf-b20eee03e2e5 Ancestors: Monticello-ct.706 Make modal MC tools more robust against multiprocessing In certain simultation scenarios, is it possible that the parent process is not the active process, but still alive. I do not see any reason why we should forbid this case. To watch a difference, for example, you can save a Monticello version and in the dialog window, inspect the accept button and do "[model perform: actionSelector] fork" on it. This works now. =============== Diff against Monticello-ct.706 =============== Item was changed: ----- Method: MCTool>>answer: (in category 'morphic ui') ----- answer: anObject + (modalProcess notNil and: [modalProcess isTerminated]) - (modalProcess notNil and: [modalProcess ~~ Processor activeProcess]) ifTrue: [^self inform: 'This modal dialog was interrupted, please close it']. modalValue := anObject. self close.!

2 1

The Trunk: Morphic-mt.1592.mcz
by commits＠source.squeak.org 08 Dec '19

08 Dec '19

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1592.mcz ==================== Summary ==================== Name: Morphic-mt.1592 Author: mt Time: 22 November 2019, 5:38:54.489669 pm UUID: 7611ae0c-a1d0-ea42-84c5-0d2474fe2643 Ancestors: Morphic-mt.1591 Move rotation-specific stuff from Etoys to Morphic. It is used in Morphic anyway. #heading, #heading: #rotationDegrees, #rotationDegrees: #referencePosition, #referencePosition: #forwardDirection, #forwardDirection: =============== Diff against Morphic-mt.1591 =============== Item was added: + ----- Method: CircleMorph>>heading (in category 'rotate scale and flex') ----- + heading + "Overwritten to store the angle in #forwardDirection." + + ^ self rotationDegrees! Item was changed: + ----- Method: CircleMorph>>heading: (in category 'rotate scale and flex') ----- - ----- Method: CircleMorph>>heading: (in category 'geometry eToy') ----- heading: newHeading + "Overwritten to store the angle in #forwardDirection." + - "Set the receiver's heading (in eToy terms). - Note that circles never use flex shells." self rotationDegrees: newHeading.! Item was changed: + ----- Method: MatrixTransformMorph>>heading (in category 'rotate scale and flex') ----- - ----- Method: MatrixTransformMorph>>heading (in category 'geometry eToy') ----- heading "Return the receiver's heading (in eToy terms)" ^ self forwardDirection + self innerAngle! Item was added: + ----- Method: MatrixTransformMorph>>heading: (in category 'rotate scale and flex') ----- + heading: newHeading + "Set the receiver's heading (in eToy terms)" + self rotateBy: ((newHeading - self forwardDirection) - self innerAngle).! Item was changed: + ----- Method: MatrixTransformMorph>>setDirectionFrom: (in category 'rotate scale and flex') ----- - ----- Method: MatrixTransformMorph>>setDirectionFrom: (in category 'geometry eToy') ----- setDirectionFrom: aPoint | delta degrees | delta := (self transformFromWorld globalPointToLocal: aPoint) - super rotationCenter. degrees := delta degrees + 90.0. self forwardDirection: (degrees \\ 360) rounded. ! Item was changed: + ----- Method: Morph>>forwardDirection (in category 'rotate scale and flex') ----- - ----- Method: Morph>>forwardDirection (in category 'accessing') ----- forwardDirection + "Return the receiver's offset to distinguish #heading from #rotationDegrees." + + ^ self valueOfProperty: #forwardDirection ifAbsent: [0.0]! - "Return the receiver's forward direction (in eToy terms)" - ^self valueOfProperty: #forwardDirection ifAbsent:[0.0]! Item was added: + ----- Method: Morph>>forwardDirection: (in category 'rotate scale and flex') ----- + forwardDirection: newDirection + + self setProperty: #forwardDirection toValue: newDirection.! Item was added: + ----- Method: Morph>>heading (in category 'rotate scale and flex') ----- + heading + "Answer the current heading, which is #rotationDegrees relative to the #forwardDirection." + + ^ self rotationDegrees + self forwardDirection! Item was added: + ----- Method: Morph>>heading: (in category 'rotate scale and flex') ----- + heading: newHeading + + self rotationDegrees: (newHeading - self forwardDirection).! Item was changed: ----- Method: Morph>>rotationDegrees (in category 'rotate scale and flex') ----- rotationDegrees - "Default implementation." + self isFlexed ifFalse: [^ 0.0]. + self owner in: [:flexShell | ^ flexShell rotationDegrees].! - ^ 0.0 - ! Item was added: + ----- Method: Morph>>rotationDegrees: (in category 'rotate scale and flex') ----- + rotationDegrees: degrees + + self isFlexed ifFalse: [self addFlexShell]. + self owner in: [:flexShell | flexShell rotationDegrees: degrees].! Item was added: + ----- Method: Morph>>setDirectionFrom: (in category 'rotate scale and flex') ----- + setDirectionFrom: aPoint + | delta degrees | + delta := (self transformFromWorld globalPointToLocal: aPoint) - self referencePosition. + degrees := delta degrees + 90.0. + self forwardDirection: (degrees \\ 360) rounded. + ! Item was added: + ----- Method: PolygonMorph>>heading (in category 'rotate scale and flex') ----- + heading + "Overwritten to store the angle in #forwardDirection." + + ^ self rotationDegrees! Item was added: + ----- Method: PolygonMorph>>heading: (in category 'rotate scale and flex') ----- + heading: newHeading + "Overwritten to store the angle in #forwardDirection." + + self rotationDegrees: newHeading.! Item was changed: + ----- Method: PolygonMorph>>rotationDegrees: (in category 'rotate scale and flex') ----- - ----- Method: PolygonMorph>>rotationDegrees: (in category 'halo control') ----- rotationDegrees: degrees | flex center | (center := self valueOfProperty: #referencePosition) ifNil: [self setProperty: #referencePosition toValue: (center := self bounds center)]. flex := (MorphicTransform offset: center negated) withAngle: (degrees - self forwardDirection) degreesToRadians. self setVertices: (vertices collect: [:v | (flex transform: v) - flex offset]). self forwardDirection: degrees. ! Item was added: + ----- Method: SketchMorph>>heading: (in category 'rotate scale and flex') ----- + heading: newHeading + "If not rotating normally, change forward direction rather than heading" + rotationStyle == #normal ifTrue:[^super heading: newHeading]. + self isFlexed + ifTrue:[self forwardDirection: newHeading - owner rotationDegrees] + ifFalse:[self forwardDirection: newHeading]. + self layoutChanged! Item was removed: - ----- Method: TransformationMorph>>degreesOfFlex (in category 'geometry eToy') ----- - degreesOfFlex - "Return any rotation due to flexing" - ^ self rotationDegrees! Item was changed: + ----- Method: TransformationMorph>>forwardDirection (in category 'rotate scale and flex') ----- - ----- Method: TransformationMorph>>forwardDirection (in category 'accessing') ----- forwardDirection "Return the rendee's forward direction. If I have no rendee then return 0.0 degrees " | rendee | ( rendee := self renderedMorph) == self ifTrue: [ ^ 0.0 ] . ^ rendee forwardDirection! Item was changed: + ----- Method: TransformationMorph>>forwardDirection: (in category 'rotate scale and flex') ----- - ----- Method: TransformationMorph>>forwardDirection: (in category 'geometry eToy') ----- forwardDirection: degrees "If we have a rendee set its forward direction. Else do nothing." | rendee | ( rendee := self renderedMorph) == self ifTrue: [ ^ self ] . ^rendee forwardDirection: degrees! Item was changed: + ----- Method: TransformationMorph>>heading (in category 'rotate scale and flex') ----- - ----- Method: TransformationMorph>>heading (in category 'geometry eToy') ----- heading "End recusion when necessary." | rendee | (rendee := self renderedMorph) == self ifTrue: [ ^0.0 ] . ^ rendee heading! Item was changed: + ----- Method: TransformationMorph>>heading: (in category 'rotate scale and flex') ----- - ----- Method: TransformationMorph>>heading: (in category 'geometry eToy') ----- heading: newHeading "If we have a rendee set its heading. Else do nothing." | rendee | ( rendee := self renderedMorph) == self ifTrue: [ ^ self ] . ^rendee heading: newHeading! Item was changed: ----- Method: TransformationMorph>>rotationDegrees (in category 'rotate scale and flex') ----- rotationDegrees + "Overwritten because we can directly inform about the rotation." + ^ self angle radiansToDegrees negated! Item was changed: + ----- Method: TransformationMorph>>rotationDegrees: (in category 'rotate scale and flex') ----- - ----- Method: TransformationMorph>>rotationDegrees: (in category 'accessing') ----- rotationDegrees: degrees + "Overwritten because we know how to rotate our submorphs." + self adjustAfter:[self angle: degrees degreesToRadians negated]! Item was changed: + ----- Method: TransformationMorph>>setDirectionFrom: (in category 'rotate scale and flex') ----- - ----- Method: TransformationMorph>>setDirectionFrom: (in category 'geometry eToy') ----- setDirectionFrom: aPoint | delta degrees inner | inner := self renderedMorph. inner == self ifTrue:[^self]. delta := (inner transformFromWorld globalPointToLocal: aPoint) - inner referencePosition. degrees := delta degrees + 90.0. self forwardDirection: (degrees \\ 360) rounded. !

3 2

‹Programming› 2020 : Call for Participation
by Fabio Niephaus 08 Dec '19

08 Dec '19

‹Programming› 2020 : The Art, Science, and Engineering of Programming March 23-26, 2020, Porto, Portugal https://2020.programming-conference.org The International Conference on the Art, Science, and Engineering of Programming is a new conference focused on programming topics including the experience of programming. We have named it ‹Programming› for short. The conference is co-located with several workshops, a poster and a demo session, a Coding Dojo, and the student research competition. Keynote ------- Guy L. Steele Jr. (Oracle Labs) Workshops --------- Convivial Computing Salon https://2020.programming-conference.org/home/salon-2020 ENIAC’20 https://2020.programming-conference.org/home/eniac-2020 ICW https://2020.programming-conference.org/home/icw-2020 MoreVMs’20 https://2020.programming-conference.org/home/MoreVMs-2020 NIP https://2020.programming-conference.org/home/nip-2020 PX/20 https://2020.programming-conference.org/home/px-2020 ProWeb’20 https://2020.programming-conference.org/home/proweb-2020 CoCoDo 2020 https://2020.programming-conference.org/home/cocodo-2020 Tutorials --------- https://2020.programming-conference.org/track/programming-2020-tutorials AntidoteDB : Just the Right Kind of Consistency! Bela Workshop Learning Haskell: a project-based approach Meta-Programming for the masses PharoIoT ******************************************************** ORGANIZATION ******************************************************** General Chair Ademar Aguiar, Universidade do Porto Program Chair Stefan Marr, University of Kent Organizing Committee https://2020.programming-conference.org/committee/programming-2020-organizi… Program Committee https://2020.programming-conference.org/committee/programming-2020-papers-p… ******************************************************** SUPPORTERS ******************************************************** ACM In-Cooperation Universidade do Porto City of Porto AOSA ******************************************************** For more information, visit https://2020.programming-conference.org

1 0

The Inbox: Tools-ct.924.mcz
by commits＠source.squeak.org 08 Dec '19

08 Dec '19

A new version of Tools was added to project The Inbox: http://source.squeak.org/inbox/Tools-ct.924.mcz ==================== Summary ==================== Name: Tools-ct.924 Author: ct Time: 7 December 2019, 5:03:02.396431 pm UUID: 0db76606-63d7-4a4a-94fd-99fe4a088304 Ancestors: Tools-mt.922 Fix a bug ProcessBrowser >> #selectedClass in case of no context selection =============== Diff against Tools-mt.922 =============== Item was changed: ----- Method: ProcessBrowser>>selectedClass (in category 'accessing') ----- selectedClass "Answer the class in which the currently selected context's method was found." ^ selectedClass + ifNil: [ + selectedContext ifNil: [^ nil]. + selectedClass := selectedContext receiver - ifNil: [selectedClass := selectedContext receiver ifNil: [selectedSelector := selectedContext method selector. selectedContext method methodClass] ifNotNil: [selectedContext methodClass]]!

3 2

Possible deprecations in Point and Collection
by Thiede, Christoph 08 Dec '19

08 Dec '19

Hi all, may it be possible that the following methods are no longer in use and could be deprecated for the sake of simplicity? Point #u, #v (class) #u:v: SequenceableCollection #errorFirstObject: #errorLastObject: Best, Christoph

4 3

The Inbox: Help-Squeak-TerseGuide-jr.13.mcz
by commits＠source.squeak.org 07 Dec '19

07 Dec '19

A new version of Help-Squeak-TerseGuide was added to project The Inbox: http://source.squeak.org/inbox/Help-Squeak-TerseGuide-jr.13.mcz ==================== Summary ==================== Name: Help-Squeak-TerseGuide-jr.13 Author: jr Time: 7 December 2019, 9:21:46.658998 pm UUID: 7d846785-0ca0-3840-9489-59de4e607cca Ancestors: Help-Squeak-TerseGuide-mt.12 Old-style assignment should not be the first thing a newcomer should learn. Edited the page directly in the HelpBrowser. It added the parentheses and the key: and shouldStyle: sends. =============== Diff against Help-Squeak-TerseGuide-mt.12 =============== Item was changed: ----- Method: TerseGuideHelp class>>assignment (in category 'pages') ----- assignment "This method was automatically generated. Edit it using:" "TerseGuideHelp edit: #assignment" + ^(HelpTopic - ^HelpTopic title: 'Assignment' contents: '| x y z | - "x _ 4. " "older assignment style, Squeak used to repurpose the underscore to a left-arrow glyph <-" x := 5. "assignment" x := y := z := 6. "compound assignment" x := (y := 6) + 1. + "x _ 4. " "older assignment style, Squeak used to repurpose the underscore to a left-arrow glyph <-" x := Object new. "bind to allocated instance of a class" x := 123 class. "discover the object class" x := Integer superclass. "discover the superclass of a class" x := Object allInstances. "get an array of all instances of a class" x := Integer allSuperclasses. "get all superclasses of a class" x := 1.2 hash. "hash value for object" y := x copy. "copy object" y := x shallowCopy. "copy object (not overridden)" y := x deepCopy. "copy object and instance vars" y := x veryDeepCopy. "complete tree copy using a dictionary" + !!' readStream nextChunkText) + key: #assignment; + shouldStyle: true; + yourself! - !!' readStream nextChunkText!

1 0

The Inbox: Kernel-ct.1285.mcz
by commits＠source.squeak.org 07 Dec '19

07 Dec '19

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-ct.1285.mcz ==================== Summary ==================== Name: Kernel-ct.1285 Author: ct Time: 7 December 2019, 3:30:28.183146 pm UUID: 13eb78c3-6473-7d48-a013-79fa853f407c Ancestors: Kernel-mt.1284 Add hook #defaultCategoryForSelector: in ClassDescription The other changes in Message and Process are really minor typos, so I am following Chris' suggestion not to spam the history with an extra commit for them. Hope this way appeal to you :) =============== Diff against Kernel-mt.1284 =============== Item was added: + ----- Method: ClassDescription>>defaultCategoryForSelector: (in category 'organization') ----- + defaultCategoryForSelector: aSelector + + ^ nil! Item was changed: ----- Method: ClassOrganizer>>classifyAllUnclassified (in category 'classifying') ----- classifyAllUnclassified | organizers | organizers := self subject withAllSuperclasses collect: [:ea | ea organization]. (self listAtCategoryNamed: ClassOrganizer default) do: [:sel | | found | + found := (organizers collect: [:org | org categoryOfElement: sel]) + detect: [:ea | ea ~= ClassOrganizer default and: [ea ~= nil]] + ifNone: [self subject defaultCategoryForSelector: sel]. - found := (organizers collect: [ :org | org categoryOfElement: sel]) - detect: [:ea | ea ~= ClassOrganizer default and: [ ea ~= nil]] - ifNone: []. found ifNotNil: [self classify: sel under: found]]. ! Item was changed: ----- Method: Message>>analogousCodeTo: (in category 'comparing') ----- analogousCodeTo: anObject + "For MethodProperties comparison." - "For MethodPropertires comparison." ^self class == anObject class and: [selector == anObject selector and: [args = anObject arguments and: [lookupClass == anObject lookupClass]]]! Item was changed: ----- Method: Process>>effectiveProcess (in category 'accessing') ----- effectiveProcess + "effectiveProcess is a mechanism to allow process-faithful debugging. The debugger executes code on behalf of processes, so unless some effort is made the identity of Processor activeProcess is not correctly maintained when debugging code. The debugger uses evaluate:onBehalfOf: to assign the debugged process as the effectiveProcess of the process executing the code, preserving process identity." - "effectiveProcess is a mechanism to allow process-faithful debugging. The debugger executes code - on behalf of processes, so unless some effort is made the identity of Processor activeProcess is not - correctly maintained when debugging code. The debugger uses evaluate:onBehalfOf: to assign the - debugged process as the effectiveProcess of the process executing the code, preserving process - identity." ^effectiveProcess ifNil: [self]!

1 0

The Inbox: Collections-ct.867.mcz
by commits＠source.squeak.org 07 Dec '19

07 Dec '19

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.867.mcz ==================== Summary ==================== Name: Collections-ct.867 Author: ct Time: 7 December 2019, 3:17:42.114431 pm UUID: e757d3c9-f127-0c46-adcd-b5d5a5272b1f Ancestors: Collections-mt.866 As requested, attempt to bring different #format: implementations closer together and optimize Text>>#format:. Meanwhile, I learnt that integers may indeed be faster to compare than characters ( thanks Marcel :) ). If you notice any other slips, I will be happy to fix them. =============== Diff against Collections-mt.866 =============== Item was changed: ----- Method: String>>format: (in category 'formatting') ----- + format: arguments + "format the receiver with arguments - format: aCollection - "format the receiver with aCollection simplest example: 'foo {1} bar' format: {Date today}. complete example: '\{ \} \\ foo {1} bar {2}' format: {12. 'string'}. " ^self class new: self size * 11 // 10 "+10%" streamContents: [ :output | | lastIndex nextIndex | lastIndex := 1. [ (nextIndex := self indexOfAnyOf: FormatCharacterSet startingAt: lastIndex) = 0 ] whileFalse: [ nextIndex = lastIndex ifFalse: [ output next: nextIndex - lastIndex putAll: self startingAt: lastIndex ]. + (self at: nextIndex) caseOf: { + [ $\ ] -> [ output nextPut: (self at: (nextIndex := nextIndex + 1)) ]. + [ ${ ] -> [ - (self at: nextIndex) == $\ - ifTrue: [ output nextPut: (self at: (nextIndex := nextIndex + 1)) ] - ifFalse: [ "${" "Parse the index - a positive integer in base 10." | digitValue collectionIndex | collectionIndex := 0. [ (digitValue := self basicAt: (nextIndex := nextIndex + 1)) between: 48 "$0 asciiValue" and: 57 "$9 asciiValue" ] whileTrue: [ + collectionIndex := collectionIndex * 10 + digitValue - 48 "$0 asciiValue". ]. - collectionIndex := collectionIndex * 10 + digitValue - 48. "$0 asciiValue" ]. digitValue = 125 "$} asciiValue" ifFalse: [ self error: '$} expected' ]. + output nextPutAll: (arguments at: collectionIndex) asString ] }. - output nextPutAll: (aCollection at: collectionIndex) asString ]. lastIndex := nextIndex + 1 ]. lastIndex <= self size ifTrue: [ output next: self size - lastIndex + 1 putAll: self startingAt: lastIndex ] ]! Item was changed: ----- Method: Text>>format: (in category 'formatting') ----- format: arguments "format the receiver with arguments, respecting the format both of receiver and collection elements" + ^self class new: self size * 11 // 10 "+10%" streamContents: [ :output | - ^self class new: self size * 11 // 10 streamContents: [ :output | | nextIndex | nextIndex := 1. [ nextIndex <= self size ] whileTrue: [ (self at: nextIndex) caseOf: { + [ $\ ] -> [ - [$\] -> [ nextIndex := nextIndex + 1. output withAttributes: (runs at: nextIndex) do: [ output nextPut: (self at: nextIndex) ] ]. + [ ${ ] -> [ - [${] -> [ "Parse the index - a positive integer in base 10." + | digitValue collectionIndex attributes | - | character collectionIndex attributes | collectionIndex := 0. attributes := Set new. + [ (digitValue := string basicAt: (nextIndex := nextIndex + 1)) between: 48 "$0 asciiValue" and: 57 "$9 asciiValue" ] whileTrue: [ + collectionIndex := collectionIndex * 10 + digitValue - 48 "$0 asciiValue". - [ (character := string at: (nextIndex := nextIndex + 1)) isDigit ] whileTrue: [ - collectionIndex := collectionIndex * 10 + character digitValue. attributes addAll: (runs at: nextIndex) ]. + digitValue = 125 "$} asciiValue" ifFalse: [ self error: '$} expected' ]. - character = $} ifFalse: [ self error: '$} expected' ]. output withAttributes: attributes do: [ output nextPutAll: (arguments at: collectionIndex) asStringOrText ] ] } otherwise: [ output withAttributes: (runs at: nextIndex) do: [ output nextPut: (self at: nextIndex) ] ]. nextIndex := nextIndex + 1 ] ]!

1 0

Monticello regression regarding modification detection?
by Thiede, Christoph 06 Dec '19

06 Dec '19

Hi all, as we are currently updating Squeak by Example<https://github.com/codeZeilen/SqueakByExample-english>, I came across the following section from the chapter Environment about Monticello: To tell Monticello about your package, click on +Package, and type the name of the package, in his case "SBE". Monticello will add SBE to its list of packages; the package entry will be marked with an asterisk to show that the version in the image has not yet been written to any repository. [italic mine] In context, a class under the system category "SBE" has been created before creating the package. However, I cannot reproduce the described behavior in Trunk: I first need to raise another relevant SystemChangeNotifier event again before the asterisk appears. Just after creating the package, it is not displayed as modified. Is this a regression in modern Monticello, or had the original SbE author dreamt a dream that has never become reality until today? :) Best, Christoph Follow-up: thread on GitHub<https://github.com/codeZeilen/SqueakByExample-english/issues/21#issuecommen…>

2 2

The Inbox: System-ct.1120.mcz
by commits＠source.squeak.org 06 Dec '19

06 Dec '19

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1120.mcz ==================== Summary ==================== Name: System-ct.1120 Author: ct Time: 26 October 2019, 10:22:46.213469 pm UUID: 7ed0a01b-5518-e24f-9ead-65e1789c94d4 Ancestors: System-ct.1117 Revise System-ct.1117 (concerning CommonRequestStrings): Fix wrong dependency and improve code formatting =============== Diff against System-ct.1117 =============== Item was changed: ----- Method: Utilities class>>initializeCommonRequestStrings (in category 'common requests') ----- initializeCommonRequestStrings "Initialize the common request strings, a directly-editable list of expressions that can be evaluated from the 'do...' menu." CommonRequestStrings := StringHolder new contents: ( + String streamContents: [:stream | self commonRequestBlocks + do: [:block | block decompile statements + do: [:statement | stream + nextPutAll: (statement shortPrintString + copyWithRegex: '\s+' + matchesReplacedWith: String space); + nextPut: $.] + separatedBy: [stream cr]] + separatedBy: [stream cr; nextPut: $-; cr]]) - String streamContents: [:stream | - self commonRequestBlocks - do: [:block | - block decompile statements - do: [:statement | - statement veryShortPrintOn: stream. - stream nextPut: $.] - separatedBy: [stream cr]] - separatedBy: [stream cr; nextPut: $-; cr]]) "Utilities initializeCommonRequestStrings"!

4 5

Jump to page: