Packages January 2021

packages@lists.squeakfoundation.org

1 participants
42 discussions

The Trunk: System-mt.1213.mcz
by commits＠source.squeak.org 25 Jan '21

25 Jan '21

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1213.mcz ==================== Summary ==================== Name: System-mt.1213 Author: mt Time: 25 January 2021, 11:19:56.266394 am UUID: 636c816e-5594-a445-bfc8-1f6e9681cdc3 Ancestors: System-eem.1212 Updates copyright in license. =============== Diff against System-eem.1212 =============== Item was changed: ----- Method: SmalltalkImage>>license (in category 'license') ----- license "This method was automatically generated. Edit it using:" "SqueakLicenseHelp edit: #officialLicense" ^ ( 'The current release of Squeak is a combination of source code originating from Apple which Apple agreed to license under the Apache License and more recent contributions licensed under the MIT license. The vast majority of the code is under the MIT License: MIT License + Copyright (c) The individual, corporate, and institutional contributors who have collectively contributed elements to this software ("The Squeak Community"), 1996-2021 All rights reserved. - Copyright (c) The individual, corporate, and institutional contributors who have collectively contributed elements to this software ("The Squeak Community"), 1996-2020 All rights reserved. Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions: The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. Portions of Squeak are covered by the Apache License: Apache License, Version 2.0 Copyright (c) Xerox Corp. 1981, 1982 All rights reserved. Copyright (c) Apple Computer, Inc. 1985-1996 All rights reserved. Licensed under the Apache License, Version 2.0 (the "License"); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.apache.org/licenses/LICENSE-2.0 Unless required by applicable law or agreed to in writing, software distributed under the License is distributed on an "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. See the License for the specific language governing permissions and limitations under the License. !! ]style[(258 1 11 1216 53 2 27 297 42 308)c159159159,,b,,c159159159,,b,,Rhttp://www.apache.org/licenses/LICENSE-2…;,!!' readStream nextChunkText)!

1 0

The Trunk: SystemReporter-eem.48.mcz
by commits＠source.squeak.org 24 Jan '21

24 Jan '21

Eliot Miranda uploaded a new version of SystemReporter to project The Trunk: http://source.squeak.org/trunk/SystemReporter-eem.48.mcz ==================== Summary ==================== Name: SystemReporter-eem.48 Author: eem Time: 23 January 2021, 6:22:46.831925 pm UUID: ab93c373-d792-4a99-a3b4-9967fdc8a294 Ancestors: SystemReporter-eem.47 Tiny neatening. =============== Diff against SystemReporter-eem.47 =============== Item was changed: ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- reportImage: aStream self header: 'Image' on: aStream. aStream nextPutAll: Smalltalk image imageName; cr; nextPutAll: SystemVersion current version; cr; nextPutAll: Smalltalk image lastUpdateString; cr; nextPutAll: Smalltalk image currentChangeSetString; cr. + [aStream + nextPutAll: 'Image format '; + print: Smalltalk image imageFormatVersion; - [ | imageFormat bitsPerWord | - imageFormat := Smalltalk image imageFormatVersion. - bitsPerWord := Smalltalk image wordSize * 8. - aStream nextPutAll: 'Image format '; - nextPutAll: imageFormat asString; nextPutAll: ' ('; + print: Smalltalk image wordSize * 8; - nextPutAll: bitsPerWord asString; nextPutAll: ' bit)'; cr] on: Warning + do: ["primitive not present in VM"] + + "self new reportImage: Transcript. Transcript flush"! - do: ["primitive not present in VM"]. - !

1 0

The Trunk: EToys-eem.417.mcz
by commits＠source.squeak.org 24 Jan '21

24 Jan '21

Eliot Miranda uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-eem.417.mcz ==================== Summary ==================== Name: EToys-eem.417 Author: eem Time: 23 January 2021, 6:19:52.973089 pm UUID: 90068d9d-ef84-4cb9-92d2-5bb0ec54994e Ancestors: EToys-mt.416 Move two base system methods to System. =============== Diff against EToys-mt.416 =============== Item was removed: - ----- Method: SystemDictionary>>copyright (in category '*Etoys-Squeakland-sources, change log') ----- - copyright - "The Smalltalk copyright." - - ^'Copyright (c) 1996 Apple Computer, Inc. All Rights Reserved. - Copyright (c) 1996-2009 Viewpoints Research Institute, and Contributors; - Copyright (c) 2010-2012 Squeak Community Contributors'! Item was removed: - ----- Method: SystemDictionary>>currentChangeSetString (in category '*Etoys-Squeakland-sources, change log') ----- - currentChangeSetString - "Smalltalk currentChangeSetString" - ^ 'Current Change Set: ' translated, ChangeSet current name!

1 0

The Trunk: System-eem.1212.mcz
by commits＠source.squeak.org 24 Jan '21

24 Jan '21

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1212.mcz ==================== Summary ==================== Name: System-eem.1212 Author: eem Time: 23 January 2021, 6:18:33.915831 pm UUID: b4abe320-97d1-4849-87af-51818eddcabe Ancestors: System-eem.1211 There are two instances of the copyright. Make them both consstent and move them out of EToys (helping a tiny bit in EToys unloading). =============== Diff against System-eem.1211 =============== Item was changed: ----- Method: SmalltalkImage>>copyright (in category 'sources, changes log') ----- copyright "The Smalltalk copyright." ^'Copyright © Xerox Corp. 1981, 1982 All rights reserved. + Copyright © Apple Computer, Inc. 1985-1996 All rights reserved. + Copyright © 1996-2009 Viewpoints Research Institute, and Contributors. - Copyright © Apple Computer, Inc. 1985-1996 All rights reserved; Copyright © 2010-2021 Squeak Community Contributors.'! Item was added: + ----- Method: SystemDictionary>>copyright (in category 'sources, change log') ----- + copyright + "The Smalltalk copyright." + + ^'Copyright © Xerox Corp. 1981, 1982 All rights reserved. + Copyright © 1996 Apple Computer, Inc. All Rights Reserved. + Copyright © 1996-2009 Viewpoints Research Institute, and Contributors. + Copyright © 2010-2021 Squeak Community Contributors'! Item was added: + ----- Method: SystemDictionary>>currentChangeSetString (in category 'sources, change log') ----- + currentChangeSetString + "Smalltalk currentChangeSetString" + ^ 'Current Change Set: ' translated, ChangeSet current name!

1 0

The Trunk: System-eem.1211.mcz
by commits＠source.squeak.org 24 Jan '21

24 Jan '21

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1211.mcz ==================== Summary ==================== Name: System-eem.1211 Author: eem Time: 23 January 2021, 6:07:18.034021 pm UUID: 89999499-d83c-478b-9044-5dee2fe443df Ancestors: System-dtl.1210 Update the system's copyright. =============== Diff against System-dtl.1210 =============== Item was changed: ----- Method: SmalltalkImage>>copyright (in category 'sources, changes log') ----- copyright "The Smalltalk copyright." + ^'Copyright © Xerox Corp. 1981, 1982 All rights reserved. + Copyright © Apple Computer, Inc. 1985-1996 All rights reserved; + Copyright © 2010-2021 Squeak Community Contributors.'! - ^'Copyright (c) Xerox Corp. 1981, 1982 All rights reserved. - Copyright (c) Apple Computer, Inc. 1985-1996 All rights reserved.'!

1 0

The Trunk: Collections-ul.922.mcz
by commits＠source.squeak.org 19 Jan '21

19 Jan '21

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.922.mcz ==================== Summary ==================== Name: Collections-ul.922 Author: ul Time: 19 January 2021, 1:28:51.784086 pm UUID: 7d688371-2966-43d3-9000-3985ae9f6afa Ancestors: Collections-nice.921 Fix off-by-one errors in OrderedCollection's #removeFirst: and #removeLast:. The argument of those methods can be zero. =============== Diff against Collections-nice.921 =============== Item was changed: ----- Method: OrderedCollection>>removeFirst: (in category 'removing') ----- removeFirst: n "Remove the first n objects into an array." | lastIndexToRemove result | + n < 0 ifTrue: [ self errorNoSuchElement ]. - n < 1 ifTrue: [ self errorNoSuchElement ]. lastIndex < (lastIndexToRemove := firstIndex + n - 1) ifTrue: [ self errorNotEnoughElements ]. result := array copyFrom: firstIndex to: lastIndexToRemove. array from: firstIndex to: lastIndexToRemove put: nil. firstIndex := lastIndexToRemove + 1. ^result! Item was changed: ----- Method: OrderedCollection>>removeLast: (in category 'removing') ----- removeLast: n "Remove the last n objects into an array with last in last position." | firstIndexToRemove result | + n < 0 ifTrue: [ self errorNoSuchElement ]. - n < 1 ifTrue: [ self errorNoSuchElement ]. (firstIndexToRemove := lastIndex - n + 1) < firstIndex ifTrue: [ self errorNotEnoughElements ]. result := array copyFrom: firstIndexToRemove to: lastIndex. array from: firstIndexToRemove to: lastIndex put: nil. lastIndex := firstIndexToRemove - 1. ^result!

1 0

The Trunk: CollectionsTests-ul.348.mcz
by commits＠source.squeak.org 19 Jan '21

19 Jan '21

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.348.mcz ==================== Summary ==================== Name: CollectionsTests-ul.348 Author: ul Time: 19 January 2021, 1:29:30.901142 pm UUID: 7a478e2d-0752-43f2-ab4a-4f6aa9f3bbe6 Ancestors: CollectionsTests-nice.347 - improved tests for OrderedCollection's #removeFirst: and #removeLast:. =============== Diff against CollectionsTests-nice.347 =============== Item was changed: ----- Method: OrderedCollectionTest>>testRemoveFirst (in category 'tests - removing') ----- testRemoveFirst "Allows one to remove n element of a collection at the first" "self run:#testRemoveFirst" + | c1 c2 | - | c1 | c1 := #(2 3 4 6) asOrderedCollection. + c2 := c1 copy. + self assert: Array empty equals: (c1 removeFirst: 0). + self assert: c2 equals: c1. + self assert: #(2) equals: (c1 removeFirst: 1). + self assert: #(3 4 6) asOrderedCollection equals: c1. + self assert:#(3 4) equals: (c1 removeFirst: 2). + self assert: #(6) asOrderedCollection equals: c1. - c1 removeFirst: 1. - self assert: (c1 = #(3 4 6) asOrderedCollection). - c1 removeFirst: 2. - self assert: (c1 = #(6) asOrderedCollection). self should: [c1 removeFirst: 10] raise: Error. ! Item was changed: ----- Method: OrderedCollectionTest>>testRemoveLast (in category 'tests - removing') ----- testRemoveLast "Allows one to remove n element of a collection at the end" "self run:#testRemoveLast" + | c1 c2 | - | c1 | c1 := #(2 3 4 6) asOrderedCollection. + c2 := c1 copy. + self assert: Array empty equals: (c1 removeLast: 0). + self assert: c2 equals: c1. + self assert: #(6) equals: (c1 removeLast: 1). + self assert: #(2 3 4) asOrderedCollection equals: c1. + self assert: #(3 4) equals: (c1 removeLast: 2). + self assert: #(2) asOrderedCollection equals: c1. + self should: [c1 removeLast: 10] raise: Error! - c1 removeLast: 1. - self assert: (c1 = #(2 3 4) asOrderedCollection). - c1 removeLast: 2. - self assert: (c1 = #(2) asOrderedCollection). - self should: [c1 removeLast: 10] raise: Error.!

1 0

The Trunk: Tools-mt.1024.mcz
by commits＠source.squeak.org 14 Jan '21

14 Jan '21

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1024.mcz ==================== Summary ==================== Name: Tools-mt.1024 Author: mt Time: 14 January 2021, 1:21:15.354081 pm UUID: 0ef67378-0ca6-4743-be9c-5a60621c07cd Ancestors: Tools-mt.1023 Improves the description of several confirmation dialogs for removing batches of source code. =============== Diff against Tools-mt.1023 =============== Item was changed: ----- Method: Browser>>removeMessageCategory (in category 'message category functions') ----- removeMessageCategory "If a message category is selected, create a Confirmer so the user can verify that the currently selected message category should be removed from the system. If so, remove it." | messageCategoryName | self hasMessageCategorySelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. messageCategoryName := self selectedMessageCategoryName. (self messageList size = 0 + or: [Project uiManager confirm: ('Are you sure you want to remove\the message category\\ {1}\ in {2}\\and all its {3} methods? Maybe save\your image before doing this.' translated withCRs asText format: { + messageCategoryName asText allBold. + self selectedClassOrMetaClass name. + (self selectedClassOrMetaClass organization listAtCategoryNamed: messageCategoryName) size asString asText allBold + + }) title: 'Remove Message Category' translated]) - or: [self confirm: 'Are you sure you want to - remove this method category - and all its methods?']) ifTrue: [self selectedClassOrMetaClass removeCategory: messageCategoryName. self selectMessageCategoryNamed: nil. self changed: #classSelectionChanged]. self changed: #messageCategoryList. ! Item was changed: ----- Method: Browser>>removeSystemCategory (in category 'system category functions') ----- removeSystemCategory "If a class category is selected, create a Confirmer so the user can verify that the currently selected class category and all of its classes should be removed from the system. If so, remove it." self hasSystemCategorySelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. (self classList size = 0 + or: [Project uiManager + confirm: ('Are you sure you want to remove\the system category\\ {1}\\and all its {2} classes? Maybe save\your image before doing this.' translated withCRs asText + format: { + self selectedSystemCategory asText allBold. + (systemOrganizer listAtCategoryNamed: self selectedSystemCategory) size asString asText allBold}) + title: 'Remove System Category' translated]) - or: [self confirm: 'Are you sure you want to - remove this system category - and all its classes?']) ifTrue: [| nextSelectedCat | nextSelectedCat := self systemCategoryList before: self selectedSystemCategory ifAbsent: [nil]. systemOrganizer removeSystemCategory: self selectedSystemCategory. self selectSystemCategory: nextSelectedCat. self changed: #systemCategoryList]! Item was changed: ----- Method: CodeHolder>>removeClass (in category 'commands') ----- removeClass "Remove the selected class from the system, at interactive user request. Make certain the user really wants to do this, since it is not reversible. Answer true if removal actually happened." | message className classToRemove result | self okToChange ifFalse: [^ false]. classToRemove := self selectedClassOrMetaClass ifNil: [Beeper beep. ^ false]. classToRemove := classToRemove theNonMetaClass. className := classToRemove name. + message := 'Are you sure that you want to remove\the class\\ {1}\\and all its {2} methods? Maybe save\your image before doing this.{3}' translated withCRs asText format: { + className asText allBold. + (classToRemove methodDict size + classToRemove class methodDict size) asString asText allBold. + classToRemove subclasses size > 0 ifFalse: [''] ifTrue: [ + '\\(There are {1} subclasses, whose superclass\must be updated manually after this.)' translated withCRs asText format: { classToRemove subclasses size asString asText allBold }]}. + (result := Project uiManager confirm: message title: 'Remove Class' translated) - message := 'Are you certain that you - want to REMOVE the class ', className, ' - from the system?'. - (result := self confirm: message) ifTrue: [classToRemove subclasses size > 0 ifTrue: [(self confirm: 'class has subclasses: ' , message) ifFalse: [^ false]]. classToRemove removeFromSystem. self changed: #classList. true]. ^ result!

1 0

The Trunk: Morphic-mt.1717.mcz
by commits＠source.squeak.org 13 Jan '21

13 Jan '21

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1717.mcz ==================== Summary ==================== Name: Morphic-mt.1717 Author: mt Time: 13 January 2021, 4:41:17.950847 pm UUID: 7b18d879-1009-e04b-b0b2-fe5ad7fe4376 Ancestors: Morphic-mt.1716 Improves documentation to maybe avoid issues such as the ones fixes in EToys-mt.416 and MorphicExtras-mt.282. =============== Diff against Morphic-mt.1716 =============== Item was changed: ----- Method: Morph>>minimumHeight (in category 'geometry - layout') ----- minimumHeight + "Wrapper for layout-specific function to avoid confusion. Please configure through #minimumHeight: or #minHeight: or by overriding #minHeight. Please do not override #minimumHeight since the layout mechanism will not call it." - "Wrapper for layout-specific function to avoid confusion." ^ self minHeight! Item was changed: ----- Method: Morph>>minimumWidth (in category 'geometry - layout') ----- minimumWidth + "Wrapper for layout-specific function to avoid confusion. Please configure through #minimumWidth: or #minWidth: or by overriding #minWidth. Please do not override #minimumWidth since the layout mechanism will not call it." - "Wrapper for layout-specific function to avoid confusion." ^ self minWidth!

1 0

The Trunk: MorphicExtras-mt.282.mcz
by commits＠source.squeak.org 13 Jan '21

13 Jan '21

Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-mt.282.mcz ==================== Summary ==================== Name: MorphicExtras-mt.282 Author: mt Time: 13 January 2021, 4:39:27.045847 pm UUID: 95c69503-32a5-6348-89d5-201549e7b662 Ancestors: MorphicExtras-mt.281 Fixes minor layout issue. =============== Diff against MorphicExtras-mt.281 =============== Item was added: + ----- Method: ObjectsTool>>minHeight (in category 'layout') ----- + minHeight + ^(self minimumBottom - self top) max: 280! Item was added: + ----- Method: ObjectsTool>>minWidth (in category 'layout') ----- + minWidth + "Answer a width that assures that the alphabet fits in two rows. For olpc, this is increased in order to make the Connectors category not too absurdly tall." + + ^ 400! Item was removed: - ----- Method: ObjectsTool>>minimumHeight (in category 'layout') ----- - minimumHeight - ^(self minimumBottom - self top) max: 280! Item was removed: - ----- Method: ObjectsTool>>minimumWidth (in category 'layout') ----- - minimumWidth - "Answer a width that assures that the alphabet fits in two rows. For olpc, this is increased in order to make the Connectors category not too absurdly tall." - - ^ 400!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2021